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I8M MAINTENANCE DIAGNOSTIC PROGRAM seer NO. 2568418 
SNK1 Seeseeeces SNEAK-ON DUMP e04¢0b0680 4 
ERR LOC CBJECT CODE ADOR SINT SOURCE STATEMENT ) -| 
oop 2 DUMPOO START X*0000* © 
ao 6 66S 6S OREM CESSES CRESS ENS OS SES 
- 4 2 * 6 
5 *TITLE: SNEAK ~ ON DUNP. * 
6 * * ues 
7 *STATUS: CHANGE LEVEL 0100. * ® 
8 * : 2 
9 *FUNCTION/OPERATION: SNEAK-ON DUMP IS USED TO PRINT OUT, IN HEX, THE * 
10 * CONTENTS OF CORE STORAGE. IT IS LOADED IN IPL MODE SY PLACING THE* | ° 
11 * DFCK IN THE PRIMARY HOPPER GF THE MFCU AND DEPRESSING THE PROGRAM * | 
22 * {DAD KEY. ALL CARDS HAVE BEEN CONVERTED TO IPL FORMAT. THIS PRO-* | 
13 * GRAM WILL GVERLAY THE FIRST 256 BYTES OF CORE, BUT WILL FIRST * | 6 
14% PRINT THE AaREA FROM X*OO?PC*® TO X*COFF*. ‘THE LSR DISPLAY ROUTINE * 
15 * WILL BE RESTORED AT THE COMPLETION OF THE DUMP. * | 
16 = ' 
1? SENTRY PDINTS: ADPAA1 — INITIAL ENTRY TO THE PHASE. * 2? 
18 + * ae 
19 *INPUTS CONTENTS OF CORE STORAGE. * e 
20 2 : * 
21 OUTPUT: FORMATTED PRINT OF THE CONTENTS OF CORE, 32 BYTES ARE PRINT-% 
22 * €D ON FACH LINE, WITH AN ADDRESS. * e 
23 * 
24 *EXTERNAL ROUTINES N/A * 
25 * * e 
26 *EXITS-NORMAL: EJ DISPLAY AT NORMAL END OF JOB. * 
27 * * 
26 + —ERROR: N/A * ® 
29 * * 
30 *TABLES/WORK AREAS: THE PRINT BUFFER (X*OO7C — X*COFF*®) IS USED TO * ,... 
31 * CONSTRUCT THE PRINT LINE. -. e 
32 * = 
33 *ATTRIBUTES: STAND ALONE. *, 
34 * ae @ 
35 *NOTES: ANY ERROR ON THE PRINTER WILL RESULT IN A *PO® BEING DISPLAY-# 
36 * ED. TO PRUCEED, CORRECT PRINTER PROBLEM AND PRESS HALT RESTART & * 
37 * START ON THE SYSTEM CONSOLE. ALSO, THE PRINTER CHAIN IMAGE MUST * > 
38 * BE RESIDENT IN CORE AT X*0100°*. * 
39 * * 
40 * #4 ¢*& @€*e & Ke KEK EHH HEE EEK ATC Kh KT KKK eT KECECU!MR F KK KK FE 2 
6 
7 ° 
; 
i 
i > 
t 
> 
; > 
DATE LSJANTC OOMARTO L7APRT7O 05 JUNTO PROG ID OSNK-2 
EC NO. 816576 £16638 816677 816707 PAGE 1 


15M MAINTENANCE DIAGNOSTIC PROGRAM 


ERR LOC OBJECT CODE 


oocn 
0004 
0008 
6008 
SOOF 
c013 


0017 
0018 
OO1E 
0021 
0024 


0628 
0028 
0028 
OC2E 
0031 
0028 
003B 


OATE 
Ec nO. 


ADDR STMT SOURCE STATEMENT 

4&2 

42 

4&2 

43 *e#eSSESSEeSEEREE «STORES REGISTERS AND SETS UP IPL READ ROUTINE. 

Sat 

44 

at 
34 04 0064 45 ADPSAL ST SAVPR1,PSR SAVE PROGRAM STATUS REGISTER 
30 £0 O06E 46 SNS LPLCR1e X* EOF SAVE LENE COUNTER. 
f3 £2 52 4&7 Si0 X*02*,x*E2" PRINT OUT PRINT SUFFER 
Ci €2 oeDD 48 TIO XE 2" WAIT UNTIL PRINT IS FINISHED 
34 01 8066 49 ST SAVRI1L)KRI SAVE INDEX REGISTER 1 
€2 81 6O0D SG AAAOiO LA DUMP OD, XR1 SET UP XR AS BASE * 

eC00 = S11 USING DUNPOO, XR1 
SC OB FF 33 52 MVC 255 (129 XR1), AAAONZ042(,XR1) MVE READ RTN TO END OF BUFFER 
70 F4& 6A $3 SNS MFPNTIL,¥R1DX*E4? SAVE MFCU PRINT DAR 
70 F6 6C 54 SNS MFPCH1(,XR1},X*F6? SAVE MFCU PUNCH DAR 
76 £4 72 55 SNS LPTARLE,XR1)_,X*ES? SAVE THE IMAGE ADDRESS REGISTER 
DO GO F4 56 BC AKAG2O( g¥R1)—eX* 00? BRANCH TO READ NEXY CARD 
OOF4 57 AAAOZ0 EQU  xX*FaS ADDRESS IF READ ROUTINE 

58 CRG x?00281 
71 «*FS FF 59 LIO 2554,XR1)_,xX*F5* LOAD 1/0 
f3 F1 40 60 S10 X°40%sXSFL* START 1/0 
Dl Fl FA 61 TIG 2500,XR1),X*F1* WAIT UNTIL READ IS FINISHED 
DO 00 00 62 AAAQ30 BC DUMPOOT sXR1).X"00" BRANCH TO EXECUTE NEXT CARD 

63 ORG x*9028* 
E2D5D2F OF 1 303F 64 DC CLS*SRKOL? CARD ID — END OF SECOND TIER 
15JANT70 OSOMARTO L7APRTO 05 JUNTO PROG ID OSNK-2 
816576 816638 816677 816707 PAGE 1A 
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IBM OMATNTENANCE DIAGHOSTEC PROGRAN 
SNKY «ss ROESESEEEE SNEAK-ON DUMP 


ERR LOC OBJECT CODE 


ce me YR RR A BE FE 


occo . 66 ORG PUMPDO 
; 67 

os 67 
Peete! ee at 67 
68 #eeebeebESeRCCEe «SAVE MORE DATA. 
69 
6? 
Bah eae tat, den 69 
0000 70 E6 TO TO AABOOO SNS = LPDAR115HR19,X* E6* 
f 0003 7% O2 68 7 st SAVRZ2{ oXR12 yg ARZ 
; 9006 02 02 00 2° tA Of » AR19.,.RRZ 
f . 6099 71 £4 10 73 LIO = AABOL OT, KR19X* FES 
|  -« 88NC BO Co Fe Fe BC AABOZ OF .XR1}.0K* 00° 

OQO00F 0100 60010 78% AABO1LO DC XL2*0100* 
OOF4 3 AABOZO ECU = xXt*FES - 
i 0038 ¥? CRG x*o038* 
0038 E2D5D2FOF2 , 003F = 78 ot CLS *SMo2? 
? : 
| 
| 
| 
1 
i 
i 
t 
tes 
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} 
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' DATE 15JAN70 =—«- O9MARTO LTAPRTO 05 JUN7O 
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ADDR STMT SOURCE STATEMENT 


_ LIO PRINT IMAGE 


PART WO. 2508618 
PAGE ee 2 





SAVE PRINTER DATA ADDR.REGISTER 
SAVE XR2 0 
LOAD XR2 TO START OF READ BUFER 


BRANCH TO READ NEXT CARD | 
PRINT IMAGE ADDRESS 


DISPLACEMENT TO READ ROUTINE . 
ORG TO END OF TIER 
CARD IDENTIFIER 
| 
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PAGE 2 ¢ 








i 
:: ©@ e ee @ 
Ls 


ose eee 8 


a 


; . 
: 

e @ oe .@ ® wo e:@ @ ee @:@ 
: : , 


Sul 
ERR LOC 
0000 


so00 


0007 
GooFr 
0017 
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0027 
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0038 


_ DATE 
€c NO. 


JBN MAINTENANCE DIAGNOSTIC PROGRAM 


S6CSESCESE SNEAK-ON DUMP 


PART NO, © 2588618 
a : 


AEARD #3) t00eeeece2 





_ 2e 


OBJECT CODE ADDR STMT SOURCE STATEMENT a re 
80 ORG  DUMPOO pe tee 
- B21 a ‘ _ 
81 , | Oe . 
g1 . ise 3 
B2 *6eeSeeeeeeetese MOVE IN HEADINGS TO PRINT. a , 
83 : : 
33 is ee oe ; 
83 . be 
SC 27 a3 2E 84 AACOOO MVC =: 1634460, XR124HEANZI(,xR1} «MOVE IN HEADINGS ra oi 
DO 20 F4 85 ec AACO1012XR12eK*00" ~““" BRANCH TO READ HEXT CARD teat = 
OOF4 86 a&C010 EQU x*FE* ADDRESS OF IPL READ ROUTINE 
DTE2D94040406040 OOCE 87 HEADI1 OC. CLE*PsSR 8 = * a foo 
E709F 140404040460 O02E 86 HEAD21 OC CL32°xR1 KR2 MECU PRINT DAR * | : 
E7D9F 24040404060 88 e 
D4E6C3E44680TD9C9 8s i 
D5€34004C1D94040 68 . : 
899 PRG x? 0038t 2 = 
E2DS02F OF3 o03F 909 PC 80 CLS * SNKOS* CARD IDENTIFIER Wisi, 5 oe 
} 5 
‘| : : ee 
sw a 
! a 
e 
} 
i 
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1B MAINTENANCE DIAGNOSTIC PROGRAM ~ — PART NO. = 2588418 IBM MAINTENANCE DIAGNOSTIC PROGRAM ; . PART NO. 25884618 
. PAGE 3 PAGE 3A 
SNK1 KEKEEERESE SNEAK-ON DUMP (CARD #4) #48848448% ® SNK1 *eeeeeeoee =6SNEAK-ON DUMP (CARD #5) *#8e08¢800 — 
® : : e 
ERR tO0c OBJECT CODE ADDR STMT SOURCE STATEMENT % ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
» 0000 92 ORG DUMPOO  & 0000 104 ORG DUMPOO 
93 | 105 
93 105 
® 93 : @ 105 
QG FEKKEREEELASSYKS MOVE IN MORE HEADINGS. 106 F24eSseeRSEEEES «PRINT THE HEADING LINES. 
ee 9s “ae 107 
® 95 : @ 107 
95 107 
9000 SC 2E D2 35 96 AADOOO MVE = 2101472XR1Y,HEADSI1(,XRI): MOVE IN HEADINGS 0000 71 £6 15 108 AAEOOO LID PTADRICsXR1)-X"E6! LOAD PRINT DATA ADDRESS 
8 0004 DO CO F4 97 BC AADOLOLYXRLI 9 X* 008 BRANCH TO READ NEXT CARD @ 0003 5F O8 FF FF 109 SLC =. 255 12—9XR199255(yXRL) CLEAR QUT PRINT ROUTINE 
OOF4 98 AADOLO EQU = xX*F4 ADDRESS OF IPL READ ROUTINE 0007 F3 E2 C2 110 SIG = X*®02*,x*E2" PRINT THE HEADING LINES 
C00? 404040D4C6C3E440 0016 99 HEAD31 DC CL16* MFCU PUNCH DAt OOOA O1 E2 OA 111 AAEQ10 TIO AAEOLOL»xXR1),X*E2* WAIT UNTIL PRINT 1S COMPLETE 
3 OOOF DTE4D5C3C840C4C1 99 | € O00D SC OB FF 28 i112 MVC 255(12—XR1),AAE03042(,XR1) MVE READ ROUTINE BACK 70 BUFFER 
0617 D¢404040404003D7 0635 100 HEADS: OC CL3IER LPLER LPDAR LPIAR®. 0011 DO OO F4 113 BC AAEO20( ¢XR1} 9 X* 00! BRANCH TO READ NEXT CARD 
001F D3C3D94040404040 100 OOF4 1134 AAEO20 EQU = xX*F4P ADDRESS OF READ ROUTINE 
> 0027 03D7C4T1D9404040 100 6 6014 OOT7C 0015 115 PTADR) 0C XL2*°CO7C® ADDRESS OF PRINT AREA 
A O02F 404003D7C9C 109 i100 _ 0020 116 ORG x*208 . 
: 0638 . 162 ORG x*0038° . 0020 71 F5 FF. 117 LIO «=. 2550 a XRD X*FSE LOAD THE READ ADORESS 
8 003B E2D5D2FOF4 OG3F 102 oc CLS*SNKO4? © 0027 £3 Fl 40 118 S10 X*40* »X*Fit START IPL READ 
0026 Dl Fl FA 119 TIC  2504,XRID,X"FL® WAIT UNTIL READ IS COMPLETE 
0029 DG 00 00 120 AAEO30 BC Of »XR1)_X*00° BRANCH TO EXECUTE THE CARD 
@ 6 0038 i21 CRG X*0038" 
0038 E2D502F0F5S 0O3F 122 DC CLS5*SNKOS® CARD ID 
@ . oe 2 
. ® : 6 . 
‘: «be « 
e @ Z °o : ; : 
- 1 ie . ‘ 
é raat = 
® ! -9 . 
9 ; ;| © . 
2 9 
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® § 
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S ® 
8 2 
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S @ 
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., DATE 1L5JAN7TO OSMAR7O 17APR70 05 JUNTO PROG ID OSNK-2 } | DATE 15JANTO OSMARTO 17APR76 OSJUNTO PROG ID OSNK~2 
EC NO. 616576 816638 816677 816707 PAGE 3 1- EC NO. 816576 . | 816638 B1667T 816707 PAGE 3A 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 
® SNK1 seeeeeeeete =SNEAK-ON DUMP (CARD 
coy ERR LOC OBJECT CODE ADDR STMT 
® 0000 124 
125 
125 
® 125 
126 *#4e4% 
127 
9 127 
127 
0000 SC IF F3 26 128 AAFO0O 
® 0004 00 00 Fé 129 
: OOF4 130 AAFO30 
hee 00D4 131 AAGO20 
e O00? SC 11 44 F3 132 
0008 D2 02 03 133 
COCE D2 01 63 134 
e 135 * 
0011 CO 87 0003 136 
0015 CO 01 0003 137 
e ©0016 C2 01 0000 138 
6010 02 02 00 139 
0020 DO 00 F4 140 
s O0F4 141 AAGO30 
we 0023 FF 0023 142 COMP1 
0024 39 0024 143 HEX39 
@ 0025 87 0025 144 HEXB7 
0026 10 0026 145 LPCT 
0038 . 146 
@ 0038 E2D502F0F6 003F 147 
@ : 
; 8 
o . 
@ 
® 
2 
® 
9 
® 
S 
® 
® 
® : 
® 
OATE 1SJANTO O9PART0 17aPR70 
EC NO. 816576 816638 816677 
® 
3 
® @ @ : 
® 





#6) 


ORG 


eEEREK 


MVC 


EQU 
-EQU 
MVC 


- oA 


tA 


BNZ 
LA 
LA 
BC 
EQU 
oc 
oc 
oc 


. oc 


ORG 


O5JUN7O 
816707 


SXEEESEHGD 


SOURCE STATEMENT 


DUMPOO 


PART NO. 2588418 
PAGE 4 


MOVE PART OF CONVERT ROUTINE IN CORE 


X*F3°(329XR1) oX*26* (,XR1) 
AAFO300,XR1)_X*00* 

X*F4E 

X*D4t 

X44 (18,XRE) pX9F3° Cg XR1) 
K*D3* (gAP1) XR2 
X°634*CgXR1LIeXRI 


AAXO10 

AAX010 

X*0000* .XR1 

O00 XR1)_eXR2 
AAGO3 Of ¢XR1)¢X*00* 
K°FGE 

XLI*tFF® 

XL1°39° 

XLi*e7? 

XL1°10° 

x*0038* . 
CLS5*SNKO6t y 


STORE PART OF CONVERT ROUTINE 
READ NEXT CARD 
IPL READ ROUTINE LOCATION 


MOVE ENO OF CONVERT ROUTINE INT 
GET PTR TO CONVERTED AREA 
GET PTR TO AREA TC BE 
CONVERTED. 

BRANCH TO CONVERT ROUTINE 

GO CONVERT NEXT BYTE 

RESTORE XR1 

RESTORE XR2 

READ NEXT CARD 

IPL READ ROUTINE LOCATION 
2°S COMP OF 1 

CONVERTION CONSTANT 
CONVERTION CONSTANT 
CONVERTION BYTE COUNT 


PROG ID OSNK-2 
PAGE & 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


SNKI 
ERR LOC 
0000 


6000 


0003 
0007 
0008 
OOOF 
0012 
0015 
0018 
0010 
0022 
oc25 


0028 


00o2c 
0030 


0033 


0038 
0038 


DATE 
EC NO. 


2SRR4¢44% SNEAK-ON DUMP (CARD 47) *42%¢02%446 
OBJECT CODE ADDR STMT SOURCE STATEMENT 
149 ORG DUMPOO 
150 
150 
150 
151 *#eeeeee¢¢8% CONVERT REGISTERS 
152 
152 
152 
DO 87 D4 153 AAGOOO B AAGO20( 2XR1) 
154 * 
9C 00 01 00 155 AAXO10 MVC 1€1¢XR2) 900 ,XR1) 
A8 02 00 01 156 MNZ O(19XR29914 ¢XR2) 
3C 80 0026 157 MVI AAX03041.X* 80° 
BB FO 00 158 AAXOLS SBF Ol oe XR2) og X*FO* 
8D 69 00 159 cul 0 9XR2)_X* 09° 
Fz 864 0S 160 JH AAX020 
8E 00 00 0024 161 ALC O01 ,XR2) gHEX3O 
8E 00 00 0025 162 AAXO20 ALC 001 ,9XR2),HEXBT 
E2 0? 01 163 LA 1, XR2) gXR2 
F2 80 08 164 AAX030 JC AAX040,X*80* 
165 * 
3C 87 0026 166 MVI AAX03041—X° 87! 
167 * 
Co 87 OOOF 168 8 AAXO15 
D2 01 O1 169 AAXO40 LA 1€e¥R19—XR2 | 
170 * 
OE 00 0026 0023 171 ALC LPCT(1),COMPL 
i172 # : 
173 ORG X*00386°* 
E2D5D2FOFT OO3F , 174 “oc CLS*SNKOT® 
15JAN70 OOMARTO L7APRT7O OS JUNTO 
816576 816638 - 816677 816707 


PART NO. 
PAGE 


2588418 
4A 


GO DO INITIALIZATION FOR 
CCNVERTION ROUTINE. 
SPLIT ONE PYTE INTO TWO BYTES - 
ry . 

SET SWITCH TO HANOLE TWO BYTES 
SET ZONE BITS OFF 


CONVERT HALF BYTE 
* 


* 

* 

INCRIMENT PTR TO CONVERTED AREA 
NOP FOR FIRST HALF-BYVTE 

JUMP FOR SECONG HALF-BYTE 

SET SWITCH FOR SECOND 

HALF-BYTE 


INCRIMENT PTR TO APEA : 
TO BE CONVERTED 

SUTPACT ONE FROM BYTE 

COUNT 


PRN 10 
PAGE 


OSNWH2 
4A 
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SwKL 


ERR LOC 
0000 


9660 
9004 
0008 
000T 
0010 
0014 
o018 
001C 
9020 
0624 


0038 
0033 


DATE 
—cC NO. 


#enee¢0008 | «SNEAK-ON DUMP 


OBJECT CODE 


sc 
5F 
DO 


SSBasas 


20 
60 


TF 


87 
sf 


97 
AA 
BC 


> 


D1 
F3 
FS 


E2D5D2FOF8 


1SJANTO 
816576 


ADDR 


OOF 4 


o03F 


O9MARTO 
816638 


(CARD 48) te8essee88 


STMT SOURCE STATEMENT 


176 
177 
177 
17 


ORG 


378 Perererre Ts.’ 


179 

179 

179 —- 

180 AAHOOO 
18) 
182 
183 
134 
185 
186 
187 
188 
189 
190 AAHO30 
191 

192 


ATAPR70 
816677 


vc 


“VC 


MVC 
ave 
ave 
mvc 
MVE 
m¥C 
sec 
BC 

EQ 
ORG 
oC 


05JUNTO 
816707 


puUNPOO 


PART NO. 2588618 


PAGE 


MOVE CONVERTED REGISTERS TO PRINT BUFFER 


KOPF? (4. KRID oX* DECC XRD 
K°S7! (4_XRV) aX* OAT, RI) 
X* BE® (4 _XR1) X* DEN (XRD) 
N9OTS C4 XR1L) ge X"E2* (Cg MRI 
X* AAT L4G gS XR1) XLS TL RRL 
X*BC8 (4_XR1) aX EAC, XR1) 
MO 7* (4 yRR1) eXPEE (A XRLI 
X"°D1* (4,XR1) gX* F290 XRLI 
X*E3* (33_ ER1) og X*F3*C, XRD 
AAHO3ZO(,¥R19_X*00° 

XtES* 

X*0038* 

CLS5*SNKOB* 


MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
ZERO 
READ 


PSR 
xR 
XR2 
MFCU PRINT DAR 
MFCU PUNCH DAR 
LPCTR 
LPDAR 
LPIAR 
PART GF PRINT BUFFER 
NEXT CARD 


IPL READ ROUTINE LOCATION 


PROG 10 OSNK-2 


PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM, 


SNK1 
ERR LOC 


©o00 


6coo 
0003 
oO007 
OOGA 
000d 
0012 


0014 
e020 
9020 
0023 
0026 
0029 
0038 
0038 


DATE 
€c NO. 


$eS448S4 EEE SNEAK-ON DUMP 
OBJECT CODE 


71 £6 
SF 08 
F3 £2 
D1 £2 
SC 08 
BO 00 
oo7c 

71 FS 
F3 Fl 


01 Fi 
BS 66 


15 


+F 


02 
FF 


FF 
40 
FA 
00 


FF. 


OOF4 
6015 


E2DSD2F OF9 ' 003F 


15JANT7O 


816576 


OOMARTO 
816638 


ADDR 


(CARD #9) 


KESSESECSS 


STMT SOURCE STATEMENT 


‘196 t3e40000¢40e¢¢¢e PRINT CONVERTED REGISTERS. 


194 ORS 
195 
195 
195 
197 
197 
197 
198 AADOCD LI0 
199 SLC 
200 S30 
201 Aagoeio T10 
202 mvc 
203 BC 
204 aADD20 EQU 
205 AA0025 DC 
206 ORG 
207 L190 
208 S10 
209 T10 
210 AADO3O BC 
211 CRG 
212 pt 
LTAPRTO O5JUNTO 
816677 816707 


DUMPOD 


AADOZSL gXR1) 4 X* E6° 


255 (129 XK1 192551 —XR1) 


X?O2* sX*E2* 
AADCIO( »XR19.X* E2* 


NER 
@$eeeveeeeeeeseoeaeeeneaeaeaeeeneeoee eee ee 8 @ 


PART HD. 2588418 
PACE SR 


LDAD 1/0 TD PRINT REGISTERS 
CLEAR DUT IPL READ ROUTINE. 
PRINT THE DATA 

WAIT UNTIL PRINT _IS FINISHED 


255(12_XR17,AA00Z04214XR1) MVE READ ROUTINE BACK TO BUFFER 


AAGOZ01, XR1L92X* 00% | 


X*F4* 

XL2*007C* 

X* 20° 

25549 %R1)_X* FS* 
X*40* gX*FU4 

2501. XR21)_X*F1" 
DUMPO0{ oXR19.X*G0* 
X%*0038* 
CTLS5S*SNKOO* 


BRANCH TO READ NEXT CARD 
ADDRESS OF READ ROUTINE 
ADDRESS GF PRINT AREA 


LOAD 1/0 FOR IPL READ 

READ NEXT CARD IN IPL MODE 
WAIT UNTIL READ IS FINISHED 
SPANCH TO EXECUTE NEXT CARD 
GRG TO END GF TIER 


PROG ID OSNK-2 
PAGE 5A 
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| 18M MAINTENANCE DIAGNOSTIC PROGRAM 
| | 


cee ee ee eee 


(CARD £10) *eexeceeee 


WS Oe PART NO. 2588418 
PACE. 6 


SNKI ©S$CSCESEEE SNEAK-ON DUMP 
ERR LOC OBSEET CODE | ADDR STMT SOURCE STATEMENT 
8000 214 ORG DdDUMPOO 
a ” 215 
215 
| a 215 | 
216 €8S8444RESEEREEE MAINLINE ROUTINE FOR DUMP. 
247 : 
| 217 
217 
t C000 218 .. USING DUMPOD, xR? SET. UP BASE 
i C000 SC 2F aC 36 219 £APODO MYC 172148, XR1),AAPO400.XR1) MOVE CODE OUT OF BUFFER 
i 0004 DO 00 F4 220 BC AAPO1044XR1).X* 008 SRANCH TO READ NEXT CARD 
i OOF4 221 AAPOIO EQU = xKtF4G* ADDRESS OF EPL READ ROUTINE 
| ° 0607 FO 3E 6F - 222 HPL = _-xX9 OF 4, X*93E" HALT *PO*—PRINTER ERROR 
39008 €1 EO 00 223 AAPOLL TIO 0(,XR239,X* EO? WAIT FOR PRENT 
O00D 84 1 DF 224 ST 22304 XR2)_XR1 STORE REGISTER FOR COMPARISON 
i 0010 8D OF DE 225 AAPOIZ3 CLI 222(,XR2),X*OF* TS DUMP FINISHED? 
0013 F2 84 65 226 JH AAPOLS BRANCH TO READ IF YES 
0065 227 AAPOIS EQU x*t65* DISPLACEMENT TO IPL READ ROUTINE 
| 0016 9C. 0016 228 AAPO20 DC xXL1*°9C* START GF MVC 255(32_,XR219310_XR2 
0017 IFFFIF 0019 229 pc XL3°1FFFLIF® END OF MVC 
; GOA E2 01 DE 230 La 222 9XR275XR1 RELOAD DUMP ADDRESS 
| 001D 98 02 7D oO 231 AAPO30 MNZ 125{9XR2}90(4XR1) MOVE ZONE FOR CONVERT 
0021 BA FO 7D 232 SBN 125(_XR2)¢eX* FO" SET TQ *F* ZONE 
i 0024 BD FA 7D 233 ctl L250 gXR2V —X* FAL. NUMERIC? 
ps 0027 F2 82 05. . 234 JL s PRANCH IF YES 
002A 8F 00 7D OO1E 235 SEC 125(14_XR27,AA0030 MAKE PRINTABLE ALPNA CHARACTER 
; 002F E2 02 01 236 “LA 19XR2)-XR2 POINT TO NEXT CHARACTER 
| 0032 3D 03 OOLE | 237 cLI AAP03041,xXt038 FINISHED WITH THIS CONVERT? 
0036 3C€ 0026 238 AAP040 DC XL1*3C¢ START OF MVI X"0027*,X?03° 
; 0038 239 ORG x*0038" 
{ 0038 E2D502F1F0 O03F 240 Dc CLS *SNK10¢ 
f 
\ 
I 
b 
DATE 15 .ANTO O9MARTO 17APRT70 OSJUNT7TO | PROG 1D OSNK-2 
EC NO. 816576 816638 816477 PAGE 6 
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18M MAINTENANCE DIAGNOSTIC PROGRAN 


SNKI 
ERR LOC 
0000 


0000 
0004 


0007 
SOOA 
ooop 
6619 
0014 


0017 
0018 
6018 
OO1E 
9022 
0025 
0028 
002C 
0030 
0034 
0038 
0038 


DATE 
€C NO. 


PART NO. 2586618 
. PAGE 6a 
teeeeeeeee §«SNEAK-ON DUMP {CARD #11) teeesececs 
OBJECT CODE ADDR STMT SOURCE STATEMENT P 
242 ORG DUNPOO 
243 
243 
243 
266 senseseneeeeseee MAINLINE ROUTINE FOR DUMP. 
24 
245 
245 ' | 
ot ef DE 36 246 AAQOCO MYC = 22048, XRIY,AACOSO(,XR1) MOVE CODE GUT OF BUFFER 9 ~~ 
DO 00 F4 247 BC = -AAQD100 » XR1,X* 008 BRANCH TO READ NEXT CARD 
OOF 248 AAQDIO EQU = X*FKE ADDRESS OF IPL READ ROUTINE 
030027 8009 249 DC —- XL3* 0300278 END OF MVI_  AAPO3041,X*03" -__ 
F2 01 1F 250 SNE  AAQ040 BRANCH IF CONVERT NOT FINISHED 
02 01 01 251. LA - Bp HRD) RI MOVE POINTER TO NEXT BYTE 
34 01 OCDD 252 ST  - SAVE11.XR1 STORE XR1 IN SAVE AREA 
390300 0016 253 AAQ020 DC —- XL 3 #390300" START OF TBF SAVE11,X* 03° 
OODD 254 SAVE11 FOU x*O00DD# SAVE AREA 
DD 0017 255 DC = XL *DD* END OF TBF SAVE11,x"03¢ 
F2 90 03 _ 256 JSF 3 BRANCH OF NOT © 
£2 02 01 257 LA 10 XRZIYXRZ MOVE POINTER TO NEXT BYTE 
39 OF OODD 258 AAQO30 TBF SAVE11,X*OF* : 
F2 90 03 259 FO 3 BRANCH IF NOT 
E2 02 02 260 LA 20 XRZ4XRZ MOVE POINTER UP TWO BYTES 
3D 00 o9DD 261 CLI SAVE11,X*00* 
3€ 02 OO1E 262 AAQOSO MVI = AAPO30+1,x"02" SET INSTRUCTION TO MNZ 
CO 01 0010 263 BNE  AAPO30 BRANCH TO CONVERT IF NOT 
c20200 0036 264 AAQOSO DC — XL 3*C 20200" START GF LA  —-X*.:0000" »XR2 
265 ORG x" 0038° 
E2D502F1F1 003F 266 DCs CLS*SWKI1° 
15JAN70 = OOMAR70.=—s-«-LTAPRTO =—— OS UNTO PROG ID OSNK-2 
816576 816638 816677 816707 PAGE 6A 
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a IBM MAINTENANCE DIAGNOSTIC PROGRAM  . PART ND. 2588418 Ff} fem MAINTENANCE DIAGNOSTIC PROGRAM : | PART ND. 2589418 
> : PAGE ¥ ® PAGE | 7h 
. SNK1 eenensetes SNEAK-ON DUMP (CARD #12) t#8eeeee88 = ‘Siac eoteesaess SNEAK-ON DUMP (CARD #13) *eseeeeees 
| GRR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBSECT CODE ADDR STMT SOURCE STATEMENT 
® 0000 268 ORG =  DUNPOO | & 0000 290 ORG  DUMPOD 
269 291 
269 ; S61 
® 269 |» cae 
270 Feasenseetsessee MAINLINE ROUTINE FOR DUMP. 292 stesetenseseatek SET UP LIMITS OF DUMP. 
es 271 | r 2 = 
9 271 ' g S08 
271 Sas . 
- goo0 5C OE EB 19 272 AAROOO MVC 235115, XRLIFAKROZOLyxRII MOVE CODE OUT OF BUFFER 7 _ 9000 70 60 1A 294 AASOOG SNS  WORKL1C,XR12,X*00* SENSE DATA SWITCHES TO WORK AREA 
» 0064 SC OD TC 27 273 MVC 1244246, XRLDeAARGGC42E,XRL} MOVE CODE TO END Gf READ BUFFER S 5003 5D 00°29 IA 395 CLO WORKLI-LELeXR1) pRORKAL(,XRLP LIMITS IN RIGHT ORDER? 
| 9688 8 OO FS 274 8C AAROOS! o XREI oe XP OO* BRANCH TO READ NEXT CARD | Ahoy DO 84.29 See a neo IGE ARTA BRANCH TO ASSUME OF NOT 
OOF4 275 AARGOS EQU = K*F AS ADDRESS OF TPL READ ROUTINE hes GO0A &D 00 1A OLTE 297 CLC WORKLU€1,XRi} eS1ZEL2 UPPER LIMIT WITHIN CORE? 
9008 00 OOOB 276 AAROIO DC —s_- RL 1° 00* END OF LA = = 6600, KR2 @ Q00F BG 84 29 298 BH AASOZ00>eXRL? BRANCH IF NOT 
606C 85 01 DF 277 L 22345 RRZ} y MRI RELOAD POINTER TO DATA 0012 5C 00 2F iA 298 MVC AASOZS41 C1, XRE) WORKILCSXR1} MOVE UPPER LIMIT TO AVI 
COOr AF -OS OF OF ets SLC 223044%R2)522312XR2) CLEAR: WORK (SRESS OO1€ DO 00 20 300 BC  - AASOLOLgXRI}2X*908 BRANCH OVER CONSTANTS 
0013 D2 01 26 279 La 32(9KR129XR1 MOVE POINTER TO NEXT 32 BYTES 3 Ante e6a0 ahah. coi ORRY oF aes Geek GREA 
9016 F3 E2 02 280 SIO -X#O2",X*E2* PRINT CONVERTED 32 BYTES Bb es Sas eae, “aesns 
0019 £ OG19 281 AAROZO DC XL EL START GF TIO INSTRUCTION 9020 7C 00 IA 303 AASOIO MVE -WORKILCsxXRL},X*008 CLEAR NEXT BYTE 
OLA E26E 0018 282 bE XL2*E26E° END OF TIO  21042XR2)2X"E2° Se 9023 75 O1 IA 304 L WORK11¢,XR1}_XR1 LOAD LOWER LIMIT INTO REG. ¥ 
; 0010 EO OO OA 283 BC AAPOL1(,XR2)_X* 008 LOOP TO CONTINUE DUMP ARIE eo e765 Sas 5 ah | SUMP PAST ASSUMPTION 
OOLF F3 F1 40 284 S1Q X84" oXK* FILS START IPL READ : 0029 4C 00 ZF OLTE 206 AASOZO0 MYC AAS0254101,XR1),S1ZEL1 SET UPPER LIMIT TO CORE SIZE 
e 0022 El FL 22 285 AAROZO TIO — AAROZOC + XR2) 9 K°F LE WAIT UNTIL REAO TS COMPLETED , & 002E BC 00 11 307 AASO2Z5 MVE AAPO134204XR234X" 00" MOVE UPPER LIMIT INTO TEST 
0025 E0 00 CO 286 AAROSO BC DUMPOOE gXR2},X*00° - BRANCH TO PROCESS NEXT CARO Ey heat BLES Fe ae Pipe Cosel seo Xess DATE PIG FoR NEXT” 1PE READ 
0038 287 ORG "0038" as 0034 £0 00 74 309 BC AASO30C » XR2) X*008 BRANCH TO READ NEXT CARD 
e 0038 E2D5D2F1F2 OO3F 268 bt CLS *SNK12° , @ 0074 310 AASO30 EQU  x*"0074" ADDRESS IF IPL READ ROUTINE 
O17E 311 SIZE1 EQU X*O17E* ADDRESS OF CORESIZE 
. 0038 312 ORG x*0038° 
e eo 0038 E2D5D2F1F3 003F 313 pc CL5*SNK13* 
e ‘e 
Ss ; '@ 
® ® 
® ® 
‘aa ede 
® ‘@ 
® 8 
: \ 
® ® 
® 2 
eae ea 
® ® 
'. : 
® e 
® ° | 
.. DATE = 15JAN7O = OSMARTO —-ATAPRTO = OSJUNTO rece 78 OSNKLe DATE 15JANTO  O9MARTO  17APRTO O5JUNTO PROG ID OSNK-2 
e EC NO. 816576 816638 816677 816707 PAGE 7 FC NO. 816576 816638 816677 816707 PAGE 7A 
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19m MAINTENANCE piacnost 4c PROGRAN 


SNK 
ERR LOC OBJECT CODE 
0000 


0000 AC OA FF 24 
0004 31 F5 OO7C 
0008 EO 00 F5 


q020 


kee epee «=6SNEAK-ON une 


ADDR STMT 


oo7t 


GOOFS 


G020 #&C 6t 6f FB. 


_ 0024 AF 63 ED ED 
0028 EO 00 OA 
0038. 

0038 E2D5D2F1F4 


DATE 
€C NO. 


15JAN70 
816576 


OO3F 


OOMARTO 


816638 


315 
326 
316 
316 


317 


318 
318 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 


we ee ee eee 


ACARD #14) kO4444bCS 


SOURCE STATEMENT 


ORG 


OuMPOO 


PART ND. 2528418 
a ae 8, 


HhEEeSESEOEEESSE «HOVE DUMP MAINLINE TO READ BUFFER. 


AATOOO 
AATOOS 


AATOLO 


AATO20 


17APRT7O 
816677 


255( 219 XR2 1, AATOZO42(,XR2) MOVE CODE OUT OF BUFFER 


¥C 

LIQ} AATOOS, X*FS* 

equ = x" 007C# 

BC =—-_— AATO1 01 »XRZ}4X*00* 

Fou |= xXt€59 

ORE x*20* 

MVE «110121 ¢XR2ZI42351_XR2) 
SLC. 237100, %RZ9223 70, XRZ) 
BC = AAPOL119XRZ)2X* 00" 
ORG x*0038° 

DC ss CLS *SNK24* 

05 JUNTO 

816707 


LOAD ADDRESS OF PRINT AREA 
ADDRESS OF PRINT DATA 
BRANCH PAST CONSTANTS 
ADDRESS OF MOVED CODE 


MOVE DUMP CODE TO READ BUFFER 
CLEAR QUT PRINT BUFFER 
BRANCH TO EXECUTE DUMP 


PROG ID 
PAGE 8 
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18M MAINTENANCE DIAGNOSTIC PROGRAN 


SNKL 


ERR LOC 


0000 


0000 
0004 
0020 
0020 
0026 
0O2E 
0035 
0038 
0038 


DATE 
EC NO. 


eneccetees “ SNEAK-ON ‘DUMP 


“PART ND. - 
PAGE = _° BA 
ane r 


{CARD 915) Feeeeseees 


2sesa1a 


OBJECT CODE ADDR STMT SOURCE STATEMENT 
331 ORG DUMPOD 
332 
332 
332 
333 te+seeeseeRSstTH REPLACE FE ROUTINE IN CORE. 
334 
334 
334 
ac 17 V7 *37 335 AayoooO MVC PICS oe RRs be ABUL OL 9 R27 REPLACE. FE ROUT INE 
fO 7C 63 "336 ~ PL X*G3%—gXOTOV 5: HALT. °Eg* 
; 337 GREG x*208 
FOOOOOF 00000 0025 338 oC XL6* FOOOOOFO0000* 
3000006800000062 002D 339 oc XL8*3000006800000062* 
0C0000640067C8 00634 340 oc XL T* OC 0000640062C 0 
900060" 0037 341 RAUOTO ft xXts°coocsee™ - 
342 ORG x*0038* 
E2D5D2F1F5 003F 343 DC CLS "SNK 15° 
344 
344 
34% 
344 
344 3 . 
0062 345 SAVARI EQU X* 0062? ARR SAVE AREA 
0064 346 SAVPRI FOU x*0064* PSR SAVE AREA Ni hee te 
0066 347 SAVR11 EQU X*9066" XR1 SAVE AREA ; 
0068 348 SAVR21 FQU X*0068* XR2 SAVE AREA 
OOGA 349 MFPNTL EQU xX*O06A* MFCU PRINT DAR SAVE AREA 
006C 350 MFPCHL EQU x*O0D6T* SFCU PUNCH DAR SAVE AREA 
OO6E 351 LPLCRI FQU X*OD6E* LINE COUNTER SAVE AREA 
0070 352 LPDARI EQU xX*0070* PRINTER DATA ADDRESS SAVE AREA 
0072 353 LPIARI EQU x*90072* PRINTER IMAGE. ADDRESS ‘SAVE AREA 
0001 354 XRI fou 20 i INDEX 
GOO02 355 XR2 equ. 2 REGISTERS 
0008 356 ARR equ 8 ADDRESS RECALL REGISTER 
0004 357 PSR equ 4 PROGRAM STATUS REGISTER 
1S5JANTO OOMARTO LTAPRTO OSJUNTO FROG ID OSNK-2 
216576 816638 816677 816707 
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IBM MAINTENANCE STAGNOSTIC PROGRAM 


SH 


‘ERR LOT OBJECT CODE 


DATE 
€c NO. 


Seseeerste 


15JANT7O 
816576 


SNEAK-ON DUMP 


ADDR STMT 


OOMARTO 
816638 
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PART NO. 2588438 ff. | IBM MAINTERANCE DIAGNOSTIC PROGRAM PART NO. arene 
PASE | °° & ®@ PAGE 
{CARD 415) S44e8eee88 / ® SKI *t6SS8S¢¢G 8 SNEAK-ON DUMP {CARD #15) +4¢0 es E888 
SOURCE STATEMENT “ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
359 RERKREEES SESE TEESE SEEEESES SEER SERESEERSSES ELS FE EEEESEEEERS RES ESTESEST SE 8s A427 & & "976 , Ss N. x oO 6 Ss 
360 * * 428 & DOGOF 4 TFF SF 7504.0404040404 06 040404040404040404 0404 04040E2D502F0F6 
361 * LISTING OF IPL CARDS * : aa6 6 
362 * * ® 430 + $ =+=©351 a 3 af 84498 348 A244 B4. 
363 * THE FIRST LINE IN EACH PAIR OF LINES CONTAINS THE PRINTABLE * 431 * &0F 5407 EF 3F5F 14070404040 7C 40407CF BF BF GFE 4 TICES TCFS ICAO ICESFEG0TCFS 
364 CHARACTERS ON THAT TIER. (THE SECOND LINE IS THE INTERNAL HEX * 432 * 
365 * CODES. EACH GROUP OF TWO LINES REPRESENTS ONE TIER OF A CARD * ® 433 * 
366 * AND THREE GROUPS MAKE UP A COMPLETE CARD. * 434 * . 
367 * * i 435 + ** A YB Aa@ w#o o*1.2bd0€+¢4 _ He 
368 EEECKRERA LESEAEE HE SSCS ESEREREEEES EEEREEEHE SEE FEEFEEEEE ERE EERE EEE EE TES HS 8 436 © 604004504 0C 140EBL260C 1 70 40406 TBF 040 7DE940FZC4E54E4 04040CBSESOKD 
369 * 40 VOor F~3SA#AS «HA WBA *."°604% O06 | 437 * 
370 * F4CEGOEGF 060606€ F 3EZE 2C 1E2Z404BF 4C L4DEEC 2014040574 BT FFEFOFADOF OFS oes 438 % 1S@aA2 HOC w GCG 1K AAS a - SNKOT7. 
3T1 * eo : 439 ¢ 40CSE2C 26 1F240C 8TCC 740£ 6400 7406F 02010 14E 40406 ALOT 74 040E2D5D2F OFT 
372 * Fovz 4 26"32 31232 su K O01 4a0 * 
373 * SC FOESFE2D040F440404040F 1 FSTEF 3F 140D1F 17 860404 040404040E205D2F0F 2 441 4 16 MTVTATIIHES*7TaSt*S Pet Exret eh eGBae sh. 
37% * i © 442 * F1LFOSOTEF 7 7CFE TET TDF 5S TDF 7 TEFS TOT D4OF 7 TE IDE SELF 4 TD TEFGF4SFGFBEICFOFS 
375 * @=4£:3a9%& 22 6423238482255 «828 &8 443 0 | 
376 * TCTEFRTATCFIFS4040607CF240F 6F 4 7C TC FEAF BF 2ICESE SADE AE OTCE SST EF Ose Prog 
377 * 2 445 *- : 
378 * 446 * *crForecGgc *Cs*eecerPs*e*eewrC* E*#CGO*#C IS 2 
379 * 447 * 5CC3 7FDOSCC 3C7EA SCC 34F SE SCC 3D 7E25CC350E65CC3 79505CC3CTEESCC3DIF 2 
380 * owoeaBYKB LUE aA 6 443 * 
381 2 FOE6FOFSCZE8D2C240F 1E450D040F 4C 14040404040404 04.04 0404040404 04040 ae 449 € 1-33 oe SNK S 8 
382 * 450 * 5F6 OF 3F 3D040F 440404040404040404 04040404 040404 0404 04040E2D5D2F OFS 
383 « SNK 02 6 451 * 
384 + 404040404040 4040404040404040404040460404 0404 04 0404 046040E2ZD5D2F OF 2 452 * e * 48 2268 aA 22 ana 2 8 2 
385 * 453 % 4070404060 TDF 4F B4OTCTCFE4OTCES 40407C TC40S07C TLFE4OTCSOFS407C4040 
386 * 8 8828 2&@248 & & a& 8 454 % 
387 * FBG OFSEBTCF B40 TLCFSFBG0F440F 4407 CF 440404 04 0404 04040404040404 04040 455 * 
388 * 456 & - 
389 * | © 457 * LHN->.""3SBIS *.2.%. “4 @ 
390 * | 458 * F1E6055F4B 7F TF F3E2C 2D1E24A85C4B 7 F6BD040F 4407040404040404040406040 
a9] * * x T> &4PSR x Ri xR 2 4 : 459 * 
392 * SCE 7E36ED040F 407 E 209404040404 0F 709F 1404040404 0E 7D 9F 2404040404004 ' gO 460 * 15"3i gil: SN K0.9 
393 * se 461 * RAP OTE AP UsAO TE LTADOS0S0405 080608 250so Uy Us Oe Osos OsORGE ctaDzE or? 
394 * FCU PRINT OAR SN KO 3 2 462 * 
395 * C6C3E440D7DICIDSE340C4C 10 94040404040404040404040404040E 2D5D2F 0F3 7 463 * > = #88 2A@liIls 484% & & 
396 * 464 * TAGOTEGOFSE8F840F 27CF 1F1F 440F 4F BF 440F 44 0F 4404 0404 0404040404040460 
397 * 244 4 465 * 
398 + SO TCE SE 440F 44040404040404 04 04 04 04040404040404 0404040404 040404040 eo £66 € 
399 * 467 * 
400 * 468 * *? 26 4O0=7/- G4Arwx FES ZSGODVED*™ "SAS O8! 
401 * o 469 *® SC 6FECFODOGOFSFCTESF 61 6040F4C 1 SF T04F SEF 2C4E55C5F TF 5F E2C1 SEDBC 27D. 
402 * *>«* 5 4 MFCU PUNCH DAR Lee 670 * : 
403 * SC6ED2 FSD040F4404040D4C 603 E440D7E 4D5C 3C B40C4T 1 094040404040D307D3 471 * 2:0* *:s*2BeEf ® GSBAPC Pa SN K-21 0 
404 * ° 472 * 40 TAF OTD7DTA TOF 2C 2C 54F 4OT040L TE ZC 2C 1 TDC 34007 7C 404040402 D502F 1FO 
£05 * CR LPDAR LPIAR SNKO% ee 473 * 
406 € C3D9404040404003D7C4C1D94040404040D3D7C 9C:1094040404040E 2D5D2F OF4 a7@ * 1722036 ae ghg Ge cee 9 S-9e ace wa Sees 
407 * : ° 475 * FLETICTCF3F64040F SF 37BFOF4FE57EF 87FF TF OF 3F 5 7B TOF 4F SF S40 7TCFBF4SIC40. 
408 * & @ & 476 * i Phy 
409 * 40F 44070 40F 440404 04.04 040404 0404040404040404040404940404040404040 477 * 
410 * 3 478 * . 
411 * 479 * *?* 6 4C P2Z2ATKAAGA 99C0 92 jCSBAS4I 
412 * 480 * 5C6F5C FOD040F 40 340D7F 2C LE SL 2C I CLF 4C1405DF 90 3405DF 2D0C3E2C2C 1 F9O4F 
413 * ITWNm>L Mh RUOBSBIS Fe % 2 4 a e 481 * " avs 
414 * F1E6D55F48 7F TFF3E2C2D1E24A5C4B 7F6BD040F 440704 0404040404040404040 482 * >2 CSBB* >@2eB P A OBB SNK11 
415 * 483 © 405DF 2D0C3E2C2C27D40405D ICC 240D 7400 14006020 2404.04 946040E2D5D2F1F1 
416 * 165"321 518 SN KOS ; © 484 * 
417 * FL FSTFFSF140D1F17AD04040404040404047404060604040404040E2D5D2F0F 5 ‘ 485 * 168343 "52 2=*3P Mme eho gars 8 42 BEAS 
418 * 486 * FLFGFB IDE 3F4F3 TEE 57DF 1 TE TDF 3 7D ZF TE TFFSTBICTEF SF840F47IC40 TC ICICFS 
419 * 2 = £88 2282114 484 4 & i © 487 * . : 
420 * TAGOTEGOF4EBFEGOF 27CF 1F1F440F GF BF 440F 44 0F 44040404 0404606040404 40 “88 * 
421 * 489 * 
422 * ° 490 * e+ ,R*e la, 4 SAn~ PCS AKA-3SBS 
423 * eis 491 * 5C4E6B8095C4D TC 6DD040F 440F SC 1 5SF6FC 35F 5FD 201 60F 3E2C 261 406040404040 
424 * e-n3W 4* 5 3KBLKAT G C A CBA Kz 492 * a 
425 * 5C SF F3E6D040F45CD14AF 302C 2D3D2C LE 340074003400 140C 3C2C1404002C240 S 493 @ S>- €31 417- SNK 12. 
426 & 494 * E26F 50400 3F 3F 1406 1F 1F 760404060404040404 940404 0404 04040E 2D5D02F 1 F2 
® , 
LTAPRTO 055UNTO PROG ID OSNK-2 DATE 15JAN70 OOMARTO 17APRTO 05 JUNT7O PROG 10 OSNK-2 
816677 - 816707 PAGE 9 ‘ EC NO. 816576 816538 816677 816707 PAGE 9A 
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| ISM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2588418 -""" 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2588418 
\, ; PAGE 10 ® ; PAGE 104 
: ; : t : ; 
| S#KR SEECEESESE SNEAK-ON DUMP [CARD #15) seeeeeess ° SNKI Sheet eSbS* SNEAK-ON DUMP (CARD #151 #¢¢820000 } 
; ; / t 
| ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CROSS—REFERENCE | 
i i 
495 * . @ symBoi 1 LEN VALUE DEFN REFERENCES i 
496 * 4:34 424265*823288 a6 as. i 
; 497 © 40F 4 7A7 DF3F440F 4F 2F4F 2F 6F STDF SIC TCE BF 840 TCE 4404 0TLF 8404040404040 @AA010 A 004 0013 0050 i 
| : 2. 7 6 498 @ aasao20 C 001 OOF 0057 0056 i 
499 © .., A&A030 A 003 0032 0062 0052 ' 
500 © "5 A£&8000 A 003 0060 6070 
{ ; 501 * 0 y OR rz A= DZ* 7? @ anB010 2 002 0010 0075 0073 
502 * F0405ASD40D95AD0C 4£940405AC 1 TEDOC4E95ST4 06F SAD04 06040404040404040 AAB020 C001 OOF4 0076 0074 1 
503 * : AACOOO A 004 0000 0084 | Cn ' I 
504 * a SA 26€€ R7A=P? G15*- SNK 13 @ aacoio € 001’ 0OFS 0086 0085 : So * S : i 
505 * 7C40SAFSC15AF 2077 54C406FC 1TETC40C TF1FS7F6060F 4404 04040F D5D2FIF3 AADDOO A 004 0000 0096 i eS oe 
506 * AADO1LO C 001 COFS 0098 0097 aver 
507 * B5527* 41 7A157THIZ3 15% 665244 @ Aaatooo a 003 c0Ne 0108 ‘ 1 stir, Gare ene AS 
508 * FSF SFSF2F 7 IDFSF LE TICE LE SF TICE 3F 1 5 7D40F 6F OF SE2F SF 44.0404040404040 AAE010 A 003 OO0A 0111 0111 
509 * AAE020 C O01 OOFS 0114 0113 i 
510 * @ AAEO30 A 003 0029 0120 0112 —- 
511 * AAFOOO A 00% 0000 0128 
512 * 2 "= 25 a- § “") AAFUZ0 C 002 O0FS 0130 0129 
513 * 6C4A TFDOF 1 F540 7C 6040F 5404040404 04040406 040604 04 04 040404040404040 @ aacooo a 003 oc000 0153 ‘ 
514 * AAGO20 C 001 00L6 0131. 0153 
e 1a 515 * Z>>,?7 - C¢ SNK 14 AAGO30 € 00) OOFS 0141 0140 
516 * 6CEESESBOFES 60606 04.00340404.040404040404040404060404040E2D5D2F 1F4 @ sarnooo a 004 0000 0180 | 
517 * AAHO30 € 001 OOF4 0190 0185 
518 * "48="*262:53 AAQOCO A 003 0000 0198 
519 * TEFGF 8TETEF2F6F 2 TAF 5F3404040404040404040404604 04 04 040404040404060 @ Aa0010 A 003 000A 0201 0201 
520 * E AA0D020 € 001 O0F4 0204 0203 
521 * A§AG025 A 002 0015 0205 0198 
522 * @ aav030 A 003 0029 0210 0202 
523 * Ze770a7T _., &PD00 A O04 0000 0219 
524 * 6COTF TF TF OTC E3 404.04040404 046.0404 04040404 0404040404040404040406040 |" §aP010 & GOL OOFS 0221 0220 ee “ass 
525 * @ AAPoll A 003 000A 0223. 0283 0327 UE 
526 0 0 0 ’ Ss < uss - SNK 15 AAPOL3 A 003 0010 0225 o307* 
S27 * F04040F 04040F 040406840%4040E 240404 0F 440E2404040604046040F 2D5D2F IFS AAPOLS C O01 0065 0227 0226 
528 * | G aaroz0 a 001 0016 0228 . 
529 * a*ogat1#21 2132111212211 AAPO30 A 064 0010 0231 0237 0262* 0263 | A é ee 
530 * TC TDF 9OTCFLFL TBF IF 140F LF LF LF2F LF LF LF 2F LF 2F2F 1 1404040404040404040 AAPO4O A 001 0036 0238 0219 , bagel ee Seer ere 
531 * © aaaooo a 006 0000 0246 : 
532 * AA0010 C 001 OOFS 0248 0247 
533 * AAQ020 A 003 0016 0253 
Pe 0000 534 END ADPAA1 ° AAQ030 A 004 OO1E 0258 0235 
_.., AQ040 A 004 002C 0262 0250 
: AAQ05O A 003 0036 0264 0246 - . ; 
© Aarooo A 004 0000 0272 
AARDOS C 001 O0F4 0275 0274 
AAROLO A O01 OOOB 0276 f 
| © aaroz0 A001 0019 0281 0272 
AARO30 A 003 0022 0285 0285 ‘ 
AAR040 A 003 0025 0286 0273 ? 
| @ Aaso0o A 003 0000 0294 
| AASOLO A 003 0020 0303 0300 
AASO20 A 005 0029 0306 0296 0298 . 
| @ Aaso25 A 003 002E 0307 0299* 0306* 
AASO030 C 001 0074 0310 0309 
AATOOO A 004 0000 0319 
| @ AAaToos C 001 007C 0321 0320 
AATO10 C 001 OOFS 0323 0322 
; AATO20 A 003 0028 0327 0319 
@ AAU000 A 004 0000 0335 
_.4 &AAU0LO A 003 0037 0341 0335 
; f AAXO1C A 004 0003 0155 0136 0137 
@ Aaxois A 003 OOOF 0158 0168 
AAX020 A 005 001D 0162 0160 
AAX030 A 063 0025 016% 0157* 0166% 
@ AAx040 A 003 0030 0169 0164 
ADPAAl A 004 0000 0045 0534 
ARR C 001 0008 0356 ~~ 
| i @ compli A001 0023 0142 0171 
"  pUMPOO A 001 0000 0002 0050 ©0051 0062 0066 0080 0092 0104 0124 0149 0176 0194 0210 
| 9 
"DATE 1SJANTO O9MARTO 17APRTO 05JUNT70 : PROG ID ae _. DATE 15 JAN70 O9MART7O 17APRT7O 05 JUN70 PROG ID OSNK-2 
EC NO. 816576 816638 816677 816707 PAGE . EC NO. 816576 816638 816677 816707 PAGE . 10a 
i : 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


SNKI +OS¢80080 SNEAK-ON DUMP (CARD #15) *2¢0eee000 
CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES 
. 0214 0218 0242 0268 6286 0290 0315 0331 

HEAD11 A 008 OCDE e087 

HEAD21 A 032 O0ZE 9088 0084 

HEAD31 A 016 0026 9099 

HEAD41 & 031 6035 9200 0096 

HEXBT A001 0025 C144 0162 

HEX39 £001 0024 0163 0162 

LPCT A GOL 0026 0145 o1Tis 

LPOAR1 C 001 OO70 0352 o0TOe 

LPIARL C 001 0072 6353 0055* 

LPLCR1 C 001 CO6E 6352 0046+ 

MEPCH1 C 001 006C e350 0054e 

MFPNT1 € OCl 006A 0369 0053« 

PSR € 001 0006 6357 0045 

PYADR1 A O02 0015 0115 0108 

SAVARL € 061 0062 0345 

SAVEL1 C 001 CODD 6254 0252* 0258 0261 

SAVPRI C001 0064 0346 0045* 

SAVR11 C 001 0066 0347 G049% 

SAVRZ1 € 001 0068 0348 0071 

SIZE11 C 001 O17E 0311 0297 0306 

WORK11 A 062 OO01A 0301 294% 0295 0295 0297 0299 0303+ 0304 

xR1 C 001 0001 0354 0049 0050* 0051 0052 0052 0053 0054 06055 
0070 0071 0072 0073 0074 0084 0984 0085 
0109 0109 O111 0112 6212 0313 0117 0119 
0132 0132 0133 0134 0134* 0138 0139 0140 
0180 6180 0181 0181 0182 0182 0183 0183 
0186 0186 0187 0187 0188 0188 0189 0198 
0202 0203 ©6207 0209 0210 0219 0219 06220 
0246 0247 0251 0251*® 0252 0272 0272 0273 
027°* 0294 0295 0295 0296 0297 0298 0299 
0304* 0306 

XR2 C 001 0002 0355 0071 0072* 0133* 0139* 0155 0156 0156 0158 
0163* 0218 0223 0224 0225 0230 0231 0232 
0257 0257* 0260 0260% 0277 0278 0278 0283 
0309 0319 0319 0322 0325 0325 0326 0326 

TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 

+ --—-- ------ -------- -- + --- — LAST PAGE —-------——------- 

DATE 1SJANTO OOMARTO 17A°R70 05JUNTO 

EC NO. 816576 816638 816677 816707 


0656 
0096 
0120 
0153 
0184 
0199 
0224 
0273 
0299 


0159 
0233 
0285 
0327 


6059 
0096 
0128 
0155 
0184 
0199 
0230* 
0274 
6300 


0161 
0235 
0286 
0335 


0061 
0097 
0128 
0169 
0185 
0201 
0231 
O2TT# 
0303 


0162 
0236 
06307 
0335 
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PAGE 


0062 
6108 
6129 
0169% 
0165 
0202 
0246 
0279 
0304 


0163 
0236 
0308 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


FFAL 


ERR LOC 


6600 
0000 
0003 
0007 
0000 
ooLl 
00k2 


6800 
0800 
0804 
OB0A 
0810 
0816 
CBlA 
O8lE 
6824 
C82a 
O82E 
0632 
0836 
0639 
0830 
0841 
0844 
08468 
084c 
0e51 
C856 
0658 
0860 
0865 
O86A 
O86F 
0873 
0876 
0879 
Os7C 
O8TF 
0882 
0885 
- 6888 
0888 
“OS88E 
0891 
0894 


0897 
089A 


0890 
O8Aal 


OBAS 
Q8A9 
oB8AD 
08B1 
O8B6 
OS8BA 


0880 
08co 


OATE 
EC NO}. 


DISK BOOTSTRAP GONE SECTOR LOADER 


OBJECT CODE ADOR STMT 
2 
3 
4& 
5 
9832 6 
? 
F2 87 04% 6 
co 87 0X07 9 
OC D3 0803 COES 10 
co 87 9800 ik 
AO 0011 12 
C9D7D3 0014 13 
0015 14 
15 
3C 40 LFFF 16 
OC FE FFE LFFF 1? 
OC FF LEFF LFFF 18 
OF O61 0800 O8C9? i9 
30 09 oscc 20 
CO 84 OBDA 2i 
OC FF OTFF LFFF 22 
OF 02 0821 O86C9 23 
3D 01 0820 24 
CO 84 OBIE 25 
C2 01 0832 26 
75 02 94 27 
30 A3 0803 28 
38 01 0802 29 
F2 90 Cé 30 
3C 78 O8B8E 31 
3C 3C OSBF 32 
#8 00 4E OOLi 33 
48 00 51 O01} 34 
48 00 57 6011 35 
48 00 SA OOL1 36 
48 00 60 0011 37 
48 00 60 OO11 38 
48 00 63 OOLL 39 
38 08 O01) «0 
#2 $0 06 41 
7a 08 50 4&2 
7A 086 51 43 
D1 AO 8B ‘4% 
71 AG 92 45 
F3 00 OG 46 
7c CO 9B 47 
Ti AG 92 48 
Tl A& G& 4S 
F3 01 00 50 
O1 A2 5SF §1 
Dl AO 88 52 
53 
B80 C5 00 54 
BO Ol 73 55 
56 
6C O01 72 02 57 
co 87 voo0o 58 
59 
6C 02 8&2 03 60 
6c 0O 83 O01 61 
5E 00 343 95 62 
2c co 00co 00 63 
SE oc 9A 95 64 
DO 87 53 65 
o¢ 
FO 73 O3 67 
DO 87 53 68 
69 

Z2O0APRTO O1AUG70 

816682 816730 


SOURCE STATEMENT 


DECK 


4 


PART NO- 
PAGE 


2588455 
i 


POOR EEECHEESSEEESSESSEEERSEEETHEESESSESEES ESS STESS SHS ST SHES SISTER SS HELEDSS 
DOLPHIN DCP BOOTSTRAP LOADER 


% 


LOADA 
LOAD 
SWITCH 
LOADAA 
CLEAR 


2RO 


ZROA 


LOADS 


USING 
START 
J 

8 

MVC 

B 


oc 
oc 
EQU 
ORG 
avi 
MVC 
Myc 
Suc 
cul 
BH 
myC 
SLC 
cul 
8H 
La 
i 


SNS 
TBN 


_ SEF 


TSTERR 
SEKLIO 
SEKSIO 
LOADL 
LIOCK 
LIGOR 


‘$10 


T10 
T1001 


LOADF 
BR 


LOADE 


MOVE 
LGOAGD 


OSKERR 


VI 
MMVI 
M22 
422 
M2Z 
-MzZ 
MZZ 
M22 
Miz 
TBN 
JF 
S8N 
S8N 
TIO 
LIO 
$10 
MMVI 
t16 
L10 
s1o0 
T10 
TIO 


cul 
BNE 


avCc 
8 


MVC 
mvC 
ALC 
MvC 
ALC 
"8B 


HPL 
8 


LOADB i 
0 : 
LGAD 
#44 


ENDCEND41-CLEAR 3, END-CLEAR*LOADAA 


CLEAR 
KLIAOE 
CL3°3PL® 

* 

x*0800° 
X*LEFFS C* 


X°LFFE* C255), XS LEFF SE 
X*LEFFY (2563 5X* LFFES 
ZRO*3 62} » RUM256 


ZRO*2 999 - 
ZRG 


X*OTFF® (256) eX* LFFF ® 
ZROAt3(2) gNUMZ56 
' ZROAt2,01 


ZROA 
LOADB XR] 


DFDR(»XR1) 9XR2 
STATUS» X*A3* 
STATUS=1¢X*C1® 


411 


OSKERRO1,X* 78° 
DSKERR*2_X°3C8 
SEKLIOCL(  XR1LD, SWITCH 
SEKSTOC1¢ »XR1L) SWITCH 
LIOCRELtsXR1} eSWITCH 
LIODG41¢,XR1),SWITCH 
SIO410,XR1),SWITCH 
“TIOSL Ce XRLIZSWITCH 
TIGLEOL( aXKR1)e SWITCH 
SWITCH, X*°08* 


TSTERR 


SIG+1L (XRED XP OBE 
SEKSIG¢14 XRD _ X*O8® 
DSKERKRG gXRIBeNTRDY 
-DFCREgXRI) eCTLREG 


G,d 


RDDOFC4#3¢yXR19~0 
OFCROU,XRL) ep CTLREG 
DFDR( eXRLD Xt AG! 


x*00%,x°O1° 


#(_XRi},BUSY 
DSKERR( gXR1) gNTROYV 


O@yeXAR2) CE® 


LOADE(, XR1} 


BRE3G2eXR1L DG ZU9XR2I) 


e—% 


TO BEGIN LOADING 


FIXED/REMOVABLE SWITCH 


LOAD 


BASE VALUE 


SET XR2 TO POINT TO INPUT AREA 
SENSE DEVICE STATUS 


TEST 
JUMP 


SET 
SET 
SET 
SET 
set 


TEST FOR RUN GN 


JUMP 


SET TO LOAD FROM FIXED DISK. 
SET TO LOAD FROM FIXED DISK 


SYSTEM BIT 
IF OFF 


FGR CORRECT 
FOR CORRECT 
FOR CORRECT 
FOR CORRECT 
FOR CORRECT 


if NO 


SPINDLE 
SPINDLE 
SPINDLE 
SPINDLE 
SPINDLE 
FIXED OFSK 


TEST FOR IPL ERROR 
LOAO CONTROL REG FOR SEEK 


SET TO READ ONE SECTOR 
LOAD .COMMAND ADDRESS 
LCAD READIN ADORESS 


we AD 
(goe 
BRAK 


HAS THE END CARD BEEN READ? 


BRAN 


DATA 
WHILE BUSY 
Ct4 TF ERROR 


CH iF NO 


PLACE ADDRESS FROM END CARD IN MOVE 


GO TO OCP LOADER 


MOVE43(39XR1)930,XR2) SET DESTINATION + COUNT. 
MOVE*4S¢ LeXRL) elle XR2) FLACE DATA LENGTH IN TEXT MOVE 
MOVE#4C1 9X81) eONESEC (X21) 


#8 (#0), 4—-¥ 19 XR2) 
RODFC4201,XR1)eONESEC(yXRL) ADD ONE TO SECTOR COUNT 


LOADC(,XR1) 


X°O3% sxX°73° 
LOADC (, XR1) 


MOVE 


LOAD 


INCREASE SOURCE DISPLACE 


DATA 


ERROR HALT 


TO CORE 


LOAD SAME TEST AGAIN. 


PROG ID 
PAGE 


OFFA-1 
1 


4 
t 
t 
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o 


rio 


® 
@ 
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Q 


oe o oOo: 


G 


<a 


1BM MAINTENANCE DIAGNOSTIC PROGRAM 


FFA 
ERR LOC 


oec3 
oscs 
OBC? 
o6cs 
O8Ca 
oecB 
oscc 
oaco 
O8CE 
eeb2 


DATE 
tC NO. 


DISK BOOTSTRAP GNE SECTOR LOADER 


OBJECs CODE 
Osta 
G200 

Q4 

0100 

00 

co 

C4 

oo 
00000006 
0000 


2CAPRTO 
816682 


01AUG7 
816730 


ADDR STMT 
o8C4% 70 
O8C6 71 
oec? 72 
o8sc9 73 
O8CA 74 
oéCB 5 
eacc Té 
oecod 77? 
6801 78 
0803 79 
0001 60 
0002 84 
0200 82 
OCA2 &3 
QOAR6 84 
OOA0 65 
68D3 &6 
0832 87 

8 
c 


SOURCE STATEMENT 


uFCR 
DFOR 
ONESEC 
NUM2 56 
RODFC 


STATUS 
XR1 
KR2 
INPUT 
BUSY 
CTLREG 
NTRDY 
END 


oc 
oc 
oc 
Dc 
oc 
ac 
oc 
oc 
oc 
oc 
EGU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
END 


AL2(RDDFC) 
AL2UINPUT) 
XL1*04* 
XL2*100° 
XL1#008 
XL2°0G* 
XLLPCas 
XL1*00* 
XL4 #008 
XL2*08 

ih 

2 

X*2008 
x*a2? 
xtAGS 
Z*A0F 

o-1 

L0A08 


PART NO. 


PAGE 
FLAG 
CYLINCER O 
TRACK Ly SECTOR 17 
1 SECTORS 


EQUATE FOR 8 LEVEL 
EQUATE FOR B LEVEL 
EQUATE FOR © LEVEL 


PROG 
PAGE 


to 


2588455 
1A 


OFF A-1 
1A 





'@ | a | | 
nn 36M KAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2588455 oy 18M MAINTENANCE OZAGNOSTIC PROGRAN PART NO. 2588455 
| @ . PAGE 2 e PAGE 2a 
| 
| FFaAi . OTSK BOOTSTRAP ONE SECTOR LOADER ° FFAL OSK BOOTSTRAP ONE SECTOR LOADER 
ce CROSSREF ERENCE OBJECT CARD LISTING 
SYMBOL 1 LEN VALUE DEEN REFERENCES © “= 
¢ THE CHARACTER . INDICATES A BLANK COLUPN AND THE CHARACTERS DE H INDICATE NUMERIC SHIFT. 
“ BR A004 G8Al 0058 00578 
@ susy C COl OOA2 0083 0051 © Ctl 1 THROUGH 16 Ct 17 THROUGH 32 (i 33 THROUGH 48 CL 4S THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 
f CLEAR A 004 0800 C016 0010 0010 0011 
“. CYLREG C 001 O0A6 On84 0945*% 0048 sa 
z DFCR A 002 O8C4 0070 0045 0048 i go ee e@ e 2 @eseeneeecen eases POCOCCHOSECOBRESE OS SO OSCSCHR LORS EEE LE ceeoee 
DFOR & 002 C8C6 O07] 0027 0049 TE MaY*00OH* AOS LBI< 8<BCGB B-2)~ £& T9QFFALOCOI 
DSKERR A003 0880 0067 0031 0032 0064 0052 
@ END A COL 0803 0086 0010 0010 0o010¢ o ° 22? 2 OS ae : = - 
INPUT C901 0200 ©0082 ooTi Te-—3§0 -"03=6"8 = ~9C3"G732"0e08 & H2L4I6 3 ¢ -HCfa GPL"@COOHHETEIED HH<BDBASB E-z)IEK MCHC J&3F FA10002 
LIOCR A©CO3 O888 0048 00356 
@ ti0OR A 003 0888 0049 C0368 © ° . _ EL oe a ee 2 8 # ° oe « 
LOAD A006 0007 0010 0008 Te-/S560<8 ETKO2 «=MIG-N?7TOSB.*H DG OM- ME UK AP AE om EY DM- PE UK A - AEM F< OL-H AG 2U Q § MFFA10003 
LOADA A 003 0000 0008 ; . 
€ tOsDAA A OCL 0015 0026 0010 © - — © © wae - & aw op ec e e eo * «6 
LCADB 8A 004 0832 0026 0006 0026 Oo087 | Te-SOs—/SES-/SSER oPEEKSO ~~ BEOEE KOERNZOD OES —REBR 0794 4 £38 E2 88 G AX VHCS BC NB -98% JTAFFAL0004 
' t0400 £003 9885 O04? 0065 0068 : 
¢ LOALS A Q06 0886 00646 C. eeeee °c =» oe Coes en0ee8 Sevescvsestcoeeosce COSCO CHA HEO FAL OS eeecee 
LOADE A 004 O8A5 0060 0058 ; TH-The A$ 1D het aG<CenILe<yY & LA 1. P»-FFALGOOS 
LOADF A 004% 0890 0057 . i , i . 
Cc MOVE &4C0G5 0681 0063 00607 0061* 00é2% | 3 €e2 ece &@ eco eee eee e O80 seeeccrece § seeae 
NTROY € GOL O0AO CO85 0044 0052 EBC ESET Se nOC@Png oP TmEF] 1 C *% ax R&A $6 Q 98170501700 72870+8<FFA10006 
NUH256 A 002 O8CS 0073 0019 0023 e oe 
C ONESEC & 001 O8C7? OOT2 0062 0064 © 
RODFC A OO1l O8CA 0074 0047* OCé4* 0070 
SEKLIO A 003 OC8TF 0045 . 0033% 
C  SEKSIO A 003 0882 0046 0034* 0043¢ ° 
Sie A003 O88E 0050 GO037* 0042¢ 
STATUS A 002 CaD3 o0C79 0028* 0029 7 
€ SWITCH a 001 0011 0012 0033 0034 0035 0036 0037 0038 0039 0040 @ 
TIO A 003 0892 0051 00384 . 
TI101 4 003 08394 0052 00398. : 7 
€ TSTERR ACC3 O87C 0044 0041 | © 
xXRl C 001 0001 ocsa 0026* 0027 0034 0034 0035 0036 0037 0038 0039 0042 9043 C044 
. ; é 0045 O0C4&7 0048 0049 005) 0052 0055 0057 0066 0061 0062 0042 xe 
Cc. Sos 0064 0064 0065 0068 c e 
XR? €C 001 0002 CC#l - €027* 0054 0057 0060 0061 . 0063 
ZRO = A 006 «=(OFOA 6cci3: “601S* 0020 0022 - . 
C .ZROA =A 006 O81E .COZZ —-0023* 0024 0025 c 
ve TOTAL STATEMENTS FLAGGED in THIS ASSEMBLY «= os . 0 ; 
bs ; 
c c 
© | Q 
; : 
© = 
— ; 
e + ef 
C © 
© e 
Cc a 
G @ 
POSS OOS 6 2 9SE8 O88 CONS BOSS 8 OS® COS C8 OL OOO OO OOOO wee LAasT PAGE ee ee ee ee on ae ae ae ee ee ee ee Om Ee eee en Ee eee ere ae em enen neem 
¢ 8 - PROG ID OFFA-1 
DATE. ZOLPRIC 01ayGTO PFI 86 C§t ae} nave Z2ORPRTO O1AUG7TC PAGE 2a 
EC NOw 816682 816730 - PALE é. “"  €C NOs B)ee82 816730 
Cc | 3 
e 0 
S I gs 
6 é 
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> BRR+LOC OBJECT CODE 


if 


' PBs 


0000 
0015 


4945 
9019 
noiD 
0020 
C028 
0525 
9027 


9029 
o02C 
002F 
0032 
0033 
0037 
OO3A 
803D 
co4g 
ocus 
0047 
OONB 
DOVE 
0051 
O04 
0057 
Coss 
ODSE 
0062 
C065 


0069 


006D 
0070 
O071 


OO78 
0078 


o07c 
CO7F 


DATE 
EC NO. 


PAGE 
‘DIAGNOSTIC LCADEF FOR DISK. . 
ADDR STNT SOURCE STATESERT. 
2 DECK 8&8 : 
3 FFB STaRt 0 
a ORG xtoise 5§ 1872. 
5 ceneasesatetsdesreantetes ses sseseaesegenssesssenesseresesaseesansessece 
6 * CONTROL PROGRA# LOADER 
7 sevecssaneussesensnsesons ssessenacusesaanensusarsneneeneehesesesrenteee 
a 
_ 9 © THIS PROGRAS AODULE LOADS THE couTRoL PROGRAH, IBCLUDING Its sEc~ 
410 * TION REFERENCE TABLE. A ONE SECTOR BOOTSTRAP LOADER READS THIS 
41 * LOADER INTO CORE & BRANCHES TO IT. LOAD CARDS RECOGHIZED BY THE 
12 * DCP LOADER INCLUDE ~ 
13 * 
14% TET 
15 ¢ EMD 
16 * cPu 
7 * opt 
6 6 
49 * OTHER CARDS ARE IGUORED. 2 @ “at a eas 
20 ¢* | : 
21 ERE EEEEEEES EREEEERS CESSES 6 OO 9O8$S$S SF FHSS ESSERE ETHREREESEESESEESESEREEED EE 
22 
e€c18 8623 USING BASE1,2. 
#3408980 0018 24 ID £c CLa? * 
C2 02 0018 : 25 ENT2 LA BASE?,XR2_ LOAP X22 AS BASE 
Ba 08 63 26 ST NEXIT¢3 (,XR2) -ARR SAVZ RETORN ADDRESS FOR *S* CARDS 
cC 87 O21E 27 B UNPACK TO USPACK ROUTINE 
02 0024. 28 re IL1*°02* LENGTH 
O1PF 0026 29 SOURCE DC AL2 (DTABLE41). SOURCE ADDRESS 
co18 cc28 30 Dc AL2 (IB) DESTINATION ADDRESS 
31 
BC 08 A3 32 NVI =- RDDPC+#1(,X%R2),08 SET TO BEGIN SCAN AT CYLINDER 8 
BC 00 Au 33 HVI RDDFC+2(, X82) .0 SET TO BEGIN AT HEAD 0 SECTOR 0. 
EC 87 CS 34 RDVTOC B STRTIO(.XR2) TG 1/0 SUBROUTINE TO SEEK 
09 | 0032 35 SEEKF1 DC XL1* 06? FUSCTION CODE 
38 02 O1FD 36 TBN FLAG, BITS 
F2 90 03 37 JP *46 
B5 10 63 38 L MEXLIT+*+3(,XR2) - TAR EXIT APTER SEEKING TO WTOC 
FC 87 JE 39 B READ (,XR2) READ A YTOC ENTRY 
6D 02 92 AE a0 CLC 2(,XR1),ACTCON(3,XR2) 
F2 01 07 a1 JWE CKND 
6D 02 OF CO 82 -¢ CLC 7{,XR1),1D(3,XR2) 
#2 81 18 43 JE IDFND ID HAS BEEN FOUND 
BD 0c a3 44 CKND CLI RDDPC+1(,XR2),X*OC* TEST END OF VTOC 
F2 81 03 as JE HD BRANCH IF ALL CYLINDERS ARE DONE 
£0 87 17 46 B RDVTOC(, XR 2) 
38 91 O1PD 47 HD TBN FLAG, BIT? 
F2 10 07 48 3T LDR 
35 08 O1FF ag L DTABLE+1, ABB 
FO 3B 73 SO HPLHD HPL X*73*,x°358* 
cO 87 COCO 51 LDR B ++ 
0068 52 XREPF1 <E£QU *-1 
53 
53 
53 
53 
9c 01 AG 08 SQ IDPND SVC RDDFC+#2(2,XE2),4(,XR1) PLACE PGH. ADDR. IN CONTROL PLD, 
55 
EO 87 CS 56 PGNLOD B STRTIO(,XR2) TO I/0 SUBROUTINE TO SEEK 
co 0070 57 SEEKF2 DC XL1*00* FUNCTION CODE 
PC 87 7E 58 B READ(,XR2) TO READ ROUTIWE 
59 
38 20 O1FD 60 TBH PLAG,BIT2 
co 10 007C 61 MEXIT B8T +h EXIT IF BIT 2 IS O8 
62 
7D £3 00 63 CLI 0(,XR1) ,C*T® IS THIS A TEXT CARD ? 
cO 01 OAOB 64 CKCOMA BNE  CKCOM1 BR TO HEXT TEST IF HOT. 
65 ** NOTE - BRANCH ADDRESS OF PREVIOUS BRANCH IS ALTERED AFTER DCP 
66 ** LOADING COMPLETE TO PREPARE FOR SECTION LOADING. 
20APR70 O1AUG70 010CT70 OVAPR71 1230872 PROG ID 
816682 816730 816760 816948 577050 PAGE 


IBS MAINTENANCE DIAGHOSTIC PROGRAM. 


PART HO. 


2588857 
q 


* 


Qee2aheenkenue 


OFFB-& 


ay ' 


j 


i bee 


te? 


_, TBM SAINTEBAWCE DIAGHESTIC PROGRAN 


3 


STaT 
67 
68 
69 
70 
7 
72 
73 

74 
15 
76 
77 


718° 


79 
80 
81 
82 
83 
8a 
85 
86 
87 
88 
89 


90 


91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
108 
105 
106 
107 
108 


PAT #0. 2568857 


8 


‘SOBRCE STATEREST 


BOVE 
READ 


READP 
ALC 


SPORT 
REDEXT 


RDDFC 


DFDR 
SENSE 
ONESEC 
ACTCON 
EXTSAY 
NRA DFC 
RECABa 


* 


ALTDFC 
ARDDFC 


LAST@ 


LASTAD 


010CT70 


PPPS DIAGNOSTIC LOALES FCH DISK 
ERR Loc OBJECT CODE &DDR 
9083 9c 02 79 o3 
coes7 9c 60 FA 04 
COBB. D2 61 08 
OOBE ic 08 9000 00 
6093 FC 8755 et 
0096 Ba 08 A4 
0099 BC COC AS 
N0°C £0 87 CA . 
COSF 01 cOo9oFr 
OCAO AZ OT AS AB 
OOAN BS 60 Aa 
OOAF EO 20 88 
ODAA BD 87 AZ 
OOAD F2 01 03 
OOFO BC 4c AZ 
0083 BS 01 A7 
OOB6 CO 87 9000 
OOBA 00 COBA 
OOBB C7 CORB 
~ gOoBc 048 ooBCc 
COBD 09 COBD 
OOBE 0880 OCOBF. 
99CO0 0000 occ 
00C2 ocoa ccc3 
coca C1C_ £3 P0C6h 
O00c?7 0000 eccs 
occs COBA COCA 
COcB COCD occc 
OfcD CCOO0CFF ocpo 
OCD COD3 C0D2 
00D3 0O 00D3 
Cops CO CCDs 
fODS 00 cons 
OoD6 60 cops 
00D? COD9 09D8 
NODS CO cop9 
OCDA CO OODA 
NODB 90 CODB 
DATE 20APR70 97Aa0G70 
EC NO. 816682 816730 


816760 


ave 
svc 
La 


aYC 


B 


- st 


EVI 
B 
be 
ALC 
TBH 


OVAPR71 
818948 


0743.63, 522) 9 WER? S2T DESTINATION aporess rs vert sOovE 


HOVE+8(1,XR2},1(,X81) PLACE LESTRUOCTION LENGTH IN sOvz 
& (,ER1) ,XR1 INCREASE POISTER BY &. 
Se teetee tet 3) NOVE. TEXT DATA TO CORE 


-PESLOD(,ZR2} GO READ. REET CARD 0 0 reer art 
REDEXT+3(, 282) ARR SAVE EXIT ADDRESS 

RDDPC+3 (,XR2) 00 SET TO READ ONE SECTOR | 
STRTIO{(,XB2) TO 1/0 SUBROUTINE TO READ 

XIL1°91? FURCTIGS. CODE 


RDDFC #2 (2, XR2), ORES EC (, RZ) 


“STEP SECTOR NUSBER ¢1— 
RDDPC#2(,XR2) -X* 69° 


“TEST FOR SECTOR no*s 
| 2% TSRG 31. 


ALC(, X82) IF EQUAL, STEP acars 
RDDFC41(, XR2) 71 CYL.CousTt To 71 ? 
SPORT IP ves, 
RDDFC+1 (,XR2) ,76 SET IT 70 76 : : 
. DFDR;, 222) ¢ZR1 LOAD X#4 SESE AUPRESS OF. SPADIN amea 4 
t* ¥xrIT ar eee - 
3% 14*00* FLAG 
IL1°07* “CYLINDER 
241° O04? TRACK & SECTOR NOW eons 
XL1*90* RUABER OF SECTORS O8 TRACKS - been ean tae 
AL 2 {8ORK) rs 
IL2*0* aa 
XL2*9* : 
CL3*actT* ; 
. XL2*O* } 
AL2 RDDFC} . 7 ; ht pa pee 
RL2(%42) 46044 414S46F88 84S E8SESSE SESE 8 
XL4&* Prt * MOST BE TOGETHER | a? Be 
sees s0enecsesseeeeess seeesee 
AL2 (ABDDFC) - 
XZL1*9* 
IL1i*o9°* 
XL1* 0° 
XL1*O* 
AL2(F42)  HESEESERSSE SE SSESESSSOESSEE ES 
XL1°*09* * MUST BE TOGETHER -* 
XL1*o0* * * 
XL1°O* EERE ESTERASES S EERE SRETELEES $F 
IZIDHT2 PROG ID OFFB-& 
577050 PAGE WA 


ane & ' PAGE. . 2 8 * o a8 PAGE . 2a 


FFFU DIAGNOSTIC LCADEF FOR DISK 


STATEMENT 


B33RD9: 


® 


FPBS  DIAGNCSTIC LCADER FOR SISK 


SOURCE STATENERT 


Eee Loc OBJECT CODE ADDR STNT SOURCE FPR LOC OBJFCT CODE ADDR STAT 
110 2 START 1/0 SUBROUTIBE AS as cci8 4178 USING BASE1,2- 
13 eo 0178 BS 02 F2_ 179 L NRADFC(, X22) ,XR2 LOAD BASE VALUE FOR START 170 
cOpc 112 £TRTIe FOU ¢ COBA 180 USING RDDFC,2 
cope BS 02 82 1713 L NRMDPC (,2R2) ,XR2 LOAD BASE VALUE FOR START T7060 S178 AC 01 98 Oe 181 SVC SETYR1¢2, X22) ,EXTSAV(,XR2) RESTORE PARESETER PTR. 
COBA 114 USING RDDFC,2 O17F AC 02 Ic 03 182 MYC = ARDDPC*+3(3,XR2), RDDPC*+3(,XH2) TRANSPER C,S,N NUMBERS «cece gene 
Anne RY ab 10 415 LIQ WREDFC(,XR2} ,CTLREG LOAD CONTROL REG. 0183 EO 87 28 183 8B LDPABH (, XB2) TO RETRY ORIGINAL OPERATION 
7912 B84 08 98 116 STPARH ST SETXR1(,XR2) -ARR SAVE ADDRESS RECALL REGISTER 184 
CCES 85 91 98 117 LDPARK L SETER1 (,¥R2} -XR1 LOAD ER1 AS PARAMETER FOINTER 185 * COME HERE TO READ A DATA RECORD 
NOES IC CC B86 C9 418 SVC SIO4+1(1,XR2),0(,%R1} SET FUNCTION CODE IB SIO "986 
OOFC BO AG 07 479 SNS  SENSE(, X82) ,CTLREG SENSE THE CURRENT CTL. FLD. ADDR. COIR «187 USING BASE1,2 
OOPF 79 07 00 720 TBP O(,X81) ,x*O7° TEST POR SEEK C186 346 08 6198 188 RECARD ST RECEXT¢3, ARR SAVE ADDRESS RECALL REGISTER 
POF? BS 01 C7 9421 L SENSE({, ER2) ,XR1 LOAD XR1i AS POINTER 078A C2 02 C18 189 LA BASE, 282 LOAD XR2 AS BASE 
122 * TO DISK COBTROL FIELD. 0182 EC 87 cA 190 B STRTIO(, X82) TO I/O SUBROUTINE TO SEEK 
OCFS F2 90 84 123 JF ADREYT HO, SKIP SET ADDRESS. 0197 00° C137 #197 S#EKP4a pC XL7*00* PONCTIO“N CODE 
124 6192 2f 87 7E 192 8 READ{(, XR2) TO READ DATA RECORD 
OOFS RI AB IF 125 LIO LAST@{,XR2) , 7TLREG C195 CO 87 OC600 193 RFCEXT B s—% EXIT 
OOFR F3 A701 126 STO 1,X"A1® READ ID 194 
DOPE FY A2 aa 127 TIO *(,x82),BUSY oe xe 195 ** THE POLLOWING CODING COMPLETES THE SZCTION LOADER. IT-IS ® 
0707 89 03 IF 128 TBF LASTAD-~1(,XR2),03 TEST FOR ALT. OR DEFECT. 196 ** BYPASSED DURING DCP LOADING. ONCE THE CONTROL PROGRAM IS LOADED,* 
o10a F2 10 OC 129 3st OK THE CYL IS OK 197 ** LINKAGES ARE SET UP SO THAT A BRANCH TO THE END CARD ROUTINE WXILL* 
0107 B1 AG 12 930 LTO RECABA(,XR2) ,CTLREG 198 ** 3E SUBSTITUTED FOR THE DCP LOADER RESIDING AT BEX -A0Q- * 
910A F320 00 131 SIO O,xX*a0* : RECALI BRATE 199 
OOD Bt a2 53 332 TIO €{,1R2),8UST 0199 7D Sc 00 200 CKCOP cLY 0, FT) ,Coe* sore IF THIS IS WOT A COMMENT *& 
0110 BC CO 20 133 AVI LASTAD(,%R2) ,0 019C F2 01 OF 201 J8E CHKSSW CARD * 
0143 B81 a6 07 134 OK LIO SENSE(,IR2) ,CTLREG RESTORE CTLREG 019" 38 01 0208 202 TBN SBYT2O,SS#07 
9116 7¢ 00 03 135 MVI =—-3(, XR1) ,0 SET SERK # TO 0 O1A3 £0 10 S5 203 BT PGALOD (, XR2) ‘ 
0449 6D 60 01 20 136 CLC 1{,%R1),LASTAD(1,XR82) COMPARE NEW ADDRESS WITH OLD O1A6 CO 87 O2TA 2048 3 PRINT . PRINT CONTENTS OF THIS CARD 
OID F2 81 1C 137 JE ADREIT EQUAL, SEEK NOT NECESSARY OWA 21 CIARA 205 rc XL7921° PLAGS 
2120 F? 84.08 138 JH FUDSEK HEW ADDR. HIGHER, DO FORWARD SEEK ClaB EO 87 55 206 B PGSLOD(,XR2) GO READ WEXT CARD 
0123 AC CO &9 20 139 MVC SCRCH(1,XR2),LASTAD(,XR2) PLACE LAST ADDR. IN WORKAREA 020D 207 SBYTES ZOU xXx*20D* 
0127 9F 0O 80 91 740 SLC SCRCH(1,XR2),1(,XR1) SUBTRACT HEW ADDR. FROM LAST CVAE 7D £2 09 208 CHKSSW CLI 0(,XR1),C*S* Sse? 
128 F2 87 OF 181 3 SET&P PROCEED 0181 F2 01 27 209 JNE CHKSE nO 
122 0184 OF C3 C20D C20D 210 SSWRD SLC SBYTES(9),SBYTES YES, CLEAR SS¥10 THRU SSH2PF 
O12F 7A 01 02 103 FPWDSEK S8N 2(,XR1),01 SET BIT ON FOR PORWARD SEEK C¥BA D2 01 05 277 LA 3(,XR1) ,ZR1 PICK OP @ OF FIRST SS# 
0131 9C 90 80 01 184 MYC  SCRCH(1,2R2),1({,XR1}) PLACE NEW ADDRESS IW WORK AREA CTBD 34 91 01C7 212 CHKSSO ST SADDE,XR1 STORE @ TO PACK SS8 
07135 AP CO 80 20 145 SLC SCRCH(1,XR2),LASTAD(,XR2) SUBTRACT LAST ADDR. FRON SEW O1c1 CO 87 0226 213 B PACK 
186 01CS 0? O%cS 214 DC IL1#2¢ 
013A 187 SCRCH EOQU *e1 O1cé OCD 01C7 215 SADDR DC AL 2 (*-*) 
0139 7c CO 03 148 SETADB NVI 3(,XR1) ,*-* INSERT WO. OF TRACKS TO CROSS CICB COCO CIC9 216 XREFS DC AL2 (*-*) 
013C 149 ADREXT EQU ™ fica ce 87 e0Co 297 B e-*% 
150 CICD 218 XKREFG BQU *-1 
013C B1 As O05 151 LIO DFDR(,XB2),X°AS* LOAD DATA REGISTER - : CICE 7D 63 01 219 CLI 1(,XR1),C*,° CHECK POR AKOTHER SS 
013F F3 CO 00 152 SIO SIO 0,0 START I/O OPERATION Cpt n2 91 63 220 LA 3(,XR1) X81 INCRESENT @ TO PICK UP NEXT SSH 
0147 F1A2 88 153 WAIT TIO *(,XR2) ,BUSY WAIT TILL COMPLETE (ipa CO 81 OIBD 221 SE CHKSSO DO IT AGAIN IF , 
158 01D8 £0 87 55 222 B PGSLOD (,XR2) 
0145 7B 01 02 155 SBF 2({,XR1),01 TURN OFF FOR. / REV. BIT C1rB 7D c5 00 223 CHKSE CLI 0(,XR1),C*°E* IS THIS AN END CARD ? 
156 C1DE FO 01 55 2248 BNE PGALOD(,XR2) GO READ NEXT CARD I? 50 
0188 F1 AO 9B 157 TSTERR TIO DSKERR(,XR2), NT RDY BRANCH IF ERROR O1E1 38 C& OIFD 225 TBN FLAG, BITS 
O148E 158 SETXR1 EOU 43 CIES DO 90 81 226 BP 3129 (,X81) BRANCH TO Z*907* 
074B C2 01 0000 159 LA *-*,XR1 LOAD XR1 AS PARASETER POINTER C1F8 BS 01 63 227 L MEXIT¢3 (,XR2) -XR1 
OM4P BS 02 D3 160 L RECARD+7 (, XR2) ,XR2 LOAD XR2 AS BASE OVEB DC 87 00 228 B . O(,X8H RETORW TO DCP 
C018 «161 USING BASE1,2 229 
0152 DO 87 01 162 B 1(,XR1) EXIT 0018 230 BASE £0U ID 
163 0880 231 WORK EQU xK*880* 
COPA 164 OSING RDDFC,2 CFD 232 FLAG QU X* 1FD* 
0155 165 DSKERR EOD ® C1IFE 233 DTABLE EQD xX*1FE* 
C155 B1 A6 18 166 LIQ = ALTDPC(,XR2),CTLREG LOAD CTL. REG. TO POINT TO ALT.FLD. 0068 238 LOADTB FOU xX* 685 
C158 F3 Al 01 167 ALTSIO SIO 01,X*A1* READ ID SIO 
0158 F1 A2 AT 168 WAIT1 TIO *(,XR2),BUSY DELAY TILL FINISHED 
C15E BD 02 19 169 CLI ARDDFC(,XR2) ,02 TEST FOR A DEFECTIVE TRACK 
0161 F2 81 C9 170 JE SETALT Jom? IF IT Is. 
0168 FO 3R 07 171 ERRHLT HPL 87,88 ERROR AALT 
0167 BT AG 10 172 LIO  WNRADFC(,XR2),CTLREG LOAD CONTROL REG. 
0164 F2 87 03 173 J SAVPRES 
C16D BC 01 19 17% SETALT MVI  ARDOFC(,XR2),01 SET FLAG BIT TO ALTERNATE 
C170 AC 01 OF 9a 175 SAVPRM MVC  EXTSAV(2,XR2) ,SETXR1(,XR2) SAVE OLD PARASETER PTR. 
0174 EO 87 278 176 B STPARB (,XR2) TO I/O SUBROUTINE TO SEEK ALT. TK. 
0177 CO C177.) «177 SEEKF3 DC XL1*00* FUNCTION CODE 
pate ® 20apR70 O1A0G70 010CT70 O7aPR71 1230872 PROG ID OFPB-8 DATE 20APR70 O1AUG70 010CT70 O1APR71 1230u 72 PROG ID OrF5-& 
EC NO. 816682 816730 816760 £18948 577050 PAGE 2 EC NO. &16682 816730 816760 818948 577059 PAGE 2a 


ee 


: * e 
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ma : . 


ie ‘ is ‘ : : oS # * soe ~s - * - t Be ee = ee : Bes. fe, p28 eiPnn, ok fae hy ty Oz, 7 5 * 
gilt Pa ne oa = 





nae ese a 


1 I ap er 
iS ep tae 


seepettee 


_ YBA AATATFNARCE DIAGROSTIC PROGRAM 


‘PPBe DIAGROSTIC LOADER FOR DISK 


SOURCE STATEMENT 


ERR LOC OBJPCT CODE ADDR STST 
OA0O 236 
: 237 
OACO 0601 OAOt 238 ONE 
CaA02 09 VAO2 239 RIRE 
OA03 00 OAG3 280 DEV 
OAR COCO OACS 241 NASK 
CAD6 C3C8CIC9IDS OACA 242 CHAIN 
243 
OAOB 7D Sc CO 244 CKCOR1 
OAOE P2 01 13 245. 
GA11 CO 87 OB6F 246 
OaAIS 33 01 0208 2a7 
OAT9 EO 70 55 248 
OAIC CO BF O2IA 289 
GA20 21 0A20 250: 
OA27 EO 87 55 251 
OA28 7D C3 00 252 CKCPE 
Oa27 F2 01 2F 253 
OA22 1C 00 0205 04- 258 
Oa2F cO 87 OBEF 255 
OK33 CO 87 0226 256 
OR37 08 0837 6257 
CARB E89 CA39 258 
ORFE F703 OR3IB 259 
OA3C 7D Fi OB 260 
OA3P F2 01 048 261 
CAN2 3A 80 0208 262 
CASE 7D C2 Oa 263. 
OAU9 F2 82 06 264 
OAUC 7D CH 04 265 
CREF F2 04 3c 266 
OA52 FO 3B 6F 267 CDERRC 
OASS F2 87 36 268 
269 
OASS 7D E% CO 270 CKUDT 
OA5B F2 07 AD 271 
OASF CC 87 ORG6F 272 
CA62 7D 80 03 273 
CA65 F2 07 06 27% 
OAS8 OF 2D O25F 025F 275 
OAGE D2 01 05 276 PTFDC 
CAT? 38 01 OATB 277 DLP 
0A75 CO 87 0226 278 
0A79 02 0A79 «0279 
OA7TA COND OA7B 280 UPTR 
OA7C 0A03 CA7D 281 
OATE C2 02 022F 282 
OAB2 B2 02 03 283 ULP2 
OA85 BB 10 01 284 
OA88 F2 90 OA 285 
OASB FO 3B 6P 286 
OASE C2 C2 (918 287 NEXTR 
OA92 EO 87 55 288 
OA95 8D CO 00 0203 289 UDTA 
OASA F2 81 07 290 
OASD BD CO 00 291 
OAAO CC 91 OAB2 292 
CARB RC 00 CO 0A03 293 LDUDT 
ORAS PE OF 01 294 
OQAAC BC CO 02 295 
OAA® D2 01 01 296 
OAB2 7D 60 00 297 
CABS F2 01 03 298 
OAB8 D2 01 01 299 ULPS 
CARBS 7D 4O 00 306 
OABE CO © OABE 301 
OAC2 7D 6B 00 302 
OACS F2 01 07 303 
DATE 20APR70 OTAUG70 010cT70 
EC NO. 816682 816730 816760 


ORG 


ne 
be 
oe 
oc 
bc 


CLI 


cLT 


JRE 


OVAPRT1I 
818988 


x*ac0° 


IL2* %* 
RL7*09¢ 
EL1* OF 
ZLz*O* 
CL5* CHAIN® 


O{,IRip Ce ¥* 
CKCEY 

DEFIZE 
SBYTEO,SSEOF 
PGHLOD (,XR2} 
PRINT 
XL 27° 29° 

PG ELOD (,ZR2} 
9(, £81) .c*c? 
€xupr 
S80D (1) -4 {, 221} 
DEFINE 

PACK 

IL 1* at 
BL2 (I NPOT+9) 
AaL2 (SIZE) 
T1¢, X81) cei? 
<7 

cPU,x* aoe 
&(,XR1) ,C*B* 
CDERRO 
8(,XR1) ,c*D* 
SEXTR 

HO, 8H 

HEXTR 


O(,%R1) ,c*g? 
CK CHW 

DEFINE 
3(.XR1),.C* * 
PTFDC 
UTAB+U5 (46) ,UTABEaS 
5(,XR1) ,XR1 
UPTR,XR1 
PACK 

IL1¢2¢ 

AL2 (*-*) 

AL2 (DEV) 
UTAB-3,XR2 
3(,XRZ) -XB2 
1(,XR2) ,BIT3 
ODTA 

HO ,H8 
BASE1,XR2 
PGMLOD{,.X82) 
0 (1,XR2), DEV 
LDUDT 
0(,-XR2) ,x°0° 
GLP2 

0 (1,XR2) ,DEV 
1(,XR2) ,X*OF® 
2(-XR2) -xX*0# 
1(,XB1) ,XR1 
0(,XR1) ,c*-°* 
£46 

1(,XR1) ,XBR1 
0({,Xk1),c* ¢ 
NEXTR 
0(,XR1) ,C*,® 
UDTB 


12508 72 
577050 


PART HO. 2588857 2 fp 

PAGE 3. + oe 

: ; 3 - 

ee 
BRANCH IF BOT COSREFT CARD % 
; Ss 
* 
GO READ SEXT CAEB * 
*z 
4 


BRANCH IF HOT CPU DEPIRITION CARD 
PUT SYSTER BODEL. i8TO SET. we x ~ 


PACK CORE SIZE INTO SRT 


COLUMN 12 CONTAINS *4§ 
BAKE SORE SYSTEM SODEL IS 8,C, OR D 


YES, GO READ NEXT CARD 
HO, CARD SET UP INPROPERLY 
GO READ NEXT CARD AFTER HALT RESET 


BRANCH IF NOT UDT CARD 


CHECK THIRD COLUHAN FOR BLARK 
JUMP If NOT BLANK 

OUT PREVIOUS UDT ENTRIES 
POINT AT FIRST DEVICE CODE 
SET UP DEVICE CODE POIETER 
PACK DEVICE CODE 


POINT AT DCP UNIT TABLE 
INCREMENT UNIT TABLE POIBTER 
BRANCH IF HOT LAST DCP ERTRY 


*RAE OUT ROCA IB 
LOAD XR2 AS BASE 
GO READ NEXT CARD 
BRANCH TO OVERLAY IF THES IS SAHE AS 

PREVIOUS ENTRY 
IS THIS AW UNUSED ERTEY 
IP WOT UNUSED, GO CHECK NEXT 
SET GP THIS ODT ENTRY DEVICE CODE 
CLEAR OPTION BITS 


UDT TABLE 


FOR DASB# 


IP BLABK ENCOUETERED, CARD IS DONE 


IF COMSSA ENCOUNTERED, GO TO NEXT 
DEVICE CODE 
PROG ID OFFB-9S 
PAGE 3 


i I3M SAIWTERANCF DIAGNOSTIC PROCRAZ 


FFRG 
EPR LOC ORJECT CODE ADDR 
OacB a? 04 02 
OACB. CO 8? OAT1 
OACP 7D PO 00 
OAD2 F2 02 05 
OADS 8F 00 OC OA02 
ORDA 78 FO O06 
CADD 9C 01 DACS 0404 
OAE3 BF 00 00 OA0? 
OARS F2 82 OA 
CAFB OF 0% OAO5 OA0S 
OA? CO 87 DAES 
ORFS OC 00 OBO2 OAD 
MaPB Oc OO OBDS OCS 
0207 BA CO OT 
CFOS BA 00 02 
OBO? CO B7 OABB 
OBOB Bp 0&8 OF OAODA 
, OBIO.F2 01.97 
0813 CO 87 0226 
OBI7 FO 0817 
OBi8 0978 0819 
OBIA 0877 OETB 
OBIC 7D FO 08 
OBIF F2 01 C4 
OB22 3C PF 0878 
0826 CO. e7 OABE 
OB2A FE T2 00 
CB2D F2 07 7A 
Of30 C2 02 C018 
0534 OF 05 920D 020D 
OB3A Of 01 O01C9 IPP? 
OB40 OC 01 OCD TEFO 
ORUG6 CC 87 OBE 
OfYA TE C5 00 
OB4D CO C1 CABE 
0B57 OC 0% 0068 IFFP 
OBS5S7 SC 01 O1CD IFF9 
OBSD OC 97 01C9 TEF? 
C#63 C2 04 9199 
CB67 34 C4 C082 
MB6B 35 10 1¥FR 
OB6F 35 10 IFFD 
tFFD 
FFB 
0B80 
o20c 
0203 
0209 
0208 
ccot 
0232 
0212 
O21A 
O21F 
0226 
00 10 
ccoRe 
C001 
cc02 
CC6P 
0007 
DATE 20APR70 01A0G70 
EC NO. 816682 816730 


DIRGNOSTIC LOADER POR DISK 


SOURCE STATESEST 


2 XR2) XRT 

ct 2 

O{, X81) ,.x* PO? 
ooTc 

0(1, 581) , WINE 
O(. XRT) -X°FO® 
MASK (2} ,ONE 
0(1,XBR1) ,ORE 
UDTD 
MASK (2) , MASK 
ULPS 

USET1¢1(1) ,HASK-1 
US 2T241(4) , HaSK 
1{, 182) ,*-* 
2(¢%R2) ,*-* 
ULPS 


7 (5,281) ,CHAITE 


KSSH oe 


PACK 

Ti 7* 2808 

AL2 (TNPOUT+ 251) 
XL2°877°* 
11¢,XR1) ,c*0? 
+7 
X*878°,xX*FFt 
NEXITR 


0(,%R1),C*S® 

CK END 

BASE1,XR2 
SBITES (6) ,SBYTES 
XREP5(2) ,X°UFP7* 
XR EPG (2),X*1FF9* 
SSWRD 


0(,XR1j ,C°E® 
NEXTR 
XREF1(2),X°1FFF?* 
XREFS (2) ,X*1FF9? 
XREFS (2),X*1PF7* 
CKCOM,XR1 
CKCOMA43,XR1 
XREP3,1AR 
XREF2,1AR 

X* 1FFD* 

X'1PPBt 


PART 20. 


2586857 
PAGE . 


CHARGE EBCDIC O-B TO BIBART. 


te Cgtign oe e's 
a 


IHITIALIZE MASK WITH LAST BIT ON 
SHIFY BIT TO PROPER POSETION TO 


fos 


LOAD BASK INTO SET BITS OB 
INSTRUCTIONS 

TORH ON PROPER CPTIO# BIT 

GO LOOK af NEXT OPTION RUABER 

BRANCH IF ROT CHAIN XSAGE CONTROL 
CARR < € moe mae - : ne - 

PACK THIS PRINT IMAGE DATA CABD 
INTO PROPER LOCATION“ 

SOURCE 

DESTINATIOR 

TEST FOR 120 CHARACTER CHAIR 

JUSP IP NOT 420 CHARACTER 

SET FLAG TO SAY 120 CHARACTER 


“ 


CLEAR SS¥0O0 THRO SSW3P 
SET UP LINKAGE TO SENSE SWITCH RT 


PROCESS THE SSW CARD 


BRANCH IF HOT END CARD 


GO BEGIN DCP 


* ZQUATES FERRE EEEKERES ESS SHEE SARKEKESK CEKAKEKCSTCARERRASKCREEKKES SHERT 


STstT 
308 La 
305 . 8B 
306 ODTB CLT: 
307 JRL 
308 ate 
303 upTc SBF 
3740 6VC 
31% ULP3 SLC 
312 JL 
373 ALC 
348 B 
315 UDTD Svc 
346 ayCc 
317 USETi SBN 
378 OSET2 SBR 
379 8B 
329 
321 CKCRN CLC 
322° : JHE 
323 B 
3248 Bc 
325 DC 
326 pc 
327 CLI 
328 JNE 
329 avi 
330 8 
33% 
332 CKSSW CLI 
333 JNE 
334 LA 
335 SLC 
336 HVC 
337 HVC 
338 B 
339 
380 CKEND CLI 
381 BNE 
342 svVC 
3483 HVC 
sua KIC 
345 LA 
386 ST 
347 L 
388 DEFINE L 
343 XREF2 FOU 
359 XREF3 EQD 
351 
352 exeeeeeeanx 
353 
354 teeesengeee 
35S IXPUT FOU 
356 SMGD EOU 
357 SIZE EQOU 
3258 CPU EOU 
359 SBYTEO EOD 
360 SS¥07 FOU 
361 OTAB EOU 
362 TEST EQU 
363 PRINT FOU 
368 ONPACK EQUD 
265 PACK EOD 
366 IAR EQU 
367 ARR EQU 
368 XRi £OU 
36S XR2 EQU 
370 HO EQU 
371 RT £00 

010CT70 O1APR71 

816760 818948 


x*8soe 
Xx*200* 
x*203' 
x*208° 
x* 208° 
xK°o?ve 
x°232* 
X°272° 
X*2TA® 
X*21B* 
x*226°* 
x* 70° 
x°08* 
1 

2 
X*6F®* 
x*o7* 


T2JUN72 
577050 


SYSTEM MODEL IDENT LOCATION 
CORE SIZE OF SYSTES 

CPO OPTIONS 

COMBOW SENSE SWITCHES 

SS¥ TO LOAD SECTION AND GO 
FIRST BYTE OF UDT TABLE 
ENTRY TO CHECK CONSOLE SWITCHES 
EWTRY TO DCP PRINT 

EWTRY TO UNPACK ROUTLHE 
ENTRY TO PACK SUBROOTINE 
INSTRUCTION ADDRESS REGISTER 
ADDRESS RECALL REGISTER 
INDEX REGISTER 1 

ISDEX REGISTER 2 


PROG ID 
PAGE 


OPPB-& 
3A 


3a 





“EON MAINTENANCE DIAGHCSTIC PROGEAS 


FRG DIAGHOSTIC LCADPR FOR DISK” 


EPP LOC OEIFCT COPE ADDR STAT 
coé6c 372 HC ‘EON 
0038 4373 HF EQU 
C020 378 BIT2 £00 
0010 375 BIT3 £90 
cOO8s 376 BITS E00 
00C& 377 BITS EQU 
C002 378 BIT6 #00 
coO% 379 BIT? Qu 
COA2 380 BUSY £00 
OOA6 3861 CTLREG EQU 
COAO 382 NTRDY £00 
383 
384 * 
385 
386 * 
0B73 3C 80 O97F 387 BEGIN NVI 
CBR77 OC FE CITE O97F 388 sTC 
OR7D OC 03 O87F C880 389 s¥C 
0883 C2 62 0013 390 La 
- OR87 30 a3 CCOS: 391 SNS 
OBBe 38°01 OCOA 392 TBE 
O88" £2 90 20 393 JP 
OB92 3C O08 JAD 394 MVI 
0896 3c 78 CABC 395 SVI 
OB9A 3C 78 0AS3 396 aVI 
OBSE 3C 08 CASS 397 NVI 
OBA2 3C 78 0165 398 MVI 
OBA6 3C 3C 0166 399 AVI 
OBAA 3C 7e@ 00€3 400 MVI 
CBAE 3c 6C 0064 401 SvI 
OBE2 9C CO CcCC C011 402 SODLD SVC 
CFRS RB CO TA CCOC 403 MZZ 
ORED 88 00 58 CcoC 408 ZZ 
Opc2 C8 CC 0177 OCC 405 "ZZ 
OBCB 08 CO 0191 OCOoC 806 “ZZ 
OBCE RB CO 87 OCOC 407 MZZ 
O8D3 08 OO 0159 IC0C 808 ZZ 
cep? 39 08 oceC 409 TEP 
CBDD P2 10 21 810 JT 
OREO BA 08 1A a11 SBN 
CEE3 RA 08 58 812 SBN 
CBE6 3A 08 0177 $13 SBN 
CBEA 3A 08 0191 414 SBN 
CPEF BA 08 87 415 SBN 
OFFI 3a CB 0159 &16 SBN 
OBFS 3A CB 01483 917 SBN 
OBFS 3A 08 0C15C 818 SBN 
CBFD 3A C8 0149 419 SBN 
0c01 OC C3 DIFF 9C10 820 SETENT AVC 
Ccc7 £0 87 55 421 B 
OcoA ofco OCOB 422 SNSARE DC 
ecec co ocOC 423 DISKTP DC 
OcoD 0186 OCOE 424 pc 
OCOF 9019 0C10 425 ENTRYS DC 
0B73 4826 END 
DATE 20APR7O 21A0G70 010CT70 OTAPR71 
FC NO. €16682 816730 816760 818938 


SOURCE STATEREST 


x*6ce 
x* 35° 
x*20° 
x* 7098 
x*08* 
x* Oat 
x*092° 
x*ov 
Xx*a2* 
x*a6* 
x°ao?r 


*¢ «€8FXECUTION ENTRY PLIST. 


X?O7Ft,c8 @ 

X*97E* (255) ,X*97E* 
X°S7F* (4), xK*8e0* — 
PASE, XR2 
SNSARE,Z*a3° 
SUSARE-1,X°01* 
HODLD 
NEXTR-1,X° 0° 
WEXTR-2,X°76° 
CDERRO¢1,X* 788 
CDERRO+2,xX"040? 
ERRBLT+1,X4°78°? 
ERRHLT+2,X°3C* 
RPLHD+1,%°73° 
HPLHD+2,X*6C? 
DISKTP (1),X¢11° 
SEEKP1(,XR2) ,DISKTP 
SEEKF2 (,XR2) ,DISKTP 
SEEKF3, DISKTP 
SEEKF&, DISKTP 
BREADF(, X82), DISKTP 
ALTSIO+1,DISKTP 
DISKTP,X*08* 
SETERT 
SEEKP1(,XR2) ,X*08* 
SEEKP2(,XR2) ,X* 08° 
SEEKF3,X*08°* 
SEEKF4,X*08" 
READF(, ZR2),X* 08° 
ALTSI0¢1,x°08* 
WAIT+1,X°08¢ 
WAIT1#¢1,X°08" 
TSTERR+1,X°08* 
X*1PP* (4), ENTRYS 
PGHLOD (, X82) 
XL2*0° 

XL1°00° 
AL2(RECARD) 

AL2 (ENT 2) 

BEGIN 


12308 72 
577050 


‘paet 20. 
Pisce 


HALT DISPLAY CODE ~#- 


EQUATE POR B LEVEL 
EQUATE FOR B LEVEL 
EQUATE FOR 8 LEVEL 


CLEAR PRINT INSAGE AND DATA FIELDS — 


LOAD 282 AS BaSE 
IS SYSTEM e£OD B 


SET #OD B HALTS 


ea hatwas 


HOVE SWITCH FROM BOOT TO LCADER * 


TEST POR RUN ON RESOVABLZE DISK 
JUAP IF YES 


BOVE ENTRIES POINTS 
GSO BEGIR LOADING 


PROG ID OFFSB-& 
PAGE a 


2588857 


wy 


ee 


eH 
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eA 


Ay 


# 
= 
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833817, 


oo 
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THY MAINTENANCE. DIAGNOSTIC PROGRAR 


‘¥FRQ  DIAGROSTIC LOADER FOR DISK - 


SYMBOL T LEN VALUE DEFS REPERENCES 
ACTCON A CO3 OCCE 0098 0080- 
ADPFIT A 001. 0713c 07489 0123 0137 
ALC.. a CO&’ ORD 0077 oc80 

ALTDFC 4002 C9p2 0100 0166 

ALTSIO A 002 0158 0167 0808 02160 
APDDFC A 001 COD? 0101 0100 0169 
ARR c 001 Ch0S 0367 0026 o049¢ 
BAS?1 A 008 0018 0230 0023 0025 
BEGIN A 008 0873 0387 0826 

BIT2 C 0017 9020 0374 0060 
BIT3 € 001 29019 0375 0288 

BIT’ CC 0C1 6008 6376 

BITS C001. 0008 0377 0225 

BIT6 C0041 C002 ¢378 0036 

BIT? C091 0001 0379 0087 

BUSY C 00% O00a2 9380 6127 0132 
CDEFRO A 003 0052 0267 0268 0396¢ 
CHAIN A 00S CASA 0282 0321 

CHKSF & 003 C158 0223 0209 

CHKSSW A 003 OAR 0208 0201 
CMFSSO.A COM OIBD 9212 0221 

CKCAN A 005 O08B0R 0321 0271 

CKCOM A 003 0199 0200 03495 

CKCOMA A CC& O07P 00Ea 0346¢ 
CKCOM1 A 003 CACS 0248 0968 

CRCPD A 903 0a28 0252 9245 

CKEND A 003 CBSA 0380 0333 

CKED A 003 COKE 0088 o0u1 

CKSSW A 003 OB2A 0332 0322 

CKuDT A003 O0A58 C279 0253 

CPU C 001 0208 0358 9262 
CTLREG C 001 O0A6 0381 0415* 0119 
DPPINE A 08 OB6P 0348 0246 0255 
DEV A 997 -0A03 0249 0281 0289 
DFDP A CG2 CORF 0091 0084 0151 
DISKTP A091 OCOC C423 0802* 0203 
DSKERR A CO? 0155 0155 0157 

DIABLE C 991 JIFE 0233 0029 0029 
ENTRYS A CO? OC10 0425 0420 

ENT2 a 908 0019 (0025 0825 

FRPALT A 003 0168 0171 0398* 399% 
ZITSAV A902 O00C8 1095 0175* 0161 
PFB A °>1 coon occ; 

PLAG € 901 O1FD 0232 6936 0047 
FWDSEK A CC3 0122 1483 0138 

2c C 001 006C 0372 

HD a 903 0057 0Ca7 00485 

AA c 001 9938 0373 0171 0267 
BPLHD A 0C3 C062 C050 0800* 02012 
#0 C691 O006P 0379 9267 0286 
87 ¢ cot C007 9371 0171 

TAR C901 CO1C 0366 0038* 0397% 
ID A 008 00178 OC24 0030 0082 
IDPND A 00% 0969 C054 0003 

INPUT C901 cCRBO 0355 0258 0325 
LAST@ A CC2 COre 0105 0125 
LASTAD A 001 CODA 01C7 0128 0133* 
LDPARM A CO3 COFS 0117 0183 

LDR A OC4% 0065 0051 00488 

LDUDT A 00S SAAS 9293 0290 

LOADTB C 001 0068 0238 

MASK & 002 O0A05 9281 0310* 9313 
MEXIT A CCS 0078 0061 0926* C038 
MODLD A 006 OBB2 0802 0393 

MOVE A 005 OO8E 0970 0067* 0068* 
WEXTR A OC& OABP 0287 0266 0268 
DATE 20APR79 017A0G670 910CT70 

816682 816730 816760 


CROSS-REPER ENCE 


O77ae Ota2e 


0073 St 0188 


0161 06178 0187 0169 0287 

+, , A . ales 
0153-0168" °* Ee. ane EEE Le 0 Wee Goes 
93976 


0125* 0130* 0138% 0166* 0172# 


9272 
0293 


9404 


0060 


0286 


0343 


9230 


0136 


0805 0806 GCL07 0808 0809 


0225 


0139 07185 


9313* 0315 0316 


0227 
0301 9330 0321 0398 0395¢ 
CIAPR71 1230872 

818988 57 7050 


wee Cr gc eet 


0338 0390 


“PART #0. 2586857 


- Pace ek 
PROG ID OFFB-% 
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epee - a nyse? % ~ ‘ 6 Cael Sak Stee BO Si See eee sgh aha “Sek LD BLS e A ee ee ae , 8 2 gh Se eri ete PONE? ties - ae a ele Aa, eee SE tigre a tS Sn ee EY : pie oe s mh Boks belgtvayy oh yey ORE ae ae ae PAG Sieg ey eter Tae eee od teh SRL ee aS pCa Uitte ARUSHA SS a ek | 2 : : 


eS ee Pee ; ee ‘ ee ei . ne ee ee oe 2 oe es 
$B MRINTERASCE DIAGNOSTIC PROGRAM = OE ide ge oe PEP OQ. 2588657 t eg - IBN NAINTEMANCE DIAGHOSTIC PROGRAS — -‘PRer go. . 2968057 
PPRO PIAGHOSTIC LOADER FOR DISK , F¥BS DIAGNOSTIC LCADES POR DISK , 
. CROSS REPERESCE CROSS- REPERERCE 
SYMBOL T LEN VALDE DEFY REFERENCES a a i SYMBCL T LEH VALUE DEFR. REFEREWCES. 
WINE =A COT 0402 0239 0308 : . xn1 € 001 6001 0368 0080 9082 0058 0063 0067 0068 0669 0969* 9070 oc0ss* O117e 0118 
WRADPC A 002 COCA CC96 = 9113 0195 OTT 0179 : | wh - - @120--0124* 0135 0136 0140 0183 0149 0188 0155 9159* 0162 0200 
NTRDY € 001 O0RO 0382 9157 ne . | 0208 06211 682% 0212 0219 0220 0220 0223 0226 9227* 0226 o288 7 
OF A 003 0113 0438 0129 a Fe ais et : a _ 0252 0258 9260 0263 0265 0270 0273 0276 0276* 0277 0296 0296% ....« 
ONE A 002 Oa01 0238 0310 0311 ; 7 ere eS . ‘ ~ oo eS 0297 0239 9299* 0300 0302 03096 030&* 0306 0308 0309 031% 90321. 
ONFSEC A C02 COc3 0093 0077,——™ * y 0327 0332 0389 03856 0346 
PACK € 0C1 0226 0365. 0213 0256 0278 0323 s XR2 c SC1 0602 0369 0025* 0026 (0032 0033 0038 003: 0039 O6880 OF42 0088 0086 0058 
PGRLOD A 003 CO6D 0056 0071 0203 0206 0222 0228 0288 0251 ©6288 04821 ; 0056 0058 0067 0068 0071 0073 0074 0075 9077 0877 0078 9080 
PRINT C COT 021A 0363 0208 0289 0081 0083 f088 01173 0113 0115 0116 0177 0118 0119 0121 9125 
_ pTFDC A CO3 CAGE 0276 027% ; var ’ : 9127 0128 0130 0132 0133 0134 0136 0139 0139 90190 0188 0185 | 
—RDDFPC A COT COBRA 0087 0032% 0033*% CORB C05U* 00746* 0077¢ 0078 0061 0083* 0096 07118 0768 - 0745 0157 0153 0157 0160 0160° 0166 0168 0169 6172 017% 0175 
0180 0182 : . ; 0175 60176 0379 O179% 0181 0167 0182 0182 0183 0189* 0190 0192 
RDVTOC A 9C3 CO2P 0038 0086 ; : 0203 0206 9222 022% 0227 0288 0251 0282* 6283 0283* 0288 o287¢ 
‘READ a 003 0096 0073 0039 0058 0192 ; C268 0289 9291 0293 0294 0295 0317 0318 0338* 0390* 9403 09808 
READF A 01 COOP 9076 O807* 0415 0407 0411 9812 0615 0821 . 
RECKE@ A002 OCC 0097 0130 . 
RFCAPD A CON 0186 0188 97160 0828 . TOTAL STATESESTS FLAGGED IN THIS ASSEMBLY = -- - ©2006 Qtr te te 
RECEXT A COU 0196 0193 o188¢ ¥ Re i hs 
REDEXT A COS OORK 0085 0073* | : | a ; é me 
SADDR A 002 91C7 0215 0212* 
SAVPRS A 908% 06179 0175 6173 - 
SBITFO C FO4 0208 0359- 0202 0287. d : 
SBYTES C 001 020D 0207 0210 0210* 0335 0335* : is 
SCRCH A COT 913A 0187 0139* 0140% 07884 0145" 
 SEEKF1 2 901 0032 9035 0803* 04811¢ Mee : 
SEEKF2 & 001 0079 C057 osos* 08124 - 
SFEKF3 A 501 0177 0177 0405* 04813 . 
SEFKFGO aA 001 C191 0191 O8C6* 0814% > - 7 i 
SENSE A CO2 00C1 0092 0119* 0121 0134 ee a 
SETADB A 003 9139 0188 0141 
SETALT A 0C3  016D 0174 0170 2 - 
SFTENT A (C6 0CO1 0420 C410 j : 
SETXR1 A901 OWE 0158 0116* 0117 0175 0181% . . a ue Meee 
STO A C03 013F 0152 01184 : = . ; . 2 Hs 
STZE C901 0203 ©357 0259 : * Le Bees 
S40D C 0C71 0220 0356 0254 . 
SWSARE A CO2 OCOB 0822 0391*% 0392 * 
- SOURCE A 002 0026 0029 ; ss 
SPORT A 903 COR3 O08S 0082 
SSURD A NCE O1BG 0210 0338 go! ie 
SSwC7 C 007 0001 0360 9202 9247 . . 
STPARM A CO3 COE2 0116 0176 Ht 
_ STRTIO A CO1 OCDC 0112 0038 0056 C07 0190 2 5 Oe, ee 
TEST C CO1 0212 03262 . os gp tN, 
TSTEPR A CO3 0188 0157 0819* 
UDTA A 005 CA95 0289 0285 s 
DDTB A003 OACF 0306 0303 * : a . 
opTc a CC3. OADA 0309 0307 ee ie tte. “so . ae 
UDTD A CO6 OAFS 0315 0312 s S A ae 
ULP1 a 008 CA71 0277 0305 . 2 : ete 
ULP2 A 0OO2 CAB2 0283 0292 El RO EE SF vate te 
BLP3 «6A CCS «(COAE3) «(0311 0318 4 . — OO eediche 
BLP4 A 0C3 OABB 0299 0319 | = 3 = 
UNPACK C C101 0212 0364 0027 
UPTR A002 OA7B 6280 0277* ; . 
USPT1 A CO3 0B01 0317 0315% | to: 
DSFT2 A CO3 OBO 0318 0316* 
CTAB C091 9232 0361 0275 0275* 0282 ‘ 3 
WAIT A -0CO3 0182 0153 0917* 
WAIT? A CO3 015R 0168 0418 
BORK C001 0880 0231 0091 3 
KREPT A S91 0068 0052 03482* € 
KPFF2 C CO PFD 0349 0348 
XRFF3 C CO1 FFB 0350 0387 : 
KREPG A 001 O1CD 0218  0337% 0343 € | 
XREFS A192 91C9 0216 | 0336% O3n4K¢ 
€ 3 ; 
DATE 2OAPR79 01a0G70 010CT70 01aPR71 1230872 PROG ID OFFB-4 DATE 20APR70 01AUG70 010CT70 O1APR71 1230872 PROG ID - OFFB-4 
EC NO. 816682 816730 816760 818998 577050 PAGE 5 ¢ 2 EC NO. 816632 816730 816760 818988 577050 PAGE sa 
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BU'BG SFUFI+/ 3? 
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eeeenv ees eeoseoee oo 


2¢ DEBS EN*BG /Y 
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uc <c gs EC 2 
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c AOS BH 
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G® RAINTENAWCE DIAGHOSTIC PROGRAM a . PART HO. 2586866 IBA SAINTEWABCE DIAGHOSTIC PaocRaa . PART BO,  2588N66 
.  -acR 1 ot PAGE - OR 
£63. LSR PEATURE TEST | 863 &SR PEaTORE Test 
RE LOC OBJECT COLE ADDR STMT SOURCE STATESENT | «BRR LOC OBJECT CODE ADDR STST SOURCE STATEMENT 
2¢ | LAST CHANGE 0280¥72 | 6487 30 85 OBEB 69 SES PAD, X°8* VALUE WILL BESULT IB LSB CHECK 
3 pECK 8 | 0a83 CD B7 0216 70 8B LINK 
4 szq. 0 | | 
aa00 5 UVWXYZ START X*A00* 
6 TREP | 7 
7 REEESEESCKES HERE ESSE SESE SEK SERS NETECETEERELE AHEPRKSEKELKS SESSE KES SESTSESSEVSSSSE 
8 
9 * LSR FEATURE TEST 
10 * 
44 ees SPRARELSELASRAESE KAASKSKLEESESEERSA KEES ERESCLKKZERSE HSE KAS KES SESSRLVVEBR 
12 * SECTION PREFACE 
7 33 peek PEEKS KLS PELE SEHK SK KS ERKKESLLSK SSH SE VESKESSE SE HLKS SE SESS ECSARASESSES 
Oa00 FE63 Oa01 78 BC 20 XL2*PE63° PROGRAM ID AND REVISION LEVEL 
0202 06 0a02 15 pC 20s ELW*008 SECTION FLAGS 
0403 60 O03 «96 DC s«XET*00° CURRENT ROUTISE RUMBER 
Gads 9000 aos) 47 BC s«-EL2*0* 
DA06 2028 CA07? «=. 78 DC Os 2. (RTOA} ADDRESS OF FIRST ROUTIFE . 
ga08 6990 onc? 89 pC 0 XL2*0* 
20 UIT DEPINITION TABLE 
Gada 160000 CaoC «6021 SPUTIT «BC 80 -XL37 1000008 $471 PRINTER KEYBOARD 
Gadd 309000 OAOF . 22 SPUT3 DC  $%L3*300000°. . grec, | 
6a7C 510090 OA12 23 SPUTS wC £L3*510000* 19492 CARD READER/PURCH 
GA13 800600 0215 28 SPUTB8 pC xX23*800000° BSCA 1 
6416 889000 OAi8 25 SPHTeB DC xXL3*880000° BSCR 2 { 
0ai9 ©9090 CAiB 26 SPUTCO DC = XL3*c00000° 5495 DRIVE 1 
Oaic CHOCO CATE 27 SPUTCS DC XL3*c80000° SaaS DRIVE 2 i: 
OAYF 341000 0a2? «28 SPUT38 DC —-_«- XL 3° 3810008 3417 TAPE 
Ha22 COIDDNCCICOCOOND OA2A =—-29 DCs KL9* 0 | 
OaA2a CO 29 1- 
36 SHVEESELHK CSET TAREE CF KSKSTSES TS ESKVSE SSS SBILLS EE FEE TESS SEVSEEKARSTSSE THE SSTESRES | 
31 ROUTINE 1 PREFIX 
2 Face ca cc oc eke e £0 cue eNw sede kOREE Oo ca rhin ened web eeceseeneseeuseaes. 2 
0A2B 01 OA2B 40-33: «RTC? «6c COCK GV*098 ROUTINE NUABER 
0A2C 00 oazc 0-38 DC KL1°00# FLAGS \ 
Da2D OAaSD Oa2E 35 DC —- AL2. (RTO2) ADDRESS OF BEXT ROUTINE PREFIX e 
3H SSEKKS HACKS RKS SEAS SEE SEPESSKS CE SESESCKEKCKSTCEAKECKES SELESEECHEKECSESESHEHEE LSE : 
0a2F 38 20 OAOB 37 TBE SPUT1-1,ASSIGH CK FOR AND BRANCH IF UDT INDICATES 
0433 CO 90 C246 38 BF LIRK 5471 PRINTER KEYBOARD IS NOT ATTACHED | 
6437 OC 01 OBER OBED 39 SVC PAD, X0000(2) ZERO THE STORAGE AREA See ere ae ees 
OA3D 35 CO OBEP uO L XFFPF,X°CO* LOAD INT LEVEL IAR WITH -FFFF- | 
6407 38 CO OBEB a4 st PAD, X*CO* STORE INT LEVEL 1 IAR INTO PAD | 
Gasu5 OD 01 OBEB OBEP 82 CLC PAD, XFFFF (2) CONTINUE WITH TEST IF IaR | 
OaeB F2 81 03 83 JE  wWExTt YAS SELECTED CORRECTLY ! 
4a 
GARE PO 7D 03 85 SALT? HPL 1°03", TENS 61 ERROR HALT 7 
a6 * 
GaS1 35 CO OBED 87 REXT1 OL 10000,x°c0* FAILURE TO SENSE THE CORRECT 
6aSS 38 CO OBEB aB St  PAD,x*CO® VALUE WILL RESULT IW LSR CHECK 
5459 CC 67 0216 a9 B LIEK : 
° 50 
51 eee RERAHEES SE ECREERESREREE KEKE SKKSSSESEKE ETHEESEHESSEKKSSEREVEESEKETETER = 
52 + ROUTINE 2 PREFIX 
53 SORE SHAKES HS KEK SEREKAKESEKELSEE SEEKERS EAOEERESE SHEE SSS E ESE SSEKAKESVESEKSESELKEEES 
GasD 02 CaSD 46 $8 RTO2Z «DC CUKL”*1*028 ROUTINE KUSBER 
OaSE 00 OASE S55 pCO sCéKL%L 1008 FLAGS 
OaSP OAGF 0a60 56 DC —_ AL2 (RT03) ADDRESS OF NEXT ROUTINE PREFIX 
; $7 SEEKER SESSECEE KEKTEAKTEK Ks: CSSEKSSKEHKERHEHRKSSKSERE SESE KEES SK SKAKESTKESSEFELESSS 
9261 38 20 Oats 58 TBY  SPUTB-1, ASSIGN CK FOR AWD BRANCH IF UDT INDICATES 
0265 CO 90 0216 59 BF LIK BSCA IS HOT ATTACRED 
0269 OC 01 OBES OBED 60 YC PAD,X0000 (2) ZERO THE STORAGE AREA 
QaGF 31 88 CBEP 61 LIO XPFPP, x? 88° LOAD BSCA LSR WITH -FFPFF- 
Ga73 30 8&8 OBER 62 SBS PAD, X* 8a? STORE BSCA LSB INTO PAD 
0277 CD 01 OBEB OBEF 63 CLC PAD, XFFFF (2) CONTINUZ WITH TEST IF LSR 
Oa7D F2 81 03 64 JE wWEZT2 WAS SELECTED CORRECTLY 
65 
Ga80 PO 7D 76 66 HALT2 HPL %£°76°, TENS 62 ERROR HALT 
67 
0483 31 88 OBED 68 WEXT2 LIO x0000,x*80° PAILURE TO SENSE THE CORRECT 
JATE -O9AG71 198OV71 183AH72 283UL72 03 80¥72 PROG ID OPE6- 3 DATE 0940671 19H0¥71 4Q3AR72 2839172  038OV72 PROG ID OPE6-3 
ZC WO. 818378 818677 816388 577060 577073 PAGE 1 EC 80. 818378 818677 318368 577066 577073 PAGE 1 


= alone, 




















FRE RAIVTEUAECE OFAGHOSTIC PROSRAR PART FO. 25882656 ‘ IBS BATNTERANCE DIAGHOSTIC PROGRAR . PART Fo. 2588466 
ee ea PASE _ 2 Past 2a 
#263 «LSP FEATURE TEST F263 LSR FEATURE TEST 
ZRR LOC OBJECT CODE ADDR STHT SOURCE STATERERT { ERR LOC OBJECT CODE ADDR START SOURCE STATEMENT 
FP SREMSEMSE TETHER EEOC FE SESESEET SSE CSS ECSECKES FR ECKHSETESSRERSHESE CSCS SECCHKEREKCS a 121 CREEPS KEE ESS ES SESEREEAETCHREEEEBE SE CESSES ESSSTES SOS SOK SRE SOTES SES SOVSTES 
73% ROUTINE 3 PREFIX { 122 * ROUTING 5 PREPIX . 
, : 78 PRE VOESE EOE KESS CESS ESERE LES SKE ETCREFSELAESCE LS SES F CECH ECS SHER SRS SSELECES | : 123 SEE CRE ESESEESSEE AS EEK SESEKE FEKETE OVE ESSE STOVES SCSESSSCESSOESES SOVSEBSECSSSOOSVO 
oasr 03 cCasP 75 BTO3 oC XL1*03° ROUTINE BUABER OB0aA 05 OROA 1728 BT0S o»DC ZL9°05? ROUTINE ROUNDER 
pazd 00 0as0—s76 BC XL1*00° PLASS aA Osos 00 OBoB 125 BC XL1*00* FLAGS 
Ga91 Oact 0292 «677 DBC AL2 (2TO4) ADDRESS OF BEXT ROUTINE PREPIZ os0c 0853 OB0D 126 DC —s_sC AL2 (RTOS) ADDRESS OF WEXT ROUTINE PREPIZ 
: : 78 dad bcd wnceendoausaneessebeesssbdebesees 6000s sdnnketeeneseeeseseeuneens 427 ERE SAH SESS SES CELE SOOSSHRAES SS CERES ASSHHOTHSR SESH SSS SHOT SUES SHOES SRSESOHSSESA 
0093 38 20 OadE 79 TBR SPUT3-1,ASSIGH CK FOR AND BRANCH IF UDT IHDICATES { OBOE 38 20 OAD 4128 {TBE SPUTCO-1,ASSIG# CK POR AND SRAWCH IF UDT INDICATES 
aS? CO 90 0216 ; 80 BF LIBK Sioc IS WOT ATTACHED 0312 CO 90 CREF 129 BF OUTS S485 DRIVE 2 IS NOT ATTACKED 
' @498 OC 01 OBER OBED 87 a3C = PAD, 10000 (2) ZERO TRE STORAGE AREA OB1é OC 07 OBER OFED 435 NYC PAD,x0000 (2) ZERO THE STORAGE AREA 
Oaat 31 34 OBEF 82 LIiG = XFPFF.,X* 38° LOAD SIOC LSR VJITH -FFPF- { OB1c 31 CC OBEF 431 L103 §xXPFFFF,x*CC* LOAD LSR WITH -PPFF- 
O25 30 38 ORES 83 SNS PAD, xX? 38? STORE SIOC LSE INTO PAD 0820 39 cc OBB 932 SBS PAD,X®*ccCt STORE LSR INTO PAD 
Oaad OD OF OBER OBEF 88 CLC PAD, XPPFF (2) CONTINUE WITH TEST TP LSR 0324 Op 01 OBB CREF 933 CLC PAD, ZP?PPP (2) CONTINUE VITH TEST IF LSB 
OKAF F2 89 03 8S 38 REKT3 AS SELECTED CORRECTLY ' OB22 F2 81 03 138 JE SETS @AS SELECTED CORRECTLY 
86 135 
QAB2 FO Yo 57 87 BALT3 APL 1'57*, TENS 63 ERROR HALT OB2D FO 7D 1B 136 BALT6 HPL 12°18, TERS 6% ERROR HALT 
88 * ‘ 137 ¢ 
OaBS 31 34 OBED 89 BEZTZ LIO £x0000,2%°34" PAILURE TO SENSE THE CORRECT 0830 Oc 01 OBFR OBED 438 HEXTS AVC PAD,XO000 (2) ZERO THE STORAGE akZa 
OAB9 30 34 OBEB 90 SNS PAD, #34" VALUE WILL RESULT IN LSR CHECK 0836 31 CE OBEF 439 LIO &XPFFF,x*CE* LOAD LSB SITH -FFTr- 
DABD CO 87 0216 -94 B LINX . o ‘ 0B3a 30 CE OBEB 740 SUS PAD,X*CE* STORE LSR ISTO PAD 
92 OB3e OD 61 OBEB OBEF aa CLC PAD, XPPFF (2) BRASCH TO HALT IF. LSR 
92 OBa8 CO 01 OBSC 142 SEE ALT? @AS SELECTED INCORRECTLY 
93 RESTS SSCS SEKKE SESE SKECKSESESSE’SS SHSHSS KEV SS SS SS CHESS SRCSESESE ROK FS CHRESBSE TS OBA 8 co 89 CBar 4 3 8 ours 
9a © ROUTINE % PREFIZ 788 
. 95 SPO REOE SE EERE EO OG OEEEEEE SE SEES EES HESEEEN OSE CREED HET RE EEE SEE ERESOTOTE onac FO Ip 8D a5 RALT? #PL re spe eteEes 6S ERROR BaLT 
Oaci 0a Cact 96 RTO" DC ELI"0a* ROUTINE SUABER i 186 *@ 
9ac2 90 cac2 97 oc XL7°00* PLAGS OQaar co 87 0216 727 OUTS 868 LINK 
Nac} OBOA face 830s «98 DC AL2 (RTOS) ADDRESS OF NEXT ROUTINE PREFIX 148 
QD SESH SKS CES SSK HE OUKES HEV SEKKE SEH SSSCSSESSESCESKESCEEEESEKE SCEKECS SSK E VSECSSHHVAS 4 as 
oS an 20 OAtTA 100 TEN SPUTCO-1, ASSIGN CK FOR AND BRANCH IF UDT INDICATES BRD SHSs SSS SHE SSE SS ETS ET SE OESSHEEDES OE ESEOASESSESESSOSES SELVOS SHKSSKS SELAVSES 
: 90 C216 10% BP LINK Saa5 DRIVE 1 IS WOT ATTACHED 150 * ROUTINE 6 PREFIX 
Q aeD ae 31 CREB OBED 102 “YC PAD,x0000 (2) ZERO THE STORAGE AREA 191 S#PesresegnereeseseyseseRSse SSSSLESSESHSSENSSSESSES SSO SESE SOSSOSESESERSS 
OaD3 2% £8 OBEF 103 LI0 RPPPF, x*ca* LOAD LSR WITH -FPFF- OBS3 06 OBS3 252 RTOS pc XL1°06°* ROUTISE RUBBER 
GAD? 30 ca CREB 108 SWS  PAD,xX*ca* STORE LSR INTO PAD 0B58& 00 0B58 «153 pc XL1°00* FLAGS 
Care OD 91 OBER OBEP 405 cLc PAD, XPPFF (2) CONTINUE WITH TEST IP LSB 0BS5S 0885 0B56 158 pc AL2 (RTO?) ADDRESS OF SEIT ROUTINE PREFIZ 
QAE7 F2 61 03 106 JE REITR WAS SELECTED CORRECTLY 455 S8Se tae 64808 S Fs OES SEEKS SESSSSESERESESS CEOS ES SESE SOSESSESESTE REVSSSS SEO 
ee 107 | : 0357 38 20 0a11 156 {1Bu SPUTS-1,ASSIGE CK FOR AND BRANCH IF UDT INDICATES 
¥ OARS FU 7D 1B 108 BALT2 HPL X°48* TENS 6% ERROR HALT OBSB CO 90 0216 157 BF LIWK 17882 IS BOT ATTACHED 
5 103 OsSF OC 01 O8EFE OBED 158 AVC PAD, X0000 (2) ZERO THE STORAGE ARPA ee ae 
SAE? OC 01 OBER OBED 470 HERTS YC PAD, X0000 (2) ZERO THE STORAGE AREA 0365 31 58 OBE? 159 LIO 3 XFPPP, xX°58* LOAD I8T LEVEL IAR WITH -FFrr- 
OaED 31 C6 OBEF ¥44 LIO 8 =6«XFFFF, %* C6* LOAD LSR WITH -PFFF- 0869 30 5&8 OBEB 260 SUS PAD,z*54* STOFPE 1882 LSB ISTO PAD 
OAFT 30 C6 OBER 712 SNS PAD,X*C6* STORE LSR INTO PAD OBGD OD 01 OBER OBEP 161 CLC PAD, ZFFPF (2) CONTINUE WITH TEST IF LSB 
OAFS OD €1 CBEB OREP 7113 CLC PAD, XFFFF (2) BRANCH TO HALT IP LSR 0873 ¥F2 87 C3 162 Jz. SexT6 AS SELECTED CORRECTLY 
_ §8FB cO 01 0703 118 BNE HALTS @AS SELECTED INCORRECTLY 163 ° 
 OMPP CO 67 CEOS B outs 0876 FO 7D 7D 164 HALTS GPL ‘TE"S,TENS 66 EpROR HALT : 
Se ae oe 165 © : : 
0303 FO 7D SB 497 HALTS HPL «6-3°SD* TERS. 65 BRROR HALT 0879 31 58 OED 166 REXT6 LIO 1x0000,x°58* FAILURE TO SENSE THE CORRECT 
(118 a.  OB7D 30° 58. CHEB 167 SBS PAD,x*58* WALOE GILL RESULT I8 LSR CHECK 
- 0806 cO 879 C216 9139 OUTS 8B LIGK 0881 CO 87 0216 168 B LIeK 
Pn 
Dare 99a0G71 1980971 193aN72 2430272 038072 PROG ID OFE6-3 DATE 09a9671 19ROV71 483aN72 2830172 03N0¥72 PROG ID OrEe6-3 
Be #0. (618578 818677 816388 577060 577073 PAGE 2 ZC #0. 818378 818677 816388 577060 $77073 Pace 2a 
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LSR FEATURE TEST 


ADDR 


C885 
OBS6 
CBess 


OBED 


OBEF 


CBB? 
CERS 
OSBR 


OBES 


OBEB 
OBED 
OBEF 


0216 
C22A 
0020 
007D 


PFFP 


TONOVT I 
818677 


STAT SOURCE STATESENT 

170 

471 # ROUTINE ? PREPIZ 
472 

473 RTO7 DBC ZL1°078 

178 DC XL1*00? 

175 pc AL2 (RT08) 
176 

177 TBN SPOUTSS--1,ASSIGH 
178 BP LIBR 

479 NYC PAD, xX0000 (2) 
180 LIO =X PPPF, X* 8C* 
191 SHS PAD,x*8C* 
182 CLO PAD, EFFPFF(2} 
1@3 JE NEXT? 

188 

485 RALTS HPL X*O7', TENS 
186 * 

18? WEXT? LTO x9000,x°8C* 
188 SNS  PED,xXt8C* 
489 B LINK 

490 

790 

1$4 

192 * ROUTINE 8 PREFIX 
194 RTOS BC XL7908¢ 

195 BC XL700" 

496 DC EL2°FFPF? 
157 

498 TBE SPUTI%-41, ASSIGN 
199 BF LIEK 

200 HYC PAD, xX0000 (2) 
204 LiG XFPPF,Z*64* 
202 SKS PAD, X*64* 
293 CLC PAD, YPPFF (2) 
208 JE NEXTS 

2605 

206 HALT10 HPL X*7F*, TERS 
207 # 

208 NEXTG@ LIO x0000,%°68" 
209 SES PAD,X*64° 
270 B LOAD 

241 DC XL7*08 

212 

213 PAD DC XL2"68 

214 x000G DC XL2*08 

215 XFFFF pc UL2*FEPP?C 
216 

217 LINK #800 x*2168 

278 LOAD £QU x*22a® 

219 ASSIGN EQU x*20° 

220 TENS EQU x*7D®* 

222 

222 END 
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STORE TAPE LSR INTO PAD 
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68 ERROR 
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FEG3 


SY#80L T 


ASSIGR C 
HALTS 
HALT IO 
HALT2 
HALT3 
HALTS 
HALTS 
RALTE 
HALT? 

HALTS 
HALTS 

LIBRE 


LGAD 
HEXT4 
NEXT2Z 
NEETS 
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PAD 
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RTO? 
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SPUTCO 
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spurs 
SpoTss 
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XFYrFP 


eee ee ee ee ee ed 
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DATE 
Ec. 8G. 
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003 
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903 
003 
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003 
$03 
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093 
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601 


00% 
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G8 
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903 
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CB30 
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0885 
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Cais 
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0acg 
OBEY 


CBED 


HSATGTY 
848378 


LSR FEATURE TEST 
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0206 
0066 
6067 
H468 
2a? 
$7436 
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0768 
6785 
O217 


6218 
0087 
6068 
coss 
416 
6438 
07166 
0787 
6206 
07419 
0787 
0213 


0933 
065% 
6075 
9096 
0126 
.O752 
0473 
019% 
0026 
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0021 
0022 
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0220 
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6245 
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263 * NEM 6 
264 * 4940406040404040404040404040404 04 0404 04 04040404040404040 D5C504F6 
265 * 
266 * 482 4 @2e84 86844 NEM2000 6 
267 *% SOF SE BTC 40F440407CF BF 44040F SF BF BF 4F 440404040404005C504F 2 FOF OF OFE 
268 % 
269 % 
270 © : 
271 * *GAXM*E MA BA 6*®BBe*R EAB 
272 * SCCTC LETD45CO4C LICE 4D040F 45CC 2€ 25C 09 SEC 102404 04.04 040404040404040 
273 * 
2714 % * 7K BNE 2A” 8 & = > az $ NEM T 
275 * SCESD2CZD57D4040F 20 1D4TCSACL TE SE4OC1 TESOSE 40404 040404040D5C504F7 
276 *® 
2t?Y * §aazs=z=7FeF*?F Ge zHVLTFre * F"*E"B NENMN290007 
278 = F57TCTICF37TEF 770 TOF BTDOF 3FES5F LF TTE TDF 5 TF F 67D IC40404005CS04FZ2FCFOFCF? 
279 
280 *# 
281 3 
*282 * *GBOM*#MBRG 4&4 A Z6EB S 
2ea3 + SCOC7C2C 4045CD4C209F 4D040F 4C 14 OE SF 602868 40C 74040404 040404 040404040 
284 * 
285 * A a B)3a o5e6p B $ - & NEM @ 
286 ¥ cLeB7e5Ac25D7C 4706" 5C2077D40C25B4049406 060 40404040404 040D5C5D4F 8 
287 ® 
288 * Fe te wREatwe 37] * “7 33 96 6 5 NEM2000606 8 
289 * FITETOTOTEFSTICTDOTFETEFSZF7ELIDE 7F174 TF FSF 8F 5404040D5C 504F 2F OF OF OF 8 
290 * ; 
291 # 
292 * 
293 * *FRB- MK BK A= G- Gd 
294 *% 5CC6C260D44C 40C202C 1 TEDOC 76040404040D0C TTL 404 0404 040404040404040 
295 «© 
296 * 0% - 0 z*cyY B- 9" 7 - Ga NE™ 9 
: 297 * FOSCEBF040E9 7DC3E 8D Cz 60° 9 7FE SDODOSODOL 770404 0404 0404040D5C504F9 
= 298 % 
299 +* 4£aa6 “4432831664 4 5 5 5 NEnM2O0C0C09 
300 * _ FOTCTCF6TDFSFS TFICTCELFLFOF GF 4F 4F SF 540F 5404049400 SC 5D4F 2F OF OF OF 9 
301 * ; . ; 
302 *# 
303 * G 
OCOTC 304 END ALDAA1 
OSMARTO LTAPRTO OSJUNTO " PROG 10 ONE M-2 
816638 816677 816707 PAGE 3 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


NEM2 


SYMBOL 


AAAD1LO 
AAAC30 
AAA050 
AAAD6O 
AAA0TO. 
AAAOBO 
AAAON85 
AAA0S0 
AAALOO 
AAAL10 
AAA130 
AAAL5O 
AAALEO 
AAA170 
ASALSO 
AAA1L 90 
AAA2 10 
AAA240 
AAA250 
AAA2 6&6 
AAA2ZTO 
AAA2 80 
A083 
AD84 
ALDAAO 
ALDAAL 
B84 
COND 
CONDA 
CGRERD 


CORS 12 


END 
FROM 
BDO 


‘HOS 


H2A 


“LENGTH. 


LEN 
LEN2 


-LEN3 


LENS 
LNADOR 
MINUS1 
MINUS4 
CNE 
ONEC 
PROC 
RELADR 
TEXT 
THRE 


- TRANS 


XR 


XR2- 


ZERO 
ZEROI 


* * * MNEMONIC DUMP PROGRAM RELOCATING LOADER * * *% 


T 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
4 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
Cc 
c 
A 
A 
c 
€ 
C 
c 
c 
Cc 
c 
c 
c 
c 
c 
A 
A 
A 
A 
Cc 
A 
A 
Cc 
A 
A 
A 
c 
A 
Cc 
Cc 


Cc 


A 
Cc 


LEN 


001 
003 
004 
003 
003 
003 
003 
003 
003 
003 
903 
004 
603 
003 
004% 
004 
603 
005 
G03 
004 
G04 
eos 
col 


Oo! 


601 
oc3 
oot 
O01 
ocl 


Gor . 


Gol 
oo: 
GOR 
col 
ool 
Ooi 
601 


, 004 


004 
004 
004 
001 
002 
001 
001 


_ 003 


003 
ool 
ool 
003 
002 
001 


001 


002 
001 


VALUE 


* 9000 
0060 
0066 
0070 
0079 
0060 
0088 
0088 
OO8E 
0091 
00A3 
OCA6 
OOAE 
oo8s 
ooBe 
oocD 
OOoDB 
OLES 
QiED 
OQLFC 
G297 
219 
O057 
O056 
6000 
CoTC 
0006 
0058 
0055 
CiTE 
0018 
oocs 
OOLA 
0000 
0004 
SO2A 
0017 
oosc 
ooco 
oocr 
oopo 
0019 
OoEB 
OOEC 
oool 
0082 
0091 
OO0ES 
OOE3 
OC6E 
0019 
0001 


0002 


OOEE 
0000 


DEFN 


0033 
8039 
0045 
0048 
0052 
6047 
0074 
0075 
0076 
0078 
oces 
0086 
0032 
0095 
Gost 
C103 
CilO 
O862 
C166 
0170 
ots 
0192 
0145 
C144 
0002 
9055 
0143 
0126 
0126 
0157 
0154 
0137 
0138 
0140 
0160 


- 0141 


0152 
0132 
0133 
0134 
0135 


0150 - 


9123 
0124 
0142 
0159 
0146 
0115 


0136 © 


0158 
0147 
0130 


0131 
0125 


0139 


REFERENCES 


0037 
0040 
0076 
0046 
0047 
0158 
0045 
oo7s 


0C50 
0079 
0102 
o068* 
0094 
0093 
0134 


Oli2 
OL 7Z 
OL68e 
C167 
0162% 
0068 
0081 


0055 


_ 0164 


ooeso 
0168 
6092 
O101 


' 0095 
. OLITS 
- 0085* 


c090¢ 
0070* 


0113 


O17i 


0106 


. 0088 


0113% 
0078 
0104 


0040 


0078 
0093 
0108 
0055* 
0192 
0073 
0085 


0078 
0192 
0083 


0146 


0108 
ooset 


0132 
0135 


9169¢ 
0163 
6070 
C193 


0144 


0110 


o173 


0178 
0090 


0104* 
0152 


0099 


0163 


0045 
0079 
0094 
0110 
0097 


CROSS~REFERENCE | 


0080 60110 


0094 0159 


0133 


0173* 0183 


01034 


9304 - 


0145 


0099% 


0154 


0170 


0045 
0080 
0094 
0113 
0097 


TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 


ere emcee aw ae eee entee arene am a ee om ae a em om eee re ae ae ee em ae om an ae em ee ae ee eee oe 


DATE 
€c NO. 


1SJANTO 


816576 


OOMAR TO 
816638 


L7APRTO 
816677 


OO} 


0162 


0047 
0081 
0095 
0113 
0098 


OSJUNTO- 
816707 


0048 
0082 
0099 
0162 
0098 


0049 
0083 
0099 
0163 
0103 


0055 
0085 
0101 
0164 
0106 


0068 
0088 
0102 
0170 
0164* 


0070 
0088 
0103 
0170 
0166 


0073 
0090 
0104 
0171 
0169 
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00 7& 
0090 
0104 
O17? 
01712 


3A 


0076 
0092 
0106 
0178 
0178¢ 
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PROG 10 OREM-2 


CAGE 


3a 
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A 
8 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 25888 76 
@ PAGE 4 
e NEM2 * * * NMEMONIC DUMP PROGRAM * @ © 
..., ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
@ 0000 2 START x*00008 
3 DECK 1 
4 SEQ 010 
@ SF SHEKEL ERARKEAKEKKKHEERE SEALERS EERSEKSE SRE EAS KESEKS SAT VKEAKSRERKSTAEKKSEARS 
& @ * 
7 * =MNEMONIC DUMP PROGRAM % 
© 8 * & 
9 *PROGRAM DESCRIPTION - 
10 * * 
© 11 * THE MNEMQNIC DUMP PROGRAM DUMPS CORE, INSTRUCTION BY IBSTRUCTION # 
12 * WITHIN THE LIMITS WHICH ARE SET 8Y THE USER. THE PROGRAM SCANS —° *# 
13 * CORE BYTE BY BYTE UNTIL IT FINDS A VALIC OP-CODE. IF A BYTE OF * 
@ 14 * CORE 1S NOT A VALID OP-CODE OR PART OF AN INSTRUCTION, 1T IS * 
15 * OATA AND IS PRINTED IN DATA FORMAT RATHER THAN INSTRUCTION FORMAT.® 
16 * FOR BOTH THE FORMATS. THE IAR IS PRINTED ON THE LEFT MARGIN * 
© 17 * AND POINTS TO THE LEFTY-MOST BYTE OF FACH LENE OF THE DUMP, * 
ore 18 * A MAXIMUM OF 24 BYTES OF DATA ARE PRINTED PER LINE. ON THE SAME * 
19 * LINE» A CHARACTER DISPLAY FOR EACH BYTE IS ALSO PRINTED. * 
8 20 * A PERIOD IS PRINTED FOR ALL UNPRINTABLE CHARACTERS, 2 «& 
21 % ONE INSTRUCTION ALONG WITH THE NMEMONIC OP-CODE AND THE INDEX * 
22 * REGISTERS ASSOCIATED WITH AN OPERAND ARE PRINTED PER LINE. * 
6 23 * A DUMP OF ALL THE LSR*S BUT THE IAR IS PRINTED PRIOR TO THE * 
24 * CORE DUMP. THESE ARE, ARR, PSR, “P81, ¥R2_ LPCTRe LOLAR, LPDAR, * 
25 *® MFCU PUNCH DAR» MFCU PRINT DAR, ANO MFCU READ DAR. * 
8 26 * * 
27 *0PERATING PROCEDURE * 
28 , , & 
© 29 * WHEN THE CU HALT IS DISPLAYED THE ADDRESS AT WHICH IT IS TO * 
slat _ 30 * BE LOADED IS DIALED IN THE ADDRESS/DATA SWITCHES AND THE START * 
31 * KEY IS PRESSED. WHEN THE AL HALT 1S DISPLAYED, THE PROGRAM 1S. * 
ie) 32 * LOADED. THIS PROGRAM CANNOT BE LOADEC BELOW X*0300" AND MUST BE *& 
ms & 33 * LOADED ON A 256-BYTE BOUNDARY. * 
@ 34 * A MANUAL BRANCH TO THE ADRESS AT WHICH THE DUMP WAS LOADED: * 
© 35 * WILL CAUSE THE AL HALT TO BE DISPLAYED. THE LOW CORE LIMIT IS * 
4 . 36 * SET IN THE ADDRESS/DATA SWITCHES AND THE START KEY IS PRESSED.* * 
‘ .37 * WHEN THE AU HALT IS DISPLAYED, THE UPPER CORE LIMIT 18 SET IN * 
oO 3@ * THE ADORESS/DATA SWITCHES AND THE SRT KEY IS PRESSED, * 
39 * AN EJ HALT INDICATES END OF JOB. PRESSING THE START KEY CAUSES *# 
40 * THE AL HALT TO BE DISPLAYEC. : * 
o- 41 * A PO HALT INDICATES A PRINTER ERROR. REAOVING THE PRINTER AND * 
Be eas 42 * PRESSING THE START KEY CAUSES DUMPING TO CONTINUE. * 
43 *% ' - * 
© 3 44 RELEASE SEES SESERESESSAEEARELERES HOERERREREEEERE SREAEAREEHERE ARSE EEEEEEE E 
© 
© 
© 
am *) 
a 
a 
© 
© 
© 
DATE 15JAN70 OOMARTO 17APRT0 O05JUN70 PROG ID ONEM-2 
© EC NOw 816576 816638 816677 816707 PAGE 4 
-O 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


NER2 


* * © NMEMONIC DUMP PROGRAM # * & 


SOURCE STATEMENT 


EQu 
EQU 
EQU 
E0U 
EQU 
EQU 
EQU 
EQU 
EQu 
EQU 
EQU 
Eau 
EQU 
FQU 
EQU 
EQU 
EQU 
EQU 
EQU 
ST 

LA 

ST 

ST 

SNS 
SNS 
SNS 
SNS 
SNS 
SNS 
LA’ 
ST 

MVC 
SLC 
HPL 
SNS 


HPL 
SNS 


L1G 


LIO. 


EQU 
MVI 
LA 

MVC 
MNZ 
MVI 
SBF 
ctl 


. JH 


ERR LOC OBJECT CODE ADOR STMT 
ooso 46 40 
00co 47 01 
0087 48 M0567 
0040 49 WI 
0052 50 4136 
OO4F 51 614567 
0020 52 2 
0030 53 23 
0010 54 M3 
OOOF 55 44567 
OOBF 56 CH1 
0040 57 BLANK 
OO5C 58 MINUS 
0068 59 COMMA 
OOFL 60 R1 
OOF 2 61 R2 
OG4R 62 PERIOD 
ooo) &3 XRI 
C002 64 XRZ 
0000 34 01 0696 65 RESTRT 
0004 C2 01 GE98 66 
0008 74 G& Ol 67 
OCOB 74 62 G5 68 
OOCE TO EO OF ; 69 
OOL} FO E4& 09 70 
0014 70 £6 G8 71 
oO17 70 £6 OD 72 
OOCLA 70 Fe OF 73 
0010 70 F5 11 14 
0020 C2 62 OO4E 75 
0024 34 02 O61€ Té 
0628 OC SF O5DB 6697 77 
GOZE OF 19 OG6EA OGEA 78 
0034 FO 3F 68 79 
8037 30 00 0603 ’ 80 
2 : 81 
0038 FO 3F 6B 82 
OO3E 30 00 0606 83 
-84 © 
.0042 31 E4 0578 85 
0046 31 E6 03A9 86 
004A CO 87 C600 87 
O04E 88 PRIREG 
OO4E 3C 12 069A o 89 
0052 C2 02 O6AD 90—= 
0056 9C 00 01 00 91 AAXO1O 
OO5A AB 02 00 01 92 
0OS5SE 3C 80 0079 93 
0062 88 FO 00 94 AAXO15 
0065 BD 09 00 95 
0068 F2 84 05 96 
0068 8E 00 00 0698 97 
0070 -8E 00 00 0699 98 AAX020 
0075 E2 02 O1 - 99 
0078 F2 80 08 100 AAX030 
; 101 * 
0078 3C 87 OCOT9 102 
103 * 
OOTF CO 8&7. 0062 104 
0083 D2 01 01 105 AAXK040 
, 106 * 
C086 OF 00 069A 0579 107 
108 * 
oo0sc CO 01 0056 109 
0090 C2 O01 OS7C 110 
0094 C2 02 O6AD 111 
0098 6C (3 03 03 112 
©09C 6C 03 09 O07 113 
DATE L5JANTO OOMARTO LTAPRTO 
FC NO. 816576 816638 - 816677 


ALC 
ALC 
LA 
Jc 


MvI 
Z 
LA 


ALC 


BNZ 
LA 
LA 
#YC 
MVC 


B*10000000* 


. B*11000000¢ 


B*10000111° 
8*01000000* 


- 8*01020010° 


B*°01001111* 
8°00100000°* 
B*nO0110000* 
B*000100008 
B*00001111° 
B102111211° 
X*408 
x¢5ce 
X* 6B? 
Xteyze 


 XCEQS 


X&4Re 

i 

Z 

SVARE A4+3,1 
SVAREAs1] 

1€ 01) 94 

S(ylde2 
Tle ld eX®EOS 

Sle ldo X*ES? 
110,23-x*E6* 

L3G eld ,xX*Fet 

15 ebb yg X*FS! 
17s lb yXPF5S 
PRYREGe2 
PRINT1¢392 
LPRDAT4#95 (96) »HEADER 
CHRPTR(26)%CHRPTR 
X68 x*3re 
BEGIN,»X*a0°" 


X*6B* oX*3F* 


. ENDs X*O08 


IMAGE ¢ X*E4* 

BUF ADD, X* E6* 

PRINT 

* : ° 
LPCT,X#12¢ 
WKAREA,2 . 
1€2,XR2)40,XR1) 
OCL eXR2 9 gL Oe XR2) 
AAX03041,X%*80* 
O€,XR2)9X* FO? 


Ole XR2) ,X*098 


AAX020 

001 oXR2),HEX39 
OC 1eXR2) ,HEXB7T 
10,XR2)eXR2 
AAX040,X*808* 


AAX03041,.X*87* 


AAXO1LS 
1¢0,XR1),XR1 


LPCT(1),COMP1 


AAXO10 
LPRDAT,»1 
WKAREA,2 
3049139302) 
914 e1) e792) 


05 JUNT7O 
816707 


PART NO. 2588876 
PAGE 4A 


INDEX REGISTER 1 
INDEX REGISTER 2 
SAVE XRI 


SAVE 
SAVE 
SAVE 
SAVE 
SAVE 
SAVE 
SAVE 
SAVE 


PSR 

XR2 

LPCTR 

LPTAR 

LPDAR 

MFCU PUNCH DAR 
MFCU PRINT DAR 
MFCU READ DAR 


. 


MCVE HEADER T9 PRINT RUF 
CLEAR BYTES 0-20 
GET HISH - ORDER ° 
OBTAIN ACJCRESS OF FIRST AND LAS 
BE DUMPED FROM DATA SWITCHES. 
GET LOW - ORDER a 
O8TATN ADDRESS OF FIRST AND LAS 
BE DUMPED SROM DATA SWITCHES. 


“ “LOAD CHAIN IMAGE ADDRESS. 


LOAD BUFFER ACDRESS. 


-SPLIT ONE BYTE INTO TWO BYTES 


* ”- 

SET SWITCH TO HANDLE TWO BYTES 
SET ZONE BITS OFF 

CONVERT HALF 8YTE ; 

s 

* 

* 


“INCRIMENT PTR TO CONVERTED AREA 


NOP FOR FIRST HALF-BYTE 
JUMP FOR SECONG HALF-BYTE 
SET SWITCH FOR SECON 
HALF-BYTE ; 


INCREMENT PTR TO AREA 
TO BE CONVERTED 
SUBTRACT ONE FROM BYTE 
COUNT 

GO CONVERT NEXT BYTE 


PROG ID ONER-2 
PAGE 4A 


Pg ene ren emmremmeecainne cere NTE UNTRAt AOL, COR 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2588876 1BM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 2588876 | 
PAGE 5 PAGE SA 
NEM2 * & * NMEMONIC DUMP PROGRAM * @ ¢ 2 NEM2 *% ¢ & NMEMONIC DUMP PROGRAM * ® © | 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT _:.. ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | 
OGA0 6C 03 OF 08 114 MVC =—- 15 4 19 120529 3 0195 F2 O02 OF 182 JNL  =LORA NO 
OOAS 6C 03 15 OF 115 MVC =—-210491951250 52) 0198 78 87 01 183 TBN «10912 240567 IS IT 8 GR J? (MASK # 0} : 
OOAB 6C 03 10 13 116 MVC =. 2949 19919092? 0298 F2 10 OF 184 ST TERM VES ! 
OOAC 6C 03 25 17 117 MVC =—«- 3 7449 19023402! ® 019€ 79 BF G1 185 TBF 2€s125CM1 NO <3 IS IT 8B OR J? (MASK = OD ' 
OOB0 6C 03 2D 18 118 MVC 8-45 04919276 92} OLAL F2 20 09 186 JT TERM VES 
0084 6C 63 3E 1F 119 AVC 6204919031092? O1A4 F2 87 22 187 J NOTERN NO 
OO0B8 6C 03 4&F 23 120 MVC —- 79.49 29935052) @ OLAT 79 10 O1 188 TBF = 1€ 9239 963 IT IS t OR As IS IT L OR AP 
COBC C2 02 OOCE : 122 LA INBUF 02 O1AA F2 10 iC 189 JT NOTERM NO 
COCO 34 G2 0618 122 ST PRINT14392 OLAD 38 40 O6F6 199 TBN SWITCH, M2 VES 3 TERMINATING INSTRe= TO ITA 
“90C4 OC 05 O69C 0606 123 MVC STOP{63,END INITIALIZE PTR AND STOP TO BEG! @ C181 3A 80 O6ES 191 SBN SWITCH, MO TEST IF BUFFER EMPTY ~ SET SWIT 
124 * END. 2192 : INSTR. 
OOCA CO 87 6600 128 8 PRINT cee 0185 OC O02 O6DC 0609 193 MVC «= STOP4. 39 2PTR MARK STOP OF INSTReSTRING. 
COCE 35 O1 0309 226 INBUF L BUFADDel ® 0188 OC 62 O&D9 06D2 194 MVC =—- PTR(3)e BEGIN GO BACK TO LAST BYTE NOT YET PR; 
0OD2 C2 02 6628 127 LA TFORM,2 USE PRINT LINE FORMAT FOR INSTR O1CZL CO 10 OZED 195 _ BF EDIT BUFFER NOT EMPTY 3 GO TG PRINT, 
OGD6. TC 40 57 1ze MVI =—- 87441 Pe BLANK REMGVE OLO PRINT LINE PATTERN 01C5 CO 87 ODCE 196 8 INSUF 
OCD9 5C 56 56 ST £29 MVC = BHC SF ebb eSTl old @ 01C9 OF 02 9609 o6DF 197 ALC PTRO3),LENGTH { 
OCDD 38 B80 O6E6 130 TBN SWETCH,MO INSTRUCTION TO BE PRINTED? O1CF CO 87 C107 198 B NUBYTE NO TERMINATING INSTR» - ADVANCE | 
OSE1 F2 10 GA 131 JT IBF YES > IBF. ° 0103 2C 0¢ O6€3 69D 199 MVC =- NUM(3) 90042) ADD DESPLACEMENT FROM TABLE 76 : 
O0E4 TC SC 3E 132 MVE = - G20 gL be MENUS NO 3 PUT DELIMITER OF CLEAR OF @ 200 MNEMONIC. 
GOET 7C SC 57 133 MVE —- S702 DS MINUS AREA IN BUFFER. O1DS 36 OZ C6E3 202 A NUMe2 
OOEA C2 02 0620 £34 LA DFORN,2 USE PRINT LINE FORMAT FOR OLTA. OLDC 35 C1 O3A9 202 i BUFADD, 1 
OCEE 2C 00 O6E3 60 135 I6F MVC =—-NUM( 1990652} = S1EO 6C O2 29 00 203 MVC =—- 903,299 O05 21 MOVE MNEMONIC TO BUFFER 
_OOF3 36 O1 06E3 136 A NUM»2 ADO INFVEYMENT FROM IFORM RESP. C1E4 35 O2 06DS 204 L PTR 2 (TEST FOR INDEXED OPERANDS 
137 * BUFFER ADRR. ate OLES BS 3C 00. 205 TEN 009225823 OPER AR 
OOFT 7C AO 00 138 . MVE Of610-x2A98 PUTX®AD® IN BUFFER POSITIONS IN i © O1EB F2 10 18 206 JT BITSOL ; 
139 @ BY TFORM (.3¢ RESP. DFORM (23+ j DLEE BY 20 00 207 TBF Ol y2heh2 
OOFA E2 62 91 140 . tA 1e2)52 t CLF1 €2 10 06 208 JT BIT3 
OOFD BD FO 06 i  A4d CLI Oly 22 X*FO® FND OF FFORM RESP. DFORN? ' © O1F4 7C 68 18 209 MVE 244159 COMHA MOVE COMMA ANDO 2 INTO SUFFER. 
0106 F2 BL 64 242 JE NUBYTE YES i CLF? WO F2 19 210 MMVI —- 2591) eR2 : 
6103 CO 87 GOEE 143 6 IBF NO 3 BACK TO IBF. i C1FA BS 10 00 211 TBF Of€0234N3 
0107 OD 02 06D9 O6DC 144 NUBYTE CLC PTRI33,STOP END OF AN ENSTRUCTION STRING? 1 © S1FO F2 16 06 212 ST BITSOL 
OL0D6F2 046 2F 165 SNH LOOKUP NO 3 i 0200 7C-6B 18 213 MVI = 24091) ¢ COMMA MOVE COMMA AND 1 INTO BUFFER. 
CLLO OD O02 C4609 .CENE 146 CLC = PTRE32e END YES 3 END OF AREA TO BE PRINTE | | 0263 7C FL 19 214 MVE =—-25€ 919 ,R1 
O116 F2 G4 18 = , 147 JNH NEWSTR NO. a oO 0206 88 CO 0G 215 TBN 002} M01 OPERAN 
0119 OD 02 0603 0606 148 CLC BEGING33,END YES ¢ ANYTHING LEFT TO BE PUT © i C209 F2 16 18 216 JT zF : 
149. * BUFFER. ; a | 020C B9 80 00 zi? TBF O92) MO - 
Q1LiF F2 04 $2 : 150 JNH DATA YES 3 TREAT IT AS OATA. Cc _020F F2 10 66 218 “JT > BITL |. 
0122 38 40 @6&6 . «58 TEN SWITCH, M2 NO 3 HAS EVERYTHING BEEN PRIN . 6212 7C 68 13 ‘219 MVE 19092) eCOMMA ° 
0126 CO 10 O2ED 152 BT eDIT ~ NO Pe 0215 70 F2 14 220 MVE —- 20€ 919 »R2 
012A FO 7C 63 ‘ 153 HPL -X#63%,x*7C8 YES 3 END OF JOR. {0 0218 BY 40 00 221 TBF = OU 29 ye ME 
0120 CO 87 0000 ; 154 B " RESTRT GO TO RESTRT. TO PRINT MORE ARE ee 0218 F2 10 11 | 222 JT TRANSL : 
0131 38 80 06F6 155 NEWSTR SBF SWITCH»,MO SET SWITCH TO “CONTANTS®. > OZ1LE 7C 6B 13 223 MVE 19€¢]),COMMA : 
0135 OC 02 06DC c6DS 156 MVC STOP(3),END RESET END OF STRING. G 0221 7C Fl 14 224 MVE = 2040.2 3eR1 i 
0138 CO 67 OOCE 157? 8 INBUF 0224 F2 87 08 225 J TRANSL ; 
013F 35 02 06D9 15€ LOOKUP L PTR»2 | 0227 5C OL 14 19 226 MVC = - 2002922025091} ERASE COMMA, IF JUST ONE DPERAN 
0143 28 02 06£1 00 ~~ _ 159 MNZ ZONE*?O0€,2) GET ZONE OF BYTE TO BE CHECKED.  Q@ 227 . “INSTRUCTION. | ss a Oo 
0148 28 03 06&3 0O - 160 MNN = NUM» 092) GET NUMERIC OF BYTE TO BE CHECK 0228 5C 01 19 OS 228 MVC) =. 25029199591) ERASE COMMA, IF JUST ONE OPERAN 
0140 35 01 0634 . 16% t MNEADDs 1 ; 229 INSTRUCTION. - 
0152 35 02 0634 ae 162 t MNEADD»2 (oO 230 TRANSLATE AUTO PRINTABLE HEX. C 
0155 36 01 O6E1 163 A ZONE» 1 022F 3A 52 06E6 231 SBN SWITCH, M136 SET SWITCH TO "BUFFER NOT EMPTY 
0159 18 03 O6DF 00 . 164 MNN LENGTH,O0C,1) ASSUMING IT IS AN OP-CODE. GET | . 232 "ADDRESS IN BUFFER® LENGTH = 2 
165 * OF INSTRUCTION. | © 0233 OC 63 O6EA 0: 4B 233 MVC = CHR PTR (4) » CHRAOD 
O15E 18 00 06€3 00 166 MZZ NUMs0Co1) DISPLACEMENT FOR TABLE. Bs 0239 C2 O02 06D8 234 LA PTR-192 TRANSLATE ADURESS FIRST. 
0163 36 02 06E3 167 A NUM, 2 oe 0230 C2 Of 0398 235 LA. ALPHABs1 
0167 38 80 O6E6 168 TBN SWITCHeMO ARE INSTRUCTIONS BEING PRINTED? | © 0241 28 02 O06EF1 00 236 MNZ ZONE, O52). FIND HEX. EQUIVALENT OF ZONE PA 
O16B F2 10 65 169 JT IPRINT YES | 237 BYTE. 
O16E 89 80 00 170 TBF O0€52)5M0 NO 3 IS BYTE AT LOCATION PTRO | 0246 36 O1 O6E1 238 A ZONE» 1 FIND HEX. EQUIVALENT OF ZONE PA 
O171 F2 10 12 171 JT OPCODE YES 239 BYTE. 
0174 OC 02 0609 0603 172 DATA MVC  PTRI3)_, BEGIN NO », IT IS CONSTANT ~ GET BACK, 024A 1C 00 O6€4 00 240 MVC —- AUX-102290C 01) MOVE ZONE TO AUXILIARY LOCATION 
; 173 * BYTE NOT YET PRINTED. ' 024F C2 O01 0398 241 LA ALPHABs 1 FIND HEX. EQUIVALENT OF NUMEMER 
O17A 38 40 06E6 174 TBN SWITCH, M} 1S PRINT BUFFER EMPTY? 242 BYTE. 
O17E CO 10 0285 175 BT LPTR NO $3 TRANSLATE BYTE. 0253 28 03 O6E1 00 243 MNN ZONE9 0052) FIND HEX. EQUIVALENT OCF NUMEMER 
0182 F2 87 AA 176 J TRANSL YES 3 TRANSLATE ADORESS OF 8YT 244 BYTE. 
0185 BD 48 00 177 OPCODE CLI O6lo20—x*ss? 1S IT TERMINATING -OP-CODE. 0258 36 O1 06E1 245 A ZONE] 
0188 F2 82 3E 178 Jt =. NOTERM NO : 025C 1C 00 O6E5 00 246 MVC = AUX(.199 00 01? MOVE NUMEMERIC TO AUXILIARY LOC 
0188 F2 81 1F 179 JE TERM IT IS HPL. 0261 35 01 O6E8 247 t BUFPTR, 1 FIND FIRST FREE POSITION IN BUF 
O18E 35 01 0609 180 t PTRol 0265 70 40 00 248 CLE 6€91) »BLANK 
0192 BD 5A 00 181 CLE 092) ,x*5a8 FS IT BC OR JC? 0268 F2 81 OA 249 JE MOVE 
DATE 15JAN70 O9MARTO 17APR70 05JUNTO PROG ID ONEN-~2 DATE 15JANT7O O9MARTO 17APR70 OS JUN7O PROG ID ONEFP-2 
EC NO. 816576 816638 816677 816707 PAGE 5 EC NO. 9816576 816638 816677 816707 PAGE SA 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM 


NEM2 
ERR LOC 


0268 
O2Ti 
O27 
O2TA 
O2TE 
0281 


0287 
6280 
0291 
0294 


O29A 
0290 
O2AL 
O2A4 
G2A8 
O24B8 


O2AF. 


0285 
0289 
0280 
O2ci 
02c5 
02C9 
o2c¢ 
O2CF 


6203 


02D6 
e2b9 
0200 
@2E0 
O2E6 
G2E9 
O2ED 
O2F1 
O2F5 
O2FS& 
O2F8 
-O2FF 
0302 
0305 
0308 


* 930C€ 
0312 
0318 
031C 
0322 
0328 
O32E 
0334 
0334 
0340 
0345 
0346 
0348 
0349 
034C 
0350 
0352 
0353 
0358 
0363 
036A 


DATS 
EC NO. 


* * * NMEMONIC DUMP PROGRAM * * & 


OBJECT CODE 


OE O1 
co 87 
“C 01 01 O6E5 
38 10 O6EF6 
Fe 10 13 

OE O02 0603 


O6E8 0637. 
0261 


0637 


OE 02 06D9 0637 
39 80 0656 
F2 10 29 
OF 00 O6E6 0637 
€2 02 91 

39 OF O6E6 
F2 90 15 

39 10 O66 
F2 10 42 
3B 10 O6&6 
08 03 06E6 
35 02 0609 
CO 87 023D 
3S OL OGEA 
6C 00 00 00 
C2 02 0500 
B80 FF 00 

F2 81 0€ 

6D 00 00 00 


O60F 


F2 81 GA 


E2 02 O01 
o2c9 
7c 48°00 
O6EA 
70 5C 01 
0107 
0500 
0500 
76 02 79 


0637 


2161525241516 
242315141423 
34333343 
ADAGADADZ2ZA0 
23252 7AO2C2E 
30323436383A 
AQADZA5ASCAO 
2938 303F4143 
4080554244A0 
ESCLESCLES 

AO 

E2€9 

AO 

D4ESET 
48384939 

C5c4 

AS 

C9E3C304E5C 30303 
C3CLD3C3E203C3E2 
D5E203C9D6E2E3 
AO 


15JAN70 
816576 


OOMART 
816638 


ADDR STMT SOURCE STATEMENT 


030C 
0311 
©317 
03186 
0321 
03-27 
0320 
0333 
0339 
033F 
0344 
0345 
0347 
0348 
03248 
O34F 
6351 
0352 
0369 


036A 


oO 


250 
251% 
252 
253 
254 
255 
256 
257 
258 
259 
266 


MOVE 


$UB8i 


261 % 


262 
263 
264 
265 
266 
267 
268 
269 
270 
27h 
272 
273 
274 
275 
276 
277 
278 
279 
286 
281 
282 
283 
284 
285 
286 
287 


288 


289 


290. 


291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
314 
314 


315 


LPTR 
GOON 
CHARS 


TCHAR 


REPLCE 
ADDI 


EDIT 
ED 


BACK 
MNEMTB 


LTAPRTO 


- TABLE OF 


PART NO. 2588876 
PAGE 6 


ADD 1 TO BUFFER. 

BACK TO TBLANK 

MOVE TRANSLATED BYTE INTO BUFEE 
WAS IT AGDRESS OR INFORMATION B 
I¥ WAS ADGRESS. 

IVY WAS TRECRMATION BYTE 
BY 1. 

ADVANCE POINTER BY ie 
WAS IT DATA BYTE? 

YES 

NG 63 «ENSTRUCTION BYTE ~ SUBTRA 
LENGTH GR ADDRESS. 


sADVAR 


IS LENGTH 0? 

NO 3 NEXT BYTE OF INSTRUCT ION 

YES ¢ WAS IT INSTRUCTION? 

VES 3 ALL HAVE -— PRINT IT. 

NG 3 SET SWITCH TO SASE IN BUF 
GET INSTRUCTION LENGTH AS COUNT 


BACK TO TRL. 
PUT CHARACTERS IN DISPLAY PART 


COMPARE CHARACTERS IN DISPLAY T 
IMAGE YO FIND GUT IF IT IS PRIN 


COMPARE CHARACTERS IN DISPLAY T 
EMAGE TO FIND OUT IF FY ES PRIN 


BACK TG CHAR. 
REPLACE TMPRINTABLE CHARACTEP 5 


END OF DISPLAY FIELD? 
NO 3 NEXT BYTE. 
YES ERASE TMPRINTABLE DELIMITER 


BACK TO ED. 
MNEMONICS. 
TABLE OF MNEMONICS. 
SE-E.-& -- 

TABLE OF MNEMONICS. 
TABLE OF MNEMONICS. 
TABLE OF MNEMONICS. 
TABLE OF MNEMONICS. 
TABLE OF MNEMONICS. 
TABLE OF “NEMONICS. 
TABLE OF MNEMONICS. 
TABLE OF MNEMONICS. 
TABLE OF MNEMONICS. 
TABLE OF MNEMONICS. 
TABLE OF MNEMONICS. 
TABLE OF MNEMONICS. 
TABLE OF MNEMONICS. 
TABLE OF MNEMCNICS. 
TABLE OF MNEMONICS. 
TABLE OF MNEMONICS. 


TABLE OF MNEMONICS. 


PROG ID 


ALC BUFPTR(2)-KONL 
B TBLANK 
MVC 142.1). AUX 
TBN SWITCH, M3 
JT SuBl1 
ALC BEGIN{3 },KONI 
ALC PTR{33_,KON) 
TBF SWITCH, KO 
JT CHARS 
SLC SWITCHE LE} KON] 
L& Ufy25e2 
TSF SWITCH, M4567 
JF GOON 
TBF SWITCH. #3 
JT EDIT 
S8F SWITCH, M3 
MNN SWITCH se LENGTH 
t PTR 2 
g TRL 
t CHRPTRe lL 
MVC 001523800052) 
tA LPRIMG,2 
Cri O62) _X*FFF 
JE REPLCE 
cite O€1e19,0622) 
JE ADDI 
2A 1692) 42 
B TCHAR 
MVI. 00,19 ,PERIOD 
ALC) = CHRPTR(2) KON 
cul 10,2) ,MInUS 
BNE RUBYTE 
LA ZEROS? 
LA ZERO,2 a 
A COMPI-ZERD( eid 92 
CLE DISPL-ZERG( 92) 4X" FFP 
BE PRINT 
CLI DESPL-ZERO( 22) eX* AO® 
JSNE BACK 
MVE DISPL~ ZERO 52} » BLANK 
B ED 
EQU * , 
oc XL691615152615148# 
oc XL6° 142315141423" 
oc XL4*34333363" . 
oc XL6*AOAGADADZZ2A0# 
oc AL6*232527A02T2E® 
oc XL6°30323436383A* 
pc XL6*AOAO3SASASCAO! 
oc XL6°393B3D3F4143° 
oc XL6*A0A0554244A0* 
Oc CL5*ZAZAzZ* 
oc XL1*aor 
DC CL2*sz¢ 
DC XL1*a0* 
oc CL3*mMVxt 
OC XL4* 483849398 
oc CL2"ED® 
oc XL1°AO?* 
DC CL2Z3* I TCMVCCLCALCSLCSNSLIOST® 
oc XL12*°A0° 
OSJUNTO 
816707 


£16677 


PAGE 6 
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18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2588876 
PAGE 6A 
NEM2 * & & NMEMONIC DUXP PROGRAM ¢ @ *& 
FRR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
0368 E3C2DSE3C2C6E2C2 0381 316 DC CL23* TBNTBFSBNSBFMVICLITIOLA® TASLE OF MNEMONICS. 
0373 DS5SE2C2CEDSESTC9C3 316 
0378 D3C9E3C9DED3C1 316 
0382 AC 0382 317 OC XLL*A08 TABLE OF MNEMONICS. 
0383 C107D3E2C9D6D3 0289 318 oc CLT*APLSIOL® TABLE OF MNEMONICS. 
038A AOAO 038B 319 pC XL2*AGA0? TABLE OF MNEMONICS. 
038C C1 038C 320 oC cLitas TABLE Of MNEMONICS. 
038D ADAO O38E 3212 oc XL2*AOAC® TABLE OF MNEMONICS. 
O38F C2C3 0390 322 DC ci2*ace TABLE OF MNEMONICS. 
0392 AG 0392 323 DC XLLtAos TABLE OF MNEMONICS. 
0392 CBDTN3DIC3 0396 324 oC CLS*HPL CE TABLE OF MNEMGNICS. 
0397 AO 0397 325 DC XLES AOE TABLE OF MNEMONICS. 
0398 326 ALPHAB EQU # 
0298 FOFLF2ZF3F4FSF6F7 C3AT 327 Dc CL16°01 23454 70SABCDEF € 
O3A0 FEFOCIC 20304056 327 
0348 O57C O3489 328 SUFADD OC AL ZELPRDAT? FIRST BYTE GF BUFFER. 
O3AA 0588 O3A6 329 CHRADD DC ALZ(DISPL} FIRST BYTE OF CHARACTER DISPLAY 
os500 330 ORG ¥°O500" 
6500 331 ZERO EQU # LAYOUT OF BYTES- 0-95 
0500 332 LPRIMG EQU # LINE PRINTER IMAGE AREA. 
0500 FIF2ZF3F4ESF4F TFS OST7 333 oC CLIZ26* 12345678908 3/ STUVWXYZ © © » ZUKLMNGPQR-$ #ASCDEFGHI Eo <! 
0508 FSFOTBTICOLEZER3E* 333 
0510 ESEGETESESTDEBEC 333 
0518 9102030405p60708 - 333 
C520 DS6O5B5CC1IC263C4 333 
0528 C5CHC TC 8C9S04B4C 333 
D530 40404046404040490 333 
0538 40404040404060690 333 
0540 4040464040404040 333 ° 
0548 4040604040404040 333 
6550 $040404040404040 333 
- 0558 4040404040404040 _ 333 : 
@ 9560 40404040404040460 333 
0568 4046504040404040 333 
GE70 4040464040404040 333 - 7 * : 
: 334 LINE PRINTER IMAGECHAS TO BE CH 
335 + 120 - CHARACTER CHAIN. 
0578 FFFF 0579 336 COMP] oC XL2*FEFFE - 
O57A 0506 0578 337 IMAGE. DC AL2(LPRIMG} . 
OS7C 338 LPROAT EQU - * or se LINE PRINTER DATA AREA (BUFFER 
Boy O5BB 339 DEISPL EQU' .LPRDAT#63 - CHARACTER DISPLAY POSTION OF BU 
“O057C 4040404040404040 O5SFF 340 : DC 132XL1°40* ey - 
0584 4£040404046406040 3460 : 
O058C 4040404040464040 340 
0594 4040404040404040 340 
- 059C 4£040404040404040 340 
0584 4040404040404060 340 
O5AC 4040404040464040 340 
0584 4040404040404060 340 
O5BC 4040404040404040 340 
0504 40404040404604040 340 
O5CC 4£040404040404040 340 
05D4 4£040404040404040 340 
05DC 4040404040404040 340 
O05E4 4040404040464040 340 
O5SEC 4£040404040404040 340 
O5F4 4040404040404040 340 
O5FC 40404040 340 
; a 34} KESKAEKERKRKKEKASEKKSEKEKKKSSKEDHKAK ESSE SSREKKKKKEKSERBKKSERKREH KKK HS KE LKEAEKAS HE 
342 % * 
343 % PRINT ROUTINE - * 
344 *% * 
345 SRARERERA ERASERS RS RERER ERE SESERERAREERERERES SEEK EKEREERSE SERED RRKKAKARKE 
0600 Fl E6 00 346 PRINT APL. xX*E6® 
0603 Cl EO 0619 347 TIO HALT? X*EO® 
0607 F3 E2 Ol 348 $10 X*O1",X*E2* 
060A Fl E6 00 349 APL X*EG® 
060D Cl EO 0619 350 TIO HALT,X*EO? 
DATE 15JANT70 COMARTO 1LTAPRT70 05 JUNTO PROG ID ONEM-2 
EC NO. 816576 816638 816707 PAGE 6A 
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IGM MAINTENANCE DIAGNOSTIC PROGRAM 


WEM2 
ERR LOC 
0611 


0615 
O6i9 
e61c 


0620 
D626 


8628 
06312 


6633 
8635 
8638 
G63B 
Sé3E 
G64) 
8644 
0647 
0644 
O64F 
6652 
Cé57 
GO65A 
OS65F 
0662 
O66A 
O&76 
0673 
6578 
0681 
6684 
068C 
6691 
0697 
0698 
6699 
069A 


0698 


O6AD 
6601 
O6D4 
6607 
O6DA 
060D 
O6EO 
O6E2 
O6E4 
O6E6 
O6ET 
O6E9 


DATE 
EC NO. 





* * @ NMEMONIC DUMP PROGRAM * & ¢ 


ABBR 


OBJECT CODE 
38 4F O6€6 
Co 87 0000 
FO 3€ 6F 
CO 87 0600 
0620 
040101690909 0625 
C90909D1FO 0624 
0628 
040101040105 0630 
OSFO 06 32 
030 0634 
00000: 0637 
D7EZ209 063A 
404040 6630 
E7O9F1 0640 
£04060 0643 
EFDOF2 0646 
4040490 0649 
D3D7D3C3D9 D64E 
4046040 0651 
D3D7C9C1D9 0656 
404040 0659 
D3D7C4C1D9 065E 
404040 C661 
DGC6CZE440DTESDS 066F 
C3C840C4C1D9 
404040 0672 
D4CEC3ZE440DTDICS 0680 
D5E34004C1D9 
404040 6683 
D4C&C3SE460D9C5C1 5690 
C440C4E 109 
4040604040490 0696 
&0 0697 
39 0698 
87 0699 
O69A 
0698 
O6AC 
O6AD 
06D0 
06D3 
06déE 
0609 
060C 
06 DF 
06£1 
06€3 
06E5 
O6E6 
06E8 
O6EA 
0000 
15JAN70  —- O9MARTO 
816576 816638 


STMT SOURCE STATEMENT 
351 SBF = SWITCH, 14567 
352 * 
353 PRINT] B i 
354 HALT HPL X*6F*,xX*3E° 
355 8 PRINT 
356 DFORM EQU * 
357 DC XL6°040101090909% 
358 pc XL5*O9090E01F 0 
359 IFORM EQU @ 
360 + 
361 DC XL6 5040101040105" 
362 pC XL2*O5FO! 
363 * 
364 NNEADD DC AL2(MNEMTB) 
365 KON1 DC xL3*° 000001 
366 oc CL3"PSRE 
367 DC 3CLit ¢ 
368 DC CL3*xXR1® 
369 pC BCLi* * 
370 pc CL3*KR2¢ 
371 DC BCLi® ¢ 
372 BC CLS*L PLR 
373 DC BCL1® ° 
374 Dt CLS*LPTAR® 
375 pC BCLit # 
376 oC CLO*LPDAR® 
377 DC BCLie ¢ 
378 DC CLI4*4FCU PUNCH DAR* 
378 
379 DC BCL1e * 
380 oC CL1G*MFCU PRINT DARE 
380 
382 pC BCL1® ¢ 
382 Dt CLi3°MFCU READ DARE 
382 
383 DC 6cLit ° 
384 HEADER DC cLit 
385 HEX39 OC XL1i*39¢# 
386 HEXBT OC XLL*B87* 
387 LPCT DS XL 
388 SVAREA QU * 
389 DS xL18 
390 WKAREA EQU) * 
391 DS XL36 
392 BEGIN DS XL3 
393 END DS XL3 
394 PTR DS XL3 
395 STOP DS XL3 
396 LENGTH DS. XL3 
397 ZONE DS XL2 
398 NUM Ds XL2 
399 AUX DS XL2 
400 SWITCH DS XL1 
401 BUFPTR DS XL2 
402 CHRPTR DS XL2 
403 * 
404 END RESTRT 
LTAPR70 O05JUN70 
816707 


816677 


PART NO. 


2588876 
PAGE 


7 


SET SWITCH TU ®BUFFER EMPTY® AN 
= Of . 


DESCRIBES FRINT LINE FORMAT FOR 


DESCRIBES PRINT LINE FORMAT FOR 
INSTRUCT IONS « . 


GF BUFFER. = 


FIRST BYTE OF TABLE OF MNEMSNIC 
2 : : 


LAST BYTE GF CURRENT INSTRUCTIO 
INSTRUCTION LENGTH. 


(SEE MEANING OF BITS OF SWITCH) 
FIRST FREE BYTE IN PRINT BUFFE 
FIRST FREE BYTE IN CHARACTER DY 
POSTTION IN PRINT BUFFER. 


PROG ID ONEM-2 
PAGE 7 


ge 


NEM2 


- 
« 
. 


£¥SBOL 


AAX010 
AAXO15 
AAXO20 
AAXO30 
AAX040 
ADOI 
ALPHAB 

_ AUX 
BACK 
BEGIN 
®1TSO1 
BITi 
BiT3 
BLANK 
BUFADD 
BUFP TR 
CHARS 
CHRADD 
CHRP TR 
cM 
COMMA 
COMP i 
DATA 
DFORM 
DISPL 
ED 
EDIT 
END 
GOON 
HALT 
HEADER 
HEXB7 
HEX39 
1BF 
TFORM 
IMAGE 
INBUF 
IPRINT 
KONI 
LENGTH 
LOOKUP 
LORA 
LPCT 
LPRDAT 
LPRIMG 
LPTR 
MINUS 
MNEADD 
MNEMTB 
MOVE 
#0 
M01 
M0567 
“1 
4136 
M14567 
M2 


eo 8 e@ @ 


000 0:0 @© © 6 6 @ 


. 


en oom corer attomrems scetion 


0 0 0 9: 


Se ie _——- 
. 
* 
e 


M23 

M3 
M4567 
NEWSTR 
NOTE RM 
NUBYTE 
NUM 
OPCODE 
PERIOD 


ae ne necting, Serny nner 


eeoeoo3:00 0 0 


DATE 
€c no. 


-ASPrErPEPEOAHAAAAAAAAreRe ADD yp PSP DP Ph DL wp Ww bo bs DP yp Wo fo Be Be fe D fe CF OF Be D be BD Be CF Ye BS De > D & Te te DD DD D af 


ox 


16M MAINTENANCE DIAGNOSTIC PROGRAM. 


* + *¢ NMEMONIC SUMP PROGRAM * * & 


LEN VALUE 


004 
003 
605 
603 
003 
608 
eoi 
902 
604 
603 
603 
603 
003 
oor 
602 
602 
004 
“902 
002 
col 
CoOL 
602 
Gos 
Od? 
ool 
oo3 
O04 
G03 
O04 
003 
ecl 
ool 
001 
065 
oor 
062 
004 
ocs 
003 
003 
004 
063 
oo1 
001 
001 
004 
ool 
002 
001 
005 
002 
001 
ool 
ool 
ool 
001 
001 
001 
001 
001 
004 
006 
006 
a02 
003 
001 


0C56 
6062 
0070 
0078 
6083 
O2EO 
0328 
G6ES 
9308 
6603 
6266 
0228 
OLFA 
904C 
O3A9 
O6Es 
0220 
G3AB 
GSEA 
OuBF 
068 
O57¢9 
OLT4 
0620 
o5B8B 
O2F5 
O2ED 
G6D6 
6289 
0619 
0697 
0699 
0698 
OOEE 
0628 
0578 
GOCE 
6103 
0637 
O6DF 
G13F 
OAT 
O69A 
os7c 
6500 
02B5 
Oo5¢C 
0634 
030C 
0275 
0080 
ooce 
0087 
0040 
6052 
004F 
0020 
0030 
0010 
OOoOoF 
0131 
oic9 
0107 
O6E3 
0185 
0048 


ISJAN70 
816576 


DEFN 


0091 
0094 
0098 
0100 
0105 
0286 
0326 
039° 
0295 
0392 
0215 
0221 
0223 
0057 
032 
04601 
0272 
0329 
2402 
0056 
0059 
0336 
0172 
0356 
0339 
C289 
0287 
0393 
G276 
0354 
0364 
0386 
0385 
0135 
0359 
0337 
0126 
0199 
0365 
0396 
0158 
0188 
0387 
0338 
0332 
0269 
0058 
0364 
0296 
0252 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0155 
C197 
0144 
0398 
0177 
0062 


COMARTO 
816638 


REFERENCES 

0269 

0106 

e0o56 

00S3% O10ze 

0100 

0278 

6235 6241 

0240% 6246+ 

9293 

O086* C148 

9206 0212 

0218 

0268 

0128 0248 

0086 0126 

0247 6250 

025° 

0233 
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- YBM MAINTENANCE DIAGNOSTIC PROGRAM Part NO. 2589644 
2 : PAGE. . 1 
. OOpAA ABSOLUTE LOADER 
Q} : ’ , 
: EPR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
-€ 0000 2 ALDAAO START x*00* BEGINNING ADDRESS OF 
‘ 3 AEEEESORSSSES SELES LESSEE HERESY SEES ERESESEEEE SEED EREERES GEESE SESE SEREESS 
es 4 * : * 
e 5 * ABSOLUTE CARD LOADER * 
6 * : . * 
7 * THE ABSOLUTE CARD LOADER PERFORMS THE FUNCTION OF: * 
Cc 8 * RECOGNIZING THE CBJECT (CARD TYPES AND PROCESSING * 
9 * THEM AS FOLLOWS: * 
10 * : aa * 
oC 11 * TEXT CARD: THE INSTRUCTIONS AND CONSTANTS REPRESENTED * 
12 * ON THIS CARO ARE COMPRESSED INTO THE REQUIRED * 
13 * #GRMAT AND MOVED INTO THE SPECIFIED COPE * 
¢ 14 * LOCATION. * 
15 * * 
ee 16 * END CARD: iHE ABSOLUTE CARD LOADER COMPRESSES THE * 
ae %) 17 * CONTENTS CF THE END CARD INTO EBCDIC FORMAT. * 
; 18 * AND TRANSFERS CONTROL TO THE INSTRUCTIONS * 
19 * REPRESENTED ON THIS CARD BY BRANCHING TO A * 
C 20 * GIVEN LOCATION WITHIN THE 1/0 AREA, THESE * 
21 * INSTRUCTIONS REPRESENTED GN THE END CARD * 
22 * CLEAR THE-LOACER FROM CORE AND BRANCH TO * 
GS 23 % THE ENTRY POENT CF THE PROGRAM LOADED. * 
24 * * 
25 * BEFORE MOVING ANY DATA INTO CORE, THE LOADER CHECKS THE * 
Cc 26 * MACHINE CORE CAPACITY TO ENSURE THE AVAILABILITY OF CORE * 
27 * NECESSARY TO EXECUTE THE PROGRAM BEING LCADED. * 
28 * * 
G 2¢ EXER ELEE SEEKERS EKESRHEAKEKKKSS SHSREKKKSERESRHE KEKE KTHESKASK KLE HKESEE REALE EEKESEGHE 
30 * 
oo7c 83=— 31 ENTRY ALDAAL : 
Cc 32 *. LOADER 1/0 AREA 
0000 33 4AA010 EQU) * BASE ADORESS 
save 34 4 
“ 0060 35 ORG X*608 BEGINNING ADDRESS OF LOADER 
36 * 
0000 «37 USING AAAQ1Os1 ESTAELISH BASE ADDRESS 
Cc 0000 8638 USING A&AO10,2 ESTABLISH BASE ADDRESS 
39 * 
OG60 FO 7C 6C 40 AAAO30 HPL X*6C*,X"7C8 THE PROGRAM BEING LOADED 
Cc 0063 DO 87 60 41 B AAAO30(,XR1) 
42 * REQUIKES MORE CGRE THAN IT 
“ 43 * HAS AVAILABLE-—-THE LOAD PROCESS 
Cc 44 * 1S TERMINATED AT THIS POINT AND 
45 * SHOULD NOT BE RESTARTED 
a 0066 57 20 SF 88 46 AAAO5O SZ 95(3_XR1) yAAA0BS(1,XR1) IF PAST FIRST THREE CARDS OF 
Cc OOGA F2 04 03 47 JNP AAAOEO PHASE, CHANGE HPL TO Ll 
006D 7C 03 7B 48 AAAO8O MVI AAAOT04+2(,XR1),X*038 
0070 70 F3 5C 49 AAAC6O SNS 924 5XR1),X'F3# STORE THE CONDITION CODE 
Cc 0073 79 FF 5C 50 TEF S20 _gXR1)9X* FFP TEST FOR ERROR CONDITION 
0076 F2 10 18 51 JT AAA110 JUMP IF NO ERROR 
0079 FO 68 76 52 AAAOTO HPL X*76",X*68" HALT DUE TO ERROR CONDITION 
. 53 * 
G 54 eee KX eed SH eee eee eR ee eH et 
55 * 
Cc OO7C D2 02 57 56 ALDAA] LA CDOND—1(_XR1) 9XR2 INITIALIZE INDEX REGISTER TWO 
os 57 * SO THAT IT PCINTS TO THE RIGHT— 
56 + MOST SYTE OF THE SECTICN OF THE 
Cc 59 * 1/0 AREA TO BE COMPRESSED 
60 * 
61 *#444% INDEX REGISTER ONE WAS 
C: 62 *+#eeee2 INITIALIZED TG ZERO WITHIN 
63 F88She4% THE BOOTSTRAPPING ROUTINE SO 
64 eeeeeeereeee NOTICE #444440 THAT THE INDEX REGISTER CAN BE 
C 65 *t8ee04¢ USED IN CONJUNCTION WITH THE 
66 *8teees BASE ADDRESS OF ZERO 
OT €4£8442% 
CG 68 * 
ee OO7F 7C 59 BO 69 MVI = =—«- AAA 16042(,XR1),A09441 INITIALIZ®: POINTER FOR TESTING 
G 
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STATEMENT 
; EACH BYTE FOR SPECIAL CHARACTER 
“VI LENS( X12, aADB6 INITIALIZE THE INSTRUCTION 
WHICH RIGHT ADJUSTS THE a 
, : COMPRESSED SYTES he 
tio ZEROL gXR1) gX* £58 INITIALIZE THE 1/0 AREA ADDRESS 
STG = X* 008 sxtFI# READ CARD INTO 1/0 AREA 
TIO AAAN90, X21), X*F1* WAIT FOR COMPLETION CE 170 
8 AAAGSOL »XR1) TEST FOR ERROR AND HALT IF 
ERRGR CONDITION IS PRESENT 
CLI AAAOLOL 9 XR19 TEXT IS THIS & TEXT CARD 
BE AAA13015XR1) . YES 
cil AAAO10(,XR1}), END 1S THIS AN END CARD 
BNE ALDAALO,XR1) NO--EXTRANEGUS CARD-— 
TBF 910 9XR19.X*038 
BF AAAOSO(,XR1) 
; READ ANOTHER a 
MvVI LEN1(,XR13,ZEROI INITIALIZE THE LENGTH FIELD OF 
THE FIRST COMPRESSION 
INSTRUCT ION 
SLC ASA1604211_,XR1) ,ONEC{sXR1) DECREMENT POINTER FOR TESTING 
EACH BYTE FOR X*p0" 
MVC LEN2(1sXR1),LENI XR1) SET LENGTH FIELD OF SECOND 
COMPRESSION 
CLi #-*(,¥%R1),HDO CHECK FOR x*DO0* 
BNE AAALSO(,XR1) NGT x*DO* : 
MVC AAA17T04201,XR1).AAA16042(,XR1) REPLACE X*°DO* WITH X*2A® T 
“VI #—%(.X¥R1),HZA ENSURE UNIQUENESS OF LOW . 
GRDER SIX BITS — 
ALC 102 ¢XR2 9109 XR2) FIRST COMPRESSION INSTRUCTION ; - ro 
ALC 141,_XR2)-11,XR2) SECOND COMPRESSION INSTRUCTION 
ALC LEN1(1,XR1) ,GNECELKR1) INCREMENT LENGTH IN THE 
COMPRESSION INSTRUCTIONS 
CLI LEN1(.XR1)2HOG HAVE FOUR BYTES BEEN COMPRESSED 
BL AAA1L5OU,XRE) NO--CONTINUE COMPRESSING : 2 hom 2 ee 
MVC ADB4(3,XR13 901 _ XR2) RIGHT ADJUST 3 COMPRESSED BYTES - 
SLC LEN3(1—¢XR1),THREC »XR2} CECREMENT RIGHT ADJUSTING 
INSTRUCTION FOR NEXT 3 BYTES 
A MINUS4(4XR1)9_XR2 DECREMENT REGISTER FOR 
COMPRESSION 
BNL AAA130046XR1) CONTINUE COMPRESSING CONTENTS 
OF I/0 AREA . 
CLI AAAO10( 4XR1} gEND COMPRESS IGN IS COMPLETE-- 
IS THES AN END CARD_ 
BE TRANS (,XR1) YES-- TRANSFER CONTROL TO 
INSTRUCTIGNS ON END CARD 
MVC TGOADOR(3,XR1)sLNADDR(,ZXR1) SUPPLY "TO" ADDRESS AND LENGTH 
MVI LENGTH-1 2XRi}.X*00* SUPPLY THE 
L LENGTH(,XR13_eXR2 "FROM ADDRESS - 
Q BYTE IN FOLLOWING INSTRUCTION. 
IS SET uP BY THE BOOTS TRA® . 
LOC xX*O17E* IS MOVED IN: 
CLI CORSIZ(,XR1)_%--* IS CORE AVAILABLE SOR MOVE. 
BH ASANZ0( XRT) NO--HALT 
MVC «- #— # ( #—*) JFROM(,XR2) MOVE CODE INTO CORE 
B ALDAAL( sXR1) RETURN TO READ ANOTHER ‘CARD 
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INDEX REGISTER 2 

LENGTH BYTE GF FIRST COMP INSTR 
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DATE I5JAN70 OSMARTO 
EC NOw 816576 816638 
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STMT SOURCE STATEMENT 
136 FRACOR EQU AAA23044 
139 TOADDR EQU AAA230¢3 
140 TEXT EQU x*ES* 
141 END EQU x*c5¢ 
142 FROM £QU xeyat 
143 ZERGI €£9U x*oo¢ 
144 HDO EQU x*DoF 
145 H2A EQU x*2ae 
146 ONE EQU x*o1? 
147 B84 EQU X*00* 
148 AD84 EQU COND 
149 AD83 EQu CDOND-1 
150 MINUS4 OC XL2*FFFCE 
151 PROC EQU AAA090F6 
152 ZERO oC Xt 2°06008 
153 TRANS £QU x*19¢ 
154 « 
155 * 
156 LNADDR EQU x*19°8 
157 * 
158 LENGTH EQU LNADDR—-2 
159 * 
160 COPRSIZ EQU LNADDR-1 
161 * 
162 * 
163 COREND EQuU X*O17E* 
164 THRE EQU AAA0D8041 
165 ONEC EQU ABA16044 
166 HO4 EQU 4 

1TAPR7O 

816677 
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OCODAA ABSOLUTE LOADER. 


FROM ADDR OF #OVE INST 
TO ADOR OF MOVE INST 
TEXT CARD IDENTIFIER 
END CARD IDENTIFIER 
LEFTMOST BYTE OF COMP CODE 
INITIALIZATION VALUE 
NON-UNIQUE LOW. ORDER 6 BITS 
UNIQUE LOW ORDER 6 BITS 
INCREMENT—DECREMENT VALUE | 
POINTER FOR COMP INST 
POINTERS FOR RIGHT ADJUSTING 
COMPRESSED CODE 
DECREMENT VALUE FOR RT-ADJUST 
BEGINNING OF PROCESSING 
VALUE FOR LIO 
LOCATION IN 1/0 AREA TO WHICH 
COTRCL IS TRANSFERRED AFTER AN 
END CARD HAS BEEN PROCESSED 
LOCATION OF ADDRESS FIELD AFTER 
COMPRESSION 
LOCATION OF LENGTH FIELD AFTER 
COMPRESSION 
ADDRESS BYTE WHICH IS USED TO 
DETERMINE IF THE AVAILABLE 
CORE IS ADEQUATE 
LOCATION OF CGNFIGURATION BYTE 
INCREMENT—DECRE MENT 

CONSTANTS 
RIGHT ADJUSTING VALUE 


169 
170 
i71 
172 
173 
174 
175 
176 
177 
178 
179 
? 180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
269 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 


° 
o 
. 


OREN GURCRENRARENCNRC CNN tee EES Cie Repent net month en eter cheeeere hen oe ISIE: ya cat 


® 


0:80 © @ @:0006080°600 0 8 


° 090 0 8 9 


. 
- 


+ ements om 


oo 8 9 O 


HHHRHRHHEHRHEHEEHHEHHRHHRHKRHEHERHEHRHHHEHRHHEHRHEHRHHEHRHEHEHEHH HEH HEHHHAHEHEHRHEERHEHHERHRBRHE DH SD 


a 
J 
. 


PR Grane 57 rere come: 


DATE ISJAN70 OSMARTO 17APRT7O 


PROG ID OTXL-1 | 
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FE * » 


a penne Stone sietast se ts whimistndasie “ iil iti meter: on a dase tase x 5 sinaet ones — a6 Cincil 7" " 7 2 a fir i e 


LISTING OF 1°L CARDS 


THE FIRST LINE IN EACH PAIR OF LINES CONTAINS THE PRINTABLE 
CHARACTERS ON THAT TIER. THE SECOND LINE IS THE INTERNAL HEX 
CODES. EACH GROUP GF TWO LINES REPRESENTS ONE TIER OF A CARD 
AND THREE GROUPS MAKE UP A COMPLETE CARD. 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


168 FECEER AEE ASKS EES AEAKSRELSSESEAE ORES ESESE SE SAEKEREE SRE EFESEHE DS ERES 44 EESEEEOD 


eeaeeanar 


me cenpren apr ten Tien geen eatin ton ae tN RG SNE HE SINR OEE SRR AES, ME BPC See A, 
¥ a 


SESPEAALHES SERS SERS EASE SERRE EKETE SEAESERSE CEASE EES EEEREKRE EES HED EE NEEEEEE 


BA *."* 5 *GCGKS 2 f Az 4 
€2C140405C487F 6BSCCTETF3 7A4FC17£0040F 440404040404 040404040404040 


75°31 11 0az G- P+ TKXLI 
FLFSTFF3F 1 40F 1F 140004040F 07C6CD0C 7 60D 760404040404 0404040E3E 7D3F1 


28264 484613294428 1421 TxXxLoo00o1 
F2TCFOF 440 F4F BF4F17CFSTDFSE47C40F 1F 4F 2F 140404040E 3E 7D3F OF OF OF OF1 


*IiMe*eFr a 4~H20CaC #03 
SCC9OF1D45C D4C6F4D040F45FC8F 204C37CC3 TBF OF 34.040404040404040404040 


*Oo"™P*#2EQ0VYEK BPAROAQIIS “TXL2 


SCF OTFSCF 250D8F OE 8F 6D2C2D7 7CD9F OTC D8 4FF IF 54040404 0404040E2ZE 7D3F2 


Fs 3a *7a26 3 6 =" = 2 3% TxLoooode 
&07TETATC40 7DFT TCE 2F640F3F6 407E 7040 TEF 27440404040E 3E 703F OF OF OF OF 2 


* I M*MV4 4a31 Jil. Gow 
SCCSD0D45CD4E5 F4D040F 4 7CF ZF 3 40D1F 1 4B DOC 7E6 4040404 040404040404040 


* 1 ATS E Aagcs$ a] a TXL3 
TDE340D0C 1E37DC 540D0C1 7C F9C3 5 BDODOE6 7040704040404 0404040E3E 7D3F3 


@5a1%*401438234 1= 5 # TxtLoo0o003 
407CF57CF 1 7DF47CF 1 F4F 3F SF 2F3F440F 1 7E40F 5 7B8404040F 3E7D3FOFOFOFOF3 


*1?7M*M D4 4-. 02 +*# ae 
5CC96FD45C D4C4F4D040F4 5F 40 FOF 25040407C 70004040404 04 0404040404040 


A # * : 0a > AA> AAS TXL4 
4000C1785C40 7AFO7CD0406E40C 1C 1 6E40C1C 15E4040404040404040ESE7D3F4 


la** 2.3.8 TIi3sS5S7735@#8 1 TXLOOCO4 
FL7C7TF7F4070F 3 7D40F TELE SFSF 7E7F 3F 5 7B 7F 40F 1 404040E 3E7D3FOFOFOFOFS 


*1L+eMmen Tt 4 4a2*O08 BWZE ; 
5CC94ED45CD4E3 F4D04CF4 7CF2 700 47CDOC2E 66002 4040404040404040406040 


Q ~ {!>6B: BTre AR #84 " TXLS 
D8405F 404F GEF6C27TADOC 2E3 70054 0D0C 109 5CC 2F440404040404040E3E 7D3F5 


2*'*8*t2a2"%*243% 4 *al7438 TxtLo00005 
F270F870F 27CF2 7FF 2F4F 3 7DF4407D7CF 1 F7F4F 37C404040E SE 7D3 FOFOFCFOFS 


*DYM *#La3ZB< ZAr aka 0 5 
SCC4E8D45C03 7CF324C406CC 1 7E D040 7009 7C 40D6F 5404040404 0404040404040 
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OO7C 244 END ALDAAL ‘7-7 QAAOSS A 003 008B C075 0046 
| @ = AAADED A 003 008B 0076 0076 0151 
AAALOO A 003 O08E 0077 
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‘18M MAINTENANCE DIAGNOSTIC PROGRAM : PART NO. 2589644 78% HAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589644 
| PAGE 3 8 PAGE 3a 
OODAA ABSOLUTE LOADER - OODAA ABSOLUTE LOADER : 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CROSS-REFERENCE | 
236 © Bet Q 0-8. Gara Txt6 e SYMBOL 7 LEN VALUE DEFN REFERENCES 
237 * C.2D77D40D8D0C4606064040405AD0C 777 F 7040404040404 0404 04060E3ETD3F6 : 
228 * AAAO1LO A 001 0000 0033 0037 0038 0079 0081 0122 
239 * 3° *3a9a1591 5 F=25% 8 ™xt 00006 ° AAAO30 A 003 GO60 0040 0041 0123 | 
240 * £37F407DF37CF97CF F569 7DF 140F 5407EF 2F 57 DF 84040408 3E 103 F CFOF OF OF AAAOSO A CO& 0066 0046 007% 0084 
241 * AAAD6O A 003 0070 6049 C047 \ 
242 * o AAAOTO A 6O3 0079 0052 0048 
243 * AAAO8O A 003 O06D 0048 0164 
1 
{ 
{ 


£44110 A 003 0091 0079 0051 i 
| AAA130 A 003 O00A3 0086 0080 0109 Fe 
AAA150 A 004 OO0A6 0089 0103 

AMA1E0 A 003 OOAE 0093 006S* 0089% 0095 0165 

















o AAAL7O A 003 0088 0096 0095 : 
AAA180 A 004 OO0BB 0098 6094 0134 0135 i 
AAA1L90 A 004 OOCD 0104 0136 0137 
oO AAA210 A 003 OODB 0111 
AAA230 A 005 OOF] 0125 0138 0139 ol 
ap83.- C:« 001 «60057 «0149 = 
| ts aes. C«OO.s«C0SB «0148 «= 006 COOTER «aTC4e © 
ALDAAO A 001 0000 0002 : 
| ALDAA1L A 003 OO7C 0656 0031 0082 0126 0244 
QO B84 C 001 0000 0147 
CDND C001 0058 0130 0056 0148 0149 
COREND C 001 CITE 0163 
i o CORSIZ C GO1 0018 0160 0122 
. : END C 001 OOC5S 0141 0081 O111 
| FRADDR A 005 OOF5 0138 
i | @ FROM C OOL OO01A 0142 0125 
HDO C COL OO0DO 0144 0093 
. ERS HO4 C 001 0004 0166 0102 
‘ 6 H2A C 001 OO07A 0145 0096 
LENGTH C 001 0017 0158 0116* 0117 
LENI A 004 OOBC 6134 0086* 0091 0100* 0102 
j Go LEN2 A 0O& O0CO 0135 0091 : 
| LEN3 A 004 OOCF 0136 0071* 0105+ 
LEN4 A 004 0000 0137 
3 © _siLNADDR C 001 0019 0156 0115 0158 0160 
MINUS4 A 002 OOFA 0150 0107 ra Ned 
ONE C 001 0001 0146 
>} | O DNEC A 003 OOB2 0165 0089 0100 
PROC A003 0091 0151 
TEXT C 001 OOF3 0140 0079 
) oO THRE A 003 OO06E 0164 0105 
TOADDR A 005 OOF4 0139 0115* 
TRANS C€ 001 0019 0153 0113 
: o xR1 C 001 0001 0132 0041 0046 0046 0048 0049 0050 0056 0069 0071 0074 0076 O077 
0079 0080 0081 0082 0083 0084 0086 0089 0083 0091 0091 00¢3 
- re 0094 0095 0095 0096 0100 0100 0102 0103 0104 0105 0105 0107 
5 0 0109 O11] 0113 0115 0115 O126 0117 0122 0123 0126 
| XR2 C 001 0002 0133 0056* 0098 0098 6099 0099 0104 0107* 0117* 0125 
ZERO A 002 OOFC 0152 0074 
5 | 0 ZERGI C 001 C000 0143 0086 
“s | TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 ‘ 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOW 2589646 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589644 f£ 
> PAGE 4 2 PAGE 4A 
ae ; & 
5  TXLA oe **¢ # TEXT TO LIST PROGRAM * % e ™XiLL * « *¢ © TEXT TO LIST PROGRAN © 4% @ i 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
5 0000 2 START X*00* © 52 
3 DECK 4 6000 53 IN equ * INPUT BUFFER. 
4 SEQ 007 ite OO7C 54 PRT equ x*T7CFe OUTPUT BUFFER. § 
6 S EEE EKESEERSEEEEEESEEAEESHEESE SEES FE CESEAE SSE SEEHEES SSS ERS ES $4 CCESE EEE ESSE SE SoS O1AA 55 ORG X*1AA® 
: 6 *TITLE *TEXT TO LIST® * 01AA 0000 OlAB 56 ADIN DC AL2CIN) 
; 7* + : O1AC OO07C OlAD 57 APRT DC AL2(PRT) | 
e 8 *STATUS: CHANGE LEVEL 0100 * ° O1AE 58 TAB fQqu)* HEX TABLE. t 
9 *FUNCTION/OPERATION: TEXT TO LIST GIVES A LISTING OF THE OBJECT * O1LAE FOFLF2F3F4FSF6F? 0180 59 DC CL16°0123456789 ABCDEF * ' 
: 10 # DECK*®S TEXT AND END CARDS. THERE ARE TWO FORMATS, *A* AND *B*. # 01B6 FSF9TIC2C3C4C5C6 59 . 1 
d 11 * ®A® FORMAT GIVES A TWO LINE "HEX® LISTING FOR EACH CARD. *B* * 6 : 60 ; b 
12 * FORMAT GIVES A FOUR LINE LISTING FOR. EACH CARD: THE *HEX® LIST AND* : O1BE €1 O1BE 61 FSW DC CLitae FORMAT SWITCH. j 
13 * A FORMATTED CHARAC‘ER LIST OF THE CARD ITSELF. THE PROGRAM ACCEPTS*° Ol18F 615C O1CO 62 END OC CL2°see LAST CARD. i 
> 14 * ONLY TEXT AND END CARDS, IT REJECTS ALL OTHERS. IN THE *HEX® * © 01C1 0003 O01C2 63 THREE OC XL2*0003* i 
15 * FORMAT, CARD COLS. 2-89 ARE COMPRESSED 4/3 BY THE ABSOLUTE LOADER * 01C3 008 O1C4 64 GROVeP DC XL2*000B* HEX FORMAT COUNTER. i 
i 16 * INTO 66 BYTES. Tei HIGH ORDER 65 BYTES ARE LISTED AS 130 *HEX® # | (' 01C5 0901 O1C& 65 GONE oc XL2*0001° i 
9 17 * CHARACTERS. COL. 1 AND COLS. 89-96 ARE LISTED AS THEY. APPEAR GN * eo O1C7 00 - . O1C7 66 LNSW DC XL1*00° © HEX FORMAT 2ND LINE SWITCH. t - 
18 * THE CARD. THE *B*t FORMAT GIVES THE TWO *HEX* LINES AND A CARD * 01C8 OO7E 01C9 67 ADPRT OC AL2(PRT4#2) 
19 * IMAGE LINE PRECEDING EACH *HEX® LINE. FOUR CARD COLS. ARE MATCHED* OCA 0229 68 SAVE1 OS CL96 CARD IMAGE SAVE AREA. ‘ 
8 20 * WITH THREE COMPRESSED BYTES EXCEPT FOR THE LAST GROUP IN LINES * o 022A GO00B 0228 69 CNTR DOC ¥L2*0008* B FORMAT COUNTER. [ ji 
21 * THREE AND FOUR. HERE, THREE CARD COLS. ARE MATCHED WITH TWO + | 022C 00 022C 70 CHSW OC XL1*00° B FORMAT 2ND LINE SWITCH. ed 
22 * COMPRESSED BYTES. THIS IS A STAND ALONE PROGRAM. AT E-OeJdes IT * 022D o0000000 0230 71 HOLD OC XL4*00000000*" HOLD AREA FOR SENSING CONSOLE 1/0 SW 
6 23 * COMES TO A RESTARTABLE HALT — *EJ*. © * °o 72 e RS 
24 *ENTRY POINTS: * 0100 73 IMAG EQU x*1900° t 
25 * AHLAAL ~ THIS IS THE FIRST INSTRUCTIGN OF THE PROGRAM. * 0231 0100 0232 74 AIMAG DC AL2 (IMAG) { 
9 26 * : * So 0233 4200 0234 75 FORMLG DC XL2*4200* ; 
27 *INPUT: ANY NUMBER OF OBJECT DECKS. THE LAST CARD MUST HAVE ** IN + 0235 O07C 0236 76 AQUT OC AL2(PRT) - 
es 28 * COOLS. 1 AND 2. ees cOOl 77 XRI EQqU. 1 i 
° 29 * * | @ 0002 78 XR2 equ) 2 si 
30 *OUTPUT: FORMATTED LIST OF TEXT AND ENO CARDS. * 0008 79 ARR Equ. ss 8 wd 
33, * : - x i 
cS 32 *EXTERNAL ROUTINES? N/A} +} @ 
33 * * ; 
34 *EXITS-NORMAL: AT E.O.J. A RESTARTABLE HALT OCCURS. * ' 
© 35 * —ERROR: N/A. *} © { 
36 * + i 
37 *TABLES/WORK AREAS: SAVE] IS A HOLDING AREA FOR THE 96 BYTE CARD * i 
So 38 * IMAGE. « | © i 
me 39 * x i 
ne 4O #ATTRIBUTES: STAND ALONE. * 
@ 41 * * | Q : 
42 *% * i 
43 *NOTES: IT IS NECESSARY TO COMPRESS CARD COLS. 2-89 TO GET A VALID #* ¢ 
2) 44 * 4/3 COMPRESSION. HOWEVER, COL. 89 IS PART OF THE SEQUENCE DATA. * Oo } 
45 * SO, ONLY 65 OF THE 66 COMPRESSED BYTES ARE VALID AND LISTED IN +], a 
46 * fHEX® FORMAT. TO OBTAIN THE "B® FORMAT, THE RIGHT MOST DIAL*® | i 
6 47 * ON THE CONSOLE SHOULD BE SET TO 1 BEFORE HITTING START AFTER THE *# ae) vaitabata 
48 * TEE® *EE* HALT. ANY OTHER SETTING WILL OEFAULT TO *A®PRINT * | fo 
49 * FORMAT. * | 4 
oe 50 KAEKAKEKEKREKLKSEKEKAKKHESREKAKEREKEE KATHE KEKETHE SEHK ESEKEKRERAKESE ERE KKESKHKEKE | 6 , j 
yOu | _ { 
"ge 5 ° eat 
8 | 98 | 
6 ° 
~ eee 
c Oo 
@ o 
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i - 
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18M MAINTENANCE DIAGNOSTIC PROGRAM . =) PART NO. 2589644 IBM MAINTENANCE DIAGNOSTIC PROGRAM | : PART NO. 2589646 t 
. : PAGE 5 ® -* PAGE SA 
TXL1 *#** * TEXT TO LIST PROGRAM * * # i. TXLI * ** # ‘TEXT TO LIST PROGRAM ©¢ * © 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
® 6257 FO 7C TC 61 AHLAAL HPL = X®7C"%,X*7C® HALT TO PICK PRINT FORMAT 8 49 * | ' 
023A 31 E6 0236 B2 . LIO AUUT,X*£6* 0058 150 ass €Qu) 88 i 
O23E 31 E4 0232 83 t1o AIMAG ,X*E4* 0208 151 LEN FOU AA1L 841 i 
@ 0242 31 EO 0234 84 LIC fORMLG,X*EO* 9 O2DG 152 LEN2 EQU AA1S45 =. : i 
0246 30 00 0230 85 SNS HOLD,x*00* SENSE CONSOLE SWITCHES OZEF 153 LENS EQU AA1942 . 
024A 3A FO 0230 86 SBN HOLD,X*FO® O2FO 354 LENS EQU AAIS¢3 
« 024E 3D Fl 9230. 87 CLI HOLDsx*F1* DOES USER WAHT FORMAT B? ; © OOD0 255 HDO EQU x*DO® : i 
0252 F2 O01 04 88 JNE  AAIOO1 NO, FORMAT A READ CARD 002A 156 H2A EQU) = xX*2A° i 
ne 0255 3C C2 O1BE 89 MVI FSW,C'B* YES, SET FORMAT SWITCH TO 8 os 0000 157 B84  EQU x*ODF 
oq. 90 "8 0058 158 aD84 EQU x*58* 
91 } 0057 159 AD83. EQU xXx*57# 
0259 CO 87 0458 92 AAIO01 6 AAAKEX READ SECONDARY 0004 160 HO04 £QUuU 4 
¢ 025D CO 87 045F 93 8 AAAKWT WAIT ON READ ° 0000 161 ZERO EQU x*00* 
94 0309 FFFC 030A 162 MINUS& OC XL2°FFFC® 
0261 OD 01 0901 01CO 95 CLC =IN4#12),END TEST FOR | 0306 03 0308 163 THRE OC XL1*03° 
S 0267 CO 81 0450 96 BE AAZO15 LAST CARD. | o 630C O1 030C 164 GNEC DC XL1°01° 
C26B OC 5F 0229 OO5F 97 MVC SAVE1L(96).IN¢95 =~ SAVE CARD IMAGE ~ 0001 165 “pkop 1 Pte Ss - 
: oe | 0002 166 DROP 2 | i 
C 0271 3D E3 00900 99 CLI INsc*T® IF CARD IS NOT A TEXT 8 
0275 F2 81 24 100 JE AAIOLA OR END CARD, 
oa 0278 3D C5 0080 101 Cil IN,C*E* Peas 
© O27C -F2 681 1D. « 102 JE AAIOLA |. eh . : ° Z : 
O27F 3D D9 OC00 103 CLI INeCPRE CHECK 
0283 F2 81 16 104 JE AAIOLA FOR 
oS 0286 3D D2 0000 105 CLI IN,C*K® SPECIAL e 
028A F2 81 OF 106 JE AAIOLA LIBRARY 
028D 3D D1 0000 107 CLI IN,C#8J? CARDS 
CG 0291 F2 81 08 108 JE AAIO1A & 
0294 3D D3 0000 10S CLI INsCTL® BRANCH TO READ 
0298 CO 01 0259 110 BNE AAIOOl ANOTHER CARD. 
So 111 2 
112 
nae 029C 3D Cl O1BE 113 AAIOIA CLI FSW»CtA® IF PRINT FORMAT IS *B*, BRANCH 
¢ O02A0 CO O1 O3AF 114 BNE AADOO7 TO PRINT FIRST LINE B-FORMAT. e 
115 
eS 116 #THIS SECTION COMPRESSES CARD COL 2-89 FROM 4 TO 3 BYTE FORMAT. 5 
117 
0000 118 USING INel USE XR1 AS A BASE REGISTER im 
0000 1129 USING IN,2 USE XR1 AS A BASE REGISTER a 
Cc 02A4 C2 01 0000 120 AACOO2 LA IN,XR1 POINTING TO THE INPUT BUFFER. ' oO 
O2A8 D2 02 58 121 AALZ2 LA A88(_XR1L)_2XR2 | 
O2AB 3C 5S 02C9 122 MVI «= AAL642_X"598 ie oe ae 
C O2AF 3C 58 O2EF 123 MVI- LEN3, AD84 i Oo 
0283 3C 57 02FO 124 MVI LENG, AD83 
es 0287 3C 00 0208 125 AA13) = MVI_—s LEN, ZERO 
oO 02BB OF 00 02C9 030C 126 AALS SLC AA16#2(1),0NEC 1 Oo 
02C1 OC 00 O2DC 0208 127 MVC LEN2(1),LEN2 | 
02C7 7D DO 00 128 AA1l6 CLI *—-*(,XR1),HDO 
¢ 129 * 0 
02CA CO 01 0207 130 BNE AA18 
O2CE OC 00 02D6 02C9 131 MVC =AAL7#2(01),AA1642 a 
e 0204 7C 2A 00 132 AALT MVI  *-*(,XR1)eHZA o 
133 * \ 
0207 AE 00 00 00 134 AAIB ALC B84019XR2),8840—9XR2) 
© 135 * oO 
ies 02DB AE 00 00 00 ue ALC B84(1_.XR2) 58841 —4XR2) 
x i 
o O2DF OE 00 O2D8 030C 138 ALC LEN1(1),ONEC Oo 
139 * 
O2E5 3D 04 0208 140 CLI LEN1,HO4 
Cc O2E9 CO 82 0268 141 BL AA15 e 
OZ2ED 5C 02 58 57 142 AAI9 «MVC ADB4(3yXR1),AD83(9XR1) ps 
O2F1 OF OO O2EF 0308 143 SLC LEN3(1)_,THRE 
c O2F7 OE 00 O2FO 030A 144 ALC LEN4(1) »MINUS4 @ 
O2FD 36 02 030A 145 A MINUS 45 XR2 
0201 CO 01 0287 146 BNZ AAL3 
© 0305 CO 87 0300 147 B AACO2A 0 
148 * 
eo ° 
DATE 15JAN70 OOMARTO 17APRT7O PROG ID O’XL-1 DATE 15JAN70 O9MARTO 17APRT70 PROG ID OTXL-1 
EC NO. 816576 816638 816677 PAGE EC NC. 816576 816638 816677 PAGE 5A 
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ERR LOC OBJECT CODE 


TEXT TO LIST 


PROGRAK 


* 


PART ND. 2586644 
PAGE 6 


s % 


ADDR STMT SOURCE STATEMENT 


* THIS SECTION CONVERTS EACH COMPRESSED BYTE TO TwO HEX BYTES AND 


168 
169 * 
170 
: 171 
030D CO 87 O50é 172 AACOZ2ZA 
0311 OC 00 OOTC 0000 173 
0317 C2 01 O1AE 174 
0318 C2 02 0017 175. 
176 
O31F 28 02 0441 00 177 AADOO3 
0324 CO 87 0439 178 
0328 28 03 0441 00 179 
032D CO 87 0439 180 
: 182 
0331 E2 02 01 182 
0334 OF O1 01C2 01C6 183 
033A CO O01 O31F 184 
O33E€ 2C 03 Q1C2 185 
0342 OF O01 01C4 01C6 186 
0348 F2 81 OA 187 
03465 OF 01 0440 01C6 188 
035% €0 &? O3SrF 189 
190 
0355 30 00 01C7 191 AADOO4 
0359 €O O01 0427 192 
035D CO 87 O50A 193 AADO4A 
194 
03€1 CO 87 6506 165 
0365 CO 87 O50A 196 
197 
0369 3D 00 O1C7 198 
026D CO O01 0395 199 
0371 3C FF O1CT 200 
0375 3C OB 01C4 201 
0379 OC 01 0440 O1C9 202 
203 
O37F 3D Cl O1BE 204 
0383 CO 01 O3FD 205 
0387 CO 87 0506 206 AADO0G5 
038B OC O07 O0D2 0229 207 
0391 CO 67 0O31F 208 
209 
0395 3C 00 O1C7 210 AADOOE 
0399 3C CB O1C4 211 
0390 OC 01 0440 01C9 212 
213 
03A3 CO 87 0506 214 
O3A7 CO 87 O5SOA 215 
216 
O3AB CO 87 0259 217 
218 
O3AF CO &7 0506 21¢ AADOO7T 
0383 OC 00 OO7TC 0000 220 
O3B9 C2 01 0081 221 
O3BD C2 02 0004 222 
03C1i 6C 03 00 00 223 AADOC8 
0305 E2 02 04 224 
03C8 D2 01 O7 225 
O3CB OF 00 022B 01C6 226 
0201 CO 01 0O3C1 227 
0305 3D 00 022C 228 
0309 CO 01 0431 229 
230 
03D0 CO 8&7 OSOA 221 AADOSA 
232 
O3E1 CO 87 0506 233 
O3E5 CO 87 O5OA 234 
235 
DATE 15 JANT7O O9MARTO 17APR70 
EC NOw 816576 816638 616677 





FORMATS THE 


B 
MVC 
LA 
LA 


MNZ 
8 
MINN 
8 


ta 

SLC 
BNZ 
MVI 
SLC 


ALC 


CLI 
BNE 


CLI 
BNE 
MVI 
MVI 
MVC 


CLI 
BNE 


MVC 
MVI 


MVI 
VC 


PRINT AREA. 


WAIT WAIT ON PRINT 

PRT(1),IN MOVE CARD ID TO PRINT BUFFER. 

TAB,XR1 SET XR1 AS POINTER TO TRANSLATE TABLE. 
1N423,XR2 SET XR2 AS POINTER TO 1ST COMPRESSED BYTE 
AKEO1244,0(,XR2) TRANSLATE 1ST 4 BITS OF COMPRESSED BYTE. 
AAEOL1 

AAEO124450(,XR2) TRANSLATE 2ND 4 BITS OF COMPRESSED BYTE. 
AAEOL1 


LTC eaR2} gXR2 SET POINTER TO NEXT COMPRESSED BYTE. 


THREE (2), 0NE CHECK TO SEE IF PRINT FORMAT GROUP IS 
440003 COMPLETED. 

THREE »X*03°* RESET FORMAT COUNTER. 

GROUP (2),0NE CHECK TO SEE IF PRINT BUFFER IS FULL. 
AAD004 

AAEC124¢3(27,0NE ADJUST PIJINTER IN CUTPUT BUFFER. 
AADOOS BRANCH TD CONVERT ANOTHER BYTE. 
LNSW,X*O0* IF LAST LINE OF HEX FORMAT, 

AADIOA BRANCH TO INSERT BLANKS. 

EXEC PRINT 

WAIT WAIT ON PRINT 

EXEC PRINT A BLANK LINE 

LNSwWsX* 00° BRANCH IF LAST LINE FOR CARD 

AADOO0G HAS BEEN PRINTED. 

UNSW, X*FF# SET SWITCH AND COUNTER FOR FORMATTING 
GROUP »X*0B* LAST PRINT LINE FGR CARD. 
A£AEO1243(12)¢ADPRT SET UP PRINT BUFFER FOINTER. 
FSW,CTAt IF USING PRINT FORMAT-B, BRANCH TO 
AADOOS SET UP 2ND LINE OF CARD IMAGE. 

WAIT WAINT BEFORE PRINTING 

PRT+86(8),SAVE1 MOVE SEQUENCE DATA TO PRINT BUFFER. 
AADOO3 BRANCH TO FORMAT 2ND LINE OF HEX LIST. 


LNSW, X*00f RESET SWITCH AND COUNTER TO 


GROUP »X*OB* FORMAT 1ST LINE OF HEX LIST. 
AAEO1243(2),ADPRT RESET PRINT BUFFER POINTER. 

WAIT WAIT ON PRINT 

EXEC PRINT A BLANK LINE 

AATOO1 BRANCH TG READ ANOTHER CARD. 

WAIT WAIT BEFORE PRINTING 

PRT(1)_,IN MOVE ID TO PRINT BUFFER. 

PRT#5,XR1 SET XR1 AS POINTER TO PRINT BUFFER. 
IN44, XR2 SET XR2 AS POINTER TO CARD IMAGE. 
O(4,XR1),00,XR2) MOVE 4 BYTES OF CARD IMAGE TO PRINT BUFFE 
409XR2)_XR2 ADJUST CARD IMAGE POINTER BY 4 BYTES. 


70_¢XR1)_,XR1 ADJUST PRINT BUFFER POINTER BY 4 BYTES. 
CNTR(€1),0NE 

AAD008 BRANCH IF PRINT BUFFER NOT FULL. 
CHSWeX*00* 

AAD10B 

EXEC PRINT A LINE 

WAIT WAIT BEFORE PRINTING 

EXEC PRINT A BLANK LINE 


PROG ID OTXi-1 
PAGE 6 


| 


OD 0 02:0 000 0 0 


0 0 8 0:23 @ 


Oo 


' 
' 


Oo 92:9 


QO 


QO 


Oo Oo O0:: 9 


IB4 MAINTENANCE DIAGNOSTIC PROGRAM 


TX. . 


ERR LOC 


O3€9 
O3ED 
O3FI1 
O3F5 
O3F9 


O3FD 
0401 
0407 
0408 
O40F 


0413 
0417 
0418 
O41F 
0423 
0427 
0420 
0421 
0435 


0435 
0430 
0442 
0448 


044C 


0450 
0453 
6457 


0458 
O45F 
0463 


0467 
O46A 
046D 
0470 
0473 
0476 
0479 
047C 
O47F 
0483 
0487 
O48A 
048D 
06450 
0493 
0496 
O04¢6¢ 
049C 
O49F 
04A3 
O04A6 
O4AS 
O4AC 
OGAF 


DATE 
EC NO. 


rte, ee erm seme “Street ARIE SEE Aen aid eS co et NERS Mh ew ene Tia EE ne i BE RE Na eae ete ga ma tg RT a a 


a at i tat Sl ee 


RESET SWITCH AND COUNTER TO INITIAL 
FOR B-FORMAT ROUTINE. . 
SET XR1 AS POINTER TO TRANSLATE TABLE. mo 

SET XR2 AS POINTER TO 34TH COMPRESSED BYT - 
BRANCH TO FORMAT 2ND LINE OF HEX LIST. 


STATUS 


BLANK OUT LAST COMPRESSED BYTE. 


BLANK OUT CARD 


PART NO. 
PAGE 


2 Oe aaranygeecam ents 


2589644 
6A 


If 2ND LINE OF CARD IMAGE HAS BEEN PRINTE 
BRANCH YO RESET ROUTINE. 
SET COUNTER AND SWITCH FOR 2ND LINE 
OF CAFD IMAGE IN B-FORMAT. 
BRANCH TO CARD-COMPRESSION ROUTINE. 


WAIT BEFORE PRINTING . ‘ 
MOVE SEQ CATA TO PRINT BUFFER. 
SET XR1 AS POINTER TO PRINT SUFFER. 
SET XR2 AS POINTER TO CARD 


IMAGE. 


BRANCH TO FORMAT 2NO LINE OF CARD IMAGE. 


IMAGE OF LAST 


CCMPRESSED BYTE. 


*® THIS ROUTINE TRANSLATES A 4—-BIT BINARY STRING INTO ITS "HEX? ECUIV. 


* **@ TEXT TO LIST PROGRAM * © @ 
OBJECT CODE ADDR STMT SOURCE STATEMENT 
30 GO 022¢ 236 CLI CHSW,x*00*# 
CO 01 0413 237 BNE  AAD010 
3C C8 0228 238 MVI CNTR, X"08* 
3C FF 022C 239 MMVI CHSWe X*FF® 
CO 87 0244 240 B AAC002 
241 
242 m 
CO 87 0508 243 #AD009 B WAIT 
OC O07 OGD2 0229 244 MYC PRT+86(8),SAVEL 
C2 01 0081 245 LA PRT4+5qXR1 
C2 02 OFA 246 LA SAVE1~47, XR2 
CO 87 03C1 247 8 AADOOS 
248 
3C 00 022C 249 AADOIG MVI _CHSW_X*00° © 
3C 08 0228 250 MVI «CNTR, X*0B* 
C2 Ol OLAE 251 LA  —- TAB, XR1 
C2 02 0038 252 LA 1N4+56 yXR2 
CO e7 0387 253 8 AADOO5 
OC 01 00C9 0070 254 AADLOA MVC PRT#77(2),PRT41 
CO 87 035D 255 8 AADOGA 
3C 40 00C7 256 AADIOB MVI = PRT#754X"408 
CO 87 O3DD 257 B AADOBA 
258 
259 
. 260 
34 08 0448 261 AAEO11 ST AAEO13+3, ARR 
1C 00 O¥7E 00 262 AAEO12 MVC = PRT#2(1),*-*0,XR1) 
O£ 01 0440 01C6 263 ALC &&EO1Z+3(2),0NE 
Co 87 OCOD 264 AAEO13 B ++ 
265 
Co 87 0259 266 AAFO14 B AAIO01 
267 * TEST 
268 * SIGNALS "Be 
26S 
FO 7C 63 270 AAZOI5 HPL X*63*,X*7C* 
3C Cl O1BE 271 MVI -FSW,CPAS 
CO 8&7 0237 272 8 AHLAA1 
273 
274 
3C 80 0471 275 AAAKEX MVI  AAAO20+1,AAAK80 
34 02 0482 276 AAAKWT. ST AAA050#3,XR2 
C2 02 0467 277 LA AAA000, XR2 
0467 278 USING AAA000,1 
0467 279 USING AAA000,2 
B4 08 IF 280 AAAQOO ST AAA06043(42) ARR 
F1 FS 00 281 AAAO]O APL AAAKF9 
El F8 20 282 TIO AAAOT0(¢2),AAAKFS 
F2 87 09 283 AAAO20 J AAAG40 
Bl F5 99 284 AAAO30 LIO AAAKRD(,2)9X*F5° 
F3 F9 00 285 SIO =X" 00° »X*FOF 
El F8 20 286 TIO AAAO7T0( 2) pAAAKFB 
BC 87 OA 287 AAA0NGO MMVI AAAD2Z041( 52) sAAAKB7 
C2 02 0000 288 AAAOSO LA #-+*XR2 
CO 87 0000 289 AAAD6O B t—* 
BC 76 47 290 AAAO7O MVI  AAA10042192)yX" 768 
Fl F9 00 291 APL AAAKE9 
80 F3 9B 2°22 AAAOBO SNS AAAKSN( 92) pAAAKF3 
B8 02 °B 293 TBN = AAAKSN(52) »AAAKFC 
F2 10 22 294 JT AAA120 
B8 40 9B 295 TBN  AAAKSN€_2) pAAAK4SO 
F2 10 10 296 JT AAA100 
BS O7 9B 297 TBF  AAAKSN(_2) sAAAKOT 
CO 90 O48D 298 BF AAAOBO 
88 80 9B 299 TBN —- ARAKSN(.92) pAAAKRC 
£0 90 09 300 BF AAAOZ0{ 92) 
BC 57 47 301 AAAOSO MVI = AAA1L00+2(92)_X*57® 
FO 3C 00 302 AAA100 HPL *-#,X*3C? 
Bl F5 99 303 AAALIC LIQ AAAKROG,2)9X*F5* 
15JANTO O9MAR7O 17APRT7O 
B1lE576 816638 816677 


THIS IS A DUMMY ERANCH TO COMPLETE THE 
ROUTINE USED IN PLACE OF A CHECK FOR THE CONSOLE SWITCH 
PRINS FORMAT. 


THAT 


HALT. 
RE-INITIALIZE FORMAT SWITCH 
GO RESTART PROGRAM. 


SET WAIT EXECUTE CALL SWITCH 
SAVE XR2 
LOAD BASE 


SAVE RETURN 


TEST FOR NGT READY 

WAIT/EXEC CALL SWITCH 

LOAD FOR SECONDARY. READ 
INITIATE READ 

TEST FOR NOT READY 

RESET EXEC CALL SWITCH 
RESTORE XR2 

RETURN 

HALT 2 FCR HOPPER CHECK 

WAIT FOR ALL I/G TO COMPLETE 
STCGRE STATUS INDICATORS 

TEST FOR FEED CHECK 

YES - GO TO FEED CHECK ERP 
TEST FOR HOPPER CHECK 

YES - GO TO HOPPER CHECK ERP 
IS COUNTER ZERO? 

NO LOOP UNTIL CARD MOTION STOPS 
TEST FOR READ CHECK 

ND ERROR 

HALT 3 FOR READ CHECK 

HALT FOR READ OR FEED CHECKS 
LOAD FOR SECONDARY READ 


PROG ID 
PAGE 


OTXt-1 
6A 


#eoe oegeo@e@ae@eeoee8 oe eee evgeeceeeedee eee @ 





wr 


“wr 


+ 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


 TXL1 
ERR LOC 


0482 
0485 
0488 
OGEB 
O4EE 
04(1 
0404 
04C7 
O4CA 
04CD 
04DO 
04D3 
04D6 
04D9 
040C 
O4DF 
O4E2 
O4E5 
O@EB 
O4EB 
O+EE 
O4F3 
O4F6 
O4F9 
O4FC 


O4FF 


0501 


0503 
0504 
0505 


0506 
C50A 
O50E 
0511 
0515 
0519 


0510 
0520 
0523 
0526 
0529 
052C 
0530 
0534 
0537 
O53A 
0530 
0540 
0543 
0547 
054A 
O54E 
0551 
0554 


DATE 
EC NO. 


TEXT 10 LIST PROGRAM 


*2 + £ se & 

OBJECT CODE ADDR STMT SOURCE STATEMENT 
F3 F9 00 304 S10 = X*00*%,x*FOF 
£0 87 03 305 B AAAOQ10(,2) 
FO 3C 03 296 AAAL20 HPL X*03*%,X*3C® 
BC 76 73° 307 MVI = AAA 130410929 _X* 76° 
BC 02 9D 308 MVI | AAAKCT(09299X"02° 
B8 902 9A 309 TBN AAAKSN-1(,2),X*°02! 
F2 10 12 310. JT AAA130 
BC 91 ¢©D 311 MVI = AAAKCT(42)5X*01° 
BC 93 73 312 AAALZ5 MVI = =AAA13041(52)2X"03* 
BS8 31 9A 313 TBN AAAKSN-1052),AAAKOL 
F2 10 06 314 JT AAA130 
FO of 6F 315 HPL X"6F'sX*EF® 
EO 37 48 316 B AAAL10(42) 
FO 70 18 317 AAAL30 HPL = X*1B",*-* 
F3 0 00 318 AAAI14O SIO ¥*00*,x*t7* 
BO <3 98 319 AAAL50 SNS. AAAKSN(.2),AAAKF3 
B9 97 96 320 TRF AAAKSN(,2) ,AAAKOT 
F2 0 06 321 JST AAA160 
£1 FO 92 322 TIO — AAA170(92) sAAAKFO 
£0 J7 78 323 8 AAA1506¢2) 
8F 00 SD 0505 324 AAA1L6O SLC AAAKCT(1,2),AAAONE 
£0 31 48 325 BZ AAA110(42) 
£O 87 75 326 B AAA140(,2) 
FO 3C 03 327 AAAL7O HPL = X*03*,X*3C* 
£0 87 63 328 B AAA125(42) 

OOFS 329 AAAKFS EQU X*FOF 

Q0007 330 AAAKOT EQU xXK*OT® 

OOFO 331 AAAKFO EQU = X*FO! 
0000 0500 332 AAAKRD DC AL2( IN) 

OOF8 333 AAAKF8 EQU = X*FBF 

0047 334 AAAKS7 ECU xX*8T7* 

0080 335 AAAK80 EQU  xX*8BOF 
0000 0502 336 AAAKSN OC XL2*0000! 

0001 337 AAAKO] EQU = xX?O1* 

OOF3 338 AAAKF3 EQU = X*F3 

0002 339 AAAKFC EQU = xX*'02° 

0080 340 AAAKRC EQU = X*BO* 

C040 341 AAAK40 EQU xX'40F 
00 0503 342 AAAKSW DC XL1*OO* 
oo 0504 343 AAAKCT DC XL1"00* 
01 0505 344 AAAONE DC xL1"o1 

345 

3C 80 0521 346 WAIT MVI  JUMP+1,X*80* 
3C 80 0£38 347 EXEC MMVI PAGE+1,X"80* 
F2 87 04 348 J CONT 
3C 87 0538 349 OVERFL MVI PAGE+1,X*87* 
34 02 O52F 350 CONT ST RES TOR+6¢XR2 
C2 02 051D 351 LA AAAAALXR2 

051D 352 USING AAAAA,s1 

0510 353 USING AAAAA,2 
B4 08 16 354 AAAAA ST EXIT#3(92) ARR 
F2 87 11 355 JUMP J CONTIN 
Fl E2 00 356 APL X*E2¢ 
—l EO 40 357 CHECK TIC ERROR(,2),X*E0® 
BC 87 04 358 RESTOR MMVI JUMP+1(.2),X"87* 
C2 02 0000 359 LA #*—*yXR2 
CO 87 0000 360 EXIT 8 +—* 
Fl £6 00 361 CONTIN APL X®*E6* 
El £0 40 362 SENSE TIO ERROR(,2},X*EO® 
F2 87 OD 363 PAGE J OVER 
BO £0 COD 364 SNS  CARRGE(,2)sX*EO* 
BD 3c CC 365 CLI CARRGE-1(,2)-2X*3C* 
AC 01 39 CF 366 MVC = START4#2(292) 9DTF( 92) 
F2 82 GA 367 JL START 
AC 01 39 D1 3268 COVER MVC START#2(292),ABC( 42) 
BC 87 1E 369 MVI = PAGE#1092)5X°87* 
BO EO CD 370 SNS  CARRGE(,2),X*EO* 
F3 00 00 371 START SIG X*00*%,xX*O0* 
15JANTO O9MARTO 17APRT0 
816576 816677 


816638 


PART NO. 


‘PAGE 


RETRY READ 
RETURN 


2589664 
7 


DISPLAY F1 FOR FEED CHECK 


DISPLAY 24 
SET COUNTER TG 2 


SEE IF 2 CARDS PAST WAIT 


SET COUNTER TO 1 
DISPLAY 14 


SEE IF 1 CARD IN TRANSPORT 


HALT 


1S COUNTER ZERO? 


FOR NO CARDS PAST WAIT 


HALT FOR 1 OR 2 CARDS PAST WAIT 
ISSUE FEED ONLY 


TEST FOR F.C. DURING F.C. 


SUB 1 FROM SOFTWARE COUNTER 


TF COUNTER IS ZERO, 


THEN READ 


GTHERWISE OO ANGTHER FEED 


HALT FOR F.C. 
RETURN TO SECOND HALT 


SET WAIT/EXECUTE CALL 


SAVE XR2 

LOAD BASE 
ESTABLISH BASE 
ESTABLISH BASE 


DURING F.C. 


AND CONT. 


SWITCH 


WAIT/EXECUTE CALL SWITCH 


WAIT ON PRINT 


RESTORE XR2 
RETURN 
WAIT ON PRINTER BUSY 


BUFFER BUSY 


STORE CARRIAGE LINE LOCATION 
SEE IF GVERFLOW CONDITION 


MOVE IN FUNCTION 
IF NOT OVERFLOW PRINT 
MOVE IN SKIP FUNCTION 


INITIATE 1/0 COMMAND 


PROG ID 
PAGE 


AND CONTROL 


& SPACE 1 
& CONTROL 


OTXL-1 
7 


——- 


ace sR nent eaten ei see 


2 0 00:0 00 0 


Sc Rane ne his lO eee a I Re LE em? tame gale einer ale: 


6 


o 8 868 @: 


0 00 8@:008000 0 0: 


e 
¢ 


0 0 9O Oo: 


' 
' 
u 


o 9 





TBM MAINTENANCE DIAGNOSTIC PROGRAM 


TXL1 
ERR LOC 


6557 
055A 
0550 
0560 
0563 
0566 
0569 
056C 
056F 
0572 
0576 
0579 
057C 
OS7F 
0582 
0585 
0588 
0588 
O58E 
0592 
0594 
0597 
O5SA 
059D 
O5A0 
O5A3 
O5A6 
O5A9 
o5aD 
0580 
05B3 
05B6 
0589 
O58C 
05C0 
05C3 
05C6 
05C9 
o5CC 
O5CF 
0502 
0505 
0508 
05DB 
O5DE 
O5E1 
O5E4 


O5E7 
O5E9 
OSEB 
O5€D 


DATE 
EC NO. 


e* +t & 


CBJECT CODE 


El 
£0 
B4 
80 
BS 
89 
F2 
BD 
EO 
co 
85 
BC 
BS 
F2 
BC 
BB 
F2 
6C 
89 
F2 
8c 
B8 
F2 
BB 
8c 
89 
F2 
AC 
BC 
BC 
FO 
88 
F2 
Ac 
F3 
Fl 
€1 
B88 
BB 
£0 
8D 
EO 
EO 
FO 
B8 
£0 
EO 


£0 
87 
08 
£3 
EO 
F6 
90 
87 
81 
87 
08 
5D 
CO 
90 
7D 
10 
10 
TF 
06 
90 
07 
20 
10 
02 
03 
co 
90 
00 
E4 
57 
3E 
20 
10 
01 
00 
£6 
£0 
20 
20 
10 
87 
81 
87 
3E 
01 
10 
87 


0000 
0000 
E201 
E606 


40° 


oc 
58 
CB 
cB 
CA 
OA 
04 
1D 


0000 


cB 
co 
cB 
59 
98 
CA 
28 
98 
CA 
1F 
co 
cB 
3E 
38 
98 
CA 
OA 
AS 
AS 
98 
00 
CA 
04 
A5 
oo 
00 
40 
CA 
CA 
oF 
04 
id 
oc 
00 
CA 
37 
55 


15JAN70 


816576 


cc 


39 





TEXT TO LIST PROGRAM 





e*¢ 


ADDR STMT SOURCE STATEMENT 


OLAA 
O5E8 
OSEA 
OSEC 
OS5SEE 


0237 


OSMARTO 


816638 


372 
373 
374 
375 
376 
377 
378 
379 
386 
381 
382 
382 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
3¢°¢ 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
#22 
423 
424 
425 


ERROR 


RETURN 
LOAD 


HALT2 


REPEAT 
RESIO 


HALT1 


CCMMON 
STATUS 
CARRGE 
OTF 
ABC 


1T7APRTO 
816677 


T10 
B 
ST 
SNS 
TSF 
TBF 
JF 
CLI 
BE 
B 

t 
“VI 
TBF 
JF 
MVI 
TBN 
JT 
MMVI 
TBF 
JF 
MVI 
TBN 
JT 
SBF 
MVI 
TBF 
JF 
MVC 
VI 
MVI 
HPL 
TBN 
JT 
MVC 
Sic 
APL 
TIO 
TBN 
SBF 
BT 
CLI 
BE 


HPL 
TBN 
BT 


EQU 
DC 
oC 
DC 
oC 


END 


ERROR (, 29 4X*EO® 
RESTOR( .2) 
RETURN+3 (92) pARR 
STATUS(.2),X*E3* 
STATUS (92) ,X*EO* 
STATUS—1( 42) .X*F6® 
LOAD 
JUMP41(,.2) .X*87*® 
PAGE(,2) 

++ 

STATUS( .2),ARR 
HALT142(.2),.X*5D°* 
STATUS(22)_X*CO* 
HALT 
HALTZ4+2(22) 9X* 7D* 
STATUS- 1052) »X*10* 
HALT2 : 
HALT242(,2)4X*7F*# 
STATUS—10,234X*06* 
HALT2 

HALT142(,.2) X*07* 
STATUS4s2)5X*20° 


_HALTI 


START4#1(92)5X*O2* 
HALT242(.2)4X*'03* 
STATUS—1042),X"*CO® 
HALT2 

RES J04#2(1,2} 4CARRGE-1(,2) 
RESIO4+1(42) sX*E4* 
HAL T242(—¢2)—4X°57* 
*-*,X*Z3E* 
STATUS-1€,2) .X*20! 
RESIO 

RES 10421242) -¢STARI+21,2) 
X*00",X*00* 

X*E6* 

ERROR (92) 2X*EO* 
STATUS-1€52)_,X*20°* 
STATUS—10,2)_2XK* 20° 
REPEAT(,2) 
JUMP+10,2)¢X*87* 
PAGE(.2) 
RESTGR{(,2) 
*-*,X*3E* : 
STATUS—1€92) 2X* 01" 
START(,2}3 
RETURN(,2) 

X*O1LAA® 

XL2°0000* 
XL2*0000° 
XL2*E201° 
XL2*E606" 


AHLAAl 





eae iets: aa eit sae “Naeye en oe” Aeags Aeblin ilete ! abnss she Nit ine RE Rime on anata “ean eam Gana ee li BE” Naar rset ARLE eta Name Rae i ine i NS ee TR lA Ne RR ll i SEN Sn i i iS ee a Ri Giga a i tir ie ERE OE Na 
poner 7 5 ami a sti tat” Aon mae! * ‘ 


PART ND. 
PAGE 


2589644 
Ta 


pe meee cic nee een a eer ee ee amr SEE IRE Rg NEE ETE! Taf UTE 


LOAD STATUS INTO ARR i 


TEST FOR SYNCH CHECK 


TEST FOR INCR FAILURE CHECK 


TEST FOR PRINT CHECK 


TEST FOR THERMAL CHECK 


MASK CFF PRINT FUNCTION 


TEST FOR CARRIAGE CHECK 


MOVE IN CONTROL 
MOVE IN SKIP ONLY FUNCTION 


TEST FOR EXEC CALL ‘ : 


PROG ID 
PAGE 


OTXL—-1 
7A 





epee nin el RR RE RT I eM Ga oe, natn eit peeanl ili ave A ater ns AAG ani sate Able Neca a ia hs ee es te Ng tach ith EEO OO te ee NS Be ene “cee Nima san teemeiy thane: wit nn On ee eerie eerie 


Sa 


ky 


a 


7 


Vw 


od 


rd 
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TXL1 * ** * TEXT TO LIST PROGRAM * # # ‘ 
CROSS-REFERENCE 
SYMBOL T LEN VALUE OEFN REFERENCES 8 
AAAAA A003 0510 0354 0351 0352 0353 rae 
AAAKCT & 001 0504 0343 0308* 0311* 03249 oe 
AAAKEX A 004 0458 0275 c092 
AAAKFC C 001 0002 0339 0293 
AARKFO € 001 OOFO- 0331 0322 | 9 
AAAKF3 C 001 OOF3 0338 0292 0319 
AAAKF& C 001 OOF8 0333 0282 0286 
AAAKFO C 001 GOF9 0329 0281 0291 . O 
AAAKRC C O01 0080 0340 0299 
AAAKRD A 002 0506 0332 0284 0303 
AAAKSN A 002 0502 0336 0292* 0293 0285 0297 0299 0309 0313 0319* 0320 o 
AAAKSW A 001 0503 0342 
AAAKWT A 004 045F 0276 0093 
AAAKO] C 001 0001 0337 0313 QO 
AAAKOT C 001 0007 0330 0297 0320 . 
AAAK4C C 001 0040 0341 0295 
AAAK80 C 001 0080 0335 0275 CG 
AAMKB7 C 001 0087 0334 0287 
AAAONE A 001 0505 0344 0324 a 
AKACOO A 003 6467 0280 0277 0278 6279 i So 
AAA0L0 A 003 046A 0281 0305 
AAAO20 A 003 0470 0283 0275* 0287* 0300 E 
ALA030 A 003 0473 0284 tO 
AALO40 A 003 O047C 0287 0283 5 
AAAO50 A 004 O47F 0288 02 76% . 
AAAO60 A 004 0483 0289 0280* 7 oO 
AALOTO A 003 0487 0290 0282 0286 
AAAO8O A 003 048D 0292 0298 
AAAOSO A 003 0449 0301 ° 
AAALOO A 003 O4AC 0302 0290* 0296 0301* 
4AA110 A 003 O4AF 0303 0316 0325 Da 
AAAi20 A 003 0488 0306 0294 Go 
AKA125 A 003 O4CA 0312 0328 
AAA130 A 003 04DS 0317 0307* 0310 0312* 0314 
AAA140 & 003 O04DC 0318 0326 QO 
AAA150 A 003 O04DF 0319 0323 
AAA1L60 A 005 O4EE 0324 0321 
AAA1TO A 003 04F9 0327 0322 og 
AACOO? A 004 0244 0120 0240 
AACOZA A 004 030D 0172 0147 
AADOO3 A 005 O31F 0177 0184 0189 0208 oO 
AADO04 A 004 0355 01°1 0187 
AAD005 A 004 0387 0206 0253 ane 
AADO006 A 004 0395 0210 0199 C 
AADOOT A 004 O3AF 0219 0114 
AADOO8 A 004 0O3C1 0223 0227 0247 
AADOIS A 004 O3FD 0243 0205 G 
AADULO A 004 0413 0249 0237 
AADOSA A 004 035D 0193 0255 
ASD08A A 004 0O3DD 0231 0257 Ce 
AADLOA A 006 0427 0254 0192 
AAD1LOB A 004 0431 0256 <* 0229 
AAEO1]L A 004 0439 0261 0178 0180 _ 0 
AAEO12 A 005 0430 0262 0177* 0179%* 0188* 0202* 0212* 0263% { 
AAEQ13 A 004 0448 0264 0261* fog 
AAFO14 A 004 044C 0266 , C 
AAIOO] A 004 025¢ 0092 0088 0110 0217 0266 
AAIOLA A 004 029C 0113 0100 0102 6104 0106 02108 
AAZ015 A 003 0450 0270 0096 G 
AA12 A 003 O2A8 0121 
AA12 = A «0U4)S«—02B7. 0125 0146 
AALS A 006 O28B 0126 0141 Cc 
AAl6 = A 003-)-«02C7 =—0128 0122* 0126* 0131 
AA17) = =& 003 0204 0132 0131* 
AAl8 A 004 0207 0134 0130 0151 0152 ° 
AA1I9) =A 004 «=O2ED «0142 0153 0154 ae 
G 
DATE 15JAN70 OSMARTO 17APR70 PROG ID CTXL-1 
EC NO. 816576 816638 816677 PAGE 8 
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TXL1 


SYMBOL 


ABC 
ADIN 
ADPRT 
AD83 
ADB4 - 
AHLAAL 
AIMAG 
AQUT 
APRT 
ARR 
A88 
B84 
CARRGE 
CHECK 
CHSW 
CNTR 
COMMON 
CONT 
CONTIN 
DIF 
END 
ERROR 
EXEC 
EXIT 
FORMLG 
FSW 
GROUP 
HALTL 
HALT2 
HOO 
HCLO 


- HO4 


H2A 
IMAG 
IN 


JUMP 
LEN] 
LEN2 
LEN3 
LEN4 
LNSW 
LOAD 
MINUS4 
ONE 
ONEC 
OVER 
OVERFL 
PAGE 
PRT 


REPEAT 
RESIO 
RESTOR 
RETURN 
SAVE 
SENSE 
START 
STATUS 


TAB 
THRE 
THREE 
WAIT 
XR1 


DATE 
EC NQ. 


rPPrPrPrpPprPrp OPPrPPrPpP rrr rPprprp 


Op, Ppp Pp 


POAOAOPAOP PrP rPrP PPP PP PP POP PP RPOAM RPP LPOAP Pb of 


Ree Rie neti ane a eel NES “Eta sent 


** 22 
LEN VALUE DEFN 
OC2 OSEE 0423 
002 O1AB 0056 
002 O1CS9 0067 
001 0057 0159 
001 0058 0158 
003 ©0237 0061 
002 0232 0074 
002 0236 0076 
002 O1AD 0057 
001 o008 6079 
001 OO5SE 0150 
001 0000 0157 
002 OS5EA 6421 
003 0526 0357 
001 022C 0070 
002 0228 0069 
001 O1AA 0419 
004 0515 0350 
003 0534 0361 
002 O5EC 0422 
002 01CO 0062 
003 0550 0374 
004 O50A 0347 
004 0530 0360 
002 0234 0075 
001 O1BE co6l 
002 O01C4 0064 
003 O5DB 0415 
903 0583 0402 
001 0000 0155 
004 0230 0071 
001 0004 0160 
001 002A 0156 
001 ©6100 0073 
001 0000 0053 
003 0520 0355 
004 0208 0151 
004 02DC 0152 
C04 O2ZEF 0153 
004 O2FO 0154 
001 O01C7 0066 
003 0576 0382 
002 030A 0162 
002 01C6 0065 
001 030C 0164 
004 054A 0368 
004 O511 0345 
003 053A 0363 
001 CO7C 0054 
G04 O5BC 0405 
003 O05CO 0406 
003 0529 0358 
004 0572 0381 
0S6 0225 0968 
003 0537 0362 
003 0554 0371 
002 OS5E8 0420 
001 O1AE 0058 
091 0308 0163 
002 01C2 0063 
004 0506 0346 
001 0001 0077 
15JAN70 O9MARTO 

816576 816638 





TEXT TO LIST PROGRAN 


CROSS-REFERENCE 


REFERENCES 


0368 
0202 0212 
0124 0142 
0123 0142* 
O272 9425 
0083 
0G82 
0261 0280 0354 
0122 
0134 0134* 0136 
0364* 0365 0370* 
0228 0236 0239* 
0226* 0238* 02504 
0348 
0355 
C366 
0095 
0357 0362 0372 
0193 0196 0215 
0354* 
0084 
0089* 0113 0204 
0186* G201* 0211* 
0383* C3285 0392+ 
0386* 0388 038¢% 
0128 
CO85* 0086* 0087 
0140 
0132 
GOT74 
0056 0095 0097 
0173 0175 0220 
0346* 0358* 0375 
O125% C127 0138* 
O127* 
C123* 0143+* 
0124* C144* 
0191 0198 0200* 
0378 
0144 0145 
0163 ©0286 0188 
0126 0138 
0363 
0347* 0349* 0369% 
0057 0067 0076 
0262* 
0411 
O03S¢S* 0400* 0404 
0350# 0373 0414 
0374* 0418 
O09T* 0207 0244 
0366* 0367 0368% 
0375* C376 0377 
0416 
0174 O251 
0143 
0183* 01854 
OQ172 0195 0206 
0120* 9121 0128 
C251* 0262 

17APR7O 

816677 


0@#oee7eed ® 
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SEER PO 


PART ND. 2589644 
PAGE - 8A 


*¢ & 


pepeteesie ti egucel caida Nal oe Abt oe 


poe me Re te 


0374 0382 


0136% 
0399 | 


0249% 


0408 
0231 0234 


O271* 


0394 
03S1 0356* 0398 0401* 


oo3s9 0101 0103 0105 O107 0109 0118 O11¢ 9120 
0222 0252 0332 

0412 

0140 


0210* 


0226 0263 


0380 0413 : 
0173* 0207* 0220% 0221 0244* 0245 0254 0254* 0256+* 


0405* 
0246 


03¢5* 0405 0417 
0362 0384 0387 0390 0393 0397 0403 0409 0410 


0214 0219 0233 0243 
OL32 0142 O142 0174* 0221*% 0223 0225 0225% 02454 
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TXL1 ¢ #¢ * TEXT TO LIST PROGRAM * 2% 


CROSSREF ERENCE 


PAGE 


2589644 
$ 


0182¢ 0222+ 


PROG ID 
PAGE 


SY4BQL T LEN VALUE CEFN REFERENCES 
XR2 C 001. 0002 0078 0121* 0134 0134 0136 0136 0145* 0175* o177 0179 0182 
, 0223 0224 0224* 0246* 0252* 0276 0277* 0288* 0350 0351* 0359% 
. ZERO C 001 OOOO 0161 0125 , 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
DATE 15JANTO OOMARTO 17APR7O 
EC NO. 816576 816638 816677 


OTXL-1 
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° 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


TK 


THE CHARACTER 


CL 1 THROUGH 16 


TGOGI ~{C1e7} 


ee eeseeeene 


T+-1U D 
T+-+H-= #C -&JECE@ 


-_— @ oe 
Tt+-.£0 CC,aHA C 


T4-< Nem 8 = 


TH(£ <HA ERB - 


T+-+.CH*CG34 


T+-1FAOCK SX /0< 


T+-EAACHAADD SZ 


T+-&@A0CK SXB &B 


= eo es 


a~ + &J 


T+-J76_ 
T4+-K2 +68H.26B 2H 
T+-L_=6C-s0lol + 
T4—-MYTOB) ASP——MT 


T4-NT?7H*DO-H <5 








CL 


4°-$7= | XA0Z1D1*S 


&- -~fAa~CGw TQ 


BHEASI3<  IHAICT 


K V-a0t.1 | E-8#31 


CCC4D _T —-H#P 1 


= 
. —=—* 


PH HDEEC /0E9H < 


e 


=~] 


A130. *&< EJ 


A1Z A aD* HO D 


AQ-HA=Z8G aDa H 


*$ /0 OH*BO7A 
B C /0 ?6RGa-uU 
a)X+a 268 Z»2DAH 


-/TPOI 1-76< 


G C19-C/80C2/06 


EEXOH*EBZBGALS 


e**% & TEXT TO LIST PROGRAM * © © 


OBJECT CARD LISTING. 


AGNO © - OD GB 


1S H2<3 BIC T 
E C2-J4*6& aYD 


P 2a .QcO B2&< 


QNO@ >aCcBOs8 7? 


DEEC /0&98—-HAC OD 


7OMHIE Ala A OM 


*X /JOMFOH*EBZB 


D<#8GAE, /OMFOH* 
Z\ ZeHAaHA E#B — 


@Q33A $# /OHTIH 


Zl+$> H$a/ S>DB 


@ R6A 7+8 Re2D $ 


AlH EHL2 4L? 


08<6*(<2% LX{aYH 


T4-D38<>9'Z_e2U D */OL--JT /O0 _ET -~?ET >*C-aZAR?G6 
T4-PREOCWeX 27H EBDO Z*Z2O9HKANST O1-BBH< 22D KZ EM 
TE P>C}] = .-A2> &(=BGNE cS 3Q F 

E T)#E7*#=.DC"FHS ="7MEFL fC FZ ASC OR A 
eet pa LAST 
CATE 15JAN70 OOMARTO 17APR70 

EC NO. 816576 816638 816677 


:@ HO}-~DB<{HAAC3 
OL)H PHAC3TS C 
<C 87 Q-) OD 
eee me 
CBTQB 0, cH70H® 


AO-GFO DCG30C *H 


a"CGG] ZAl OAAD 


eee ee 


G VX /OMFC ~ 


EBT4 $3 eet! 2 


80H*#C/00A <U —*B 
= = 
D*LEBAH.B —JX_ - 
$a/ &>&3S01 DISS 
0$6"—/4TO A223. 8B 
2/08a/0M#( HE.3H 
H, D94$2G66.C-3-< 


Q>ACHa/s Y?2G=Q>E$ 


9320 @a30 835A >BC 


eveesneeeveweeeeenee 


eee eae eeeoe eee 


so Q 


PART NO. 
PAGE 


INDICATES A BLANK CCLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


17 THROUGH 32 Ci 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 


B $# /05$0H*DP04 


2-&-"40 O DBQL7 


B500 


CC-~"—9 OG /OMFC 


{ &6D *$2-EV+ &J 


AZLTA $# C1 OH* 
“o-p -*HB JZ 0 
BH23" $3 /OHUOH* 
G 546 CGOH#C7LE 
nanU 8+—-aY#1%=0 
"WeBEBSLPJ" @ 6G 
0aS>9A972D $/al. 
BAJ64BA$2/1G18-C 


+G6-&+4+BGC. &HO.C 


Haz -? ~ >&C.a/ 


fi 2CH8AB~704DEHD 


“11360415700 


_Q82P0D H8. 
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2589644 
OA 


CL 81 THROUGH 96 


)€ TXL10007 
A D EHOTXL10008 
A $8 Ki TXL10009 


“NJYTXLLOO1O 
rT 
*  eQ *,QTXL10012 
EA-0 )IZTXL10013 
“Ea wiaeut Gots 
EA-O 32ETXL10015 
HAD *#8TXL10016 
Ra"y 9:-TXL10017 
5Wx< JCUTXL10018 
-/T- 2-HTXL10019 
/@D *COTXL10020 
12#U 6S*#TXL10021 
=>0K” sk6TxL10022 
yeH* #K<TXL10023 


sJ TXL10024 


427T7ORSMTXLIO025 
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IIE E_——— LL es 


weer ae ear late ae het 


—- ere ms. «@ o. 


ERR LOC OBJECT CODE 


OODAA 
> - ©0000 
> 
; 
mh 
© 
© | 
oO 
Cc 
© 
t 0060 
c 
‘0060 
C 0063 
© “S 
Wig 0066- 
c O06A 
. 0060 
' ‘ 0070 
Cc 0073 
0076 
0079 
© ; 
Cc " 007c 
© 
© 4 
G 
Cc 
© 
DATE 
EC NO. 
Cc 
CS 


FO 
DO 


57 


“F2 


7 
70 
79 
F2 
FO 


02 


mW 
67 


20 


eC 
60 


5F 


04 03 


03 
3 
FF 
10 
68 


02 


7B 


.5C 


5C 
16 
16 


57 


OO7F 7C 59 BD 


15JAN70 
816576 


88 


18M ee enn 


~ ABSOLUTE LOADER 


ADOR STMT 
ALDAAO START 


- 
od 
eH enene eee aeee ee eee aenene eee 


oo7c ENTRY 


0000 AAAOLO EQU 


ORG 


0000 
0000 


USING 
USING 
39 # 

AAAO30 HPL 
41 — 8 

42 * 

43 % 

44 4 

45 * ; 
AAA05O SZ 
JNP 
AVI 
SNS 
TBF 
JT 
HPL 


AAAO80 
AAA060 


AAAOTO 
* 


ee 
55 * 
ALDAA1 LA 
2 . 


#4 


58 * 

59 # 

60 * 

tates 
444964 
#42944 49 
FREEEEE KEES 
REKSEEEEE 
S2EFESE 
##¢444 

68 * 

MVI . 


O9MAR 70 
816638 


17APRTO 
816677 


SOURCE STATEMENT 


x*00¢ 


ABSOLUTE CARD LOADER 


THE ABSOLUTE CARD LOADER PERFORMS THE FUNCTION OF 
RECOGNIZING THE OBJECT CARD TYPES AND PROCESSING 
THEM AS FOLLOWS: 


TEXT CARD: THE INSTRUCTIONS AND CONSTANTS REPRESENTED 
ON THIS CARD ARE COMPRESSED INTO THE REQUIRED 
FORMAT AND MOVED INTO THE SPECIFIED CORE 


LOCATION. 
END CARD: 


BEFORE MOVING ANY DATA INTO CORE, THE LOADER CHECKS THE 
MACHINE CORE CAPACITY TO ENSURE THE AVAILABILITY OF COPE 
NECESSARY TO EXECUTE THE PROGRAM BEING LOADED. 


SEESESEREESEEEESEE SE FES EES EREEEEEEEE EEEEEESEEEFEEREEREEEE EEE £44444 6O444% 


ALDAA1 
* 
X*608 


AAA010,1 
AAAO10,2 


X*6C*,X*7C# 
AAAO30( oXR1) 


; 95(03—9XR1) ,AAA085(1,XR1) 


AAAO60 
AAAOTO#2( 4XR1)_yX°03° 
920 XRAY X*FS# 


D2 XRLIAXPFFE 


AAA1L10 


“X*76* oX*68* 


ett et #44 «ee 


CONC-1( »XR1),XR2 


NOTICE *®#*s¢4%% 


AAA16042(4XR1) ,AD8441 


THE ABSOLUTE CARD LOADER COMPRESSES THE 
CONTENTS OF THE END CARD INTO EBCDIC FORMAT 
AND TRANSFERS CONTROL TO THE INSTRUCTIONS 
REPRESENTED ON THIS CARD BY BRANCHING TO A 
GIVEN LOCATION WITHIN THE 1/0 AREA. 
INSTRUCTIONS REPRESENTED ON THE END CARD 
CLEAR THE LOADER FROM CORE AND BRANCH TO 
THE ENTRY POINT OF THE PROGRAM LOADED. 


PART NO. 
PAGE 


BEGINNING ADDRESS OF 


KESEKESESSESESERES ESE EKESEEESESEESEEEKEKESEREESEALE FEEKERSKEEESEERESESEREREEEESEE 


* a” 


THESE 


*eeee ne eav ee enn ve en nee ee & 


LOADER 1/0 AREA 
BASE ADDRESS 


BEGINNING ADDRESS OF LOADER 


“ESTABLISH BASE ADDRESS 


ESTABLISH BASE ADDRESS: 
THE PROGRAM BEING LOADED 7 


REQUIRES MORE CCRE THAN IT 
HAS AVAILABLE--THE LOAD PROCESS 
IS TERMINATED AT THIS POINT AND 
SHOULD NOT’ BE RESTARTED 

IF PAST FIRST THREE CARDS OF 
PHASE, CHANGE HPL TO LE 


STORE THE CONDITION CODE 
TEST FCR ERROR CONDITION 
JUMP IF NO ERROR 
HALT DUE TO ERROR CONDITION 
"eee ee **¥¢ tes 
INITIALIZE INDEX REGISTER Two 
SO THAT IT POINTS TO THE RIGHT- 
MOST BYTE OF THE SECTEON OF THE 
1/0 AREA TO BE COMPRESSED 


INDEX REGISTER ONE WAS 
INITIALIZED TO ZERO WITHIN 
THE BOOTSTRAPPING ROUTINE SO 
THAT THE INDEX REGISTER CAN BE 
USED IN CONJUNCTION WITH THE 
BASE ADDRESS OF ZERO 


INITIALIZE POINTER FOR TESTING 


PROG 10 OHXT-1 
PAGE 1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


OODAA 


ERR LOC 


0082 


0085 
0088 
008B 
OOBE 


0091 
0094 
0097 
OCIA 
oosd 
OOAO 


00A3 


OOAG6 
OOAA 


OOAE 
0081 
00B4 
0o0B8 


OOBB 
OOBF 
o0c3 


oocT 
QOCcA 
oocD 


_00D1- 


0005 
0008 


OO06 


OODE 


OOE1 
OOE5 
OOE8 


OOoEB 
OOEE 


OoF1 
OOF6 


DATE 
EC NO. 


ABSOLUTE LOADER 


OBJECT CODE 


ran 


71 
F3 
o1 
DO 


70 
00 
7D 
bo 
719 
bo 


7c 


SF 
5C 


7D 
DO 
5C 
7 


AE 
AE 
SE 


70 
DO 


6C. 


5F 
76 
00 
70 


D0 


5C 
7 
75 


70 
DO 


2c 
DBO 


58 


F5 
Fl 
Fl 
87 


—3 
81 
cs 
ol 
03 
90 


00 


00 
00 


DO 
61 
00 
2A 


00 
00 
00 


04 


-82 


02 


00° 


02 
02 
cs 
81 
02 


00 
02 


00 
84 


oo. 
87 


CF 


FC 
00 
68 
66 


00 
A3 
00 
7c 
58 
66 


BC 


BO 
co 
00 
B88 
BA 
00 
01 
01 
BC 
Bc 
A6é 
58 
CF 
FA 
A3 
00 
19 


F4 


16. 


17 


18 


60 


82 
BC 
BO 


01 
01 
B2 


00 
6€ 


19 


0000 1A 


7c 


15J5AN70 


816576 


O9OMART 
816638 


ADDR STMT SOURCE STATEMENT 
70 # EACH BYTE FOR SPECIAL CHARACTER 
71. MvVI LEN3(.XR1) ,AD84 INITIALIZE THE INSTRUCTION 
72 4 WHICH RIGHT ADJUSTS THE 
73 * COMPRESSED BYTES 
T L10 ZERO( gXR1) g X*F5* INITIALIZE THE 1/0 AREA ADDRESS 
75 AAAOSS SIO X*00* X*F1* READ CARD INTO 1/0 AREA 
76 AAAOSO TIO AAAOI0( oXR1) 9 X°F1® WAIT FOR COMPLETION OF 1/0 
77 AAA1OO B AAAO5014XR1) TEST FOR ERROR AND HALT IF 
76 * : ERROR CONDITION IS PRESENT 
79 AAA110 CLI AAAO1O( oXR1) g TEXT IS THIS A TEXT CARD 
80 BE AAA130(0,XR1) YES 
81 CLI AAAO10(,XR1),END IS THIS AN END CARD 
82 BNE ALDAA11,XR1) NO--EXTRANEOUS CARD-- 
83 TBF S10 9XR1)_X*03* : 
84 BF AAA0SO( »XR1) 
85 * READ ANOTHER 
86 AAA130 MVI LEN1(.XR1) sZEROI INITIALIZE THE LENGTH FIELD OF 
87 * THE FIRST COMPRESSION 
88 * - INSTRUCTION 
89 AAA1L5O SLC AAA16042(15XR1) sSONEC( oXR1) DECREMENT POINTER FOR TESTING 
50 * ae EACH BYTE FOR x*D08 
91 MVC LENZ¢1eXR1LDSLENI( oXR1) SET LENGTH FIELO OF SECOND 
92 * COMPRESSION 
93 AAKA160 CLI #-#(,XR1),HDO CHECK FOR x*00* 
94 BNE AAA180(,XR1) NOT X*DO* 
95 MVC SAA1L7TO420 1g XR1),AAA16042(,XR1) REPLACE X*DO* WITH X®2A° T 
96 AAAL70 MYI #—-#(,XR1),HZA ENSURE UNIQUENESS OF LOW 
oT * ORDER SIX BITS. 
$8 AAA180 ALC LCL eXR2 dol feXR2) FIRST COMPRESSION INSTRUCTION 
- 99 - ALC LCL eXR29510,XR2) SECOND COMPRESSION INSTRUCTION 
100 ALC LENI€1,XR1),GNEC( » XR1) INCREMENT LENGTH-IN THE — 
101 # , COMPRESSION INSTRUCTIONS 
102 CLI LEN1L(,XR1) ,HOS HAVE FOUR BYTES BEEN COMPRESSED 
103 BL AAA150(~_XR1) NO-~CONTINUE COMPRESSING 
104 AAA1L9ON MVC AD84(3_XR1).0(,XR2) RIGHT ADJUST 3 COMPRESSED BYTES 
105 SLC LEN3(2_,XR1) eTHRE( es XR1) “DECREMENT RIGHT ADJUSTING 
106 * ; , INSTRUCTION FOR NEXT 3 BYTES - 
107 : A MINUS4( pXR1) 9 XR2 CECREMENT REGISTER FOR 
108 * : . " > COMPRESSION 
109 BNL AAA130(,XR1) ‘ CONTINUE COMPRESSING CONTENTS 
210 * OF 1/0 AREA | 
111 AAA210 CLI ARAO10(oXR1 SEND COMPPESSION IS COMPLETE-- 
112 *. = 7 IS THIS AN END CARD oe 
113 BE TRANS(,XR1) YES-- TRANSFER CONTROL TO. 7 
114 * : = INSTRUCTIONS ON END CARD 
115 MVC TOADDRE3eXRLDeLNAODDR(ZXRL} SUPPLY *TO® ADDRESS AND LENGTH 
116 MVI LENGTH-1(5XR1)9X*00* SUPPLY THE 
117 L LENGTH( XR1)D ge XR2Z ' *FROM® ADDRESS 
118 * : 
119 -Q BYTE IN FOLLOWING INSTRUCTION 
120 *# 1S SET UP BY THE BOOTSTRAP 
121 * LOC-X*O17E* IS MCVED IN . 
122 CLI CORSIZ0,XR1) 94~-# IS CORE AVAILABLE FOR MOVE 
123 BH AAAO3 01 eXR1) NG--HALT 
124 * . : : 
125 AA&A230 MVC t—# (4—*) » FROM( 9 XR2Z) MOVE CODE INTO CORE. 
126 B ALDAA1(,XR1) RETURN TO READ ANOTHER CARD 
127 * . . 
128 * 
129 *# EQUATES AND CONSTANTS 
0058 130 COND EQU x*58¢ POINTER TO RIGHTMOST BYTE 
131 + — TO BE COMPRESSED 
0001 132 xR1 EQU 1 INDEX REGISTER 1 
0002 133 XR2 . EQU 2 ; INDEX REGISTER 2 
OOoBC 134 LENL EQU AAA18041 LENGTH @YTE CF FIRST CoP INSTR 
OOCO 135 LEN2 EQU ®AA180+45 LENGTH BYTE OF 2ND COMP INSTR 
OOCF 136 LEN3 EQU AAA190+¢2 POINTERS FOR RIGHT ADJUST ING 
OGDO 137 LENS EQU AAA190+43 COMPRESSED CODE 
oO 17APRT70O PROG 1D OHXT=1 
816677 ‘ PAGE iA 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO 2589646 IBM MAINTENANCE DIAGNOSTIC PROGRAM ~ PART NO. 2589646 E 
e aCe . ® | : PAGE aA 
- OODAA ABSOLUTE LOADER ‘ OODAA ABSOLUTE LOADER f 
i 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT . ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT i 
& OOF5 138 FRAODR EQU AAA23044 FROM ADDR OF MOVE INST eo 168 STORER Senne re na eee Nt Ne Tete ees e np ee eeeee sree hoe Se Seeee 
OOF4 139 TOADDR EQU AAA23043 TO ADDR OF MOVE INST 169 * * 
OOE3 140 TEXT EQuU)  xX*E3* TEXT CARD IDENTIFIER aes 170 * LISTING OF IPL CARDS ® 
@ OOC5 141 END Equ = x*cs* END CARD IDENTIFIER e 171 * < ; 
OO1A 142 FROM EQU = xX*2A° LEFTMOST BYTE OF COMP CODE 172 * THE FIRST LINE IN EACH PAIR OF LINES CONTAINS THE PRINTABLE * 
CO0O 143 ZEROI EQU  x*O0* INITIALIZATION VALUE 173 * CHARACTERS ON THAT TIER. THE SECOND LINE IS THE INTERNAL HEX e | 
© 0OD0 144 HOO EQU x*DOS NON-UNIQUE LOW ORDER 6 BITS 6 174 * CODES. EACH GROUP OF TWO LINES REPRESENTS ONE TIER OF ACARD = # | 
002A 145 H2A EQqU) xKP2A8 UNIQUE LOW ORDER 6 BITS 175 * ANDO THREE GROUPS MAKE UP A COMPLETE CARD. . | 
es 0001 146 ONE Equ = x*ole INCREMENT-DECREMENT VALUE 176 * ‘% 
6 0000 147 884 EQU x*00° POINTER FOR COMP INST 8 177 ** FEST OESEE GHEE E8588 O8 EEE NEEO88E 888 09908950488 9488 8088 088888 EEE EES 
g 0058 148 AD84 EQU  CODND POINTERS FOR RIGHT ADJUSTING 178 * BA *."',*G6Cx3ac tae 4 
0057 149 AD83 EQU  COND-1 COMPRESSED CODE . 179 * C2C 140405C 4B 7F 68 5CC TE TF3 TA4SFC 1 TED040F 440404040404040404040404040 
© OOF9 FFFC OOFA 150 MINUS DC XL2*FFFC® DECREMENT VALUE FOR RT~ADJUST o 180 * ‘ 2 ac 7 
0091 151 PROC EQU  AAA090+6 BEGINNING OF PROCESSING ; 181 * 15"31 211 Ooaz G-pP- HxTa | 
OOFB 0000 OOFC 152 ZERO OC XL2*0000° VALUE FOR LIO ea 182 * F LFSTFF3F140F 1F140004040F0 7C6C DOC 760D 7604040404040404040CB8E7TE3F1 | 
° ; 0019 153 TRANS EQU xX*19¢ LOCATION IN I/O AREA TO WHICH “9g ‘183 « ' 
154 * COTROL IS TRANSFERRED AFTER AN 184 * 223264 4£841a49 %* & 42a 14212 HXTO00001 
155° | END CARD HAS BEEN PROCESSED 185 * F27CFOF440F 4F SF4F 1 7CF9 70F4F47C40F LF 4F 2F 140404040C BE 7ESFOFOFOFOF 
o 0019 156 LNADDR EQU xX*198 LOCATION OF ADDRESS FIELD AFTER — @ 186 * renee 
157 * . COMPRESSION 187 © 
me 0017 158 LENGTH EQU  LNADDR-2 LOCATION OF LENGTH FIELD AFTER 188 © 
o 159 * COMPRESSION ° 189 * *T MOeMvs 4a31 51.2. GW 
: 0018 160 CORSIZ EQU LNADDR-1 ADORESS BYTE WHICH IS USED TO 190 * 5CC9DOD45CD4E 5F40040F47CF 3F 140D1F 148 D0C 7E6 4040404040404040404040 
161 * DETERMINE IF THE AVAILABLE 191 # 
oO 162 * CORE 1S ADEQUATE @ 192 * °T AT®*E . AaZCS wa a HxT2 | 
O17E 163 COREND EQU X*O17E® LOCATION OF CONFIGURATION BYTE 193 * TOE340D0C 1E37DC 540D0C 1 7CF9C 35BDOD0E6 70 407040404040404040C8E7E3F2 
OO6E 164 THRE EQU AAA08041 INCREMENT—DECREMENT von 194 * ; 
it) O00B2 165 ONEC EQU AAA160¢4 * CONSTANTS e 195 * 25a14a143823%4 1: 5% HXTO00002 | 
0004 i66 HO4 EQU 4 RIGHT ADJUSTING VALUE 196 * 407CF57CF170F 47CF 1F 4F 3F BF 2F 3F440F 1 TE 49F 578 404040C BETESFOFOFOFOF2~ 
: 197 * 
o : ° 198 * 
: ‘ 199 * : , ; : 
200 * *1T1IM*¢ MF 4 4~7H2.0CaC #03 f 
oO. : @ 201 * 5CC9OF 1D45CD4C 6F4D040F 45FC8F2C4C 370037 BF OF 34040406040404040404040 
202 * : : : 
: 203 *  *F£9"*# 2EQ0YEKBPAROACI1IS em - WHXTS3 : 
a ) : @ 204 * 5CFO7F5CF 250D8F OE EF 6D2C207 7C DOF OTC DB4FF1F5404040460404040CSETESF3 
a » 205 *. a ; ek Us fo 
' e = 206 * =t:a "7a26 36 =* #23 «HXTT OOOO3 | 
ee : © 207 * 407E7A7C4070F 77CF 2F640F 3F6 407E. 7040 TEF 2 7A40404040C BE TESFOFOFOFOF3 =; 
re 208 + : oo Pd oS 
us 209 # -————— 
CG © 210 * f 2 uae . 
; ; 211 * *1?7Me¢MD 4 4> 028 a? 
< ar 212 * 5CC96FD45CD4C4F40040F 45F 40F OF 25C 40407C 70004060404040404040404040 
= 213 * : . : : 
214 * Ak* 30a > AAD AAS HXT4 | 
© 5 215 * 40D0C17B5C40 7AFOTCDOSO6E40C1C 16E40C 1C15E4040406040404040C8ETE3F4 
216 * 
eres . 7 : 217 * hpawer © 3 F1357735H" 1 HxXxT00006 
va . oe 218 * F17C7F7F407DF 3 7040F 7F LF 3F5F 7F TF 3F 5 7B TF 40F 1 4040400 BE TESFOFOFOFOFS 
© : °o 219 * | 
220 * : 
. 221 * 
© Oo . 222 * *1l+M emt & 4a2*Da BW2B 
223 * 5CC94ED45CD4E3SF4D040F 4 7CF27DC47CDOCZE66CC.2 4040404 040404040404040 
224 * 
© ) 225 * Q 1>6B: BT*E AR* 84 HxXTS 
226 * 08405F404F6EFECZTADOCZE37DC54000C 1D95CC2F440404040606060C8ETESFS 
227 * 
© , Oo 228 * 2*°8*2a2"%243%% %©817438 HXTO0005 
wes | 229 * F27DF 8 7DF27CF2 TFF 2F 4F 3 TDF 440707CF LF TF4F 37C 464040C SE TES FOFOFOFOFS 
230 * 
o Oo 231 * 
- 232 * : 
233 * *OYM*#LAZB< BAe arRa O05 
Co o 234 * 5CC4E8D45CD37CF34C406CC 1 7ED0407CD97C 4CD6F54040404040404040404040 
235 * 
dae 
6 oO 
DATE 15JAN70 OSMARTO 17APR70 ; PROG ID OHRXT-1 DATE 15JAN70 #$O9MARTO 17TAPR70 PROG ID OHXT-1 
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18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589646 18 MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 2589646 
e . PAGE 3 @ PAGE 3A 
OODAA ABSOLUTE LOADER ‘“ OODAA ABSOLUTE LOADER 
" ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CROSS-REFERENCE 
© 236 * BP* Q oO-8 Ga*a H XT 6 @ SYMBOL T LEN VALUE DEEN REFERENCES 
237 * C2D77D40D8D0C 4606C 4040405AD0C 77C TF 7C 4040404040404 04 04040C8E TE 3F6 
ve 238 * AAAOLO A 001 0000 0033 0037 0038 0079 0081 01121 
U 239 * 3" *30a¢681591 5 £258 HxXxTO00006 6 AA4030 A 003 0060 0040 0041 0123 
240 * F37F4070F37CF97CF 1F 5F97DF140F 5407EF 2F 57DF 8404040C BE 7E3FOFOFOFOF6 AAAOSO A 004 0066 0046 0077 0084 
241 ¢ AAAQ60 A 003 0076 0049 0047 
o 242 # 6 AAAO70 A 003 0079 0052 00484 
243 * AAAO80 A 003 O006D 0048 0164 
O0O7C 244 END ALDAAI oe AAANS5 A 003 0088 0075 0046 
C O AAAOSO A 003 0088 0076 0076 0151 
AAA100 A 003 OC8E 0077 
AAAL10 A 003 0091 0079 0051 
oO C AAA130 A 003 O00A3 0086 C080 0109 
AAA150 A 004 0046 0089 0103 
' AAA160 A 003 OOAE 0093 0069* 0089* 0095 0165 
C Cc AAA170 A 003 0088 0096 0095% 
AAA180 A 004 0088 0098 0094 0134 0135 
AAA190 A 004 OOCD 0104 0136 0137 
o Cc AAA210 A 003 00D8 0111 
AAA230 A 005 OOF] 0125 0138 0139 
AD83 =C 001 0057 0149 
oO e A084 C 001 0058 0148 0069 0071 01042 
ALOAAO A 001 0000 0002 
ALDAA1L A 003 O07C 0056 0031 0082 0126 0244 
a _ @ B84 C 001 0000 0147 
COND C 001 0058 0130 0056 0148 0149 
COREND C 001 O17E 0163 
QO @ CORSIZ C 001 0018 3:60 0122 
END C 001 OOCS 0141 0081 0111 
; FRADDR A 005 OOF5 0138 .- 
o | 6 FROM C O0OlL OO1A 0142 0125 
HDO C 001 0000 0144 0093 
. i pag HO4 C 001 0004 0166 0102 : 
c @ H2A C001 002A 0145 0096 
_ LENGTH C 001 0017 0158 0116* O117 ‘ 
‘i LENI A-004 O08C 0134 0086* 0091 0100* 0102 i . 
ct @ LEN2 A004 OO0CO 0135 0091 
\ LENZ A 004 OOCF 0136 0071* 01054 
e LENG A 004 O0DO0 0137 : 
my C  _LNADOR C 001 0019 0156 0115 ©0158 0160 
. MINUSS A 002 OOFA 0150 0107 i Oe 
ONE C 001 0001 0146 . ae = & es 
Cc : ; ; CG - GNEC A 003 0082 0165 0089 ©100 ye 
. ae a PROC A003 0091 0151 - é 
sae oO : . ; Tee TEXT C€ 001 OO0F3 0140 ° ° #0079 
9 : be THRE A 003 OQO6E 0164 0105 | ; . ‘ 
TOADDR A 005 OCF4 0139 0115* ms 
TRANS C 001 0019 0153 0113 oo ; 
8 oO XR1 C 001 0001 0132 0041 0046 0046 0048 0049 .0050 0056 0069 0071 0074 0076 0077 
0079 0080 0081 0082 0083 -0084 0086 0089 0089 0091 0091 0093 
0094 0095 0095 0096 0100 0100 0102 0103 0104. 0105 0105 0107 
e C : 0109 O111 0113 O115 01125 0116 O117 0122 0123 0126 
XR2 C 001 0002 0133. 0056* 0C98 0098 0099 0099 0104 0107* 0117* 0125 
ZERO A 002 OOFC 0152 0074 
ct Oo ZEROI C 001 0000 0143 0086 
ao TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = | . 0 ; 
0 | O 
0 lo 
. aes 
6 , O 
. | 
° | 6 
ve | -——------—-- pn nnn = LAST PAGE ---------——---—-------—---- —-— --- —- - —------- 
0 . © 
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EC NO. 816576 816638 816677 PAGE 3 EC NO. 816576 816638 816677 PAGE 3A 
0. © 
o © 
© 0 
a 
oO | © 





4 


> 


ca 0 9 0@'08@ @ An O:6 60 6 


© 
a 
ee 


o 89 6 6 8 8 


- 
. 


oO 


0 0:0 O 


: ee t 
°e @ & 


@ 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589646 
ao PAGE 4 @ 
HXT1 HEX TO TEXT PATCH CARD GENERATER . 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
0000 2 START X*008 6 
3. DECK 4 oie 
4 SEQ 007 
5 SEES TEKSEASSEESESHEKESSEHAEEESERE SEEKER EE SAE AAKSERACERECKEESKRESGREKKS EKEEESEE © 
6 # * 
7* HEX TO TEXT PATCH PROGRAM * 
8 * * © 
9 * PURPOSES THIS PROGRAM CONVERTS HALF-BYTE PER COLUMN HEXADECIMAL  * 
10 ¢ PATCH DATA TO THE 4 FOR 3 TEXT CARD FORMAT REQUIRED BY * 
ll * THE ABSOLUTE CARD LOADER. * © 
12 * * 
13. * INPUT: THE CARD FORMAT REQUIRED IS AS FOLLOWS: * 
14 * cou 1 2 CHARACTER *P®, * oO 
15 * COL 2-3 &: LENGTH OF STORAGE TO BE PATCHED, IN HEX * 
16 * T.&. HALF THE LENGTH OF PATCH DATA FIELD. eyo 
17 * MAXIMUM LENGTH = X*28¢, * | 90 
18 * COL 4-7 % STORAGE ADDRESS TO BE PATCHED, IN HEX * 
19 « COL 8-87 = PATCH DATA, HALF-BYTE PER COLUMN IN HEX * 
20 * E.G. G=C7, *=5Cy OP CODES ARE 2 CHARACTERS «| © 
21 * COL 88-96: DISREGARDED ; * 
22% . * 
23 *# OUTPUT: OUTPUT CONSISTS OF TEXT CARDS IN THE 4 FOR 3° FORMAT THAT © | @ 
24 * 1S REQUIRED BY THE ABSOLUTE LOADERs THE OUTPUT DECK IS *# 
25 # THE SAME SIZE AS THE INPUT DECK. * 
26 ¢ ; * | ° 
27 SORRSERSEON NONSENSE SEROESERERESSENENSEEENEREE SER REE OSES EE KEESEESENESEES , 
28 ei 
29 | «] 
30 FUSS OSSES SHEETS SAAS EAESESERSES SEER SEE ESESEEESESR EEE SERED ES ESE EEEEREKEEEEEED 
31 4 2 
32 * THE FIRST SECTION IS THE COMPRESSION SECTION WHERE COLUMNS 2-87 ARE * | @ 
33 * CHECKED FOR ALPHABETIC CHARACTERS, AND IF PRESENT 9 IS LOGICALLY * 
34 * ADDED TO THE CHARACTER. COLUMNS 2-87 ARE THEN COMPRESSED 231 BY * 1. 
35 * USING ALC*S AND IGNORING THE ZONE PORTIONS OF EACH BYTE. *+/ @ . 
36 9 * d 
37 ttessnnnenenes sasaeeenesesecenaseeesananenenessaseeesseeeeeseeesseseat e 
38 
_ 0200 39 ORG xX*200° e ; 
0200 FO 7C 63 40 AACOLO HPL X*63%,x*7C8 NORMAL HALT ae 
0203 F3 F8 00 ° 41 AACOLS SIO. x*00*,X*FaF ; | © 
0206 C2 01 0000 42 AACO20 LA =_«dOOp XR. ENTRY PT--SET XR1 , ° 
' 020A°C2 02 0001 43 AACO30 LA Le XR2 SET OR RESET XR2 
.O20E 31 F5 0387 44 - LIO ADOROI,X*FS* INIT READ ADDRESS oO 
0212.3 F1 00 45 “S10 = X00", x*Fl® START PRIMARY READ ~o 
0215 Cl Fl 0215 46 AACOSO TIO AACO40,X*F1* BRANCH IF BUSY 
0215 Ci FO.0220 4&7 TIO A&C042,X*FO* BRANCH ON ERROR oO 
0210 F2 87 12 48 J, AACO48 JUMP NO ERROR : 
0220 30 F3 038D 49 AACO42 SNS ~ SNSDAL,X*F3° SENSE MFCU 
0224 39 FF 038D 50 TBF. SNSDAL»X*FFEe TEST FOR NOT READY lo 
0228 F210 O7 . 51 JT AACO48 JUMP NO ERRORS 
0228 FO 3C 57 52° HPL §=xX®57",xeace HALT ON READ ERROR 
022€ CO 87 O20A 53 8 ~  &ACO30 RETRY THE READ -O- 
0232 4D 01 01 0386 54 AACO4B CLC CRDID341(2—9XR1) 9SLASK /* IN COL. 162 
0237 CO 81 0200 55 BE AACO10 YES, FINISHED. 
0238 70 07 00 56 * CLI CRDID3(_XR1) »PTCIDS 1S CARD CUDE = P Oo 
023€ CO O1 O20A 57 BNE AACO30 NO--READ ANOTHER beans 
0242 80 40 00 58 AACOSO CLI CDCOL3¢,XR2)95C* * 1S COL. BLANK? . 
0245 F2 81 24 59 JE AACO060 YES, ' © 
0248 80 C1 00 60 CLE CDCOL3(exXR2),C#A* 1S CHAR IN ALPHA-NUM CHAR BLOCK | 
0248 F2 82 12 61 Jk AACO55 NO--JUMP 
024E 8D C7 00 62 CLI = CDCOL 34 aXR2DeC*G? GREATER THAN A °G? © 
0251 F2 82 13:- - 63 Jt AACOST © YES—~JUMP 
0254 BD FO 00 64 CLI CDCOL39XR2),C*#08 LESS THAN ZERO Oe, a8 
0257 F2 82 06 65 JL AACOSS YES ° 
025A 8D FA 00 66 CLI COCOL3( 9XR2)_X*FAP GREATER THAN NINE? 
O25D F2 82 OC 67 Jt AAC060 NO 
0260 FO 6C 68 68 AACOSS HPL x*68",x*6C® INVALID CHARACTER . © 
0263 CO 87 O20A 69 8 AACO30 IGNORE CARD, GO READ NEXT . | +. 
@ 
DATE 15JAN70 O9MAR70 17APR70 PROG ID OHXT-1 | 
EC NO. 816576 816638 816677 PAGE o 
' | @& 
e 


. a 
i 
® 2 @ @ ® @ © @ @ © @ @ & @ @ —_ - 


| 
: 
| 
, 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


HXT1 
ERR LOC 


0267 
026C 
0270 
0273 
0277 
0278 
O27F 
0283 
0287 
6288 
028F 
0293 
0297 
0298 
O2A1 
O2A5 
O2A9 
O2AE 
02B1 
02B5 


0289 
0280 
o2co 
0204 
o2c7 
o2cB 
O2CF 
0202 
' 0205 
“0208 
0208 
O2D0E 
O2E1 
O2E4 
O2E7 
O2EA 
. O2ED 
02FO 
O2F3 
O2F6 
O2F9 
O2FC 
O2FF 
0302 
0305 
0308 
0308 
030E 
0311 
0315 
0319 
031D 
0321 
0326 
032C 
0330 


DATE 
EC NO. 


HEX TO TEXT PATCH CARD GENERATER 





STATEMENT 


PART NO. 
PAGE 


2589646. 
oA 


OBJECT CODE ADDR STMT SOURCE 

8E 00 00 0378 70 AACOS7 ALC COCOL3(1¢¥R2) pALPCNI ADD 9 TO ALPHA CHAR 

34 02 038F 71 AACO6O ST STREG1,XR2 STORE XR2 

E2 02 O1 72 La 1 9XR2) ,XR2 INCREMENT XR2 

30 57 038F 73 CLI STREG1 eL CEND2 1S xr2 @7 

CO 82 0242 74 BL AACO50 BRANCH IF LESS 

3C 00 o28C 75 AACO6S MVI LALC12,HEXO04 INITIALIZE LENGTH OF ALC*S 

3C 00 9290 76 MVI ‘LALC22,HEXO004 INITIALIZE LENGTH OF ALC*S 

3C 00 0294 77 MVI LALC32_—HEX004 INITZALIZE LENGTH OF ALC*S 

3C 00 0298 78 MVI LALC42 sHEX004 INITIALIZE LENGTH OF ALC®S 

5€ 00 57 57 79 AACO7O ALC LCEND2(1,_XR1) eo L CEND2€,XR1) COMPRESS DATA 

5E 00 57 57 80 ALC LCEND2¢25XR1) eL CEND2 (yXR1) COMPRESS DATA 

5E 00 57 57 81 ALC LCEND2(1-XR1) eL CEND2(,XR1) COMPRESS DATA 

5E 00 57 ST 82 ALC LCEND2(1eXR1) oaLCEND2¢,XR1) COMPRESS DATA 

OE OC 0298 0385 83 ALC LALC42(13) ,ALCI31 INCREMENT LENGTH OF ALC*S 

30 57 0298 84 CLI LALC42,LCEND2 IS IT ENO OF COMPRESSION 

Co 01 0288 65 . BNE AACO70 NO--CONT INUE 

4F 00 01 020D 86 SLC LNFLD3(1,XR1) »ONE2 SET LENGTH FOR LOADER 

7c 00 00 87 MVI CDCOL3( »XR1),X*008 SET COL1 TO ZERO 

5E 01 03 O1 88 ALC LNFLD34¢2(29XR1) eLNFLO3¢,XR1) SET ADDRES FOR LOADER 

C2 02 0000 89 La COCOL3, XR2 SET XR2 = TO INPUT/WORK AREA 

90 
QQ] 848686464 EE FE S40 EEEKEKEKSEEKESEEESESEEOE EE EEE EEEEESE EEE £8 424EEEE94E$SESRREED 
92 * * 
93 * THE SECOND SECTION IS TEE EXPANSION SECTION WHERE COLUMNS 2-66 ARE # 
94 * EXPANDED 4 FOR 3 FROM TEE COMPRESSION DATA. SIX BITS ARE EXPANDED * 
95 * INTO 8 AFTER CHECKING FCR A °/*® GR A *€*, SINCE UNDER THESE COND- * 
96 * ITIONS THE TOP BIT MUST BE CLEARED. THE COMPRESSION AREA IS USED * 
97 * FOR A WORK AREA, AND AFTER EXPANSION EACH BYTE IS MOVED TO THE * 
98 * PUNCH OUTPUT AREA. . * 
99 * s 
100 SOHSEAER SE SEESERE SELES SEES ESS SESAESSESEEEEESEE TEE OESEERESENE EEEEEESES 
5 101 

.3C 81 0324 102 AAEO80 MVI PCHPT2 »HEX@14 SET PTR FOR PUNCH AREA 

70°40 FF 103 AVI = =ENDPC3(oXR1) eo X*40° BLANK PUNCH AREA. 

SC 7E FE FF 104 MVC EDPM13(.XR1) ,ENDPC3 (127 gxXR1) 

8C 03 00 105 AAEOSO MVI FRST82( eXR2),HEXO34 INIT WORK AREA FOR SHIFTS 

AE 41 41 41. 106 ALC LTXTIZ¢,XR2) gL TXTIZ(LSHET2Z,XR2) SHIFT LEFT 1ST BIT 

AE 41 41 41 107 ALC LIXTI2Z0XR2) gL TXTIZ(LSHFT2,XR2) SHIFT LEFT 2ND BIT 

BOD 10 01; 108 CLI =—- SCND82(,XR2) ,HEX104 -ARE NEXT 4 BITS O 

F2 02 09° 109 JNL - AAE100 NO--JUMP 

BD OF 00 110 CLI EROTRety Sn a) eH XOFS “TS PROPER CHARACTER a ZERO 

F2 81 36 111. JE AAE130 - _ VES--FINISH THE CHAR SHIFT 

F2 87 30. 112 - J AAE120 NC--CLEAR TOP CHAR BIT FIRST 

BO AO 01 = 113 AAE100 CLI “'SCNDB2(»XR2) gHEXAOS - IS CHARACTER IN ALPHA/NUM BLOCK 

F2 02 12 114 JNL AAE110 . NO~- JUMP * 

B8 02 00 115 TBN FRSTB2(»XR2) pHEXC24 ARE TOP BITS ASSCC WITH / ON 

88 10 O01 -116 TEN SCNDB2( oX82) gHEXIO4 © ARE BOT BITS ASSOC WITH 7 ON 

B89 O1 00 117 TBF FRSTB2( eXR2) gHEXOL4 ' ARE TOP BITS ASSOC WITH / OFF 

B9 EO 01 118 TBF SCNDB2¢eXR2) SHEXEOS ARE BOT BITS ASSOC WITH / OFF . 

F2 10 18 119 _JT AAE120 : YES--CLEAR TOP CHARACTER BIT 

F2 87 18: * 120 J AAE130 NO--FINISH THE CHAR SHIFT 

B8 02 00 121 AAE110 T8N FRSTB2( sXR2) JHE XO24 ARE TOP BITS ASSOC WITH ¢ ON 

B8 AO 01 122 . TBN SCNOB2(¢XR2) FHE XAOS ARE BOT BITS ASSOC WITH ¢€ ON 

B9 O1 00 123 TBF FRSTB2(—XR2) FHEXOILS ARE TOP BITS ASSOC WITH ¢€ OFF 

BS 50 O01 124 TRF SCNDB2 (9 XR2) pHEXSO4 ARE BOT BITS ASSOC WITH € OFF 

F2 90 09 125 JF AAE120 NO--CLEAR TOP CHARACTER BIT 

BC OD 00 126 MVI FRSTB2(9XR2) ,HEXOD4 SET TOP BITS FOR € CHARACTER 

BB FO O21 127 SBF (SCNDB2( oXR2)_KEXFOS SET BOT BITS FOR 1 CHARACTER 

F2 87 03 128 J AAE130 FINISH SHIFTING CHARACTER 

eB 08 00 | 129 AAE120 SBF FRSTB2(¢ ¢XR2) gHEXO8S 

AE 41 41 41 130 AAE130 ALC LTXTI2Z€CeXR2) oLTXTIZILSHFT2,XR2) SHIFT LEFT 3RD BIT 

AE 41 41 41 131 ALC LTXTI2(¢gXR2) pL TXTIZCLSHFT2, XR2) SHIFT LEFT 4TH BIT 

AE 41 41 41 132. ALC LTXTI2€ eXR2) gLIXVIZ(LSHFT2,XR2) SHIFY LEFT 5TH BIT 

AE 41 41 41 . 133 ALC LIXTI2¢ gXR2) gL TXTIZ(LSHFT2,XR2). SHIFT LEFT 6TH BIT 

2C 00 0000 00 134 AAE140 MVC *—-*(HEXO14) pFAISTB2¢eXR2) INSERT THE CHAR IN PUNCH AREA 

OE 00 0324 020D 135 ALC PCHPT2(1) ,ONE2 ADD 1 TO OUTPUT AREA POINTER | 

3D 08 0324 136 AAE150 CLI PCHPT2sLENDE2 ARE ALL CHARS COMPLETED 

CO O1 02C4% 137 ' BNE AAEO90 NO--LOOP 

15JAN70 O9MARTO 17APRKT70 PROG 10 OHXT-1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM. 


HXT1 
ERR LOC 


0334 
0337 
0338 
033F 


0343. 


0347 
034A 
034E 
0352 
0356 
O35A 
O35E 
0362 
0366 
0329 
036C 
0370 
0374 


0378 
0379 
O37E 
0384 
0386 
0388 
O38A 
038C 
038E 


_ DATE 


EC NO. 


HEX TO TEXT PATCH CARD GENERATER 


OBJECT CODE ADDR STMT SOURCE 
7C £3 80 138 
SC 07 OF SF 139 
CO 87 0390 140 
21 F4 0387 141 AAE155 
22 F6 0389 142 
F3 FE 80 143 
Cl FA 034A 144 AAE160 
30 F3 038D 145 AAE165 
39 CO 038C 146 
CO 90 034E 147 
Cl F8 0362 148 
CO 87 O20A 149 
30 F3 0380 150 AAE170 
FO 3C 18 151 
F3 FB 00 152 
CL FO 036C 153 AAE160 
Cl F8 0362 154 
CO 87 033F 155 
156 
157 
158 * 
09 0378 159 ALPCN1 
0100000001 637D 160 ALCI11 
000000010000 0383 161 ALCI21° 
0001 0385 162 ALCI31 
0000 0387 163 ADDRD1 
0080 0389 164 ADPCHL 
615C 0388 165 SLASKL 
038D 166 SNSDAL 
038F 167 STREGL 
168 
169 
170 
171 * 
0000 172 FRST62 
0001 173 SCNDB2 
0041 174 LTXTI2 
0042 175 LSHFT2 
0OD8 176 LENDE2 
0057 177 LCEND2 
0209 178 ZERO2 
0200 179 ONE2 
O28C 180 LALC12 
0290 181 LALC22 
0294 182 LALC32 
0298 183 LALC42 
0324 184 PCHPT2 
0001 185 XR} 
- 0002 186 XxR2 
187 
"188 
189 
190 * 
0000 191 CRDID3 
0000 192 .CDCOL3 
: 0001 193 LNFLD3 
0080 194 PCHAD3 
OOFE 195 EDPM13 
OOFF 196 ENDPC3 
197 
198 
199 
200 * 
0000 201 HEX004 
0001 202 HEX014 
0002 203 HEX024 
0003 204 HEX034 
0008 205 HEX084 
15JANT7O O9MARTO 17APR70 
816576 616638 816677 


STATEMENT 


PCHAD3495 (8»—XR1)yCDCOL3495¢ »XR1) 


MVI —- PCHAN3( »XRLD g TXTIDS 
MVC 

8 AAFO10 

LIO ADDRDI,xX* Fae 
LIQ ADPCH1,X*Fe* 
S10 = X*80* »X*FES 
TIO AAEL60,X* FAS 
SNS  SNSDA1,X*F3° 
TBF SNSDA1—1¢X*Co® 
BF AAE165 

TIO AAE170,Xx*Fe* 

B AACO30 

SNS  SNSDAL,X*F3® 
HPL = X®1B",X#3C8 
S10 =. X* 00" xX "FB 
TIO AAE180,x*F9" 
TIO AAELT70,X*Fa® 

8 AAE155 


PART NO. 


2589646 
PAGE 5 


PUT *T*® IN COLUMN 1 OF TEXT CO 
MOVE ID TO PUNCH AREA 


LOAD PRINT BUFFER ADDRESS 
LOAD PUNCH ADDRESS 
START PUNCH ~ PRINT= 
WAIT ON PUNCH BUSY 
WAIT ON PRINT BUSY 

* 

* 
BRANCH IF PUNCH ERROR 
GO TO READ AGAIN 
SENSE TO TURNOFF NOP BIT 
HALT IF PUNCH ERROR 
PRIME SEC. WAIT 
WAIT ON BUSY 

BRANCH IF STILL ERROR 
RETRY THE PUNCH 


FEEO 


RERSEEKETELES EES EOEEEREEESES FEES OEE EEEES HEARSE EEEEESS 60064964 05040040008 


oc 
oc 
oc 
oc 
oc 
oc 
oc 
os 
os 


DATA SECTION 1 
XL1*og¢ 
XL5*0100000001 * 
XL6 *000000010000* 
XL2*0001° 
AL2(CRDID3) 
AL2(PCHAD3) 
Ctatsee 

CL2 

Cl2 


STORAGE CONSTANTS * 
CONSTANT ADDED TO ALPHA CHAR 
CHARACTER STRING FOR 
INCREMENTING ALC*S 


READ AREA ADCON 
PUNCH AREA ADCON 
SLASH ASTERISK 

SENSE CATA FROM MFCU 
REGISTER STORE AREA 


SHARALERSEASERAERERESESRSE KEK EESS EE ESEEREREKEEEE HAEKEE KEKE SEEESEEERREREEEE 


SREREREAALREEEREREA EKESRESKACREAEERASESRERAHEEEEKEKS 4EEKEKKEESKS £EEKEEETE OE 


EQU 
EQU 
EQU 
EQU 


EQU . 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQu 
EQU 
EQU 


DATA SECTION 2 
0 


1 

65 

66 

216 

87 
AAC02043 
AACO3043 
AACOTO4F1 
AACOT0¢5 
AACO70¢9 7 
AACO70413 
AAE 14043 
x*o1* 
xto2e 


LENGTH ANO MODIFICATION CONST. *# 
FIRST RELATIVE BYTE 7 ie 
SECOND RELATIVE BYTE 

LENGTH OF TEXT CARD IMAGE 

SHIFT LENGTH--EXPANSION 


LENGTH FOR COMPRESSION END 
ZERG CONSTANT FROM LA OPERAND 
ONE CONSTANT FROM LA OPERAND 
LENGTH BYTE OF 21ST COMPR ALC 
LENGTH BYTE OF 2ND COMPR ALC 
LENGTH BYTE OF 3RD COMPR ALC 
LENGTH BYTE OF 4TH COMPR ALC 
LOCATION GF PUNCH AREA BYTE 
INDEX REGISTER 1 

INDEX REGISTER 2 


SHKRETHEEEREEEAAKAKAHK ARE EHS EEEKEBERASESREREREHSERASEEEKASERERT HKAEKHEERETE 


EQU 
EQU 
EQU 
EQU 
EQU 
EQu 


DATA SECTION 3 
0 

0 

1 

128 

254 

255 


SEREREREREREREREASESEREKRECASEEEEEREREREREREEEESEE SAEED SE KEEREKEREREAESEDE 


1/0 POINTERS * 
CARO ID POINTEP. 

CARD COLUMN O POINTER 

LENGTH FIELD POINTER 

PUNCH AREA POINTER 


SEKEESEEKERKSESEREL A AEESEE EAE KAKERESESESESKAEEERSEEKESES HEKEKRARESELEEEAEESE 


SEEK EKEKSEREAEESKE KESSEL GREK SEEKERS EEKEREEKERERHESEKSES KEKE GEREESE EERE EREEEE 


EQU © 


EQU 
EQU 
EQU 
EQU 


DATA SECTION 4 
Xx*00* 
x*o1e 


- ¥*02° 


x*#03¢ 
x*oe° 


HEX CONSTANTS 
ZERO CONSTANT 


PROG ID OHXT-1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


HXT1 
ERR LOC OBJECT CODE 


0350 34 02 0455 
0394 34 08 0459 
0398 34 01 0451 
039C C2 61 0080 
03A0 C2 02 0390 
O3A4 SF G2 57 57 
0348 9C 00 CD 00 
O3AC AC 00 21 CE 
0380 88 OO CD 
0383 9C 00 28 00 
0387 BB OO CE 
O3BA AE 00 CE CO 
O3BE AE OC 18 DO 
03C2 AE 00 26 DO 
03C6 8D 60 18 
03C9 EO 82 18 
O3CC F2 84 10 
O3CF AC 00 CB CE 
0303 BC O2 18 
0306 BC O1 26 
0309 BC 00 CE 
030C EO 87 18 


O30F AC 00 CC CE 
03€3 BC OO 18 
“O3E6 BC 00 26 
O3E9 BC 00 CE 


O3EC 3C 00 O0D7 
O3FO AE O02 CC CC 
O3F4 AE 02 CC CC 
O3F8 BA OC CA 
O3FB B89 FO CB- 
O3FE F2 90 09 
0401 88 03 CA 
0404 F2 90 15 

. 0407 F2 87 15 
040A BD 9F CB 
040D F2 84 OC 
0410 89 EO CB 
0413 B9 O1 CA 
0416 BB O2 CA 
0419 F2 90 03 
O041C BB O08 CA 
O41F AE O02 CC CC 
0423 AE 02 CC CC 
0427 AE O2 CC CC 
042B AE O2 CC CC 
O42F BD 6A CA 
0432 F2 01 03 
0435 BC DO CA 
0438 2C 00 
043D 2€ Ol 
0442 30 00 OOD7 
0446 EO 81 60 


15JAN70 
816576 


CATE 
EC NO. 


0005 CA 
0438 D2 


ADDR 


ooo0d 
OOOF 
0010 
0050 
0081 
OOAO 
OOEO 
OOFO 
0007 
OOE3 


0390 
0390 


OSMARTO 


STMT 


206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 


HEX TO TEXT PATCH CARO GENERATER 


SOURCE 


HEX0D4 
HE XOF4 
HEX104 
HE X504 
HEX814 
HEXA04 
HE XE04 
HEXF 04 
PTCED4 
TXTID4 


PART NO. 2589646 
PAGE SA 


STATEMENT 
©QU x*oD¢ 
EQU X*OFe 
€QU x*10¢ 
EQU = x*508 
EQU x¢818 
EQU x*aoe 
EQU X*EQ¢ 
EQu) xX*FOF 
EQU x*o7e PATCH CARD ID 
EQU = xX*E3® 


FPECEEEEEEE SEES EELS EERESEEEEE SESS E4EEEEEREEED OEE EEE E9E4EOEEOEE 046064008 


AAFO10 


AAFO20 
AAFO30 


AAFO40 
AAFO50 


* 
AAFO60 


> © 


AAF 065 


AAFOTO 


AAF O80 
AAFOSO 


AAF100 


L7APR70O 
816677 


USING AAFO10¢1 
USING AAFO10,2 

ST AAF91043 gXKR2 
ST AP=92043 ARR 
ST AAF90043_XR1 
LA PCHAD3»,XR1 
LA AAFO10,XR2 


SLC CKSUM(,XR1) pCKSUM(3,XR1) 
MVC CKWORK( 9 XR2) 9 %—-8(1_XR1) 

MVC AAFO3041 (9 XR2) op CHECK(14XR2) 
SBF CKWORK (9 XR2), 4-28 

MVC AAF 050410 ¢XR29 9 %-¢(1,XR1) 
SBF CHECK ( ¢XR2),8—* 

ALC CHECK (4 XR2) CKWORKO1 gXR2) 
ALC AAFO204309XR2) eCKTWOC 1, XR2) 
ALC AAF 04043 (,XR2) pCKTWOC1,XR2) 
CLI AAF 02 043( 9 XR2) 9 X*60® 


BL AAFO20(,XR2) 
JH AAFO60 


MVC = CALCK=1€ 9 XR2) gCHECK(E 12 XR2) . 

MVI AAFO20430—XR2),x*O1* : 

MVI —- AAF04043(9XR2) 9X 021° : 
MVI CHECK (, XR29,X*008 

B AAFO20( 9 XR2) 

‘MVC = CAL CK 0p XR2) gp CHECK (1,XR2) 

MVI - AAFO20¢3(9X22)_X*008 

MVI - AAF0404309XR2)_X*008: : 

MVI = CHECK, XR29  X* 008 : 

MVI PCHAD3487,X*008 . nee 
ALC = CALCK 0 XR2) gCALCK (3g XR2 

ALC = CALCK £5 XR2) gp CALCK(3_XR2) 

‘SBN CALCK—2(9XR2) —X*OC® 

TBF CALCK-16—XR2) oX*FO? 


JF AAFO70 

TBN CALCK=2 € »XR2) -X*03* 
JF AAFO8O 

J AAFOS0 

CLI CALCK—1€ gXR2)QX°9OF® 
JH AAFO8O 


TBF CALCK—-1 0 ¢XR2) g XP EOS - 
TBF CALCK—2 (9 XR2) gX*O1* ; , 
TBN CALCK~-2(9XR2) 9X*O02® 


JSF AAFO90 


SBF CALCK-2(9XR2) ,X#08* 

ALC  CALCK (9 XR2) gCALCK (39 XR2) 
ALC  CALCK Uy XR2) gCALCKE3_XR2) 
ALC —_ CALCK 0g. XR2) g CALCKE3.9 XR2) 
ALC —_ CALCK Cp XR2) pCALCK E39 XR2) 
CLI CALCK-24 4 XR2) yg X* HAP 

JNE  AAF100 

MVI - CALCK=-252) 9 X*DO® | 

MVC = PCHAD 34. 854 CALCK=20 1 XR2) 
ALC AAF10043yCKONE(29XR2) 
CLI PCHAD3¢87,_,x* 008 : 


BE AAF065( 9 XR2) 


PROG ID OHXT-1 
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ee HXT1 | 
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ERR LOC 
C . 0449 
044E 
0452 
© 0456 
oe O45A 
0450 
245E 
Q 045F 
0461 
0463 
© 
Qe 
© 
Co 
© 
© 
aa. 
0 
e 
eo 
© 
ee Ss 
Q 
O 
o 
6 
0 
oO 
6 
6 
S 
o 
Q : 
DATE 
EC NO. 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


HEX TO TEXT PATCH CARD GENERATER 


OBJECT CODE ADOR STMT SOURCE 
2F 01 0438 04 274 
C2 01 0000 275 AAF900 
C2 02 0000 276 AAF910 
CO 87 0000 - 277 AAF920 
0008 278 ARR 
0057 279 CKSUM 
045C 280 CALCK 
045D 281 CKWCRK 
00 045E 282 CHECK 
0002 0460 283 CKTWO 
0001 0462 284 CKONE 
0003 0464 285 CK3 
0203 286 
15JAN70  O9MARTO = T7APRTO 
816576 816638 816677 


PAGE 
STATEMENT 
SLC AAF10043,2CK3(2_XR2) 
La t—#,XR1 
tA #~—€yXR2 
8 tH 
EQU x*o068 
EQU 87 
os cL3 
DS cor 
oc XL1*oo0* 
oc XL2*0002* 
oc XL2*0001° 
oc XL2*0003* 
END AACO15 
PAGE 
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PROG 1D 








2589646 
6 


OHXT=1 | 


6 





HXT1 


SYMBOL 


AACO10 
AACOLS 
AACO20 
AACO30 
AACO40 
AACO42 
AACO4B 
AACO50 
AACOSS 
AACO5T 
AACO60 
AACO65 
AACO79 
AAEO80 
AAEO90 
AAE100 
AAEL1O 
AAE120 
AAE130 
AAE140 
AAE150 
AAE1L55 
‘AAEL60 
AAE165 
AAE170 
AAE180 
-AAFO10 
AAFO20 
AAFO30 
AAFO40 
AAFO50 
AAFO60 
AAFO6S 
AAFO70 
AAFO80 
AAFO9O 
AAF100 
AAF900 
AAF910 
AAF920 
- ADORDI 
ADPCH1 
ALCTI11 
ALCI21 
ALCI32 


oo @0 0000 0.00 0 0:00 08 @ 


. 
. 
te creme ere 


ARR 
CALCK 


. 


COcoL3 
CHECK 
CKONE 
CKSUM 
€KTWO 
CKWORK 
CK3 
CRDID3 
 EDPM13 
ENOPC3 
FRSTB2 
‘HEXA04 
HEXE04 
HEXF 04 
HEXOD4 
HEXOF4 


yr 


C 
Oo 
oO. 
© 
© 
@ 
e 
® 


Soe we 


le 
DATE 
EC NO. 





ALPCNT. 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


HEX TO TEXT PATCH CARD GENERATER © 


LEN VALUE 


003 
003 
004 
004 
004 
004 
005 
003 
003 
005 
004 
004 
004 
004 
003 
003 
003 
003 
004 
005 
004 
004 
004 
004 
004 
004 
004 
004 
003 
004 
003 
004 
004 
003 
003 
004 
005 
004 
004 
004 
002 
002 
005 
006 
002 
001 
001 
003 


0200 
0203 
0206 
020A 
0215 
0220 
0232 
0242 
0266 
0267 
026C 
0278 
0288 
0289 
02C4 
O2DE 
O2F6 
030€£ 
0311 
0321 
032C 
033F 
034A 
034E 
03u2 
036C 
0390 
03A8 
0380 
0383 
0387 


O3FO 
040A 
041C 
O41F 
0438 
044E 
0452 
0456 
0387 
0389 
0370 
0383 
0385 
0378 
0008 
045C 


POPP PrP PPP PPP PPP PPP PP PP PPP PP EPPPPPPPPrPPPPrPPPPrPPPrPPPPrPPrrP «+ 


001 
001 
002 
001 
002 
001 
002 
ool 
001 
001 
001 
001 
ool 
001 
001 
001 


0000 


0462 
0057 
0460 
0450 
0464 
0000 
OOFE 
OOFF 
0000 
OOAO 
OoEO 
OOFO 
000D 
OOOF 


AHAAMAMAANVCAAAP EP RPOrPO . 


15JAN70 
816576 


O3DF. 


O45E. 


DEFN 


0040 
0041 
0042 
0043 
0046 
0049 
0054 
0058 
0068 
0070 
0071 
0075 
0079 
0102 
0105 
0113 
0121 
0129 
0130 
0134 
0136 
0141 
0144 
0145 
0150 
0153 
0219 
0225 
0227 
0228 
0229 
0242 
0248 
0256 
0262 
0263 
0270 
0275 
0276 
0277 
0163 
0164 . 
0160 
0161 
0162 
0159 
0278 
0280 


0192 
0282 
0284 
0279 
0283 
0281 
0285 
0191 
0195 
0196 
0172 
0211 
0212 
0213 
0206 
0207 


O9MARTO 
816638 


. 0270 


CROSS-REFERENCE 
REFERENCES 


0055 
0286 
0178 
0053 
0046 
0047 
0048 
0074 
0061 
0063 
0059 


0057 0069 0149 0179 


0051 
0065 
0067 


0085 0160 0181 0182 0183 
0137 
0109 
0114 
0112 
0111 


0184 


0119 
0120 


0125 
0128 


0155 
0144 
0147 
0148 
6153 
0140 0217 
0231* 0233 
0226 
0232* 0238¢% 0244% 
0228 
0235 
0273. 
0252 
02 54 
0255 
0268 
0221 
0219 
\0220¢ - 
0044 0141 — 
0142 


0154 


0223 
_0237* 0240 


0218 
0234 


0257 
0261 
O271* 0274% 


0083 — 
0070 
0220 
02 36* 
0260 


0242* 0248 0248* 0249 
0262% 0263 0263* 0264 


0058 
0226 

0271 

0224 

0221 

0225 
0274 

0054 

0104 
0103* 0104 
0105* 0110 
C113 0122 
0118 

0127 

0126 

0110 


0060 0062 0064 0066 
0229% 0230* 0236 0239% 


0224 
0232 
0227# 0230 


0056 0163 


0115 0117 0122 


LTAPRTO 
816677 


PART NCe 2589646 
PAGE ary 


0243 


024S* 0250* 0251 0253 0256 0258 0259. 
0264* 0265 C265* 0266 0266% 0267 _ 02698 


0070* 0087¢ 0089 0139 
0242 0245% 


0123 0126% 01329% 0134 


PROG 10 ' OHXT=2 
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. 18M MAINTENANCE CIAGNOSTIC PROGRAM PART NO. 2589646 | 1BM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 2589646 
@ ; Sree PAGE 7 S PAGE 7A 
% HXT1 HEX TO TEXT PATCH CARD GENERATER i. HXT1 HEX TC TEXT PATCH CARD GENERATER . 
CROSS-REFERENCE OBJECT CARD LISTING 
e SYMBOL T LEN VALUE DEFN REFERENCES e 7 . ee oe 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT 
HEX004 C 001 0000 0201 0075 0076 0077 0078 “ ° 
€ HEXO14 C 001 0001 0202 0117 0123 0134 CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 UGH 
HEX024 C 001 0002 0203 0115 0121 | G CL 81 THRO 9 
HEX034 C 001 0003 0204 0105 | 
e HEXO84 C 001 0008 0205 ue : eo e oo = we e e e wt 0% w. 6é 
HEXL04 C 001 0010 0208 0108 0116 T+-H 2aG1T3"- 0-D SHB D1°E*G3"D = OmDBE*GO SC2/1H 0904 (4¢aC T=HEA® @NOBG -Z( E0CSAaB A - 31Ut 
one HEX504 C 001 0050 0209 0124 fee 1LUHXT10007 
C —- HEX814 C 002 0081 0210 o102 6 oy ‘ors as ee Bs ae 55 a wae ae f 
LALC12 A004 O028C 0180 0075* T+-15-)* 0 DBB,5 THAT.7A |HBDs7 G IHBD#70 fHEA,7 : (HBCLAZE<BG -D + CsC&B 8"S -D eNo< Ee 4HX i 
LALC22 A 004 0290 0181 00768 , 110008 
Cc LALC32 A 004 0294 0182 0077? . ° en ° ee we eo ee ‘ . x ober. ~ack Pere i 
LALC42 A004 0298 0183 0078* 0083% 0084 T+-HOT@BB UH =H <{ BUCO Z&@ H QP-APNS8 NS); E) PP-APNOK< Z-C/L5 P ZT EHLLO A -5 a ~1*HXT10009 | 
LCEND2 C 001 0057 0177 0073 0079 079% 0080 o008C* 0081 0081* 0082 0082* 0084 
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826677 


TRACE PROGRAM RELOCATI 


THIS LOADER LOAD ORJECT DECKS WITH 
SPECIFIED CN THE "MECK® CARD. NO 
BE LOADED BELOW CORE . OC. X*030C* 
BUT A 256-BYTE BONDARY. 

TEXT CARD: THE INSTRUCTIONS 
ON THIS CARD ARE 
FORMAT AND MOVED 
LOCATION. 
END CfRDs THE ABSOLUTE CAP 
CONTENTS CF THE 
AND TRANSFERS CO 
REPRESENTED ON T 
SIVEN LOCATION W 
INSTRUCTIONS RES 
CLEAR THE LOADER 
THE ENTRY POINT 


PEFORE MOVING ANY DATA INTO CORE, 
MACHINE CORE CAPACITY TO ENSURE T 
NECESSARY TO EXECUTE THE PROGRAM 


£ouU * 


ORG x*6of 
USING AAAO10,1 


HPL 
B 


K*6C*,Xx*7C8 
&AA0300,4XR1) 


$2 

JNP 
“VI 
SNS 
TRE 
JT 

HPL 


95(3_,XR1),AAA085(1,XR1) 
AAA0N60 
ARAOTO4+2(—-XR13,X*038# 
920 _eXR1L7,XtF3° 

O21 9XR1),X°FFe 

AAA110 

X* 76" ,X*68! 

eee eK ee 


eer aes 


LA COND-10 gXR1)_XR2 


RECKEEE 
KEKEKKKS 


EERERE 


NOTICE **x844%% 


ERECKKEKES 
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MVI AAA16042(,XR1),ADAG41 


O5JUN7O 
816707 


PART NO. 2589648 
PAGE i 


BEGINNING AODRESS OF 


SKSESSSCKSEKKSERSESKSSHEKERSKEEKKEKE KE KKAERKSRESEKSESEKKSECEKSERKSEKS SESH SEKRKE KE KKLE SSR 


NG LOADER 


FORMAT OPTION #28 
PROGRAM CAN 
OF ON ANYTHING 


AND CONSTANTS REPRESENTED 
COMPRESSED INTO THE REQUIRED 
INTO THE SPECIFIED COPE 


D LOADER COMPRESSES THE 

END CARD INTO ERCDIC. FORMAT 
NTROL TO THE INSTRUCTIONS 

HTS CARD 8Y BRANCHING 19 A 
TTHIN THE I/O AREA. THESE 
RESENTED ON THE END CARD 
FROM CORE AND BRANTH TO 

CE THE PROGRAM LOADED. 


THE LOADER CHECKS THE 
HE AVAILABILITY OF CORE 
REING LOADED. 


a 


KEKE SAER SSE KKSSKEAASSRKSSKKSKERIAKARERKARKAAASKAKKAES ERASE FRERSKAKRESEKE 


LOADER 1/0 AREA 
SASE ADDRESS 


BEGINNING ADDRESS OF LOADER 
ESTAPLISH BASE ADDRESS 
THE PROGRAM BEING LOADED 


REQUIRES MORE CORE THAN IT 

HAS AVAILABLE--THE LOAD PROCESS 
TS TERMINATED AT THIS POINT AND 
SHOULD NOT BE RESTARTED 

TF PAST FIRST THREE CARDS OF 
PHASE, CHANGE HPL T3 £1 


STORE THE CONDITIGN CODE 
TEST FOR ERRC® CONDITION 
JUMP IF NO CRROR 

HALT CUE TO ERROR CONDITION 


eee aes - ese ee 
INITIALIZE INDEX REGISTER TWO 
SO THAT IT POINTS T3 THE RIGHT-— 
MOST BSYTE OF THF SECTION CF YHE 


1/0 AREA TO BE COMPRESSED 


INDEX PEGISTER ONE WAS 
INITIALIZED TO ZERO WITHIN 

THE ROOTSTRAPEING ROUTINE $9 
THAT THE INDEX REGISTER CAN BE 
USED IN CONJUNCTION WITH THE 
BASE ADDRESS OF ZERO 


INITIALIZE POINTER FOR TESTING 
EACH BYTE FOR SPECTAL CHARACTER 


PRAG 10 OTRA-—2 
PAGE 1 


FE RS HE 


oo 


® 2: 


™ ‘ 


2 


) 


oO 


oO 


c) 


Q 


<2 


oe @e ®@® 9 @ 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


TRA2 


ERR LOC 


0082 


o0c8s 
oo8ss 
oo0sRF 
OO8E 


0091 
0094 
0097 
OO9A 
oo9s0 
COAO 


00A3 


OCA6 
OOAA 


OOAE 
ooBl 
OOB4 
O0OB8 


ooBB 
JOBF 
ooc3 


Ooc? 
OOocaé 
90cD 
ooDl 


000s 
0008 
90DB 
OODE 


OOE2 
GOES 


OOEA 
OOEC 
OOED 


DATE 
ec NO. 


+ * * TRACE PROGRAM PELOCATING LOADER * * * 


OBJECT CODE 


7C 58 CF 


72 
FS 
Bi 
DO 


7D 
bo 
7D 
DO 
719 
bo 


7 


5F 
5C 


70 
DO 
5C 
7C 


AE 
AE 
5E 


75 
co 
6C 
SF 
76 
DO 
7D 
co 


SE 
co 


FS 
Fi’ 
Fl 
87 


E3 
81 
cs 
01 
03 
90 


oo 


00 
oo 


DO 
01 
00 
2A 


co 
co 
00 


04 
82 
02 
co 
02 
02 
cs 
01 


01 
87 


FFFF 


FC 


0000 


EE 
00 
8 
66 


00 
A3 
00 
7 
58 
66 


BC 


BO 
co 


00 
BB 
BA 
co 


01 
01 
BC 
BC 
A& 
58 
CF 
EC 
4&3 


0G 


B2 


BC 


BO 


o1 
01 
B2 


oo 
6E 


O1EO 


E9 


i9 


oooo 


15JAN70 


816576 


OOMART 
816638 


eget 


at 


fe oa oo 

oP inst 
age FART NOe 2589848 
se PAGE 1A 


ay ae 
é ff 
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ae 


TR Ne, mR ee tale ti a 


ADDR STMT SOURCE STATEMENT 
70 MVE LEN3()XR19,AD94 INITIALIZE THE INSTPUCTION 
714 WHICH RIGHT ADJUSTS THE gees 
72% COMPRESSED BYTES Se 
73 LID —_ ZEROLY XRD YX*ES® INITIALIZE THE I/O AREA ADDRESS” 
74 AAAOSS5 SID X*00",XtFI# READ CAPD INTO 1/0 AREA 
75 AAAOSO TID AAAOIOL»XR1)4X"F1® WAIT FOR COMPLETION OF 1/0 
76 AAALOO B AAA0SO{ XR) TEST FOR ERROR AND HALT IF 
77 * ERROR CONDITICN IS PRESENT 
78 AAALIO CLI AAAO10C gXR1)_ TEXT IS THIS A TEXT CARD 
79 BE  ARALZOU,XR1} VES 
80 CLI AAAOLO(,XR13,END 1S THIS AN END CARD 
81 BNE ALDAA(,XR1) NC--EXTRANEDUS CARD-— 
82 TRF -§10,XR1)9X"038 
83 BF  AAAOSO{,XR1) 
84 + PEAD ANOTHER 
85 AAAL3ZO MVI  LEN1(,XR1),ZEROI INITIALIZE THE LENGTH FIELD OF 
86 * THE FIRST COMPRESSION 
87 * . INSTRUCTION 
88 AAA1SO SLC AAA1E0#2(1eXR1),ONEC( XR) DECREMENT POINTER FOR TESTING 
89 # EACH 8YTE FOR X*DOF 
20 MVC LEN2(€1,XP1),LEND(,XRL) SET LENSTH FIELD OF SECOND 
91 | COMPRESSION 
92 AAAL60 CLI *-*(,xR1),HDO CHECK FOR X*DO° 
93 BNE  AAA180(,XR1) NOT x*DO" 
94 MVC AAA17042(1,XR1),AAA16042(4XR1} REPLACE X*D9" WITH X*#2A" T 
95 AAAL70 MVI 9 #-*0,XR1),H2A ENSUPE UNIQUENESS OF LOW 
96 O2ADER SIX BITS 
97 AAAL8D ALC = 1014XR2)4109XR2) FIRST COMPRESSION INSTRUCTION 
98 ALC 119 XR20510yXP2) SECOND COMPRESSION INSTRUCTION 
99 ALC LEN (1_XR1),ONEC(,XR1) INCREMENT LENGTH IN THE 
100 * COMPRESSIGN INSTRUCTIONS 
101 CLI LEN1(,XR1),HOS HAVE FOUR RYTES BEEN COMPRESSED 
102 BL AAA150(yXR1) NO--CONTINUE COMPRESSTNG 
103 AAA190 MVC ADB4(34XR1} 900 eXR2) RIGHT ADJUST 3 COMPRESSED BYTES 
104 SLC LEN3(1,XR1),THREC, XRD) DECREMENT RIGHT ADJUSTING 
105 * INSTRUCTION FOR NEXT 3 BYTES - 
106 A MINUS4(XR1)_ XR2 DECFEMENT REGISTER FOR 
107 + COMPRESSION 
108 BNL AAA1300,XRi) CONTINUE COMPPESSING CONTENTS 
109 * OF 1/0 AREA 
110 AAAZ10 CLT  AAAOL0(,XR1) ¢ END COMPRESSION IS COMPLETE-- 
li * 1S THIS AN END CARD 
112 BNE  AAA240 NO-GO HANDLE TEXT CARD 
113 ALC RELADR(2yXR1) gLNADDRUyXELD CALC. ENTRY PT. OF PFOS. ; 
114 B 2% BRANCH TC P20G. ENTRY PT. oe: 
OOES 115 RELADR EQU #2 THIS AREA IS INITIALIZED 
116 * BY THE ADDRESS/DATA 
117 * SWITCH SETTINGS AFTER 
128 * THE "CU HALT ON THE LAST 
119 * CARD OF THE LOADER. 
120 * 
121 * 
122 * EQUATES AND CONSTANTS 
OCER 123 MINUS] DC XL2°FFFF® MINUS ONE 
OOEC 124 KENUS4 DC = XLITFC® DECREMENT VALUE FOR RT-ADJUST 
OOFE 125 ZERO DC  xL2*00008 VALUE FOR LIO 
0055 126 CONDA EQU ‘x*55* RIGHTMOST RLD BYTE AFTER 
127 # COMPRESSION. 
C058 128 COND EQU. x*sBF POINTER TO RIGHTMOST BYTE 
129 * TO SE COMPRESSED 
0001 130 xRl EQU 1 INDEX REGISTER 1 
0002 131 XR2.- EQU 2 INDEX REGISTER 2 
OCPC 132 LENT EQU  AAA18001 LENGTH BYTE OF FIRST COMP INSTR 
OOCO 133 LENZ EQU AAA18C45 LENGTH BYTE DF 2ND COMP INSTR 
OOCF 134 LEN3  £QU  AAA190~2 POINTERS FOR RIGHT ADJUSTING 
OCODO 135 LEN’ EQU  AAA19083 COMPRESSED CODE 
OCE3 136 TEXT EQU xX*E3* TEXT CARD IDENTIFIER 
ocC5 137 END EGU x*C5* END CARD IDENTIFIER 
0 17APR70 05JUNTO PROG ID CTRA-2 
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PART NO. 25289648 eS 
PAGE 2? e 
i 
{ @ 
STMT SOURCE STATEMENT ' 
138 FROM EQU x*1LAP LEFTMOST 8YTE OF COMP CODE i @ 
139 7EROQI EQU  xX*O008 INITIALTZATION VALUE 
140 H#DO EQU =x*DOF NON-UNIQUE LOW ORDER 6 81TS 
141 H2A FQU xX*2A~A® UNTQUE LOW ORDER 6 BITS @ 
142 ONE EQU x01? INCREMENT=DECREMENT VALUE gent 
143 B84 EQU = x*008 POINTER FOX COMP INST a 
144 AD8& EQU  CDI'D POINTERS FOR RIGHT ADJUSTING @ 
145 A083 €QU  CDND-1 COMPRESSED CODE 
146 PROC EQU ALA09046 BEGINNING OF PROCESSING 
147 TRANS FQU xt19# LOCATION IN I/O AREA TO WHICH © 
148 * COTROL IS TRANSFERRED AFTER AN 
149 * END CARD HAS BEEN P®ACESSED 
150 LNADDR EQU xtice LOCATION OF ADDRESS FIELD AFTE? © 
151 % COMPRESSTON 
152 LENGTH EQU) LNADDR-2 LOCATION OF LENGTH FIELD AFTER 
153 * COMPRESSION 6 
154 CORSIZ EQU LNADOR-1 ADDRESS 2YTE WHICH IS USED TC 
155 * DETERMINE If THE AVAILABLE oF 
156 * CORE 1S ADEQUATE © 
157 COREND EQU xX*OI17E* LOCATION OF CONFIGURATION BYTE 
158 THRE EQU  AAA08041 INCRE MENT-DECREMENT 
159 ONEC OU AAAL6044 CONSTANTS G 
160 HO04 EU 4 @IGHT ADJUSTING VALUE 
161 ORG x*O1fOt 
162 AAA240 MVC  AAA2B804313),LNADOR( ge XR1) SET UP CORE LOCATIONS TEXT o 
163 ALC AAA28O4+3(2),RELADQ(,XR1) IS 10 BE MOVED TO. 
164 LA CONDAC2XR1),XR2 SET POINTER TO RIGHTMOST RLD 
165 * FLAG. Cc 
166 AAAZ50 CLI O,XP2),x*"008 MORE RLD FLAGS? 
167 JE AAA270 NO-JUMP 
168 MVI  AAA26042,F ROM SET UP TO ADD RELOCATION VALUE C 
169 ALC &AA26042(1),00,XR2) TO ADDRESS IN TEXT. 
170 AAA2Z60 ALC *—-*(2_¢XP1) gRELADR(,XRD? ADD RELOCARION BALUE. 
171 A MINUS 1(9XR1),XR2 DECRIMENT RLD PTR. BY CNE. o 
172 B AAA250 GO PROCESS NEXT RLD FLAG. 
173 AAA270 MVI  AAA2804+4,F ROM SFT DISPLACEMENT OF 
174 * FROM ADDRESS IN INSTEUCT TO MCV CG 
175 * LEFTMOST SYTE OF TEXT AFTER 
176 * COMPRESSION. 
177 MVI =- LENGTH-1(,X21),X#00" GET LENGTH OF TEXT INTO G 
178 L LENGTH( X21) 4 XR2 INDEX REGISTER TWO. of 
17° * THE .Q-BYTE FOR THE 
180 * FOLLOWING INSTRUCTION oO 
1281 * IS SET UP BY THE BOOTSTRAP. 
1862 * LOC. X*O17E*® IS MOVED IN. ; 
183 CLI AAAZ28042,%-* IS CORE AVAILABLE FOR MOVE? | OQ 
184 SHREAKEKKESHRAAEKRAEEEKHK EAA RAKEASAKEAKAAASEAERKKSESHEKKAKSAKA REAR EEKK EAE KH | 
165 * * 
186 * THE FOLLOWING BRANCH INSTRUCTION IS NOP*D IN THIS LOADER * | Q 
187 * TO DISABLE THE END OF CORE HALT EC). THIS ALLOWS THIS LOADER TC # 
188 * BE USED ON BOTH THE MOODLE C AND D SYSTEMS. * | 
189 * * | G 
190 FEEKKEKAAKEEKSKSEKKEKEKEKSEKREKKSERSEKERKSKSAASEKRSEKESAAEASEKSKSASEKIAKSEKASESAAHEEEE 
191 BY AAAO30 NO-HALR. | 
192 AKAA280 MVC -*~-# (#—-#),*—-*(,XR2) MOVE TEXT TO STOREGE. | So 
193 B ALDAA1] GO READ NEXT TEXT CARD. | 
| © 
a ay 
| © 
| 
| o 
! 6 
o 
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PART WO. 258964R 
PACE . ' 2A 


ADDR STMT SGURCE STATEMENT : 
195 Ghee 4 £004 0444496050048 4 4000655 6090008 59 00405 09844045 0 h88 0449404 848s OO 
196 * * 
197 * LISTING OF IPL CARDS * 
198 * : * 
i99 * JHE FIRST LINE IN EACH PAIR OF LINES CONTAINS THE PRINTABLE * 
200 * CHARACTERS ON THAT TIER. THE SECOND LINE 3S THE INTERNAL HEX * 
201 * CODES. EACH GROUP OF TWO LINES REPSESENTS ONE TIER OF A CARD * 
202 * AND THREE GROUPS MAKE UP A COMPLETE CARD. * 
203 * € 
ZOG SHEESERSRESSECERASESK EASES RESALES HRESSERSESEKERAKERKKKCAHERSEKEASE SAAS KK KEKEKKE 
205 * BA *.", *GXAt ae & 

206 * C2C140405C4B 7F €8 SCCTETE3 TASEC 1 TED040F 44 0404040404040404040404040 
207 * . 
208 * 1s * 31 % 1 028 & G- P- JTRaAl 
209 *& FIFSTFESFI4GOFIF 14S 0004040F OTCECDOCT 60D 760404040404 0404040E3DEC IF 
210 * 
2il * 20264 48417122029 * 449 i42i1 TRAZOOOL 
212 * FOTCFEF4L4OF4FOFGE LICFS TOE 4ESTICSOF LESE 2F 140404040E 3D9CLF2FOFOFOFL 
213 * 
214 * 
215 * 
216 = * Ii M* MFG 4~ H20CaeC #403 
217 * SCCSFIDGESCDO4CEOF4DO4GOF45F CBF 2C4CE3 7TCS TRE OF 3404040404040404040494C 
218 * 
219 * x¥onme 2G COVY@AKBPAROGOAAGA I 15 TRA? 
220 * SCFOTFSCFE2S509N8F OF BF 6D2ZC2Z2077TITCDOE OCDE GFF 1F 5404 040404046040 E3NSCIF2 
221 * 
222 * = 3 2 ®*7a26 3 6 = ¢ = 2 3 TRAZ2GQ00 2 
223 * 407TETATC4O IDET TCE 2F64S0F 3F 640 7E 7940 TEF 2 7TAS0404040£ 3D9CLF2FOFOFOF2 
224 * 
225 * 
226 * 
227 * * ] M*MV 4 4>31 Jol. GW 
228 * SCC OD OD45CD4ZES5 F4D 0G0FL6EF3FIGODIFIGPDOC TEE 404 0404040404049404040 
229 * 
230 * at AT'*' E Aadg9cs wa a TPA SB - 
231 * 7DE340D0C1E37DC 54 0D0C1 7CF9C B5BDOD0TE 70497040404040494040E3N9SC1F3 : 
232 * 
233 * as5a1%446¢1438234 l= 5 # TRA2Z20C03 
234 * 40 7CFS7TCFELIDFS 7CF LE SF SF SF 2F SF 440F 1 TE GOF 5 78 464040E 3D 9C1F 2FOF OF OF 3 
235 + . 
236 * 
237 * ! 
238 * *FI?eM*t MD 4 4. 02 * a 
239 * SCC 96FD45CD4C4F40040F 45F40F 0F 250404070 7900404 0404040404040404040 
240 * 
241 * A # * : 0a > AAD> AA $ TRA G 
242 * 40D0C1785C40 TAFO7TCD04S06£40C IC 16E40C€ 1015 £4040404040404040E3C9ST1F4 
243 * 
244 * ler « e3 5 71385 7735#*" 1 TRAZOCOG&4 
245 * FITCTETE407DF 3 7D040F 7FLFESF5SF TF TFE 355 7B TF 49FI 404 040F 309C LE 2FOFOFOFS 
246 * 
247 * 
248 * 
249 * *3I+M*#ntyTy4 4a2" Da Rwszpse7 
250 * SCC 94ED45CD4E3F4D040F4 TCF2 7004 7C DOCZE GECC 2 404 040404 0404040404040 
251 * 
252 * Q ~ {>68 8 BYFteE AA-3 A TRA 5S 
253 * 08405F 404F 6E F6ECZ6CDOC 2E37DC 540400 1C 1605FC1 40404040404040EZ09C1 FS 
254 * 
255 * 2*seft2az2"243° & ®*=3 7 6 " TRAZOQO0S 
256 *® F27DF87DE27CE2 7FF 2° 4F 3 TOFS40707E F 3F TF 64 07F 404 040E 3DECLF2ZFOFOFOFS 
257 * 
258 * 
259 * 
260 * * > J 4290 G wea 
261 * SCSAGEDILDO4OFSESD8S0C T40407F TF IC 40404040404040404040404040404040 
262 * 

O9MARTO 1TAPRTO OSJUNTO PROG 10 OTRA-2 

816638 


€16677 816707 PAGE 2a 











& @ & @ , ; a eo : 
: © . : é 2 ; 


e 7 8 
[i 2. JBM MAINTENANCE DIAGNOSTIC PROGRAM =? PART NO. 2589648 | TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589648 
® | ; : | PAGE 3 ¢ PAGE 3A 
e TRA2 * * &© TRACE PROGRAM RELOCATING LOADER * * & & TRAD * *¢ * TRACE PROGRAM RELOCATING LOADER ** € 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CROSS-REFERENCE 
e 263 * TRAE “@ SYMBOL T LEN VALUE DEEN REFERENCES 
264 * 40404 04040406040405 040404040404 04 04 0404040404946060404040E3D9C1 FE . 
; 265 * i AAAC1O & 001 0000 0033 0037 C078 0080 0110 
e 266 * 48a 4 a8 4 88844 TRA2000 6 | @ AAS030 & 003 0060 0039 0040 0191 
: 267 * 40F SFETCSOFSS4O407TCEBF4S4040F CFEF BFS F44049040404040F 3D9CLFEZFOFCEOCES $ AAAOSO A 004 C066 0045 0076 0083 
ao 268 * AAAQ60 A 003 0070 0048 0046 
e 269 * & Asao70 A 003 0079 0051 0047% 
270 * ; | AAAO80 A 003 O06D 0047 0158 
271 * *ECAX™** MA DS 6*BB*R 3 AB | AAAOBS A 003 O088B O74 0045 
Cc 272 * SCC TICLE TD4&5CD4C1ICF 4D040F 45C0 20 250 DOSEC 1024040404 040404040404040 ' @ > AWAao90 A 003 OOBB 0075 0075 0146 
273 * AAALOO A 003 OOCBE 0076 ce 
274 * *2KeN? 204"> Aze> AE 3 TRAT “""" &4AA110 A CO3. 0091 0078 0050 ic 
e 275 * SCESD2C 205 7TD4G40F 26 iD47C SAC 2 TE GE SOC 1 TES O5E 464040404046040E3D0°C1L F7 @ A&a130 A 003 OO0A3 C085 0072 0108 
276 * AAA1LSD A C04 OOAG 0088 0102 
277 * 5ae3=7* * 8*3517T=*5* 682A TRAZ2GOO0T7 AAAL6G A 003 OOAE 0092 0068* OC0&8* 0094 0159 
c 278 * FSTCTCF3TEF TID IDE RT OF SESE LETTE TDESTEF6IDIC £04040E 3D9CIFZFOFOFOFT @ Aaaai70 A 003 COBB 0095 0094+ 
279 * AAA1L80 A 004 OORB 0097 0093 0132 01323 
280 * AAA190 ¢ 004 OOCD 0103 0134 0135 
e 281 * @ AA&A210 A 003 CODB 0110 
282 * *GBDM* MBRG 4 A 768 + G AAA240 A 005 O1FO 0162 0112 
283 * SCCTC2C4D45CD4C2D9F 4D040F 4C 140E OF 6C 268406 7404 0404040404040404040 AAA250 & 003 O1Ev 0166 0172 
6 284 * ; & Aaa260 A 604 OFC 0170 0168* 0169% 
a“ 285 * ALO B)ao GSE BS ~ % TRA ® { AAA270 A 004 0207 0173 0167 = 
Mes 286 = CLOEDTC5AC2£ DIC 40D6F 5620770400 2584040406 06040404040404040E379C1 FB a AAA280 A 005 0219 0192 0162* 0163* 01732* 0183 
© 287 * | €& avez C001 0057 0145 
288 * PCE eee Mee me Be Be Ae BS TRA20008 AD84 C€ OO1 O058 0144 C068 0070 0103+ 
289 * F77ETDTOTEFSICTOTFTEFS3ETF1 7DFTFITA TEF SF 8F5404040E 3N9CIFZFOFOFOES ALDAAO A 0C1 0000 0002 
& 290 * . G  AtdDAAl A 003 COTC 0055 00R1 0193 0304 
291 * 884 C 001 000 0143 
292 * | COND C O01 oO5R 0128 0055 0144 0145 
¢: 293 * *FB-M< BKA= Ge 63. G cCONDA C COl 0055 0126 0164 
294 * 5CC6C260044C40C2D2C 1 TE DOC 76040404040D0C 770 404 0404040404040404040 | COREND C OCL O1LTVE 0157 
295 * | CORSIZ C OO1 OO018 0154 
Cc 296 * O29 0 EO YB ew 2 - G2 Leaps © END C 001 O0CS 0137 0080 Cil0 
ie 297 * FO6CEBF 040E97DC3E 8D0C 2 6OF 9 7FE SDODOG0DOC 770404 04040404040F3D9C1 FO FROM «6 C001 «001A. 0138 0162 0173 ak 
ne bs 298 * "DO C 001 oOODO 0140 0092 ‘ 
C 299 * 43226%44"F7 821166445 5 5 TRAZO000 C: 404 C 001 0004 0160 0101 ; ey cy 
300 * F47C 7C F6 TDF SFS47FITCTCF1E LE OF 6F4F 4F5F540F 540404 04G0E 3D9CIE 2 FOFOFOFS H2A C 001 0024 0141 0095 
301 * LENGTH C 001 ©0017 0152 0177* 0178 
¢: 302 * C LENI A 004 ocBC 0132 o08s* 0090 00°9* 0101 
303 * ! LEN2 A 004 O0CO 0133 00°0* 
OG7C 304 END ALDAAL ; LENZ A 004 OOCF 0134 0070* 0104% 
c i © Lene A 004 00DD 0135 
: LNADDR C 001 0019 0150 0113 0152 0154 0162 
| MINUS1] & CO2 OCEB 0123 0171 
Cc 1 € MINUS4 A CO1 OO0EC 0124 0106 
ONE C 001 0001 0142 
! ONEC A 003 0082 O159 oOo8e 0099 
CG | & proc A 003 00°23 0146 
| RELADR A 001 OOEF9 0115 0113* 0163 0170 . ane: 
: TEXT C 001 OO0F3 0136 0078 
c i © THRE A 003 O06 0158 0104 
|. a. TRANS C 001 0019 0147 
' XR C 001 OCOl 0130 004C 0045 0045 0047 0048 0049 96055 C062 GO70 0073 0075 0075 
C OO. CO7R 0079 O08G 0081 0082 0083 ©3985 0088 OORF 0090 C090 a0¢e2 
0093 0094 0094 0095 00°99 0999 101 0102 0103 9104 0104 0106 
: 0108 0110 0113 0113 0162 0163 9266 0170 0170 O171 O177 0178 
C C -xR2 C 001 0002 0131 0055* 0097 0097 00°98 0098 0103 C106* 0164* 0166 016° 0171* 0178* 
0192 
ZERO A 002 OCEE 0125 0073 
C C ZEROI C€ 001 0000 0139 0085 
C . | G TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
{ * 
| - | S 
~~ -- - - -- ~~ +--+ LAST PAGE ---——- wae He 
c ' ¢ 
| DATE 15JAN70 OOMARTO 17APR TO O5JUNTO PROG ID OTRA-2 DATE 15JAN70 OCMARTO 17A°R TO 05 JUN7O PRAG ID OTRA-2 
tC NO. 816576 816638 816677 816707 PAGE 3 EC NO. 816576 £16638 816677 816707 PAGE 3A 
| © i gO 
( 
! | 
| : c iS 
! 
° : © 
© Oo 
Cc 
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1BM MAINTENANCE OILAGNOSTIC PROGRAM PART NO. 2589648 
PAGE 4 
TRA2 * * & TRACE PROGRAM * * © 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
e 0000 2 START X*00008 
3 DECK 1 
4 SEQ 010 
€ 5e* * $e eK HK KE Kee KKK KK eK EK KK KKK KKK Ke EK Fe SF OF Ha 
& * 2 * 
7 * TRACE PROGRAN * 
€ B * * 
9 *PROGRAHM DESCRIPTION: * 
19 * * 
Cc 11 * THE TRACE PROGRAM GIVES A LISTING IN HEX OF THE FOLLOWING INFEOR- * 
: 12 * MATION AS EACH INSTRUCTION OF THE PROGRAM BEING TRACED IS EXECUTEDS 
13 * INSTRUCTION ADDRESS (IA8), IP CODE, QUEUE CODE, OPERAND] ADDeESS, # 
c 14 * OPER®AND2 ADDRESS, CONTENTS GF XR1 AND XR2, CONDITION CODE * 
15 * AFTER TRACED INSTRUCTION HAS BEEN EXECUTED, CONTENTS OF ADDRESS ~~ * 
16 * RECALL REGISTER CARR) AFTER TRACED INSTRUCTION HAS BEEN EXECUH * 
c 17 * TED, CONTENTS OF OPERAND] BEFORE AND AFTER INSTRUCTION HAS BEEN # 
18 * EXECUTED, AND CCNTENTS OF OPERAND2. THE TPACE PROGFAM PUST BE * 
pia 19 * LOADED ON A 256 BYTE BOUNDARY. * 
© 20 * * 
21 *OPERATING PROCEDURE: * 
22 * * 
C 23 * PLACE THE TRACE PROGRAM IN PRIMARY HOPPER CF MECU AND 8 EADY * 
24 * MFCU. PRESS START KEY ON CPU CONSOLE. A 'CU® WILL BE DISPLAYED * 
25 * IN THE HALT DISPLAY LIGHTS. DIAL THE ADDRESS AT WHICH TRACE 1S TO* 
C 26 * £ LOADED INTC THE ADDPESS/DATA SWITCHES AND PRESS START. WHEN * 
27 * TRACE HAS SEEN SUCCESSFULLY LOADED AN "AA* HALT WILL BE DISPLAYED.* 
28 * PLACE PROGRAM TO RE TRACED IN PEIMARY HOPPER OF MFCU AND LOAD PRO-+t 
22 * GRAM, STOPPING EXFCUTION OF PROG2AM MANUALLY. THIS CAN BE DONE * 
; 30 * EITKER BY SETTING ADDRESS COMPARE ON OF BY PRESSING STOP KEY CN * 
ae 31 * CPU CONSOLE. WHEN THE PROGRAM TO BE TRACED HAS BEEN STOPPED, * 
€ 32 * INSTRUCTION ADDRESS SHCULD BE NOTED. A MANUAL RPANCH TO THE * 
33 * ADORESS WHERE THE TRACE PROGRAM WAS LOACES CAUSES THE "AA HALT * 
34 * TO BE DISPLAYED. THE INSTRUCTION ADDRESS JIS OLALED IN THE * 
Cc 35 * ADDRESS/DATA SWITCHES AND THE START KEY IS PRESSED. THIS GIVES * 
36 * THE TSACE PROGRAM THE ADDRESS AT WHICH TRACING IS TO BECIN. AN * 
37 * ‘AL® HALT IS THEN DISPLAYED. THE HIGH-ORDER ADDRESS FOR WHICH * 
C 38 * PRINTING OF THE TRACED INSTRUCTIONS IS DESIRED 1S DIALED IN THE * 
39 * ADDRESS/DATA SWITCHES AND THE START KEY IS PRESSED. A HALT "AUt *& 
40 * IS DISPLAYED AND THE HIGH ORDER ADDPESS FOR WHICH PRINTING OF * 
c 41 * THE TEACED INSTRUCTIONS IS DESIRED IS DIALED ON THE ADDRESS/DATA * 
; 42 * SWITCHES AND THE START KEY IS PRESSED AND TRACING BEGINS. SETTING* 
43 * THE LEFTMOST ADORESS/DATA SWITCH TO "F* CAUSES TRACE TO TURN CON- « 
Cc 44 * TROL OVER TO THE PROGRAM REING TRACED. THE TRACE PROGRAM CAN BE * 
45 * RE-ENTERED BY REPEATING THE ABOVE PROCEDURE BEGINNING WITH THE * 
46 * MANUAL STOPPING OF THE PROGRAM TO BE TRACED. A *PP* HALT INDI- * 
G 47 * CATES A PRINTER ERROR, READYING THE PRINTER AND PRESSING START  * 
48 * ON CPU CONSOLE WILL CAUSE CONTINUATION OF EXECUTION. * 
49 * ; * 
Cc 50 ** * &€ &€ ee KK ee RK KC KH KKK Ke Ke KKK KKK eK Ke KH 
e 
C 
C 
© 
© 
Cf 
CG 
DATE 15JANT70 O9MARTO 17APRTO 05 JUNT7O PROG I0 OTRA-2 
EC NO. 816576 816638 816677 816707 PAGE & 
f © 
Cc 


2 


ae wn argent 
em 


ceoemneereraece ee A LTS ETD RTE AE NE, SE IRN EEE ORES, 


oO Oo oOo O 


© : 
©®eeooeeeeeeeeed0ee@eed0ee @ 
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°o 0 000 0 
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IRM MAINTENANCE OIFAGNOSTIC PROGRAM 


TRA2 * &¢ * TRACE PROGRiIM * & © 
EPR LOC OBJECT CODE ADDF STMT SOURCE STATEMENT 
0000 FO 3F 3F 52 START HPL X*3F°,xX°3F8 
0003 30 00 0028 53 SNS STARTO*3,XK* 008 
COO7 34 04 0737 54 ST CNCD,.CGNCOD 
OOOB 34 C8 0735 , 55 ST SVARR,APR. 
OOCOF FO 3F 68 56 HPL K°68*,X*3Fe 
0012 326 00 O72E — 57 SNS FRAD,X* 008 
0015 FO 3F 6B 58 HPL KX'*69*,X*3F* 
0019 30 00 0730 59 SNS TOAD, xX* 00* 
O0010 34 O01 O3AB 60 ST USXR14+3,xXR2 
0021 34 02 O3AF 61 ST USXR243_XR2 
0025 C2 02 9000 62 STARTO LA #_XR2Z 
63 * 
0629 34 02 0304 64 ST TROQS043,XR2 
002D OF O05 O3BC O36C 65 BEGIN SLC INSTR45 (6), INSTRES 
0033 OF O02 O73A O73A 66 SLC LENOP263),LENDP2 
67 * 
0039 3C 87 0487 68 MVI C°1L00041,xX"S7F 
0030 OD GL 0304 O72E 69 CLC TPCO05043(2)5FRAD 
70 * 
0043 F2 82 10 71 JL BEGINO 
0046 OD 01 0O3D4 0730 T2 cL_e ¥2®C05043(2)4 TOAD 
004C F2 84 OF 73 JH BEGINO 
OCO4F 3C 80 O3E8B 74 MMVI SWITCH+1,X* 20" 
0953 F2 87 04 75 J BEGINI 
0056 3C 87 O3E8 76 BEGINO MVI SWITCH41 .X*837?# 
0054 30 00 O3BC 77 REGINI SNS INSTR4+5,xX°09! 
78 
OOS5SE 38 FO 0388 19 TEN INSTR+45X"*FO?* 
0062 F2 10 AO 80 JT NTRACE 
0065 3C 01 0731 ; 81 MMVI INSLEN, X*O1° 
R2 * 
0069 88 CO 00 83 TBN O0yXR2)_X*CO?® 
Qo06C F2 10 Bl a4 JT OPZF 
OO6F BB 30 00 85 TAN O0sXR2)9X* 30° 
0072 F2 10 BE 86 JT oPyooo 
0075 F2 87 9D e7 J _OPxK000 
DATE I5JAN70 O°MARTO LTAORTO O5JUN70 
EC NOw 816576 816638 816677 816707 


PART NC. 2589648 
PAGE hh 


SET START TRACE ADDRESS 
GET START TRACE ADDSESS 
STORE CONDITION CODE. 
STORE USER ARR, 

GET HIGH - ORDER 

ADDPESS. 

GET LOW -— ORDES 

ADDRESS. 

SAVE INDEX REGISTER 1. 
SAVE INDEX RESISTER 2. 
INITIALIZE SIM TAR’ 
ADDRESS. 

STORE INITIAL SIM TAR 
RE-INITIAL IZATION, 

ZERO AREAS STARR, LENOPL, 
AND LENOP2. 

SET TO PFINT 

1S TAYS INSTRUCTICN TO BE 
PRINTED? 

* 


* 
* 


SET TC PRINT. 


SET NOT TO PRINT. 
IS TRACE TO GIVE UP 
CONTROL? 

* 


YES = JUMP. 

SET INSTPUCTION LENGTH 
TO ONE. 

INSTRUCTION TYPE Z OP F? 
YES - JUMe, 
INSTRUCTION TYPE Y? 


YES -— JUMP. 
PROG ID OTRA-2 
PAGE 4A 
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TOM MAINTENANCE DIACNOSTIC PROGRAK 


TRA2 


ERR LOC 


0078 
CO7A 
oo7c 
oc 7D 
0085 
ooep 
ooes 
cosD 
COAS 
OOA0 
0085 
ocBD 
oocs 
occo 
00D5 
oooD 
DOES 
OOED 
OOF5S 
OOFD 
0100 
0101 
0103 


DATE 
€c NO. 


* * * TRACE PROGRAM * * * 


OBJECT CODE 


FFFF 

0030 

40 
40404040460404040 
4040404040404040 
4,404 04040404040 
4040404040404040 
4040404040404040 
£940404040404040 
$04040-4040604040 
4040404040404040 
4040404040404040 
60404040404040460 
4£040404040404040 
4£040404040404040 
4040404040404040 
4040404640404040 
£040404040404040 
40406404040404040 
404040 

29 

0006 

oo7c 


15 JAN70 
£16576 


OOMART 
816638 


ACTOR 


007° 
CO7B 
oo7c 
ooFrF 


0100 
0102 


0104 


0 


STMY SOURCE STATEMENT 


eg FKEERERESESEEEESS GE OEEE EEL EREEEEE LESTE ETH ERES SESES SS 


sO * 
91 * 
92 * 


o3 Eee ESEREEERES SEEEEEEREREES f PRE KESEE EEE EEE EES SSE EE ETS 


94 ONE 
95 HEXZ0 
96 LPBF 
97 

97 

97 

97 

97 

97 

97 

97 

97 

97 

97 

97 

97 

97 

97 

97 

97 

98 HEX3S 
99 HEX06 


TRACE PROGRAM CONSTANTS & PRINT BUFFER 


pc 
oc 
oc 
DCL 


oC 
DC 


100 PRDATA OC 


LTAPRTO 
816677 


O5JUNT7O 
616707 


XL2° FF FES 
XL2°CO30* 
xLLe4ane 

L3LXL1940° 


XL1°39° 
XL2*O00C6* 
AL2(LPBF) 


PART NOW 25°°648 
PAGE 5 


SUSE HSKESEEKKS SEES ERA ASS 


* 

* 

: = 
ERSEKETEARRKHEKSELEKES 


PROG ID OTRA-2 
PAGE 5 
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18M HAENTENANCE DIAGNOSTIC PROGRAM 


TRA2 
ERR LOC 


6105 
0109 
0100 
0111 
0115 
0119 
0110 
9120 
0123 
0126 
012A 
6130 
0133 
0137 


0138 
OL3E 
0142 


0146 
O14A 
0140 
0151 
0155 
O1SA 
O15 
01E2 
0166 
0169 
016C 
0170 


0175 
0178 
0178 
O1L7F 
6183 
0188 
018C 
0191 
0194 
0198 
O198 
O19E 
O1Al 
O1A5 
01A9 
OLAC 
O1AF 
0182 
01B5 
0189 
01BC 
01c1 
O1c4 
01ic9 
O1CE 
0103 
0106 
0109 
010C 
01 OF 
O1E3 
O1E6 
O1EA 


O1EE 
O1F3 


DATE 
EC NO. 


* * * TRACE PROGRAM ¢ * © 


GBJECT CODE ADDR STMT SOURCE STATEMENT 
34 02 0114 102 NTRACE ST TRANS 439 XR2 
a5 01 O3A8 103 t USXPR143_XR1 
35 02 O3AF 104 t USXR2Z¢3 _XR2 
co 87 ocos 105 TRANS 8 # 
3C 00 ©0161 106 G°x000 MVI QPTYP0+2 -X* 908 
CO 87 0541 107 B LNOPL 
F2 87 22 108 J OPxXz00 
RB FO 00 109 OPZF TBN Ol gXR2}-X*FO® 
F2 90 18 110 JSF oPzZ000 
3C CA O161 111 “VI OPTYPO42eX*OA® - 
OF CO 0731 0079 112 SLC INSLEN( 12, ONE 
F2 87 13 113 J TRCOOO 
3C 04 0161 114 cPyYood MVi CPT YPOF2 gX* 94° 
CO 87 0541 115 8 LNOP) 
116 * 
F2 87 08 117 J TROON 
3C O07 0161 118 CzZ006 MVI OPTYPO+2,X*O7T* 
CO 87 0548 119 OPxXzZ00 B LNOP2 
120 * 
C2 91 O71A 2721 TRCOOO LA SVAREA,XRI 
74 02 Cl 122 ST 1CgXRDTFeXR2 
6c 01 03 Ol 123 MVC BC2eXRL 91 Ce XR2) 
5F 03 O07 O7 124 Stic 7l4_gXR1i de 7 (XRD) 
4C 01 09 C3AB 125 MVC 3(29XR1) ,USKRI43 
4C 01 OB O3AF 126 MVC 11(02_XR1),USXR24+3 
F2 87 00 127 QPTYeO J # 
CO 87 S2E5 128 2 oP x01 
F2 87 85 129 J oPpyo1o0 
F2 87 30 130 J o°7010 
6C 00 04 02 131 M¥C 419 XR1092 09 XR2) 
2C C2 O38C 02 132 MVC INSTR4#5(3) 920 9XR2) 
133 * 
BD F2 090 134 cul Ole XR2ZD—gX*FZE 
F2 81 08 135 JE JMPOOO 
3C 03 O3286 136 MvI JUMP4+2,X* 03" 
CoO 87 O3A0 137 8 TRCO30 
2c 00 019° 61 138 sMPOCO MVC JMPOLOFL EDLY 41 CX82) 
3C OA 0386 139 MVI JUMP4+22X*°OA* 
2C ©O O1A0 02 140 MVC JMPO3O4 2022420 —XR2) 
E2 02 03 141 LA 3(,XR2)_XR2 
35 04 0737 162 L CNCD,CONCCD 
F2 00 03 143 JMPO10 JC JMPO30e# 
F2 87 03 144 Jj JIMP040 
—2 02 00 145 JMPO30 LA #0 gXR2) eXR2Z 
34 04 0737 146 JMP04O0 ST CNCD,CONCOD 
CO 87 O3A0 147 B 2C030 
B68 10 900 148 0°2Z010 TBN Ol »XR2}9X*10* 
F2 10 OD 149 JT oPpzo70 
Re 20 00 150 TEN O01 eXR2}—X920* 
F2 10 OF 151 JT opzoeo 
6C C1 07 03 152 “VC 7(2sXR1L) 9309 XR2) 
F2 87 17 153 J oPpz012 
4C O01 O07 02A8 154 OPZ070 MVC 7U2_XRL) USXR 143 
F2 87 05 155 J a°7090 
4C O01 OF OSAF 156 CPZC80 MYC 70 29XR1} gUSXR2Z43 
2c CO 0388 02 157 GPZ990 MVC INSTR42 019520 _XR2) 
4E 01 07 0388 158 : ALC T(2eXRLPZENSTRE1 
B89 OF 00 159 GPZO12 TBF Ol eXR2)_X*OF® 
F2 10 CD 1690 JT RCO0O0 
BS 01 00 161 TRN OU eXR2ZV—X* 91° 
F2 90 ET 162 JF oPyv040 
3C Ci 0203 163 TIOOOO MVI QPZ040eX°C1L®" 
F2 87 04 164 J 0°2030 
3c CO 0203 165 BC00O0 MMVI OPZ040,x*CO° 
3C OA 0386 166 GPZ030 MVI JUMP42 ¢ X*OAP 
167 * 
2€ 00 0204 01 168 “vC OPZ0404101) 510 —XR2Z) 
CC OO O1FR 0731 169 MVC 0° 70454201) ¢ INSLEN 
1SJANTO QOMARTO 17APRTO 05 JUN70 
816576 816638 216677 816707 


PART NO. 


2589648 
PAGE - SA 


RETURN CONTROL TO 
PROPLEM PROGRAM. 

* 

* : 
TYPE X INSTPUCTICN. 
60 CALCULATE LENGTH 


INSTRUCTIGN TYPE 27 

YES - SUMP. 

TYPE F INSTPUCTION. 

ADO ONE TO INSTR LENGTH. 


TYPE Y INSTRUCTICN. 
CALCULATE INSTRUCTION 
LENGTH. 


TYPE 2 INSTRUCTION. 
CALCULATE INSTRUCTION 
LENGTH. 


STORE TAR. 

SAVE OP £ Q CODES 

ZEPO OPERAND ADDRESSES 
MOVE INDEX REGISTER TC 
SAVE AREA. 


THO CPERAND INSTRUCT ION? 
FIRST OPERAND INSTPUCTION? 
SECGND GPERAND INSTRUCTION 
MOVE R-BYTE 

MOVE INSTRUCTION INTS 
TRACE EXECUTION APEA. 

JUMP INSTRUCTION. 

SET TO EXECUTE INSTOUCTICN 


GET JUMO MASK. 

SET TO NOT EXECUTE FINSTR. 
INCRMENT IAP BY JUMP 
INCREMENT SIMULATED IAR. 
RESTORE CONDITION CCOE. 
SIMULATE JUMP INSTRUCTICN. 


VALUE. 
STORE CONDITION CODE. 


IS X82 USED AS INDEX. 
YES - guMP. , 
1S XR2 USED AS INDEX? 


NC INDEX USED 


CALCUALTE ADDRESS TO BE 
BRANCHED TO. 

* 

* 


s 

BRANCH INSTQUCTICN? 
YES - JUMP. 

TID INSTRUCTION? 

NO-— JUMP. 

SET uP FOR TEST I/C. 


SET UP FOR SRANCH. 

SET UP TO ND EXECUTE 
INSTRUCTION. 

SIMULATE 

INCREMENT SIMULATED TAR. 


PROG ID NTRA-2 
PAGE SA 
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TRA2 


O1F9 
O1FC 
O1FF 
0203 
0207 
0208 
O20F 
0213 
0217 
O2Z1A 
OZ1E 
0222 
C226 
022A 


o22D 
0230 
0234 
0238 
0238 
O23E 
0241 
0244 
0248 
624C 
024F 
0254 
0257 
O25A 
025D 
0260 
0263 
0266 
0268 
O26E 
0274 
0277 
O27A 
0270 
0280 
0283 
0266 
0288 
O28E 
02°% 
0297 
O25A 
029D 
O2A0 
O02A3 
O2AE 

O2ZAB 

O2AF 

02B2 

0285 
0289 
O2BC 

02C1 

02Cé 
O2CA 
o2co 
02D2 


0206 
o2D9 
O2DE 
O2E2 
O2EE 


DATE 
EC NO. 


E2 
E2 
35 
co 
34 
co 
34 
34 
75 
co 
3C 
3c 
co 
BB 


F2 
3C 
3c 
BS 
F2 
Bo 
F2 
3C 
34 
75 
ic 
B8 
F2 
B8 
F2 
88 
F2 
4C 
F2 
oc 
E2 
E2 
14 
F2 
BB 
F2 
1€ 
F2 
oc 
E2 
E2 
6 
F2 
88 
F2 
1c 
3A 
F2 
75 
C2 
F2 
ic 
4C 
3D 
F2 
2c 
3c 


F2 
2c 
3c 
F2 
B8 


I5JANT70 
816576 


« 


TBM MAINTENANCE DIAGNOSTIC PROGRAM 


* + * TRACE PROGRAM * & & 


02 
02 
04 
00 
04 
87 
04 
02 
02 
87 
00 
60 
87 
08 


10 
ol 
OL 
04 
90 
18 
10 
OA 
01 
or 
01 
05 
10 
02 
i0 
10 
10 
o1 
37 
00 
02 
02 
02 
BT 
10 
10 
01 
87 
oo 
02 
02 
02 
a7 
10 
0 
el 
Cc. 
er 
02 
ol 
87 
o1 
00 
03 
81 
02 
03 


87. 
03 
02 
87 
08 


ERR LOC OBJECT CODE 


oo 

ol 

0737 
O20F 
0737 
O03A0 
0737 
0735 
OT 

O3A0 
0739 
02C2 
O5ED 
00 


8c 
0739 
02C2 
00 
TE 


00 0735 


0276 0731 
00 

0. 

00 

35 

ol 

08 

0735 00 
1D 

0296 0731 
oo 

01 

oo 

15 

ol 

oc 

O735 00 
0738 

03 

00 

0000 

E4 

02C5 05 
10 0000 
0731 

oc 

O3e8C 02 
0386 


cv? 
O3BC 03 
03B6 
BR 

00 


O9OMARTO 
816638 


ADDR STMT 


SOURCE STATEMENT 

170 O°Z045 LA #{eXR2Z) XR? 

171i LA 3 eXR2Z) yKRZ 

172 t CNCD,CONCOD 7 
173 GPZO40 BC OPZ050s4 

174 ST CNcO,CONCOD 

175 8 TRCOSO 

176 0°7Z050 ST CNCD,CONCOD 
177. ST SVARR , XR? 

178 L Te KR1L)XRZ 

179 8 TRCOO30 

180 CPYO1O MMVI LENOPL,X*O0!# 

182 MYT OPY 03 64+1,X*00* 
182 6 CALOPL 

133 TBN O0,XkK23 5X? 08° 
184 * 

185 JST OPY020 

186 MVI LENOP1,x*027° 

167 MVI OPY03 041, X*01°* 
188 TBN O( sKXR23—K*OG* 
189 JF oPpyo20 

190 TRF 1€,XR23,xK*°188 
191 JT oPYO26 

192 MVI JSUMP42— K*OAt 

193 ST RESXR143,XKRI 

194 L SC eXRi) gXR1 

195 MYC SVOP1C(2),00, XR) 
196 TBN O00 eXR2)9 -X*05® 
197 JT LOAD 

198 TEN O(yXR2),xX* 02% 
199 JST ADD 

200 TAN 1 eXR2),K9108 
201 JT STIAR 

202 MVC O(2,_XR1),SVARR 
203 J OPYO015 

204 STIAR MVC STIARG+201),INSLEN 
205 STIARO LA #0 9XR2V XR 

206 tA 10 9XR2) -XR2 

207 ST Oe XR1) -XR2 

208 J RESXR1 

209 ADD TBN 10eXR2),X*10* 
210 JT ADIAR 

2il ALC SVARR(2),00,XR1) 
212 J OPYO15 

213 ADIAR MVC ADTARO4#2(1),INSLEN 
214 ADIARO LA #0 _9XR2)_XR2 

215 LA 109 XR2),xXR2 

216 A Oe XR1)_-XR2 

217 J RESXR1 

21@ LOAD TBN 1(4XR2),X°108 
219 JT LOIAR 

220 MVC SVARR(2),01,XR1) 
221 OPYOIS SBN STARR eX*01° 

222 J RESXR1I 

223 LOIAR L Of eXR1)_XR2 

224 RESXRI LA #,XR1 

225 J TRCO30 

226 OPYO20 MVC OPY03044(2),5(,XR1) 
227 GPYO30 MVC 1604, XR1), # 

228 OPYO4O CLI INSLEN,X*#O38 

229 JE GPY050 

230 MVC INSTR4#5(3) 620 4XR2) 
231 MVI JUMP 4+2,X°038 

232 © 

233 J TREO30 

234 OPYO5O MVC INSTR 45 (49430 ,XR2) 
235 MVI JUMP42 0 X*O2# 

236 J TRCO30 

237 OPXO10 TSN O(,XR2),X*08* 
I7TAPRT7O OSJUNTO 
816677 816707 


PART NO. 25€S648 
PAGE & 


s 

& 

RESTORE CONDITION CODE. 
BRANCH OR TEST 1/0. 
STORE CONDITION CODE. 


STORE CONDITION CODE. 
SAVE ARR. 
INCRIMENT TAR 


SET UP FOR ONE BYTE 
GPERAND. . 

CALCULATE OPERAND 1 ADDR. 
DOES INSTRUCTION HAVE A 
I-BYTE OPERAND? 

YES - JUMP, 

SET UP FOR 2-8YTE 
OPERAND. 

SNS GR LITO INSTRUCTION? 
YES - JUMP. 

ARR GR FAR INSTR? 


SET TG NO EXEC INSTPUCTICN 
SAVE XR1. 


GET OOERAND 1 ADDRESS. 
SAVE QPERAND 1 CONTENTS. 
IS INSTRUCTION A L940? 
YES - JUMP. 

ADD INSTR? 

YES-JUMOS 

STORE I7R INSTR? 
YES-—JUMP 

STORE SIMULATED ARR. 


INCREMENT TAR. 
* 
* 


SIM. STGRE YAR 


ADD IAQ INSTR? 
VES-—JUMP 
SIMULATE ADD YO ARR. 


INCREMENT TAR. 
* 


* 
SIM. ADD TAR 


IS IT A LOAD TAR? 

YES ~ JUMP. 

SIMULATE LOAD ARR. 

SET TO UPDATE SIMULATED 


LOAD TAR. 
RESTORE XR1. 


SAVE OPERAND 1 CONTENTS 
BEFQRE EXECUTION. 
INSTRUCTION LENGTH 4? 
YES - JUMP. 

MOVE INSTRUCTION INTO 
TRACE AND SET UP TO 
EXECUTE IT. 


MOVE INSTRUCTION INTO 
TRACE AND SET UP TO 


1S THIS A i LENGTH 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


TRA2 


€RR LOC 


G2e8 
O2EB 
92°0 
O2F5 
O2F8 


O2FF 
0302 
0305 
9308 
o30D 
0312 
6315 
G319 
0310 
0321 
0327 
0328 
0330 
0333 
0336 
0339 
033F 
0345 


0349 
034F 
0353 
0356 
0359 


O35€ 
0362 
0365 


O36A 
O36E 
0371 


0376 
OSTA 
O37F 
6382 
0385 
0388 
0388 
0390 
0393 
0398 
0398 
03A0 
O3A4 
03A8 
O3AC 
0380 
0384 
0387 
0388 
038D 
03C1 
0305 
03cC9 
o03CcD 
03D1 
0305 
0309 
o30C 


DATE 
Ec NO. 


* * * TRACE PROGRAM * * *& 


OBJECT CODE ADDR STMT SOURCE STATEMENT 
238 + 
F2 10 17 239 JT OPxX020 
28 03 OT3A 01 240 MANN LENOP2—14_XR2) 
28 02 0739 O01 241 NZ LENOP 1, if XR2) 
ce 00 6739 O73A 242 ALT LENOP1¢1) eLENOPZ 
3A 86 O738 243 SBN STARR», X*808 
244 # 
F2 87 1B 245 J OPX030 
8S G7 00 246 OPXO20 TBF Of gXR2) gX* O07? 
F2 10 OD. 247 JT O°X025 
2C 00 0739 01 248 VC LENOP ICL) s10_¢XR2) 
2C 00 O73A 01 242 MVC LENOP201)5105XR2) 
F2 87 08 250 J OPX030 
3C 068 0739 251 GPxO25 MMVI LENOP1,xX*O0* 
3C CO O73A 252 Mvt LENOP2,X*G0* 
32C 80 0487 253 OPXO30 MVE OP100041,X*BO* 
OC 00 034A 0739 254 MVC OPXO6041(2),LENOPL 
CO 87 O5ED 255 e CALOPI 
1C O01 O34E 05 256 MVC OPX0604+5129,50g XRD) 
Be OB CO 257 TBN O0(sX22),K* 08" 
B9 6& OC 258 TBF O00 ,XR2),X* 948 
F2 $0 10 259 JF OPX060 
Oc 00 0388 0739 260 MYC INSTR4+1¢1) ¢LENOPL 
OF OL O34E 0388 261 ALC 0° X060+5(2),INSTR+1 
3A CO 0738 262 SBN STARR,X*COrt 
263 * 
oc 00 0729 O000 264 OPX06O MVC SVGP1C(#),¢4 
3D 04 0731 265 cul INSLENsX*04! 
F2 82 OF 266 Jt OPXx070 
F2 81 18 267 JE 6Px080 
2C 05 O38C 05 268 MVC INSTR4+5 (69450 9XR2) 
269 * 
3C 00 0386 270 MVI JUMP4+2—X* 008 
F2 87 15 271 J oPxos0 
2C 03 O3BC 03 272 OPXO7O MYC INSTR45 (4393709 XR2) 
273 * 
3C 02 O3B6 274 MVvI JUMP42 9 X* 028 
F2 87 O09 275 J OPX090 
2C 04 O3BC 04 276 QPx080 MVC INSTR#S (5 304 (9XR2) 
277 * 
3C O1 0386 278 MVI JUMP+2,X* OL? 
4C 00 O7 O3BC 279 OPxX090 MVC TU1Le XRD INSTRAS 
B88 10 00 280 TAN OC gXR29,X*10* 
F2 10 OF 281 JT CPX100 
88 20 00 282 TBN O€ yXR2) X* 20° 
F2 10 10 283 JT OPxX110 
4C 01 O7 O38C 284 “VC 7C2gXRL Ge ENSTRES 
F2 87 OD 285 ; J TRCO30 
4F 01 OF O3AB 286 OPX100 ALC 7TU2eXRVDeUSXRIF3 
F2 87 05 287 J TREO30 , 
SE O1 OT GO3AF 288 OPX110 ALC 702,XR1),USXR24+3 
34 01 03D0 289 TRCOZ0 ST TROO4043,XR1 
34 02 0304 290 ST TRO O5043,4 XR2 
C2 01 O000 291 USXR1 LA #eXR1 
C2 02 0000 292 USXR2 LA fa XR2Z 
35 04 0737 293 t CNCO,CONCOD 
F2 87 00 294 JUMP J # 
00 0287 295 INSTR OC XL1*00* 
ocoococococo O3FC 296 oC XL5*0000000000° 
34 04 0737 297 ST CNCOeCONTOD 
31 F6 0104 298 tro PRDAT A, X*E6* 
34 01 O5SAB 299 ST USXR143,XR1 
34 02 O3AF 300 ST USXR243_XR2 
C2 61 0000 301 TRCO4O LA #yXR1 
C2 02 0000 302 TRCOS5O LA #yXR2 
38 80 0738 303 T8N STARR, X*80° 
F2 90 04 304 JF TRCO60 
34 08 0735 305 ST SVARR, ARR 
15SJAN70 O9MARTO 17APRT7O O5JUNTO 
816576 816638 81LE6TT 816707 





PARTY NO. 2589648 
PAGE 6A 
INSTRUCTION? 
YES - JUMP. 


GET OPERAND 2 LENGTH. 
SET LENGTH OF 

FIRST OPERAND. 

SET TO STORE ARR AFTER 
INSTRUCTION ITS EXECUTED. 


MVX ANSTRUCTION? 
YES - JUMP. 

GET LENGTH OF 
DPERANDS. 


SET OPERAND LENGTHS TO 
ONE. 
SET TO PRINT 


CALCULATE IST GPERANC ADD? 
ITC INSTRUCTION? 
* 


NO — JUMP. 

CALCULATE RIGHTMOST BYTE 
OF OPERAND. 

SEY TO STORE ARR AFTER ITC 
INSTRUCTION 1S EXECUTED. 
SAVE OCERAND 1 CCNTENTS. 
CHECK INSTRUCTION LENGTH. 
4-BYTES - JUMP. 

S-BYTES - JUMP. 

MOVE ENSTRUCTION TO EXECU- 
TION AREA. 


MOVE INSTRUCTION TO EXECU- 
TIGN AREA. 


MOVE INSTRUCTICN TO EXECU- 
TION AREA. 


MOVE RIGHT BYTE OF ADR 
IS XR1L USED AS INDEX. 
YES-JuMP 

IS XR2 USED AS INDEX? 


NO INDEX USED 
CALCUALTE ADDRESS TC BE 
* 


* 

STORE TRACE INDEX 
REGISTERS. 

LOAD PROBLEM PROGRAM 
INDEX REGISTERS. 
LOAD CONDITION CODE. 


TRACE EXECUTION AREA 
AREA. 

STGRE CONDITION CODE. 
LOAD TRACE PRINY BUFFER. 
STORE PROSLEM PROGRAM 
INDEX REGISTERS. 

LOAD TRACE INDEX 
REGISTERS. 

TS ARR TQ BE STORED? 

NO - JUMP. 


STGRE ARR. 
PROG 10 OTRA-2 
PAGE 6A 


i nee ee pe ee RE UT HET NRE aN, Mea OTE 





eeoegeeveneeeeeeeeeede 


(> a © a * a © © 


9: 


oe @ @ 


Oo © 23 G: 


QD 


oe 


. 


-Oo Oo OO 9 


s 
a 


« 
e 


oO O O O09 


9 ¢: 


- 9 9O 


o Oo 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


TRAZ 
ERR LOC 


O3EO 
O3€5 
O3EA 


O3EE 
O3F2 
O3F5 
O3FA 
0400 
8405 


0489 
6406 


400 


040F 
0413 
0417 
0418 
041F 
0423 
0429 
042 
0430 
0433 
6436 


043A 
043D 
0442 
0445 
0448 
044C 
0450 
0453 
0457 
0458 
045E 
0462 
0466 


O46A 
046E 


0472 
0476 
O47A 


O47E 
0482 
0486 
0489 
048F 
0493 
0498 
0498 
O4A0 


04A5 
O4AB 
O4AF 


0484 
04867 
O04BB 
04C0 


DATE 
EC NO. 


* * & TRACE PROGRAM * * © 


DBJECT CODE. ADDR STMT SOURCE STATEMENT 
4C 90 OC 0737 306 TRCO6O AVC 1201—9XR1) ,CNCO 
4C 01 GE 0735 307 MvC 14024KR1) » SVARR 
co 80 OSIF 308 SWITCH BC TRC190,¢ 
309 * 
3D Of O16) 310 cur OP TYP O42 X*O4® 
F2 01 10 312 JNE TRCEOTO 
1C O01 0406 05 312 MVC OPYO6O+412 19ST eXRLI 
OC 00 6401 O73° 313 M¥C OP YOGEt1(7 }LENGPL 
4C 00 12 6000 314 OPYO060 MYC 18C8,xXR1),8 
CO 87 0566 315 TRCOTO 8B CONYVER 
316 * 
0023 O408 317 oc KL2*0013° 
O71A e40C 318 oc AL2(SVAREA} 
319 * 
668) 840E 320 BC AL? (WKAREA) 
321 * 
C2 01 OOBD 322 LA WKAREA,XR1L 
C2 02 OOTC 323 LA LEBF,XR2 
9C 03 08 03 324 vC BU4_XR2945 309 XRD) 
3C 91 OC O5 325 MYC 1202eXR2) 950 5XR1) 
9C 01 OF 97 326 MVC 15(29XR2) 9 704 XRLD 
Oc 00 0428 0161 327 avC OPTYP14+2(1},0PTYPO+2 
F2 87 00 328 OPTYP1 J # 
CO 87 043D 329 6 TRCOSN 
F2 87 15 330 J TPC1L40 
F2 87 OB 331 J TRO160 
6 O01 12 09 332 MYC 18(29XR2)e9¢ 2XR1V) 
333 * 
F2 87 29 Baa J TRCO18O0 
ot 03 14 08 335 TROCeO MVC 2004eKR20 511 09xXRD) 
9C 03 19 OF 336 TRC160 MYC 2504 ¢XR2) 20150, XR1) 
F2 87 1E 337 J TRCEi8B0 
SC 03 14 O8 338 TRCL40 MVC 2914 _XR2Z2) 12 Cy XRD) 
320 00 0739 239 CLI LENOP1,X*O0° 
F2 81 08 340 JE TRCI5O 
9C 03 34 21 341 “VC 52(4_XR2) 4330,XR1) 
9C 393 39 25 342 VC 570 4eXR2)0 93702 XR1) 
F2 87 08 343 J TRC180 
9C 01 34 21 344 TRCL5O MVC 52(029XR2)9330,XR1) 
9C 01 39 25 345 MVC 57€2eXR2)43T(,XR1) 
oC 03 1F 13 346 TRCL8O MVC 3104,XR2)02190,XR1) 
347 * 
9C 03 24 17 348 MVC 3614_XR2) 9230 XRD) 
349 * 
9C 01 28 19 350 avC 400 2_9XR2)e250,XR1} 
351 * 
9C 03 2E€ 10 352 MVC 46149 XR2) 9290 e XRD 
AC 25 66 67 353 MVC 102 (38 —XR2)9103(_XR2) 
co 87 OSCD 354 8 PRINT 
355 * 8 PRINT 
2C 80 C4FF 356 “VI OP20004+1,X*80* 
C2 O01 O7IA 357 LA SVAREA,XR1 
F2 00 96 358 OP1000 JC TRC1L90,# 
OC 01 O4C7 034C 359 MVC 0P1020+ 7(2),0PX06043 
3C 80 O4DE 360 MVI GP10404+1.X*80° 
4C€ 00 01 0739 3261 OP1005 MVC L(1—eXR1L)sLENOPL 
7 oO 00 362 CP1LOOT MVI O€sXR1) eX" 008 
1F 01 04CT OL 363 SLC OP 10204+7(2), 10, XR) 
4F 01 01 0079 364 0P1009 SLC 1(2,XR1),0NE 
365 * 
oC O1 04C5 OO7B 366 MVC 0P10204+5(2)~HEX30 
3C 87 O4DA 367 MVI QP1030+1,X*87* 
4D 01 01 0078 368 OP1010 CLC 102X881), HEX30 
369 * 
F2 84 09 370 JH 0°1020 
3C 80 O4DA © 371 Mv I OP10304+1,X*80° 
1c 00 04C5 01 372 MVC OP102045(1)910eXR1) 
CO 87 0566 373 O0P1020 B CONVER 
15JANTO OOMARTO 17APRTO 05 JUN70 
816576 816638 816677 816707 
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MOVE CONDITION CODE 


TO SAVE AREA. 
JUMP TF PRINTING IS TO BE 
SKIPPED, GTHERWISE NOP. 


CONVERT HALF BYTE TO HEX 
CHARACTER. 

NUMBER OF BYTES TO CONVERT 
ADDRESS OF DATA YO BE 
CONVERTED. 

ADDRESS WHERE CONVERTED 
DATA 1S TO BSE PLACED. 


MOVE TAR TO BUFFER. 
MOVE GP CODE TO BUFFER. 
MOVE Q CQDE TO BUFFER. 


MOVE CONTROL 8SYTE TO 
BUFFER. 


MOVE OPERAND 1 ADR 
MOVt OPERAND 2 ADR 
* 


MOVE QPERAND 2 ADR 


MOVE CONTENTS OF 
SUFFER. 
MOVE CONTENTS OF 
SUFFER. 

MOVE CONDITICN CODE TO 
BUFFER. 
MOVE ARR TO BUFFER. 
BLANK OUT FRINT BUFFER. 


xXRi TO 


KR2 TC 


PRINT BLANK CINE. 


SET UP TO PRINT CPERAND 
BEFORE EXECUTION. 
CALCULATE LEFT-MCST 
OPERAND CONTENTS. 


BYTE 


CALCULATE NUMBER OF BYTES 
IN OPERAND. 

SET UP TO PRINT 4 BYTES 

OF THE OPERAND. 

1S THIS LAST LINE OF 
OPERAND? 

NO - JUMP. 

SET UP TO PRINT LAST LINE. 
* 
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TRA2 
ERR LOC 


04C4 
64C6& 
64C8 
O4TA 
O4CE 
04D3 


04D9 


040D 
O4E0 
O4ES 
O4ER 
O4EE 
O4F2 
OSFT 
O4FA 
OGFE 
0501 
0505 
OSOA 
0510 
0514 
0518 
0518 
O51F 
0523 


0527 
O52A 


O52E 
0531 
0537 
O53A 
053D 
0541 


0545 
0548 


054C 
0550 
0553 
o556 
o55C 
0562 


0566 
O56A 
OS6E 
0572 
0576 
0578 
OSTE 
0581 
o58T 
o568 
O58F 
0593 
0596 
0599 
o59C 


DATE 
€c NO. 


* * ¢ TRACE PROGRAM * @* & 


PART NO. 2589648 
PAGE TA 


SUBTRACE 4€ FROM BYTE CNT. 
INCREMENT POINTER TO. 
CONTENTS OF OPERAND. 


PRINT BLANK LINE. 


SET UP TO PRINT OPERANDI 

CONTENTS AFTER EXECUTION. 
TTC INSTRUCTION? 

NO- BRANCH 

CALCULATE LEFT-MOST BYTE 

QOPERAND CONTENTS. 


MOST BYTE OF 2N0 OPERAND. 
GET SECOND OPERAND ADR. 
ITC INSTRUCTION? 
NO-SRANCH 


RESTORE SIMULATED TAR. 
WAS INSTRUCTION SIMULATED 
BUT YAR NOT INCREMENTED? 
YES - JUMP. 

WAS INSTRUCTION SIMULATED 
AND IAR INCRMENTED? 

YES — JUMP. 

INCREMENT TAR. 

* 

* 


SET T9 GET LENGTH OF 
OPERAND ONE. 


SET TC GET LENGTH OF 
CPERAND TWO. . 

SAVE RETURN ADDRESS. 

IS OPERAND INDEXED? 

YES — JUMP. 

ADD 1 TO INSTRUCTION LEN. 
ADD 1 TO INSTRUCTION LEN. 


x 
* 
* 


STORE RETURN ADDPESS. 


OBJECT CODE ADDR STMT SOURCE STATEMENT 

8000 9405 374 pt XL2*0900* 

6000 3407 375 oc XL2*0000° 

6o7C 94C9 376 oc AL2(LPBF) 

co 87 O5CD 377 8 PRINT 

4F O1 01 CO7B 378 SLC 1(29XR1)-HEX30 

CE 01 04C7 GO7B 379 ALC G6P 10264702}, HEX306 
380 * 

CO 60 O4AF 381 OPLO30 BC OP1010,8 
382 + 8 PRINT 

F2 00 1€ 383 OP1040 SC GOP2000>5# 

3C 87 O4DE 384 MvVI OP104071,X'87* 

OC 01 O4C7 OFTLF 385 HVC 0P102047(2 ), SVAREAS5S 

38 40 0738 336 TBN STARR» X*408 

co 90 0493 387 BF oP1005 

4€ 00 01 0739 388 ¥vVC 141.%R1) LENOPI 

7c 0c 00 389 MVI O(,XR1)oX*00* 

CO 87 O4A0 390 8B oP1069 

F2 00 1E 391 GP2000 JC TRC190,4 

3C 87 C4&FF 392 MVI BP200041yX*87* 

4C 00 O01 O73A 393 MYC 1(01_XR1L) sLENOP2 

Oc O1 O4C7 O72i 394 avC OP10204 702), SVAREA+T 

38 40 0738 395 TBN STARR eX *40# 

co 90 0498 396 BF OP1007 

7 00 00 397 MYT O€eXR1),X* 008 

CO 87 04A0 398 B G°1009 

35 O02 0304 399 TREI9O L TRCOO5043,XR2 

38 01 0738 400 TBN STARR,»X*OL* 
401 * 

F2 10 O7 402 JT TRCIOS 

3D OA 0386 403 cul JSUMP42 5 X* OA® 
404 * 

F2 81 OC 405 JE TRC210 

oc GO 0539 0731 406 TRCLO5 MYC TRC 2004241} INSLEN 

E2 02 00 407 TRC200 LA #U_gXR20_XR2Z 

F2 02 01 408 LA 1€.XR2Z) gXR2 

co 87 002D 409 TRC210 B BEGIN 

3C CO 0551 410 LNOPL MVE LNOPO141,xX°CO* 
4ll * 

F2 87 04 412 J LNOPOO 

3C 30 0551 413 LNOP2 MVI LNGPO141,xX*30° 
414 

34 08 0565 415 tnoPpoo Sst LNOPBK+3, ARR 

BS 00 00 416 LNOPO] TBF OC eXR2) o# 

F2 90 06 417 JF LNOPO2 

OF 00 0731 0079 415 SiC INSLEN(1) GNE 

OF 00 C731 0079 419 LUNOPO2Z SLC INSLEN( 1) ONE 

co B7 OOCD 420 LNOPBK 8B # 
QQ] KESECERSESERAS SE SERSERSESLELRSE SR SSE HRERHHE AER EKTRHELH FEHEKHE EE SEES CHALE K THES eek eas 
422 * 
423 * HALF-BYTE TO HEX CHAR. CONVERT ROUTINE 
424 * 
425 SHSHERKREKKRERSE RAS ASSERALAEREAKSERRESSE ALE LETS SKA KAKHKES EKA EERE ATES LER KKKSE RA 
426 

34 08 OS5CC 427 CONVER ST AAXBK343,ARR 

34 01 05C4 428 st AAXBK1432,XR2 

34 02 05C8 429 ST AAXBK2434XR2 

35 01 OSCC 430 L AAXBK343,XRV 

ic 01 0733 O12 431 “VC LPCT(2)510,XR1) 

75 02 05 432 L 5(yXR1) -XR2 

75 O01 03 433 t 3(5XR1)_XR1 

OEF 01 O5CC 0102 434 ALC AAXBK34312) sHEXOG 

9c 00 O01 00 435 AAXO10 MVC 1019XR2)20T XRD 

A& 02 00 O01 436 MNZ OUC1, XR2) 910 oXR2) 

3C 80 OS5SAA 437 MVI AAX03 0419 X*80° 

BB FO 00 438 AAXS15 SBF Oly XR2),X* FO? 

BD O09 00 439 CLI O(,XR2)_,X*09* 

F2 864 05 440 JH &AX020 

8E 00 00 0100 441 ALC OU1,XR2 3, HEX3S9 

1SJAN7O O9MARTO 17APR70 05 JUN70 

816576 816638 816677 816707 


SAVE XR1e 

SAVE XR26 
PROG ID OTRA-2 
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Cc 
C 
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Cc 
C 
C 
Cc 
Cc 
C 
8 
G 
© 
CG 


m4 


o 
oC 


o 
o 
c 
C 
°o 
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@ | | ! 
eeeeeevneneneneneneneoeeeeoeeee e808 0888888 6 @ @ 


TRA2 
ERR LOC 


OSAl 
OSA 
OSA9 
O5AC 
0580 
0584 
0587 
0580 
05C1 
o5C5 
05C9 


05C0 
o501 
05D4 
0508 
O5D8 
OS5DE 
O5E2 
OSE6 
O5E9 


OSED 
OSFl 
O5F5 
O5F8 
OSFB 
OSFE 
0601 
9605 
0608 
060D 
0610 
0615 


DATE 
EC NO. 


1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 258°648 
PAGE &@ 
* * * FRACE PROGRAM * * & 

OBJECT CCDE ADDR STMT SOURCE STATEMENT 

BE 00 00 0619 #42 AAXO20 ALC O(1¢XR2),HEXB7 

E2 02 03 443 tA 10-XR29—XR2 

F2 80 08 4&4 AKXO30 JC ARKO40eXK*BO0° 

3C 87 OSAA 445 MVI AAXO304+1,X* 875 

CO 87 0593 446 B AAXOLS 

D2 01 O01 447 AAXO40 LA 1(—eXRLPXRE 

OF 01 0733 0079 448 ALC LPCTI2) -ONE 

£0 01 0587 449 BNZ A&XO1LO 

C2 01 0000 450 AAXB8Ki LA #_gXRL 

C2 02 9000 451 AAXBK2 LA #,XR2 

co 87 6000 452 AAXBK3 8B # 
453 KKAESHESERECRSSEERSSAESRSRERERSES AEREER SSSA TEESESTS SESH SERHTHR ESSERE ES 
454 % * 
455 * PRINT ROUTINE * 
455 * * 
457 EEEKEERERSASEERESS EERRARESES SE SSS S RESELLERS SHAETE STEAKS G FEE EGE ETERSSS 

34 08 O5E5 458 PRINT ST RETURN 34 ARR 

Fl Eé 00 459 PRINTI APL x*Eee* 

C1 £0 OSE6 460 T1090 HALT. X*EO* 

F3 €2 O01 461 sia X*O19 -xX*E2* 

F1 E6 00 462 APL XtE€6*® 

C1 €0 OSE6 463 TI1O0 HALT, X*EO?® 

co 87 0000 464 RETURN B € 

FO 3E ¢F 465 HALT HPL X*GF*t gx*ZE® 

co 87 OS5D1 466 B PRINT] 
467 KERREESSREEREREESHERASRER ERE ES EAHEAS EERE SES $4 BETTE EEE TES ET EASES TEES ES 
468 * * 
469 * CALCULATE OPERAND 1 ADDRESS * 
470 * * 
471 CEEKEEHAS EER EREERS SESEARS SLSAERE TE REESE SEARS EEERTEREES STR EEE SEES LESSEE 

34 08 0618 472 CALOPL ST CALQP843,ARR 

6C 00 05 02 473 MVC 5 (1—9XR19920,XR2) 

Bs 40 00 474 TBN Ol yXR2)—gX"4O" YS XRL USED AS INDEX? 

F2 10 OD 475 JT STARRI 

B8 80 CO 476 TBN O(»XR2) 9X*89" IS XRL USED AS INDEX? 

F2 10 OF. 477 JT STARRZ 

6C 01 05 03 478 MVC 5(2eXR1)9 30, XR2) 

F2 87 OD 479 J CALOPB 

4E 01 05 O3AB 480 STARRI ALC 5(2_XR1)_,USKR1*3 

F2 87 05 481 J CALOPB 

4E 01 05 O3AF 482 STARR2 ALC 5129 XR1L) 2 USXR24+3 

co 87 00C00 483 CALOPB 8B # 

ISJANTO OOMARTO LTAPRTO O5SJUNTO PROG 10 OTRA-2 

816576 816638 816677 816707 PAGE 8 


ee me nae en 


| 
\ 
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® 
a 
Ys MAINTENANCE DEAGNOSTIC PROGRAM 
we 
~ TRA & & * TRACE PROGRAM * * & 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
+ 
486 
487 * 
& 488 % 
0000 490 # FQU) OO 
& OCOL 491 xR1 EoU ol 
0002 492 XR2 EQuU) 2 
0008 493 ARR €Qu 8 
& 0004 494 CONCOD EQU & 
he OOBD 495 WKAREA EQU  LPBF+65 
gi 0619 BT 0619 496 HEXB7 OC XL1°B7* 
o O61A 0719 497 SVOPiC DS XL 64 
O71A O71A 498 SVAREA OS XL 
o718 o72C 49° Ds xL18 
C o72D O72E SOO FRAD OS XL2 
O72F 0730 501 TOAD OS XL2 
0731 0731 502 INSLEN OS XLY 
GC 0732 0733 503 LPCT ODS XxL2 
0734 0735 504 SVARR DS XL2 
0736 0737 505 CRCD- OS XL2 
© 0738 0738 506 STAR2 OS XL1 
0739 0739 507 LENOPL OS XL2 
Si O73A 073A 508 LENOP2 CS xul 
& 0000 509 END START 
GQ 
me 
a 
Go 
°o 
Oo 
© 
oO 
Cc 
8 
Go 
oe 
Ss 
e 
DATE 15JANT70 OOMARTO 17APRTO 05 JUNTO 
EC NO. 816576 816638 816677 816707 
e 
@ 
@ 
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TRACE PROGRAM EQUATES £0S°S 


489 ELRASESAEAERE RSE AAAS SHSKESESESES SRS TSE KEKTHE 


PART 0. 2589648 
PAGE 6A 


485 SaREEEEERESEDR ER GS OREEEE CRESS EE REESE CREEES ESE SE ESE EE SHES ESE HESS HSE SEES SS 


* 
+ 
* 
EHETHE LHS AHS ERERTEAGESE SEE SSESETS 
TEMPORARY VALUE FOR INSTRS 
INDEX REGISTER le 
INDEX REGISTER 2. 
ADDRESS RECALL REGISTER. 


PROG 10 OTRA-2 
PAGE @a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


TRA2 


SYMBOL 


AAXBK1 
AAKBK2 
AAXBK3 
AAKO1LO 
AAX015 
AAX020 
AAX030 
AAKO40 
ADD 
ADIAR 
ADTARO 
ARR 
BCO00 
BEGIN 
BEGINO 
BEGIN 
CALOPB 
CALOP1 
CNCD 
CONC 0D 
CONVER 
FRAD 
MALT 
HEXB7 
HEX06 
HEX30 
HEX39 
INSLEN 
INSTR 


JIMPOOO 
JMPO10 
JMPO30 
JMPO4O 
JUMP 
LDIAR 
LENOPL 
LENDP2 
LNOP BK 
LNOP OO 
LNOPO] 
LNOP O2 
LNOPL 
LAOP 2 
LOAD 
LPBF 
LPCT 
NTRACE 
ONE 
OPTYPO 
OPTYP1 
OPXZ00 
OPXx000 
OPX010 
OPX020 
OPx025 
OPX030 
OPx060 
OPxX0TO 
OPx080 
CPX090 
OPX106 
OPX110 


DATE 
€C NO. 


* * & TRACE PROGRAM * * ¢ 


T LEN V 


Cc 001 


004 
0046 
604 
004 
003 
005 
903 
003 
003 
006 
0038 
001 
004 
OE 
004 
004 
0046 
004 
002 
001 
004 
002 
0c3 
ool 
002 
002 
ool 
001 
001 


Pe>PP PP PPPOPP PPP PrPrOPYrPrrrprprPrrpp p 


00s 
003 
003 
004 
903 
003 
ool 
ool 
004 
004 
003 
006 
004 
004 
003 
001 
002 
004 
002 
003 
003 
004 
004 
003 
003 
004 
004 
006 
005 
005 
005 
005 
005 


PPPrPrrPpPrPrrPprrrrprprprrprprprprrprprrprprpyprpprprp,r ir 


LSJANT 
816576 


ALUE 


0000 


oscl 
osc5 
05C9 
0587 
0553 
OSA1 
O549 
0584 
0280 
O28€ 
0294 
0008 
O1E6 
002D 
0056 
OOSA 
0615 
OS5ED 
O737 
0004 
0566 
OT2E 
OS5SE6 
Q619 
0102 
ooT8 
0100 
0731 
03B7 


0183 
0198 
O19E 
O1Al 
0384 
0282 
0739 
O73A 
0562 
054C 
0550 
055C 
0541 
0548 
O2A0 
oo7C 
0733 
0105 
0079 
OLSF 
0429 
0142 
0115 
O2E5 
0302 
0315 
C310 
0349 
0365 
0371 
O37A 
0393 
0398 


0 


DEFN 


0490 


0450 
0451 
0452 
0435 
0438 
0442 
O44 
O&4T 
0209 
0213 
0224 
0493 
0165 
0065 
0076 
0077 
0483 
0472 
0505 
0494 
0427 
0500 
0465 
0496 
0os9 
0095 
0098 
0502 
0295 


0138 
0143 
0145 
0146 
0294 
0223 
O507 
0508 
0420 
0415 
0416 
0419 
0410 
0413 
0218 
0096 
0503 
0102 
0094 
0127 
0328 
0119 
0106 
0237 
0246 
0251 
0253 
0264 
0272 
0276 
0279 
0286 
0288 


OOF MARTO 
816638 


REFERENCES 

0062 0105 

O0264 0264 

0381 0383 

0428% 

04 29% 

O427% 0430 

0449 

8446 

0440 

OLB Tt O4454 

04-44 

0199 

6210 

0213% 

5055 0305 

0160 

0409 

OOT1 0073 

0075 

0472* 0479 

0182 0255 

0954 0142 

OOf4 0142 

0315 0373 

0057* 0069 

0460 0463 

0442 

0434 

0366 0368 

0441 

O0O81* O112¢ 

0065 OCé5* 

O272* O276* 

0135 

0138 

0140* 0143 

0144 

013€* 0139% 

0219 

0180* 0186” 

O06E 0066*% 

0415* 

0412 

0410* 04132 

0417 

0107 0115 

0119 

0197 

010C 0323 

0431* 0448% 

00860 

0112 0364 

0106* O111*% 

0327* 

0108 

0087 

0128 

0239 

0247 

0245 0250 

0254* 0256% 

0266 

0267 

0271 0275 

0281 

0283 
LTAPRTO 
816677 


CROSS-REFERENCE 


O1Z7 0143 0145 0170 


O291 0292 0294 0301 
0392 0407 0416 0462060 
043-40 

0415 0427 0458 0472 
04861 

Q146% 0172 O174* 01768 
0146 O172% 0174 O176 
0378 0379 

0169 0204 0213 0228 
OO7T* OOTS 0132 0157*% 
0279 0284 
0166* 0192 0231*% 0235% 
0241* 0242 0248* 02514 
0240* 0242 0249% 0252 
0376 0495 
0418 0419 0448 
0114* 0118 0310 0327 
O259 0261* 0359 

OS JUNTO 

816707 


0173 0205 
0302 0363 
0450 0451 
0293 0297% 
0293% 0297 
0265 0406 
0158 0230* 


O270* 0274% 


0254 0260 
0393 


PART NO. 
PAGE 
0214 0224 0227 
0314 0314 0328 
0452 0464 0483 
0306 
0418* 0419 
0234* 0260* 0261 
O0278* 0403 
0313 0339 0361 
PROG ID 


PAGE 


O227 
0358 


0268*% 


0388 


2589648 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM 


TRA2 


SYMBOL 


OPYG00 
OFYO19 
OPY015 
OPYO20 
OPYO30 
GPYO40 
OPY050 
OPY060 
OPZF 
OCPZ000 
OPzZ010 
OPZO12 
OPZ030 
OPZ049 
OPZ045 
OFZO50 
OPzZ070 
OPZ2080 
GPZ090 
OP1000 
CP1005 
OP1007 
OP1009 
OP1010 
OP1020 
OP1030 
OP1040 
aP2000 
PRDATA 
PRINT 
PRINTL 
RESXR1 
RETURN 
STARR 
STARRI 
STARR2Z 
START 
STARTO 
STIAR 
STIARO 
SVAREA 
SVARR 
SV9P1C 
SWITCH 
T10000 
TOAD 
TRANS 
TRCOOO 
TRCEO30 
TRCO40 
TRCO5O 
TRCOO6O 
TRCOTO 
TROOSO 
TRC140 
TRC1LEO 
TRC1I60 
TRC180 
TRCIGO 
TROIGS 
TRCEZOO0 
TRC210 
US&R 1 
USXP 2 
WKAREA 
XR1 


DATE 
EC NO. 


= 


AOprPprrrprprprprprrprprpprPprrrpbpPrpyprprprPrpprprprPrprpprrprPrrrpprppDeeerpprprbrPprerppnpDrrprprnpph » » Pp 


* * * TRACE PROGRAM @ & & 


LEN VALUE 
004 0133 
004 O71E 
004 O2ZAB 
005. ozBC 
005 02Ci 
604 O02C6 
005 62D9 
005 0400 
003 0120 
004 OL3E 
003 0149 
003 0103 
004 O1EA 
C04 0203 
003 O1FS 
G04 020F 
005 O1BC 
005 01C4 
005 01c9 
003 0486 
005 0493 
003 0498 
005 04A0 
005 O4AF 
604 04C0 
004 04D 
003 O4DD 
003 O4FE 
002 0104 
004 O5CD 
003 05D1 
004 0285 
004 O05€2 
001 0738 
005 0608 
005 0610 
003 0000 
004 0025 
006 026E 
003 0274 
001 O71A 
002 0735 
064 0719 
004 O3EA 
004 O1DF 
002 0730 
004 O111 
004 0146 
004 03A0 
004 03C0 
004 0301 
005 03F0 
004 0405 
004 043D 
004 0448 
004 O45E 
004 0441 
004 0466 
006 OS1F 
006 0532 
003 0537 
004 0530 
004 03A8 
004 03AC 
001 0080 
001 0001 
15JANTO 

816576 


DEFN 


O114 
0180 
0221 
0226 
0227 
0228 
0234 
0314 
0109 
0128 
0146 
0159 


0166 | 


0173 
O170 
0176 
0154 
0156 
0157 
0358 
0361 
0362 
0364 
0368 
0373 
0381 
0383 
0391 
0100 
0458 
0459 
0224 
0464 
0506 
0480 
0482 
0052 
0062 
0204 
0205 
0498 
0504 
0497 
0308 
0163 
o501 
0105 
0121 
0289 
0301 
0302 
0306 
0315 
0335 
0338 
0344 
0336 
0346 
0399 
0406 
0407 
0409 
0291 
0292 
0495 
0491 


O9MARTO 
816638 


REFERENCES 

0086 

0129 

0203 0212 

0185 0189 

0181% 0187+ 

0162 

0229 

0312* 0313¢ 

0084 

0110 

0130 

0153 

0164 

0163* 0165 

0169% 

0173 

0149 

0151 

0155 

0068* 0253* 

0387 

0396 

0390 0398 

0381 

0359* 0363* 

0367 O371* 

0360* 0384* 

0356% 0383 

0298 

0354 0377 

0466 

0193+ 0208 

0458% 

0221% 0243* 

0475 

0477 

0509 

0053* 

0201 

0204+ 

0121 0318 

0055* O177* 

0195* 0264% 

0074* 0076+ 

0059* 0072 

0102 

0113 0117 

0137 0147 

02 89% 

C064* 0069 

0304 

0311 

0325 

0330 

0340 

0331 

0334 0337 

0308 0358 

0402 

0406* 

0405 

0060* 0103 

0061* 0106 

0320 0322 

0060 0103+ 
17APP70 
816677 


CROSS-REFERENCE 

O19} 

02262 

0168* 

0366* 0370 0372* 0379% 0385 0794 
0392% 

O2t7 0222 

0262* 0303 0386 0395 0400 

0357 0385 0394 

0202 0211* 0220* 0305* 0307 

O175 O179 0225 0233 0236 0285 
0072 0290* 0399 

0343 

0391 

0125 0154 0286 O299% 0480 

0126 0156 0288 0300% 0482 


0121% O122 0123 O124 0124 0125 


O5JUN70 
816707 


PART NOW 2589648 
PAGE 9A 
0287 
0126 O131 O152 0154 
PROG ID OTRA—2 
PAGE 9A 


we aR a hi Sa a a Ce cataracts —~ 


PART NG. 


e @ 
RENO RN HERR 


m T@M MAINTENANCE DIAGNCSTIC PROGRAM 2589€45 IBM MAINTENANCE DIAGNOSTIC PROSRAM PART NO. 2589648 
Ce PAGE 10 c PAGE 108 
| | : 
e TRA2 + % * TRACE PROGRAM * * & i G TRAY * * * TRACE PROGRAM @ * & 
, & 
CROSS-REFERENCE Pe OBJECT CARD LISTING 
C SYMBOL T LEN VALUE DEFN REFERENCES & ‘ ee od ae { 
| THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 
0156 0158 0178 0193 0194 0194* 0195 0202 0207 6211 0216 0220 
e 0223 0224* 0226 0227 0256 0279 0284 0286 0288 6289 0291*% 0299 CG ct 2 THROUGH 16 CL 17 THROUGH 32 Ct 33 THROUGH 48 CL 4&9 THROUGH 64 CL 65 THROUGH 80 CL BL THROUGH 96 | 
0301% 0306 0307 0312 0314 9322% 0324 0325 326 0332 0335 0336 
0338 0341 0342 0344 0345 0346 0348 0350 C352 0357 0361 0362 — 
¢ 0363 0364 0368 0372 0378 0388 0389 0393 C357 0428 0630* 0431 Gs ws Seen. 2 ar ee a ; ease PP 
0432 0433 0435% 0435 C447 ~447# 0450* 0473 C478 0480 0482 TK Oata"< HCE DA3Z*4R *5aCPY< Go? "ES AB 4 &+ gf HCyPHE 4 -f MCOMC? <ROUHAO NC-YF4A@TRA2001I0 §8 | 
XRZ C 601 0002 04°92 0061 G062* 0064 0083 0085 0102 0104* 0109 0122 0123 0231 0132 
° ; 0134 0138 0140 0141 0141* 0145 0145 0148 0150 0152 0157 0159 o eos . ‘ as a ere cee : 
Ne 0161 0168 0170 O170* 0171 O171* 0177 O178* 0183 02188 61590 0196 Te-A~ #Ol -#2A3Y B/OKGCEDCS *>2YH ECEDC5 *0aYEGIH CS"HGAC2G =20 + asf BOYHJYQDED .AOMAQI<TRAZONIE | 
0198 0200 O2C5 0205* 0206 0206* 0207 0209 0214 0214*% 0215 0215% ie 
Ce 0216* 0218 0223* 0230 0234 0237 0240 0241 0246 0248 0249 0257 €3 —" teed oe oe ey a ae ee ee. eS oes : 
0258 0268 0272 0276 0280 9282 0290 0292% 0300 0302* 0323% 0324 T+ BQ #72DH @ &* 1>< @8/B1>C 3/B =aY3)""d <DA EDA EDA EDA EDA EDA EDA EDA EDA EDA -ALEATRA20012~—. 
0325 0326 0332 0335 0336 0338 0341 0342 0344 0345 0346 0368 
¢ 0350 0352 0353 0353 0399% 0407 0407* 0408 0498* 0416 0429 0432% So St. ae te one te oe eo IS ge ni Me a ae ee hy 
0435 0436 0436 0438 0439 0441 0442 0443 0443* 0451% 0473 0474 T#-CLEDA EDA EDA &DA EDA EDA EDA EDA EDA EDA EDA EDA EDA EDA EDA EDA EDA EDA EDA ED #*2ETRAZ0013 
0476 0478 
¢ oO ‘ies, e 2 eo e oa es eo @e e °° eo e eo e eo eo = eo e oe eae 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 | T(-DHEDA EDA EDA DA EDA EDA EDA EDA EDA £DA EDA EDA EDA EDA ED 9 OQ CEB JES & CLO4KDTRA20014 
6 | G e o a2@ ee eo eo eo es e es -_ e s e - 
ne | TkEDa 225 —420H* CO OG /ONAaY* S>] @Z Qf YAQED ABD 3-HGDZ0D 0G /ONATY® .2ZUH/B JCEMALEOTRA20015 
Cc | & e e e 2 e e e o e -_ © e ase o- ee. rc : 
TC E1BCOG OG /ON HO-DGFXEB COA OE -~ O*GL DI t_< EZ Cy"HG <BG >P2/#P 2735% EB. H HBD ¥*C —D69DTRAZ0016 
CG Co oe e a eo e ee eo — oe . e es e@ s . e e 
T<-FU #OB75H @YD HI <C_ZBG = Z F R LOH #0Z F- >H B 3MDA342 12/01 S - 4A *7 CHVGJU MD OA*BOTRA20017 
CG 6 ose 


TUEGEOH*#CY.-& JH ECS-- IHECEOAAO] 2/1)< EXCDMHGAMO AAO+?2. C> I+ E* C>.UL JHECS-A 34 


XH1LSCETQTRAZ0018 


oO 
O 


TCERS 1HE933A -| 2/0880 HC{ YC_SO -€AC A=0*18-H 8-HALEEG(2 —2 4A *7OH* .22XGIZ OD-BSOHQTRAZ0019 


€ oO e a rf e = 2 oe eso = e e e annie >. a : 
i T<€H= 3 4A #70 H GCPMBA@BG : @ * Sf BOZBGAS68B C 2DHOD E*9] D80,— D {HEw,yU HSOQ*FAE EBEMALEYTRA20020 : 
i 
e t 3° = = e e e = eo e e es oe a e ee a i 
‘,, Tt 13F G2DG-a8-+ 6{ DB>GHAAJOAALU > @ @/AF> H a/ ->A Ad/ HL D ABP 2/34K I6A3D (CH ,DOOHFYQTRA20021 i 
: 4 
8 | oO const? eo 2 = e 2 eo. ° e ° eo eo eo ae0 | 
| T(-HD8—-H 8-HA) H @Y*#5>A A@/ HG-D G(EC2/14< HOA3G S -CS -E6 -C2/10 8D G2D 0* €4*5 SGIGNS.#TRAZ00Z2 ‘ 
© | ©} e ~ @ Cf oe e ec ese ‘ee e e wee ° 2 e 
toad | TC .24+-DG+]HG 7M B <HA C2/=E* &. EAMO D [&<G<-H ACROB #08] <C_7H $120C #0C1 H <KY vVG/ECPJ*TRAZ0023 
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€ OA1B CO 87 0222 32 B HALT fs OAC4 OC 03 18CA 1A78 ©8 READY2 MVC TIOERR-8,1NS3-13(4) INSERT —-SECD— 
. GALF FOF] _OA20 33 oc XL2"*FOFL® OACTA 3C E3 18CE 99 MMVI TIOQERR—-4,X*ES3* INSERT ~T- = 
So Se, OA21l 30 F3 1C05 34 AGAIN SNS WORK, X*F38 | OACE CO 87 OZ21A 109 8 PRINT *PRINT 
© OA25 39 FF 1C05 35 TBF WORK, X*FF® *BRANCH TO CHECK TIO*S IF THERE ARE = OAD2 C6 OAD2 101 oc XLi*cé6* *TIG INDICATES SECD NOT RDY 
OA29 F210 18 36 JST CKPRIM *=NO ERRORS INDICATED IN STATUS BYTE \- OAD3 IA GCAD3 102 oc IL1*26¢* * 
OQA2C CO 87 156C 37 8 STAT2 i Sas 07.04 18D2 OADS 103 pc AL2CTIGERR) * 
: OA30 CO 87 O21A 38 B PRINT *PRINT i Be OAD6 FOOS OADT 104 oc XL2*FOOS*# * 
O0A34 C6 OA34 39 oc XL1"*Ce6? *ELIMINATE ERRORS AND CONTINUE | OADS CO 87 0222 105 8 HALT *HALT UNLESS BYPASS ERROR 
0A35 1D OA35 40 oc IL1*29¢ * OADC FOO0S OADD 106 DC XL2*FOOS® *HALT SWITCH IS ON 
C OA36 1888 OA3T 41 oc AL2CELI®) * = OS OADE CO 87 0216 107 LEAVE2 8 LINK 
= OA38 F003 OA39 4&2 oc XL2*FOO3® * 108 
= OA3A CO 87 0222 ° 43 8 HALT 109 FEFFESSEEEEES ESS AEELE THERESE EXERERE ES ELESEAEE ES SAKE TEKS EEKREEREKSEKESEREE 
e OA3E F003 OA3F 44 DC XL2*FOO3* SS 110 * * 
OA4O CO 87 O0A21 45 B AGAIN | ; 111 * ROUTINE 3 - CHECK CORRECTNESS OF STATUS AND SPECIAL INDICATORS * 
OAS4 C1 FO 0A62 46 CKPRIM TIG CKSEC,xX*FOP ; 112 * * 
< Cases GT G3 1s5CA Lado aT MVC TIGERR-8,ACTUAL-10(4} INSERT -PRIM- ‘ 3 L]L3 SES SH SESE EEREEAEEEAKEGCRERHEARSEEERSE EKESEAKALKRALKKAKKEKKES HRERKTASFKERKESKE 
OAGE 3C €6 18CE 48 MVI TIDERR-4,X"E65 INSERT -W- L U&E2 03 O&E2 1146 RTOZ DC XL1*°03* ROUTINE NUMBER 
OA52 CO 87 O21A 49 B PRINT *PRINT , OAE3 80 OAE3 115 oc XL1*so* FLAGS — MANUAL INTERVENTION 
c OAS6 C6 OAS& 50 oc XLi‘'cét *TIC INDICATES PRIM NOW ROS a OAE4S O0B6D OAE5 116 oc AL“ (RT04} ADDRESS OF NEXT ROUTINE PREFIX 
OQAS7 1A COAST §1 oc ILL*26° * LLY ¥EEEEEESEEEEEEERESESEEEKSESRAEEREAREEREEH SEEKER HEKEERAKS KEKRKESK EERE KE TESKEKE 
OA58B 18D2 OAsSS §2 oc ALZ2(TIGERR} * | OAE6 CO 87 C21A 118 B PRINT *PRINT 
c OASA FOOL OA5SB 53 DC XL2°FOO1® * S OAEA 46 OAEA 119 oc XL1*46°* *MAKE MFCU NOT RDY AND NPRO 
OASC CO 87 0222 54 8 HALT *HALT UNLESS BYPASS ERROR ' OAEB 25 OAEB 120 oc IL1*37¢ * 
‘ OA60 FOO] OA61 55 oc XL2*FOO1* *HALT SWITCH IS ON | OAEC 1815 OAED 121 DC AL2CINS1415) * 
OA62 C1 FB OABO 56 CKSEC TIO LEAVE1,Xx*Fat | : OAEE FOFe OAEF 122 oc XL2*FOF B8® 
OAG6 OC 03 18CA 1A78 S7 MVC TIOERR-8BsINS3-13(4) INSERT -~SECD- OAFO CO 87 0222 123 B HALT 
: OA6C 3C E6 18CE 58 MVY TIDERR-4,X*ES! INSERT -W- : OAF4 FOFS8 OAFS 124 DC XL2*FOFS8®* 
me OA7O CO 87 OZ1A 59 8 PRINT *PRINT ce OAF6 30 F3 1C€05 125 SNS WORK, X*F3# *TEST FOR ALL STATUS 
o OATS C6 OATS 60 oc XL1°C6t *TIG INDICATES SECD NOW RDY pees CAFA 39 FF iC05 126 TBF WORK »X* FFe *BITS BEING OFF 
ae OATS 1A OATS 61 oc IL1*26¢# * iN OAFE 39 FT 1C06 127 TBF WORK-1,X*°F7® *AND BRANCH 
4 OA76 18D2 OAT? 62 oc AL2(TIOERR? * ee OBO02 F2 10 16 128 JST CKFO *IF SO 
OATS FOO2 OA7T9—s 63 Oc XL2*FO02* * | 0805 3C 33 16FE 129 MMVI HALTID, x*33° *SETUP TO 
ses OATA CO 87 0222 64 B HALT *HALT UNLESS BYPASS ERROR [is 0809 32C F3 LAFB 13¢ M¥I NOTALL-2,X*F3* #PRINT -F3— 
‘% OATE F002 OATF 65 oc XL2*FOO2®* *HALT SWITCH IS ON o80D OC 03 1BOA 1LACD 131 MVC EXP, F3STAT (4) *ERROR 
Oaso CO 87 0216 66 LEAVE! B LINK OB12 3C 33 1714 132 SVE HAL TEM, X*33° **SG 
‘ " OB17 CO 87 16E8 133 B BADBIT 
c OQ 0818 30 FO 1C05 134 CKFO SNS WORK, X* FO? STEST FOR ALL SPECIAL 
| OB}+ 3B 20 1C04 135 SBF WORK=-1, X*20* 
C ; 8 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 
F016 MFCU FUNCTION TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
& 0823 39 £6 1005 136 TBF WORK, x" E62 
0827 39 EE 1004 137 TBF WORK~1,X*EE? 
0B28 F2 10 16 138 JT CKFL 
OBZE 3C 30 16FE 139 MVI WHALTID,X*30° 
0832 3C 30 1714 140 MVI = HALTEM, X*308 
0836 3C FO 1AFB 141 “VI WNOTALL-2,X*FO* 
& OB3A OC 62 180A 1AD1 142 MVC =o EXP, FOSTAT(4) 
0840 CO 87 16EB 143 8 BABBIT 
0844 30 Fl 1005 144 CKFL SNS WORK,X°FL® 
S 0848 39 FE 1€05 145 TBF WORK,X*FES 
.s O84C. 39 FC 1CO4 146 TBF WORK-1,X*FC® 
0850 FZ 10 16 147 JT CKNOOP 
3 0853 3C 31 1L6FE 148 MVE «- HALTID,K*3it 
OB57 BC 31 1714 149 MVI  HALTEM,X*31° 
OBSB 3C Fl AFB 15¢c MVI NOTALL-2,xK°FL® 
% OESF OC 03 189A LADS 152 MVC  =—s- EXP, FISTAT(4) 
0865 CO B7 16E8 152 3 BADBIT 
O69 CO 87 GO216 153 CKNODOP 6B LINK 
a 154 
155 
156 = 
> 1S7 * 
158 * 
159 * 
4 160 + 
161 * IF BOTH FEEDS ARE NOT READY. 
162 
3 OBED 04 OB6D 163 RTOS DC XL1*06¢# 
OBE6E 80 OCB6E 164 oC XL1°80° 
OB6F OCib OB70 165 DC AL2€RTOS) 
166 
C871 31 F4 LFFB 367 Lio LOPR,X*FS4* 
, 0875 CO 87 OZ1A 168 8 PRINT 
O879 46 OB79 169 pc XL1°46* 
O87A 38 OB7A 170 DC ILi*598 
OB7B 1841 OB7C #171 Dc AL2CINS2) 
CB7D FOA3 OB7E 172 DC XL2*FOA3* 
OBTF CO B87 0222 173 B HALT 
0883 FOA3 OB84 174 oc XL2*FOA3® 
9B85 Ci FD OB8D 175 TI0 +*48,X*FO® 
OB89 CO 87 0885 176 8 ao 
CBSD Ci F8 0895 177 TIO t48,Xx"FBE 
OB91 CO 87 OBED 178 B *—4 
OB9SS C1 FO 0895 179 Tic *eX*FO# 
OB9S C1 FS 0899 180 TIO ,xX*FRe 
OB9D CO 87 0212 181 B TEST 
OBAl 3C 18 1002 182 RBL MVI COUNT, X*18° 
OBA5 C2 02 OBET 183 LA COMT AB, XR2 
OBAS 2C O1 148D 00 184 DOCMND MVC CMND,0(2,XR2} 
OBAE 38 01 0208 185 TBN SBYTE3,SNSWLF 
OBB2 F2 90 il 186 JF DONOT 
OBBS CO 87 O21E 187 8 UNPACK 
OBB9 02 ORB9 188 pC IL1*2* 
OBBA 142D OBBB 189 oC AL2(CMND) 
OBBC 1898 OBBD 190 oc AL2CINVC) 
OBBE CO 87 OZ1A 191 8 PRINT 
OBC2 Ol OBC2 192 DC XL1*O1* 
OBC3 09 08C3 193 DC IL1*9¢ 
OBC4 1898 OBCS 194 DC AL2(INVC) 
O8C6 CO 87 1391 195 DONOT 6 EXxIO 
OBCA OF 00 1C03 1FFS5 196 SLC  CGUNT(1),ONE 
OBDO F2 B81 07 197 JZ END3 
OBD3 E2 02 02 198 LA 209XR2)_XR2 
OBD6 CO 87 OBAS 199 8 DOCMND 
OBDA 39 10 0208 200 ENO3 TBF SBYTE3,SNSWIB 
| O8DE CO 90 OBA 201 BF R3L 
OBC2 CO 87 0216 202 8 LINK 
203 
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INDICATOR BITS 
*BEING OFF AND 
*BRANCH IF SO 

*SETUP TO 

<PRINT -FO- 
*ERROR 
*€SS 


*TEST FOk ALL SPECTAL 
*INDICATOR BITS 
*BEING OFF AND 
*BRANCH IF SO 
*SETUP YO 
*PRINT -Fi~ 
SERROR 
*MSG 
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ROUTINE & ~- COMMANDS TEST-—FROM A COMMAND TABLE 


* 
* 
% 
THE PROGRAM PRINTS INSTRUCTIONS AND HALTS FOR BOTH FEEDS TO BE # 
MADE READY. WHEN CPU START IS DEPRESSED THE PROGRAM WILL LOOP * 

* 

* 


RRES REESE SAESASESRASE AES E KSA SK RS AHH KEKEEA SR SEAS RACK SE AKTHEAKS SS HEARS 


ROUTINE NUMBER 
FLAGS ~— MANUAL INTERVENTION 
ADDRESS OF NEXT ROUTINE PREFIX 


RSSREKAEKLES KERALA SRARKREKES SARK SS RSETAAAKAEKSSEKKAHSAREKASKRSAESRKSERUE 


LOAD PRINT AREA 

SPRINT 

*NPRO-MAKE BOTH FEEDS READY 
*#WITH BLANK CARDS 
% 


LOOP UNTIL 


*BOTH FEEDS 
#60 NOT 
*FREADY 

{OOP ON PRIM FEED NOT RDY OR ERROR 
LOGP ON SECO FEED NOT RDY OR ERRGR 
GO TO DCP TO READ SWITCHES 
INITIALYZE COUNT TO 24 
LOAD ADORESS OF CMND TABLE 
MOVE CMND FROM TABLE INTO EXIC 
*CK FOR AND BRANCH IEF CMNDS ARE NOT 
*T0 BE PRINTED PRIGR TO EXECUTION 


GO EXECUTE THE COMMAND 

*SUBTRACYT 1 FROM COUNT OF 24 AND 
*BRANCH TO EXIT RT WHEN IT IS ZERO 
INCREMENT TO LOAD NEXT CMND 

GO BACK TO LOAD AND ISSUE NEXT CMND 

*CK FOR AND BRANCH IF LOOP ON 
*EXECUTING COMMANDS SW IS ON 

GO TO OCP 
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FOS 


ERR LOC OBJECT CODE 


OBEG 
OBES 
OBER 
OBEC 
OBEE 
OBFO 
OBF2 
OBFS 
GBFE6 
OBF8 
OBFA 
OBFC 
OBFE 
ocoo 
oco2 
OC 04 
Ocoée 
ocos 
OCOA 
ocec 
OC OE 
o0c10 
oci2 
ocis 


OC16é 
OCT 
ocis 


OCIA 
OCciE 
OC 22 
OC26 
0C29 
OC2F 
oC35 
0039 
0C3D 
OC4l 
0C45 
OC4B 
OC4e 
oc50 
OC56 
OCcSC 
Oc60 
OC 64 
ocer 
océ6B 
oc72 


DATE 
EC NG. 


F604 
F104& 
F205 
F305 
F406 
F506 
F607 
FTO? 
F804 
F906 
FAOS 
FBOS 
FCO6 
FOO6 
FEO? 
FFG? 
F4A6 
FSA6 
FORT 
FTAT 
FCAS 
FDAS 
FEAT 
FFA? 


os 
80 


OED? 


36 
co 
38 
F2 
oc 
oc 
3B 
38 
38 
38 
Fea 
3A 
3A 
oc 
oc 
3A 
3A 
38 
F2 
oc 
38 


£9 
67 
80 
90 
03 
o3 
08 
08 
os 
08 
87 
08 
os 
03 
03 
08 
08 
02 
10 
il 
Ae 


1BFS 
16C6é 
e208 
iF 

1478 
£945 
ZFFO 
1FEE 
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ocseo 
ic 
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LFEE 
LATE 
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ADDR STMT SOURCE STATEMENT 
204 FEEESESSSKKA SSE LAK SSE SKSEKSE RS SE KHKSEKESESEAEKSASEKSE EKE SESS KES ESSE TEOKEKGEKSEKEEKE 
205 * MECU COMMANDS TABLE * 
206 SRESRAKESKAREREKASSARAKRKSESRERERKKESESSESKKSERKAEASFASKLAKELHKSEKKAHKSSLESEKHKACKESERSE 
207 * PRINT * 
208 * COMMAND BUFFER FUNCTION HOPPER STACKER * 
OBE7 209 COMTAB DE XL2* FO04* FEED PRIM 4 
OBES 210 DC XL2°F 104° READ PRIM 4% 
OBEB 211 oC XL2°F 205° PUNCH PRIM i 
OBED 212 DC XL2°F305¢ RD/PU PRIM 1 
OBEF 213 oc XL2*64068 1 PRINT PRIM 2 
OBF, 214 DC XL2°F506° i RD/PR PRIM 2 
OBF3 215 DC XL2*F607® 1 PU/PR PRIM 3 
OBFS 216 oC XL2°F707° 1 RD/PU/PR PRIM 3 
OBFT 217 DC XL2°F 8049 FEED SECD & 
OBFS 218 DC XL2*F904" READ SECD 4 
O8FB 219 DC XL2°FAO0S® PUNCH SECD 1 
OBFD 220 BC XL2°FBO5* RD/PU SECD i 
OBFF 221 pc KL2°FCO6® i PRINT SECD 2 
OCO2 222 pc XL2°FO068 i: RD/PR SECD 2 
0CO3 «223 oC XL2*FEO?? i PU/PR SECD 3 
0CO5 224 DC XL2"FFOT® 1 RD/PU/PR  SECD 3 
CCOT 225 oc XL2*F4A6* 2 PRINT PRIM 2 
OCOS 226 DC XL2*F5A6¢ 2 RD/PR PRIM 2 
OCOB 227 oc XL2°F6AT® 2 PU/PR PRIM 2 
OCOD 228 DC XLZ°E TAT® 2 RD/PU/PR PRIM 2 
CCOF 225 pC XL2°FCA6S 2 PRINT SECD 2 
OC11 230 DC XL2°FDAG? 2 RD/PR SECD 2 
0C13 231 oC KRL2*FEAT® 2 PU/PR SECD 3 
OC1S 232 pc XL2°F FAT! 2 RO/PU/PR SECD 3 
233 
236 FERERKKSERESSKSESASASHASETAERERS SESE SLEKESEAEKSRSE SSE HAKKAR SKSEKS AEAKATS HE SE HESEETSE 
235 * . * 
236 2 ROUTINE 5 — STACKER SELECT TEST ® 
237 * % 
238 * THE PROGRAM PRINTS INSTRUCTIONS AND HALTS. WHEN CPU START IS * 
239 + DEPRESSED, THE PROGRAM WILE LOOP IF THE SELECTED FEED 1S NOT = * 
240 + READY. * 
241 * x 
242 % OPTIONS AVAILABLE BY ORDER OF PRECEDENT ARE : 
243 & 
244 % SNSWLE--SELECT CARDS ACCORDING TO 1D PUNCHED IN CARD * 
245 + SNSHW1D-—-PUNCH STACKER IDENTIFICATION INTO CARD * 
246 FESPSERESKSESERSESARESKSEKARESERTES SESSEKSKHEKELSE SEKSSESKKEKA KLE RHEE SESAEKKSERKEE 
OC16 247 RTOS dC XL1°05° ROUTINE NUMBER 
OCiT 248 DC XLL*80° FLAGS —- MANUAL INTERVENTION 
0C19 249 DC AL2(RT06} ADDRESS OF NEXT ROUTINE PREFIX 
ZOO FERSSEASEAERKEAEKES SHKHEKESREKSEKKAARKSE KK KEKKKSESKEPRKKSKSERKKBRRKR SE SKK SRRESER SE 
251 SBF FLAGS,sFLGO2 TURN OFF FLAGS 0 AND 2 
252 B CLEAR GO CLEAR ALL STACKER COUNTS 
253 TBN SBYTE3,SNSWLS 4CK FOR AND BRANCH IF FEED 
254 JE FD2 *EROM PRIM HOPPER IS OFF 
1A00 255 MVC —- INS3-134),ACTUAL-10 PUT -PRIM- INTO INSTRUCTION MSG 
2A00 256 MVC NOSTAK-5(4) sACTUAL-10 PUT -PRIM- INTO INSTRUCTION MSG 
257 SBF READCD-1,X*08* TURN OFF M BIT IN READ COMMAND 
258 SBF  READPU-1,X"08? TURN OFF M BIT IN READ/PUNCH COMMAND 
259 SBF = TELL141,X*08¢ 
260 SBF - TELL 241,X"085 
261 J INLYAL ; 
262 FD2 SBN READCD-1,X" 08° TURN ON M BIT IN READ COMMAND 
263 SBN READPU-1,X"08" TURN ON M SIT IN READ/PUNCH COMMAND 
1A78 264 MVC —- INS3~13(4) e ENS3-23 PUT -SECD- INTO INSTRUCTION. MSG 
1A78 265 MVC NOSTAK-5(4),INS3-23 PUT -SECD- INT INSTRUCTION MSG 
266 SBN TELLI41,X"08" 
267 SBN  TELL241¢X*08* 
268 INITAL TBN SBYTE3,SNSW1E “CK FOR AND BRANCH IF OPTION TO READ 
269 JT SELECT *CARD AND SELECT ACCORDINGLY IS ON 
LAZE 270 MVC =—«-INS3A (18) »BLANK MODIFY INSTRUCTION MESSAGE 
271 TBN SBYTE3,5NSW1D @CK FOR AND BRANCH IF NOT DESIRING 
24N0V69 L1OFEB7O 14APR70 LSMART1 30AUGT1 PROG 10 OF 01-4 
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© PAGE 3 @ PAGE 3A 
g FO14 MFCU FUNCTION TESTS e FOL4 MFCU FUNCTION TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC CBLECT CODE | ADDR STMT SOURCE STATEMENT 
c OcTs F2 90 19 272 JF READIT *TO PUNTH STACKER NUMBER INTO CARD : @ 0069 3A 10 1BFB 340 SBN FLAGS,FLAG3 TURN ON ~1D OR LE WERE ON- FLAG 
OC7& OC G1 148D LFEF 273 avec CMND(2),REAGPY LOAD READ/PUNTH COMMAND } OD6D 38 80 18FB 341 TBN FLAGS,FLAGO 
CCTE 2C 40 1LESE 274 VI PUST+95,xX°408 *CLEAR THE OD71 CCG 90 OEA7 342 BF GETOUT 
t OC82 OC SE LESE LESF 275 MVC PUST4°4(959}) ,PULT4+95 SPUNCH FIELD @ OD75 3B 80 1BFB 343 SBF FLAGS,FLAGO TURN OFF MFCU WENT NOT RDY INDICATOR 
OC88 F2 87 OC 276 J TELL ‘ 0079 CO 87 OZ1A 344 8 PRINT 
OC8B OC 11 1LAGA LAIC 277 SELECT MYC INS 3A(16),PUNCHD MODIFY INSTRUCTION MESSAGE ODTD 46 CD7D 345 pC XL1°46° 
2 oc9gi oC 01 1480 IFFL 278 REAOIT MVC CMND(23,READCD LOAD READ COMMAND g- ODTE 44 ODTE 346 pc IL1*%6s° 
OCSY CO 87 O21A 279 TELL 8 PRINT *PRINT GPERATGR OD7F 1aC9 CD80 347 OC AL2CINS6) 
OC9B 46 OcoB 280 CC XL1*46t *INSTRUCTIONS OD81 FOF3 OD82 348 oc XL2*FOF 3° 
= OCSC <7 OoCc9c 281 oc IL1*e7* * £ 0083 CO 87 6222 349 B HALT 
OC9D 2485 OC9E 282. OC ALZCINS3} * OD87 FOF3 oD88 350 pc XL2"*FOF3* 
OCSF FOA4 OCAO 283 oc XE2*FOARE * : o089 CO 87 0212 352 . 8 TEST 
a OCAlL CO 87 0222 284 B HALT £ OD8D 39 06 0208 352 TSF SBYTE 39X* 06! *CK FOR AND BRANCH IF BOTH SENSE 
OCAS FOA4 OCA6 285 oc XL2°*FOA4G! 0091 F2 10 04 353 JT CHECK2 *SWITCH -1D-— AND -2¢-- ARE OFF 
OCA7 Ci FS OCAF 286 TELL1L T10 *+8,X*FS® 0094 CO 87 OCB3 354 B TESTI 
2 SCAB CO 87 OCAT 287 B ¥—G z 0098 38 10 165FB 355 CHECK2 TBN FLAGS, FLAG3 *CK FOR AND BRANCH IF 
OCAF Cl F8 OCAF 288 TELL2 TIO *,X*FB : OD09C F2 90 08 356 JF LISTCT #-1D OR 1LE- WERE NOT ON BEFORE 
OC83 38 02 0208 289 TESTE TBN SBYTE3, SNSWIE *CK FOR AND BRANCH IF OPTION TO READ OD9F 3B 0 1BFB 357 SBF FLAGS ,FLAG3 TURN OF ~1LD OR 1E WERE ON- FLAG 
a OCBT F2 10 45 290 JT SPEC *CARD AND SELECT ACCORDINGLY IS GN = ODA3 CO 87 OEAT 358 B GEToOuT EXIT THE ROUTINE 
OCBA 38 04 0208 291 TBN SBYTE32SNSW1D ODA? tO 87 1695 359 LISTCT B LIST 
OCBE F2 10 04 292 JT RERUN CDAB CO 87 C21A 360 8 PRINT *PRINT 
OCC1 CO 87 1391 293 8 EXIO PRIME WAIT2 = ODAF 06 ODAF 361 DC XL1*°06* #S°T DATA SWITCHES To CC 
OCcC5S C2 02 OEAB 294 RERUN LA SSBITS, XR2 LOAD ADDRESS OF STACKER SELECT BITS ; ODBO 30 ODBO 362 oc IL1°48! £79 CCUNT CARDS WITH MECU 
occ9gs 3C 2C iCco03 295 MVY COUNT, X*2C* SETUP COUNT go ODB1 197A CDB2 363 Dc AL2CINS5) : 
é OCED 28 02 14BD CO 296 STACK MNZ CMND »0{ yXR2) MOVE SS BITS IN ZONE INTO COMMAND + 00B3 CO 87 0222 364 B HALT 
OCD2 CO BY 1643 297 B COUNTM ODBT FOF4 O0B8 365 DC XL2"*FOF 4! 
OCD6 CO 87 2391 298 B EXxIO ODB9 30 00 1005 366 SNS WORK,X*00? 
OCDA 28 03 14B8D CO 299 NN CMND,0(,XR2) MOVE SS BITS IN NUMERIC INTO COMMAND 3 COBD 3D CC 1C05 367 CLI WORK, X* CC® 
OCOF CO 87 1643 300 8 COUNTM O0C1l F2 O01 E3 3268 JNE GETOUT 
OCE3 CO 87 1391 301 8 EXxIO oncs OC O1 14BD 1FED 369 MYC CMND(2),READI MOVE IN READ COMMAND INTG STACKER 1 
OCE7 E2 02 O1 302 LA 10,XR23,XR2 ADD 1 FOR INDEXING THRU SS BIT TABLE ¢ ODCA 38 80 18FB 370 SBF FLAGS,FLAGO TURN GFF MFCU WENT NOT ROY INDICATOR 
ae OCEA OF 00 1C03 1FFS5 303 SLC COUNT(1),0NE *DECREMENT COUNT AND BRANCH BACK TO ODCE 3A 20 1BFB 371 SBN FLAGS sFLAG2 TURN ON COUNTING STACKER CARDS FLAG 
OCFO CO 01 OCCD 304 BNZ STACK1 *CONTINUE UNTIL COUNT GOES TO ZERO ODD2 3C F4 19C9 372 MVI STAND, X®F4® 
OCF4 38 10 0208 305 TBN SBYTE3,SNSWIB *CK FOR AND BRANCH IF LOOP ON zg OD0D6 CO 87 OZ1A 373 8 PRINT *PRINT 
OCF8 CO 10 OCCS5 306 BT RERUN *ISSUING COMMANDS SWITCH IS ON ODDA 06 ODDA 374 oc XL1° 068 * 
OCFC F2 87 62 3607 J EXITOT ODDB 46 CODB 375 DC IL1°708 * 
OCFF 38 O02 14BC 308 SPEC SBF CMND-1,X*02* CHANGE CMNO TO READ ONLY z ODDC 19£8 CDDD 376 DC AL2(LDNEXT ) * 
op03 CO 87 1391 309 B EXxI0 ODDE 3C 04 1480 377 MVI CMND,X*04" ALTER COMMAND TO SEL INTO STACKER 4 
CD07 38 80 1BFB 310 TBN FLAGS ,»FLAGO *CK FOR AND BRANCH TO EXIT ROUTINE ODE2 CO B87 1377 378 B RDY2 GO LOOP UNTIL PROPER FEED IS READY 
OD0B F2 10 53 311 ST EXITOT *1IF MFCU WAS ALLOWED TO GO NOT RDY = ODE6 CO 87 1391 379 FIRST 8B Exio 
ODOE 30 4F 1€80 312 cLt RDOFD, X° 4F° *CK FOR AND BRANCH IF NOT ODEA 06 30 19A2 1FD9 380 AZ SS4CTI4}) 0101) ADD 1 TO STACKER 4 COUNT 
O0D12 F2 01 07 313 JNE ISIT2 *PUNCHED FOR STACKER 1 ODFO 3C F3 19¢C9 381 MVI STAND, X*F3# 
0015 3C 05 148D 314 MVI CMND, X*05° SETUP TO SELECT INTO STACKER 1 = ODF4 38 80 1LBFB 382 TBN FLAGS,FLAGO *CK FOR AND BRANCH IF 
OD1L9 F2 B7 41 315 J SPEC] BRANCH BACK TO READ NEXT CARD ODF8 F2 10 04 383 JT MORE *MFCU WENT NGT READY 
OD1C 3D 4F 1681 316 ISIT2 CL! RDFD+igX*4Fe *CK FOR AND BRANCH IF NOT ODFB CO 87 ODES 384 8 FIRST 
0D20 F2 O1 O7 317 JNE ISTT3 *PUNCHED FOR STACKER 2 3 QDFF CO 87 1391 385 MORE 3 EXxIo PUT FINAL CARD INTG PREVIQUS STACKER 
oD23 3C O€ 1480 318 MVI CMND, X* 06° SETUP TO SELECT INTO STACKER 2 : O£03 3C O7 148D 386 MV I CMND, X"07* ALTER COMMAND TO SEL INTO STACKER 3 
0027 F2 87 33 319 J SPEC? BRANCH BACK TO READ NEXT CARD ‘ OEO7T 3C F2 19C9 387 KVI STAND,»X*F2® 
OD2A 3D 4F 1€82 320 ISIT3 CLI RDFD+2, X"4F8 *CK FOR AND BRANCH IF NOT : CEOB 06 30 1998 1FD9 388 AZ SS32CT(49.D101) ADD 1 TO STACKER 3 COUNT 
OD2E F2 O1 O7 321 JNE ISIT4 *PUNCHED FOR STACKER 3 O£11 38 80 18F8 389 SBF FLAGS »FLAGO TURN GFF MFCU WENT NOT ROY INDICATOR 
0031 aC O7 1480 322 MVI CMND, X*07! SETUP TO SELECT INTO STACKER 3 OE£1S CO 87 1391 390 SECOND 8B E€xie : 
0035 F2 87 25 323 J SPEC1 BRANCH BACK TO READ NEXT CARD 3 OF19 06 30 1998 1FL9 391 AZ $S3CT(463,0102) ADD 1 TO STACKER 3 COUNT 
0038 30 4F 1E83 324 IS1T4 CLI RDFD+3_X"4F& *CK FOR AND BRANCH IF NOT CE1F 38 80 18FB 392 TBN FLAGS,FLAGO *CK FOR AND BRANCH IF 
OD3C F2 O01 O7 325 JNE ITSNOT *PUNCHED FOR STACKER 4 OF23 F2 10 04 393 JT MORE *MFCU WENT NOT READY 
OD3F =C 04 1480 326 MVI CMND, X*04* SETUP TO SELECT INTO STACKER 4 + O£26 CO B7 O£15 394 B SECOND 
0043 F2 87 17 327 J SPEC1 BRANCH BACK TO READ NEXT CARD OE2ZA CO 87 1391 395 MOREL B EXIO PUT FINAL CARD INTO PREVIOUS STACKER 
0046 CO 87 021A 328 ITSNCT B PRINT *PRINT OEZE 3C 06 146D 396 MVI CMND, X*06" ALTER COMMAND TO SEL INTO STACKER 2 
ODGA C6 OD4A 329 DC XL1'cer *NON SS CD-IN XXXX SAIT g OE32 3C Fl 1969 397 mvt STAND, X*F1* 
OD4B 16 004B 330 DC TL1l*22° * OE£36 06 30 198E 1ED9 398 Az SS2CT(4),D101) ADD 1 TO STACKER 2 COUNT 
OD4C 194A OD4D 331 DC AL2(NOSTAK) * : OE3C 3B 80 1BFB 399 SBF FLAGS, FLAGO TURN OFF MFCU WENT NOT ROY INDICATOR 
OD4E F006 OD4F 332 DC XL2*FOO6® * & OE40 CO 87 1391 400 THIRD B EXIO 
CD50 CO 87 0222 333 8 HALT OF44 06 30 198E 1FD9 401 Az SS2CT(4),D0101) ADD 1 TO STACKER 2 COUNT 
0D54 F006 0055 334 pc XL2"*FOO6* DE4A 38 80 18FB 402 TEN FLAGS,FLAGO *CK FOR AND BRANCH IF 
0056 38 BO 1BFB 335 TBN FLAGS, FLAGO *CK FOR AND BRANCH TO EXIT ROUTINE £ OESE F2 10 04 403 JT MORE2 *MFCU WENT NUT READY 
OO5A F2 10 04 336 JT Ex1T07 *IF MFCU WAS ALLOWED TO GO NOT RDY O£51 CO 87 O£40 404 8 THIRD 
0050 CO 87 OCFF 337 SPEC] B SPEC GO BACK TO SETUP FOR SEL OF NEXT COD OE55 CO 87 1391 405 MORE2 8B EXx1G PUT FINAL CARD ENTO PREVIOUS STACKER 
0061 39 06 0208 338 EXITOT TBF SBYTE3,X*06?* *CK FOR AND SRANCH IF BOTH SENSE el OES9 3C 05 14B8D 406 MVI CMND, X*o5* ALTER COMMAND TO SEL INTO STACKER 1 
0065 CO 10 ODAT 339 BT LISTCT *SWITCH -1D- AND -lE- ARE OFF CE5O0 v6 30 1984 1FD9 407 Az SSICT(4) D1 (1) ADD 1 TO STACKER 1 COUNT 
q o 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 2589732 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589732 
f . PAGE 4 | @ PAGE 4A 
FOL4 MFCU FUNCTION TESTS § e FOI4  MFCU FUNCTION TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
z O0£63 24 40 18F8 408 SBN FLAGS,FLAGI >, @ OF22 F2 10 1A 476 JST HPRON *1S ON AS EXPECTED 
OEF67 38 80 1BFB 409 SBE FLAGS, FLAGO TUEN OFF MrCU WENT NOT RDY INDICATOR | OF25 3C DS 1R891 &77 MVI PRYARE-1,Xx"D5# 
CE6B CO 87 1391 410 FOURTH B Ex!lo { OF29 OC 18 1B7F 1830 478 MVC PRTARE-19, HOPCYC{ 25) 
2 OE6F 06 30 1984 1FD9 411 STACK4 AZ SSICT(49,D101) ADD 1 TO STACKEX 1 COUNT & OF2F CO 87 O21A 479 B PRINT *PRINT 
O€75 38 80 1BFB 412 TBN FLAGS»7LAGO *CK FOR AND BRANCH IF : OF33 C6 OF33 480 pc XL1*Cé® *HOPPER CYCLE 
; OETS F2 10 04 413 JT NOMORE *MFCU WENT NOT READY ’ OF 34 2B OF34& 48] oc IL1°43¢ *NOT COMPLETE 
8 OETC CO 87 OF6B 414 3 FOURTH € OF35 1891 OF36 482 oc ALZUPRTARE-1} ERROR 
O&€80 3B EO 1BFB 415 NOMORE SBF FLAGS,X*EO® TURN GFF FLAGS 0,1 AND 2 OF37 F034 OF38 483 DBC XL2°*FO3Gt *MSG 
OE84 CO 87 O21A 416 8 PRINT OF39 CO 87 0222 4B4 B HALT 
$ OE8B 06 CE8S 417 pc KL1* 068 ¢ OF3D F034 OF3SE 485 DC XL2*FO34" 
OEBY 72 OF89 418 pc IL1*34¢ | OF3F 35 01 1FT7F 486 HPRON & ALLFeXRL 
OEBA 1A0A OFBR 419 DC AL2 (ACTUAL) OF43 36 O01 LFTE 487 WAITL A ALLF.XR1 
9 O£€8C 30 F3 1C05 420 CKWAIT SNS WORK,X*F3° . OF47 30 FO 1C05 488 SNS WORK. X*FO# *CK FOR AND BRANCH 
OEF90 38 20 1C04 421 TBN WORK—15X*268 OF4B 38 80 1C05 489 TBN WORK, X* 80t *I1F HOPPER MAGNET 
O£94 CO 10 OF8C 422 BT CKWAIT OFGF F2 10 22 490 JT HPROFF *BIT IS ON 
é OES8 CO B7 1695 423 8 LIST oe OF52 CO 84 OF43 491 BH WAITL 
OE9C CO 87 O21A 424 8 PRINT OF56 3C DS 1891 492 MVI PRTARE-1-eX"D5? 
CEAO 16 OEAO 425 oc XL1itl6s | OFSA 3C F1 1638 “£93 MVI  =-HOPMAG-7,X"F1® 
3 OEAL CO 87 0222 426 B HALT . e. OF5E OC OF IB7F 183F 494 MVE PRTARE-19,HOPMAG (15) 
QEAS FOFS GEAG 427 oc XL2°FOFS? \ CF6& CO 87 O21A 495 B PRINT *PRINT 
OEAT CO 87 0216 428 GETOUT B LINK OF68 C6 OCF68 496 DC XL1°C6! *HOPPER 
3 429 = OF69 21 OF69 497 pc FL1*33° *MAGNET 
430 SRE G RAE EER REEL AA AEE SEES AARAKAEKESAAARHKKSKAAEAKAE KAS RAKE KKKSEKKEEE ! OFGA IBS OF6B 498 pc AL 2 (PRT ARE-1) ZTPROR 
. 431 * TABLE OF STACKER SELECT BITS | OF6C FO35 OF6D 499 oc XL2°*FO35° *MSG 
$ 4&3? Be EE RE EK KR SAAR HK KAAS A RAKES ERAAKSE KARE SKSESCAKHEAKAAERE RE \ - OF6E CO 87 0222 500 B HALT 
OFAB 433 SSBITS EQU * OF 72 F035 OF73 501 BC XL2°FO35? 
CEAB 576547654765 OFEBO 434 oc XL6°S76547654765' : OF74 35 O01 FTF 502 HPROFF L ALLF,XR21 
CEBL 476547655674 OEB6 435 oc XL6"47TE547655674¢ < f OF78 36 O1 LETE 503 WAIT2 A ALLF, XR 
CEBT 567456745674 OFBC 436 DC XL6"567456745674" OFTC 30 FO 1C€05 504 SNS WORKS X® FOE *CK FOR AND BRANCH 
OCEBD S67456567674 OEC2 437 oC XLEO'5S67T45656 7674" i pe OFBO 38 80 1095 505 TBN WORK ,X* 80? *IF HOPPER MAGNET 
CEC3 747474767656 OEFECB 438 oc XLO"7474747676568 i ox OF84 F2 90 22 506 JE COINWL *BIT IS OFF 
CECS 555564444455 OECE 439 bc XL6' 5555646444455! OF87 CO 84 OF7B SOT SH WAIT2 
a OECF 566666777774 OED 440 bc XLO"566666777774# OF8B 3C Fl 1838 508 MVI HOPMAG-7,X*F1® 
OFD5S 4445 OFDG 441 BC XL2°44458 é OF8F 3C C6 1891 509 MVE PRTARE-1,X*C6® MOVE -F— INTO ERROR MSG 
442 OF93 OC OE IB7F 1B3F 510 MVC PRTARE-19, HOPMAG(15) 
443 Be Re ee ee ae ee a eK ae a HE KT RAKE KEKAKAAH EARS EKA AEE AAA SSE HE RKAREEK OFSS CO 87 C214 Sit 8 PRINT *PRINT 
444 % * OFSD C6 OFSD 512 DC XLi'cet *HOPPER 1 
445 & ROUTINE 6 — CHECK FOR PROPER OPERATION OFFCERTAIN STATUS BITS * OFSE 22 OFSE 513 pc IL1°34# *MAGNET 
Gao % * OFSF 1B92 OFAO 514 DC AL2(PRTARE} *ERROR 
447 SAKE KERALKSE KEKE S EKS AEE EK KSE SK AKKERAEAKAAKESKS EKREKRKSAAKSEKSEAKKKAAEKKEEKKSEK : OFAL FO36 OFA2 Sis Dc XL2°FO36* *M°G 
OED? 06 OCED7T 448 RTO6 oc XL1*O6* ROUTINE NUMBER ; OFA3 CO 87 0222 516 B HALT 
COEDS BO OEDB 449 DC XL1*80° FLAGS - MANUAL INTERVENTION : OFAT FO36 OFAS S17 DC XL2*FO36# 
OED9 1228 OEDA 450 OC. AL2(RTOT) ADDRESS OF NEXT ROUTINE PREFIX hoe OFAS Cl F7 OFAS 518 CDINWL TIO *eXtF7e 
451 FREREEAREERER AREAS TREKS RES ERE ERK RH AE EERE ARE EERE EER EE EES i OFAD 20 F323 1C€05 519 SNS WORK, X*F3? *OCK FOR AND BRANCH 
OE0B CO 87 O21A 452 B PRINT *PRINT ' OFB1 38 20 1004 520 TBN WORK-1,X*20# * 
CEDF 46 OEDF 453 DC XL1°468 * oe a OFBS F2 10 1E 521 JT HMAGON * 
DEEO 38 CEEC 454 DC IL1°598 * UFB8 3C D5 1891 522 MVI PRTARE~1,X"D5* MOVE -N- INTO ERROR MSG 
OEEL 1842 OEE2 455 DC AL2(INS2) * | OFBC 3C F1 184D 523 AVI INWAIT,X°FI? 
OEFE3 FOF2 OEES 456 pc XL2°FOF2* i 2 COFCO OC OD IBTF 1B84D 524 MYC PRTARE-19, INWAIT(14} 
CEES CO B67 0222 457 8 HALT ; OFC6 CO 87 O21A 525 B PRINT *PRINT 
OEES FOF2 OEEA 458 oc XL2*FOF2* OFCA C6 OFCA 526 DC XL1*C6e *CARD IN 
OEEB F2 F4& 00 459 SIO X*QO',X*FaS ISSUE PRINT COMMAND  § OFCB 26 OFCB 527 pc IL2°32¢ *WAIT 1 
OEEE 30 F3 1C05 460 SNS WORK, X'F38 *CK FOR AND BRANCH IF i OFCC 1591 OFCD 528 DC AL2 (PRTARE-1} *ERROR 
OEF2 38 01 1C05 461 TBN WORK,X*O1® *NO-OP BIT IS ON he OFCE F047 OFCF 529 Doc XL 2*FO4T? *MSG 
OEF6 F2 10 1A 462 JT CKHPR *AS EXPECTED i @ OFOO CO 87 0222 530 B HALT 
OFFS 3C DS 1891 463 MVI PRTARE-1,X°D5? MOVE -N- INTO ERROR MSG ARE | OFD4 F047 OFDS 531 pc XL2°*FO47? 
OEFD OC 04 1B7F 178) 464 MVC PRT ARE-~19,NGOP-8(5} i OFD6 31 FS 1FFD 522 HMAGON LIO LORD, X*F5¢# LOAD READ AREA LSR 
OFO3 CO 87 O21A 465 8 PRINT *PRINT $ OFDA F3 F9 OO 533 SIO X*00*,x*FO8 READ 1 CARD FROM SECONDARY 
OFOT C6 OFOT 466 oc XL1*Co6e *NO-OP OFDD 35 O01 1LF7F 534 L ALLF,XR1 
OFO8 17 OFO8 467 DC IL1'230 *ERROR | OFEL 36 O1 LFTF 525 WAIT3 A ALLE, XR1 | 
OFOS 1891 OFOA 468 oc AL2(PRTARE-1)} *MSG : @ OFES 30 FO 1C05 536 SNS WORK,X*FOS *CK FOR ANDO BRANCH 
OFOB F032 OFOC 469 oc XL2*FO32" = OFES 38 80 1C05 537 TBN WORK,X*80" *IF HOPPER 2 MAGNET 
OFOD CO 87 0222 470 8 HALT | OFED F2 10 22 538 JT HOP20N *ON AS EXPECTED 
NF11 F032 OF12 471 pc XL2*FO32" , . OFFO CO 84 OFEL 539 BH WAIT3 
OF13 31 F5 1FFD 472 CKHPR LIO LORD,X*FS® LOAD READ AREA LSR OFFS 3C D5 1891 540 MVI PRT ARE—1,X*D5¢ MOVE -N- INTO ERROR MSG 
OFL7 F3 Fl 00 © 473 SIO X*00",X*FI® READ 1 CD FROM PRIM COFFS 3C F2 1838 541 MV I HOPMAG—7,X*F2¢ 
UFIA 30 F3 1C05 474 SNS WORK,X*F3¢ *CK FOR AND BRANCH IF Peete OFFC OC OF 187F 183F 542 MYC PRTARE-19 ,HOPMAG(15 } 
OFLE 38 04 1004 475 TBN WORK-1,X*"04! *HOPPER CYCLE NOT COMPLETE 1002 €9 87 C21A 543 8 PRINT *PRINT 
gs 
- ww 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 2589732 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589732 
€ PAGE 5 @ PAGE 5A 
FO14 MFECU FUNCTION TESTS e F014 MFCU FUNCTION TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SQURCE STATEMENT 
53 
g 1006 C6 1006 544 oc XL1"*C6t *HOPPER 2 & 10EO F3 FE 00 612 $10 X*00*,X*FE® PUNCH ZPRINT SECD 
1007 22 1007 545 oc IL1°33¢ ; *MAGNET 10E3 35 O01 FTF 613 L ALLF,XR1 
1008 1891 1009 546 pC AL2 (PRT ARE-1)} *ERRGR 1NE7 36 O1 1FTF 614 WAITS A ALLF.XR1 
2 100A F038 1008 547 pbc XL2°*F038¢ *MSG € 10E8 30 F3 1C05 615 SNS WORK, X*F3* *CK FOR AND BRANCH 
100C CO 87 0222 548 B HALT 1OEF 38 02 1C04 616 TBN WORK-1,X"02* *IF COUNTER BIT 2 
1010 FO38 101i 549 oc XL2*FO38* 10F3 F2 10 OD 617 JT BIT1ON *IS ON AS EXPECTED 
g 1012 35 O1 LFTF §50 HOPZ0N L ALLF,XR1 € 1OF6 CO 84 10€7 618 BH WAIT6 
1016 36 01 1F7F 551 WAITG A ALLF.XR1 10FA CO 87 1720 619 8 uP2 *G6O PRINT -CD IN TRANS/COUNTER BIT 2 
101A 30 FO 1C05 552 SNS WORK, X* FO? *CK FOR AND BRANCH LOFE 3F 1OFE 620 oc XL1°3F* *BIT NGT TURNED ON - 
3 101E€ 38 80 1C05 553 TBN WORK 4 X* 80° *IF HGPPER 2 MAGNET = 1OFF CO 87 1172 621 B DONE 
1022 F2 90 22 554 JF COINW2 *1S OFF AS EXPECTED 1103 38 01 1C04 622 BITLON YBN WORK-1,X*O1* *CK FOR AND BRANCH If COUNTER 
10275 CO 84 1016 555 BH WAITS eu 1107 F2 90 05 623 JF ONEOFF *BIT 1 IS OFF AS EXPECTED 
3 1029 3C C6 1891 556 MVI PRTARE-1,X*C6* “ 110A CO 87 1731 624 8 DOWN) 
102D 3C F2 1838 557 MV I HOPMAG—7,X"F2? LINE 40 LIOE 625 pc XL1*4o# 
1031 OC OF 187F 183F £58 MVC PRT ARE-19,HOPMAG(15 ) : 110F 35 01 LFTF 626 GNEOFF L ALLF,XR1 
3 1037 CO 87 O21A 559 B PRINT *xPRINT = 1113 36 O1 LFTFE 627 WAITT A ALLF,XRI 
103B C6 1038 560 oc XL1*Ccer *HOPPER 2 1117 30 F3 1C05 628 SNS WORK, X*F3! *LOOP WAITING FOR 
103C 22 103C 561 DC IL1*34*# *MAGNET 1118 38 01 1C€04 629 TBN WORK-1eX*O1* *COUNTER BIT 1 TO 
5 1030 1892 103€ 562 pc ALZ2(PRTARE) ERROR ii 111F F2 10 00 630 JT TWOGEE *COME ON 
103F F039 1040 563 DC XL2*FO39t =MSG 1122 CO 84 1113 631 BH WAIT? 
1041 CO 87 0222 564 B HALT 1126 CO 87 1719 632 B UPL *GD PRINT -CD IN TRANS/COUNTER BIT 1 
4 1045 F039 1046 565 DC XL2"*FO39* = 112A 41 112A 633 DC XL1°41° *B1T NOT TURNED ON — 
1047 Cl FT? 1047 566 CDINW2 TIO %yX"FTS 112B CO &7 1171 634 B DONE 
104B 30 F3 1C€05 567 SNS WORK, X®F3® *CK FOR AND BRANCH 112F 30 F3 1C05 635 TWOOFF SNS WORK, X*°F3° *CK FOR AND BRANCH IF 
é 104F 38 10 1004 568 TBN WORK-1,X*108 *1IF CO IN WAIT 2 15S i 1133 38 02 1€04 636 TBH WORK-1,X*O2* *COUNTER BIT 2 IS 
1053 F2 10 22 569 JT COUNTO *ON AS EXPECTED 1137 £2 90 08 637 JF SUB2 *OFF AS EXPECTED 
1056 3C F2 184D 570 MVI INWAIT, X*E2¢ 113A CO 87 1738 638 B DOWN2 *G60 PRINT -CD IN TRANS/COUNTER BIT 2 
: 105A 3C DS 1B91 571 MVI PRTARE-1,X"D5" = 113E 42 113E€ 639 DC XL1°42¢ *BIT NOT TURNED OFF- 
105E OC OD 1B7F 184D 572 MVC PRTARE~19,INWAIT(14) 113 F2 87 2F 640 J DONE 
1064 CO 87 621A 573 B PRINT *PRINT 1142 35 O1 1LFTFE 641 SUB2 L ALLF, XR1 
1068 C6 1068 574 oc XL1*C6* *CARD IN 3 1146 36 O1 1FTF 642 WAITS A ALLF,XRI 
Baretta 1069 20 1069 575 oc IL1*32¢* =WAIT. 2 114A 20 F3 1C€05 643 SNS WORK, X®F3¢ *LOOP WAITING FOR 
106A 1891 1068 576 DC AL2 (PRT ARE-1) ERROR 114E& 38 01 1C€04 644 TBN WORK-1,X*O1* *COUNTER BIT 1 
106C FO3A 106D 577 DC XL2*FOB3At =MSG ea 1152 F2 90 OC 645 JF TOZERD *TO GC OFF. 
1O6E CO 87 0222 578 B HALT 1155 CO 84 1146 646 BH WAITS 
1072 FO3A 1073 579 oc XL2°FO3A! aes 1159 CO 87 1731 647 B DOWN1 *G6O PRINT -CD IN TRANS/COUNTER BIT 1 
1074 CO 87 1171 580 B DONE 7 115D 43 115D 648 pc Xi1*43° *BIT NOT TURNED OFF- 
1078 39 03 1004 581 COUNTO TBF WORK—-1,X*03° *CK FOR AND BRANCH IF 115E F2 87 10 649 J DONE 
107C F2 10 14 582 JT COUNT1 *UP-DOWN COUNTER AY ZERO 1161 30 F3 1C05 650 TOZERO SNS WORK »X*F3¢ *CK FOR AND BRANCH IF 
1O7F CO 87 O21A 583 R PRINT *PRINT 4 1165 38 02 1004 651 TBN WORK-1,X*0O2* *COUNTER BIT 1 1S 
1083 C6 1083 584 oc XL1*ce6® *UD~ DOWN 1169 F2 90 05 652 JF DONE *OFF AS EXPECTED 
1084 18 1084 585 oc IL1*27* *COUNTER 116C CO 8&7 1738 653 B DOWN2 #60 PRINT -CD IN TRANS/COUNTER BIT 2 
1085 1B8aAD 1086 586 DC AL2(UPDOWN) * ERROR 1170 44 1170 654 OC KXL1*'+4* *BIT NOT TURNED OFF- 
1087 F038 1088 587 oc XL2*°FO3B! *MSG 1171 OC 03 1221 1222 655 DONE MVC ALLUP, ALLUP4+1(4) CLEAR SAVE AREA FOR INDICATORS 
1089 CO 87 0222 588 B HALT 1177 C2 02 OAaCc 656 LA 2700,XR2 
108D FO3B 108E 589 Oc XL2*FO3B" = 1178 C2 01 117F 657 LA CKALL,XR1 
108F CO 87 1171 590 8 DONE 117F 658 USING CKALL»XR1 
1093 31 F4& 1FFB 591 COUNT1] LIO LDPR,X*F4* PRINT “a4 LIT 31 F6 1000 659 CKALL LIG LDPU,X*F6® PUNCH 
1097 31 F6 1000 592 LIO LOPU,xX®*® F6® PUNCH - 1183 31 F5 1FFD 660 LIO LDRD,X*FS® READ 
1098 31 F5 1LFFO 593 LIC LDRO,X*F5# READ 1187 F3 F6 00 661 SIO X®O00",X*F6® PUNCH/PRINT SECD 
109F OC 18 1B87F 1866 594 MVC PRT ARE~19, TRANS (25) 118A 70 FO 9E 662 ALLO SNS TEMP( »XR1LDX*FO® 
10A5 F3 F6& CO 595 sia X*00',XtFEF PUNCH/PRINT PRIM = 118D 5C 00 13 9D 663 MVC ALL1414,XR1},TEMP-10 1, XR1) 
10A8 35 O01 LFTF 596 L ALLF,XR1 1191 7A 00 9F 664 ALLI SBN ALLUP-3(,XR1) »*#—-* 
LOAC 36 O1 1FTF 5S7 WAITS A ALLF,XR1 1194 5C 00 1A 9E 665 MVC ALL 2410,.XR1) 5 TEMPC Le XR1L) 
1080 30 F3 105 598 SNS WORK, X*F3" *CK FOR AND BRANCH IF 3 1198 7A 00 AO 666 ALL2 SBN ALLUP-2 (,XR1), *-* 
1084 38 O01 1C04 599 TSN WORK-1,X"O1* *CD IN TRANS/COUNTER BIT 1 1198 70 Fl 9E 667 SNS TEMP(XR1L) »X* Fl? 
10B8 F2 10 0D 600 JT BIT2 *I1S ON AS EXPECTED 119E 5C 00 24 9D 668 MVC ALL341(0.XR1L) »TEMP-1LE1L,XR1I 
1088 CO 84 1O0AC 601 BH WAITS ¢ 11A2 TA 0O Al 669 ALL3 SBN ALLUP-1 (9 XR1L) 9 ¥#—-* 
1OBF CO 87 1719 602 8 UP} *GO PRINT -CD IN TRANS/COUNTER BIT 1 11A5 5C 00 28 9E 670 MVC ALL 4410 -XR1) 9 TEMPU 15 XR1) 
10C3 3c 10C3 603 oc XL1*3Cce *BIT NOT TURNED ON- 11A9 7A OO A2 671 ALLS SBN ALLUP(,XR1),4-* 
10C4 CO 87 1171 604 B DONE $ L1AC 30 F3 1C05 672 SNS WORK» X*F3* *CK FOR AND BRANCH 
10C8 38 02 1C04 605 BIT2 TBN WORK-1,X"0O2?* *CK FOR AND BRANCH IF COUNTER 1180 38 80 1C04 673 TBN WORK-1,X"80° *1F PRINT BUFFER 1 
10CcC F2 90 09 606 JF BIT2ON *BIT 2 IS OFF AS EXPECTED 1184 CO 10 118A 674 BT ALLO *1S STILL BUSY 
1O0CF CO 87 1738 607 B DOWN2 *GO PRINT -CD IN TRANS/COUNTER BIT 2 £ 1188 36 O02 1FTF 675 A ALLF,xXR2 
1003 3€ 1003 608 oc XLL°3E* *BIT NOT TURNED OFF- 11BC CO 84 118A 676 BH ALLO 
1004 CO 87 1171 609 8 DONE pire 11CO0 OD O1 121F 1IFT7F 677 cLc ALLUP-2 sALLF(2) *CK FOR AND BRANCH IF ALL BITS 
i1cp8 31 Fé 1000 610 BITZ2ON LIC LDPU,X*F6* PUNCH oe 11C6 F2 81 25 678 JE CKLAST *CAME ON DURING COMMAND EXECUTION 
10DC 31 F5 1FFD 611 LIO LORD, X*F5* READ 11C9 2© FO 1BB4 679 MVI NOTUP-70,X" FO? 
3 d 
DATE ZBJUL69 24N0V69 10FEBT7O 14APRT70 15MART1 30AUGTI PROG ID OF01-4 DATE 28JULE9 24NOV69 10FEBT70 14APRT0 1SMARTL 30AUG71 PROG ID OFO1—4 
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wef @ 


have 








i 
:, 9 : 
a 
? / 8 ‘ 
1BM MAINTENANCE DIAGNOSTIC PROGRAM. PART NOw 2589732 | * 18M MAINTENANCE OTAGNOSTIC PROGRAM PART NOw 2589732 
& PAGE 6 : ® PAGE 6a 
, FOIG SFCU FUNCTION TESTS FOl4 MFCU FUNCTION TESTS 
# 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT i ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
; ‘f 
é 11CD CO &7 O2LE 680 B UNPACK *UNPACK ACTUAL | 3 124C F2 87 04 748 3 STORE 
11D1 02 1101 681 oc ILL*2¢6 *SENSE DATA j 124F 3C 70 1240 749 SETH4 MVI RDSWS4+2,X* 7D" MOVE IN -F7~- HALT IDENTIFIER 
1102 1216 1103 682 oc AL2(ALLUP-2) *FOR ‘ 1253 36 00 1C07 750 STORE3 SNS CMD.xX*008 READ THE CONSOLE SWITCHES 
é 1104 1817 1105 683 pc AL2CACT) * PRINTING i g 1257 4C 51 01 1C07 751 MVC 1429XR1),CMO MOVE COMMAND INTO COMMAND TABLE 
1106 CO BT O214 684 B PRINT *PRINT 125C OD O1 1C07 1FF3 752 CLC CMD{(2},ZERG #CK FOR AND BRANCH IF 
LIDA Cl 11D& 685 oc XLUecLe THE 1262 F2 81 32 753 JE PCMNDS *ALL BITS ARE ZERO (END OF CMND®S) 
¢ 1108 4D 1108 686 oc ILL*77" *ERROR & 1265 39 FO 1008S 754 ¥BF CMD-1,X*FO® *CK FOR AND BRANCH TF 
1IDC 18FA 110D 687 oc AL2{NOTUP) #MSG | 1269 F2 10 OF 755 JT NEXT *FIRST 4 BITS ARE ZERO (DELAY ONLY? 
. LIDE F045 L1DF 688 DC XL2*FC45* * | 126C 39 18 1C07 756 TBF CMD,X*18¢ *CK FOR AND BRANCH IF 
é LiEO CO 87 O21A 689 8 PRINT *PRINT & 1270 F2 90 GE 757 JF BADL *BITS 9-12 ARE NOY ZERO 
LLES 86 l1E4 696 oc XL1*°86! = ACTUAL 1273 38 FO iC06 758 TEN CMD-1-X°FO? *CK FOR AND BRANCH IF 
RIES 00 L1E5 691 DC TL2*13° * SENSE 1277 F2 90 OF 753 JF BAD} *DA ¥S WOF F 
2 LIE6 1B17 LIE7 692 DC AL2 (ACT) *=DATA | & 127A D2 01 02 760 NEXT LA 2¢,XREYgXRL INCREMENT XR 
LiE8 CO 87 0222 693 B HALT | i27D CO 87 123 761 B RDSWS GO BACK TO READ NEXT CMND FROM SW°S 
5 LIEC F045 1lED 694 pc XL2*F045" i 1281 CO 87 O21E 762 BADL B UNP ACK #UNPACK 
$ LIEE OD O1 1221 LFTF 695 CKLAST CLC ALLUP,ALLF(Z2} *CK FOR AND BRANCH IF ALL &I1TS | G 1285 02 1285 763 DC TLit2? * INVALID 
11F4 F2 B81 2C€ 696 JE DONF1 *CAME ON DURING COMMAND EXECUTION 1286 1COT 1287 64 DC AL2(CMD) *COMMAND 
L1FY 3C Fl 1B8B4 697 MVvI NOTUP-70,X*FI® pos 1288 1898 1289 765 DC AL2 CINVC) *FOR PRINT 
3 1ifB CO 87 O21E 698 B UNPACK *UNPACK ACTUAL | @ 128A CO 87 O2Z14 766 B PRINT *=PRINT 
1IFF 02 lLFF 699 Dc YLi°2e *SENS® DATA | 128E 06 128E 767 DC XL1*06* * INVALID 
. 1200 1221 1201 700 pc AL2 CALLUP} *FOR 228F ll 128F 768 DC TLL"17* *COMM AND 
é 1202 1817 1203 701 DC AL2¢ACT) * PRINTING @ 1290 1898 1291 769 oc AL2CINVC? *MSG 
1204 CO 87 O214 702 B PRINT *PRINT 1292 CO 87 123E 770 8 RDSHS ; 
1208 Cl 1208 703 oc XL1L°C18 *THE 1296 CZ 01 1F00 771 PCMNDS LA CTABLE,XRL LOAD .R1 WITH AODRESS OF CMND TABLE 
2 1209 4D 1209 704 DC IL1°77* *ERROR 2 129A 1C O1 1C05 012 772 GETNXT MVC = WORKs1(2,XR1} LOAD THE CMND FOR PRINTOUT 
120A 18FA 120B 705 DC AL2 (NOTUP) *MSG 129F D2 O1 02 773 LA 20,XR13,XR1 INCREMENT XR1 * 
120C F046 120D 706 DC XL2*FO46" * 12A2 CO 87 O2IE 774 8 UNP ACK *UNPACK 
= 120E CO 87 O214 707 B PRINT =PRINT e 12A6 02 12A6 775 oc ILL*zt *=COMMAND 
1212 86 1212 708 DC XLL'86! * ACTUAL 22A7 1C05 12ZA8 776 Dc AL2 (WORK) *FOR 
; 1213 OD 1213 709 DC TL1i*13" *SENSE 12A9 1898 1ZAK& 77 DC AL2ZCINVC) * PRINT 
= 1214 1B17 1215 710 DC AL2 (ACT) +DATA 2 12AB CO 87 OZ21A 778 B PRINT xPRINT 
1216 CO 87 0222 711 B HALT 12AF O01 12AF 779 DC XL1*O1* =COMMAND 
. 121A F046 1218 712 DC XL2*FO46? 1280 09 12B0 780 DC IL1i#9° *LIST 
i 121C 9000 121D 713 TEMP DC XL2°00? i > 12B1 1898 1282 781 DC AL2 CINVC) * 
121£ ocoo0000 1221 714 ALLUP DC XL4*O00t 1283 00 O1 1C05 1FF3 782 CLC wWORK(2).ZERQ *CK FOR AND BRANCH IF 
1222 00 1222 715 pc XL1*0Gt 12B9 CO 01 129A 783 BNE GETNXT *NOT LAST COMMAND €0000) 
& cool 716 DROP XRi : & 12BD CO 87 O21A 784 B PRINT *SPACE 
1223 CO 87 022A 717 DONEL 8 LOAD 12C1 16 12C1 785 DC XLit1e¢ *ONLY 
; 1227 00 1227 718 pc XL1*O8 | 12C2 C2 01 1F00 786 ATAL LA CTABLE,XRL LOAD XR1 WITH ADDRESS QF CMD TABLE 
= 719 : @ 12C6 1C Ci 16B8D O1 787 PICK MVC CMND,1(2_XR1? LOAD COMMAND FOR EXECUTION 
5 720 SRERRKAEEEEEARSEHESEK ESAS SSA SESATAATE SEKAAKK KS KKKAAH FS TEKS RAKES SEALS SEES SS 12CB 34 O01 1C09 788 ST SAVE1,XRI SAVE XR1 
: 721 * ok 12CF OD O1 14BD iF F3 789 CiC CMND, ZERO(2) *CK FOR AND BRANCH IF 
: 722 * ROUTINE 7 —- COMMANDS TEST--FROM SWITCHES * B 1205 F2 81 OF 790 JE ENDS *ALL BITS ARE ZERO 
723 * : & 12D8 CO 87 1391 791 8 ExI0 GO EXECUTE THE COMMAND 
724 * THE PROGRAM PRINTS INSTRUCTIONS FOR CONSOLE SWITCH SETUP AND * 12DC 35 01 1C09 792 t SAVE1,XR1 RESTORE XR1 
7 725 * HALTS. AFTER CPU START IS PUSHED, THE CONSOLE SWITCHES ARE READ* {i % 12E0 D2 C1 02 793 LA 2(,XR1)eXR1 INCREMENT XR1 
726 * AND STORED FOR FUTURE USE AS A COMMAND. THE CPU IS HALTED AGAIN j 12€3 CO 87 12C6 194 B PICK GO LOAD AND EXECUTE NEXT COMMAND 
/ 727 * TO ALLOW ENTRY OF ANOTHER COMMAND OR TO INDICATE END OF CHAIN * 12E7 38 20 0208 795 ENDS TBN  SBYTE3,SNSWIA *CK FOR AND BR IF -EXIT AT END OF 
, 728 * BY OCOO. UP TO 64 COMMANDS MAY BE ENTERED BY REPEATING THE *# | 3} 12EB CO 90 12C2 796 BE ATAL =CMND TABLE- SWITCH 1S ON 
729 * CONSOLE ENTRY/PUSH START SEQUENCE. ONCE THE ENTRY IS COMPLETE, * j 12EF CO 87 022A 197 B LGAD GO TO DCP 
730 * THE ROUTINE PROCEEDS TO ISSUE THE SELECTED COMMANDS TO THE MFCUS ! 12-3 00 12F3 798 Dc XL1*O# 
731 * AND CHECK FOR PROPER EXECUTION. * ; 23 799 
732 RRERSEK RARER REKEKEKSEKRASKARAKA RAKHKKRECKAKKSSRAAEAARKKSE KEKE EHKKSAKESEATARS | 800 HRA RAK LAARALARREKSERAAESHKRERES SSESASFARKAEKSEL EKA SRRAE REA SHATEK KA SKE RERKALK 
1228 O7 1228 733 RTO? OC XLL'O7# ROUTINE NUMBER : 801 * RDY * 
1229 80 1229 734 oc XL1"s0° FLAGS - MANUAL INTERVENTION : 3 802 * = 
L22A FFFF 1228 735 DC XLZ2°FFFEE LAST ROUTINE PREFIX i 803 * SUBROUTINE TO DETERMINE IF THE PROPER FEED IS READY, PRINT AN * 
T326 FSTKKKSESKREKKSAE SE SHAEKEAKS SHEAKARAKRAKRKAKAAKKKAKAKAKRHKKEKASHKAS KEKKATERSAKEAKSE ‘ 80G * ERROR MESSAGE IF IT IS NOT, AND LOOP UNTIL IT IS MADE READY. * 
122C 31 F4 1FFB 737 LIO LOPR,X* rat LOAD PRINT AREA / % COS FHKE RAKE RSS SEARS TESS LSS SSSR SKE FEKHEAAS KEK SSK ERAT AK FLESH EL RARER BH 
1230 C2 01 1F00 738 LA CTABLE,XR1 LOAD XR1 WITH ADDRESS OF CMND TABLE i 12F4 34 08 1390 606 RDY ST OUTZ+3 ,ARR SAVE ARR FOR EXIT FROM SUBROUTINE 
1234 CO 87 O21A 739 B PRINT *PRINT fous 12F8 30 F3 1C05 807 SNS  WORK,X*F3? STORE THE STATUS INDICATORS 
1238 46 1238 740 DC XL1*46! *OPERATOR i ® 12FC 39 EO 1C05 808 TBF WORK,X* EQ? *CK FOR AND BRANCH IF 
1239 49 1239 741 DC IL1*73! * INSTRUCTIONS 1300 F2 90 BA 809 JF OUT2 *FD CD, PU CK OR PU INVALID ERROR 
123A 188A 123B 742 oc AL2 CINS4) * 1303 38 08 14BC 810 TBN CMND-1,X*08* *CK FOR AND BRANCH 
123C FOF6 1230 743 DC XL2*FOF6* > 1207 F2 10 O7 811 JT CkK2 *IF SECONDARY FD CMND 
123E FO 3C 70 744 ROSWS HPL X*7D*,X*3C* 130A Ci FO 1318 812 TIG CK3,X*FO* BR IF PRIM FD NOT RDY OR ERROR 
1241 2D 7D 1240 145 CLI ROSWS42 oX*7D? *CK FOR AND BRANCH IF -F6- 130€ F2 87 7C 813 J QUT2 
1245 F2 O1 O07 746 JNE SETH4 *IN HALT IDENT NOW 3 1311 C1 F8 1318 814 CK2 TIG CK3,X*F8? BR IF SECD FD NOT ROY OR ERROR 
1246 3C O7 1240 747 MVI ROSWS4#2,X"O7# MOVE IN -F6— HALT IDENTIFIER 1315 F2 87 75 815 J OuT2 
DATE 28JULE9 24NOVE9 10FEB79 14APRT70 15MARTI 30AUGT71 PROG IO OFO1-4 DATE 2BJUL69 24NOVE9 1OFEB70 14APRT70 15MARTL 30 BUGTI PROG ID OF 01-4 
EC NO. 816444 816562 816592 816678 818962 818667 PAGE 6 “tt EC NO. 8164464 816562 816592 816678 818962 818667 PAGE 6A 
: pO 8 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


F014 
ERR LOC 


1318 
231C 
131F 
1323 
1326 
132A 
1320 
1331 
1332 
1333 
1335 
3337 
1334 
133E 
2342 
1345 
1349 
134C 
1350 
1353 
1357 
1358 
135F 
1360 
1361 
1363 
1366 
136A 
1368 
136C 
136E 
1372 
1374 
1377 
1378 
137F 
1382 
1386 
1389 
1380 


1391 
1395 
1398 
139E 
13A2 
13A8 
13AC 
1380 
123B4 
13B7 
13BB 
136F 
13C3 
13¢9 
13CD 
1301 
1307 
1308 
13DE 
13E4 
1L3E7 
13ED 


CATE 
EC NO. 


MFCU FUNCTION TESTS 


OBJECT CODE 


38 
F2 
39 
F2 
3B 
F2 
co 
ei 
OA 


be 
99 
04 
10 
04 
87 
87 


179F 
F010 


Fe 
3A 
30 
F2 
38 
F2 
39 
F2 
38 
co 
€o 
C6 
46 


87 
80 
05 
ol 
20 
90 
FF 
90 
40 
10 
87 


19E8 


F2 
co 
06 
oc 


87 
87 


1801 


co 


87 


FO10 


F2 
34 
38 
F2 
ci 
F2 
C1 
co 


24 
F2 
oc 
3c 
oc 
co 
38 
39 
F2 
C2 
36 
co 
OF 
co 
co 
oc 
38 
Fe 
oc 
F2 
oc 
38 


87 
08 
08 
ic 
FO 
87 
F8 
87 


08 
80 
5F 
87 
Ol 
87 
ol 
FO 
90 
O01 
o1 
84 
ol 
81 
87 
10 
OL 
90 
04 
87 
04 
04 


1C05 
18 
i8FfB 
o7 
1EFB 
oD 


O21A4 


2€ - 
18FB8 
8403 
21 
1BFB 
1A 
1cos 
13 
1LE@FB 
OESF 
O21A 


15 
O21A 


0222 


04 
1390 
148C 
oT 
1382 
04 
1385 
c000 


14F8 
OA 

1OFF 
1396 
1€02 
0212 
1BFB 
14B8C 
1A 

0042 
1F7F 
13868 
14BD 
14F5 
1387 
18E7 
14BC 
09 

1808 
06 

1808 
14BC 


28JUL69 
8164446 


PART NO. 2589732 
PAGE 7 


ADDR STMT SGURCE STATEMENT 
B16 CK3 TSN WORK, X* 02° =CK FOR AND BRANCH TF 
817 JF NOTRDY *NOT FEED CHECK 
818 TBF FLAGS, FLAGS *#CK FOR AND BRANCH IF PREVIOUS 
819 JT INC *FD CK INDICATOR IS NOT ON 
820 SSF FLAGS,FLAGS *1URN OFF PREVIOUS FD CK INDICATOR 
821 J NOTRDY *AND GO 
B22 INC 5 PRINT *PRINT 
133i 823 oc XLi'cit *FEED 
1332 824 DC TL1°10? *CHECK 
1334 825 oc AL2(FCC ¥-3) *4SG 
1336 826 oc XL2°FO10* 
827 J - NOTGO 
828 NOTRDY SBN FLAGS ,FLAGO TURN ON MFCU NOT READY INDICATOR 
829 cul RNUM, XFO5* 
830 JNE NOTGO 
831 TBN FLAGS, FLAG2 *CK FOR AND BRANCH IF 
832 JF NOTGO =NOT COUNTING STACKER CARDS 
833 TBF WORK, X*FF® *CK FOR AND BRANCH IF 
e346 JF NOTGO *IF THERE IS AN ERROR 
835 TEN FLAGS ,FLAGI *Ck FOR AND BRANCH TO MAINLINE 
836 BT STACK4 *IF COUNTING STACKER & CARDS 
837 B PRINT *PRINT 
135F 838 DC XL1*°O6* * 
13690 839 OC TLi*70# * 
1362 840 oc ALZ2{(LDNEXT) * 
841 J CKS GO LOOP UNTIL PRCPER FEED IS READY 
842 NOTGO B PRINT *PRINT 
136A 843 DC XL1°06* *NOT 
136B 844 cc ILltiles *RDY 
1360 845 oc AL2(INS1-5) *MSG 
846 B HALT 
1373 847 oc X¥L2*FO10* 
848 J CK4 GG LOOP UNTIL PROPER FEED IS READY 
849 RDY2 ST CUT243, ARR SAVE ARR FOR EXIT FROM SUBROUTINE 
850 CK4 TBN CMND-1,X*08!* *CK FOR AND BRANCH IF 
851 JT CK42 *SECCNDARY FD CMND 
852 T1aQ *X"FO* BR IF PRIM FD NOT RDY OR ERRGR 
853 J OUT2 
B54 CK42 TIO *,X*FSt BR IF SECD FD NOT RDY OR ERROR 
855 OUT2 B +—* EXIT SUBROUTINE 
856 
BST SEKESKEKEKSESESESAKESESSEKREKEKESKESEKAERKKESKEHHAKKHKHEKES SESE SEKAKHKEL SE KESERSESE 
658 * Exio * 
859 * * 
860 * SUBROUTINE TQ ISSUE COMMANDS AND CHECK FOR SUBSEQUENT FAILURES.* 
SC] KKESKREKHRKESESEEEESEKESEREAKAKEE SESE RESETS SKSEAKEKHEELAERSEKKSEEKSERHKERKKSKKSELEATES 
862 EXIO ST OUT 8+3,ARR SAVE THE ARR FOR RETURN TO MAINLINE 
863 JC *4139X"80! NO-OP : 
ID 7F 864 MVC PRFD24+127,PRF02-1(96) SETUP BUFF2 FROM BUFFI--FIRST PASS-- 
865 MVI *-B,X'a7* CHANGE NO-OP TO UNCONDITIONAL SUMP 
1480 866 MVC SAVITsCMND(2) SAVE CMNO IN CASE OF PRIME NEEDED 
867 B TEST 
868 SBF FLAGS +FLAGT *TURN OFF PRINT WAS NOT FROM SAME BUF 
869 THF CMND-1,X*FO* *CK FOR AND BSRANCH IF THE FIRST FOUR 
870 JF CKPU *ARE NOT ALL ZEROS INDICATING DELAY 
871 DLY LA 66,XR21 LOAD 1 MILLISECOND DELAY COUNT 
872 DLY A ALLF  XR1 SUBTRACT 1 FROM DELAY COUNT 
873 BH OLY1 LOOP UNTIL COUNT GOES TO ZERO 
LFFS 874 SLC CMND,CNE(2) SUBTRACT 1 FROM WAIT FACTOR 
875 BE OuTs BR OUT WHEN WAIT FACTOR GOES TO ZERO 
876 B OLY BR BACK TQ WAIT 
18E8 877 CKPU MVC PTCMND-1,PTCMNO(17) CLEAR COMMAND MESSAGE FIELD 
878 TBN CMND-1, X*O1* *CK FOR AND BRANCH IF 
879 JF FDONLY *FEED ONLY COMMAND 
17ET 880 MVC PTCMND-13,RCCT-9(5) PUT -READ INTG COMMAND MESSAGE 
e6l J CKPR 
1799 882 FOORLY MVC PTCMND-13,FCCY-9(5) PUT -FEED INTO COMMAND MESSAGE 
883 CKPR TBN CMND-1, X*04° *CK FOR AND BRANCH IF NOT 
24NOV69 10OFEBT70 14APRT70 ISMARTI 30 AUGT1 PROG ID OF 01-4 
816562 816592 816678 818962 818667 PAGE 7 
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s 13Fl 
8 


t 


FOL4é 


2 
® 
2 
® 
® 


ERR LOC 


13F4 

1358 

13FB 

T3EF 

1402 
g 1406 

1409 

1400 
$ 1411 

1415 

1418 
g 14iC 

1420 
. 1424 
é 1428 

142C 

1430 
gz 1433 

1437 

1439 
€ 143D 

1440 

1444 
2 1448 
144€ 
1450 
1454 
1458 
145E 
1462 
1466 
146A 
146E 
1472 
1476 
1479 
1470 
1480 
z 1484 

1487 

1488 
: 148 

1494 

1497 
3 1498 
1495 
14A4 
14A8 
14AC 
1480 
1483 
1487 
14B8 
148E 
14C€2 
14Cé& 
14CA 
14CE 
14D2 
1406 
14DA 
140E 
14E2 
14E5 
14EB 
L4EF 
14F5 


@ © 


tet 


@ od 


eo «68 


DATE 
€C NO. 


a 
~ 


MFCU FUNCTION TESTS 


TBM MAINTENANCE DIAGNOSTIC PROGRAM 


OBJECT CODE ADDR STMT SOURCE 
F2 90 38 884 

38 86 14BD 885 

F2 90 10 386 

38 80 1COF 687 

F2 10 O7 888 

3A 01 1BFB 889 SETBUF 
F2 87 23 890 

30 F3 1C05 891 BSYBUF 
38 40 31C04 8S2 

co 10 1409 893 

F2 87 14 894 

38 80 1COF 895 PRNTBI 
CO 10 1402 896 

30 F3 1C05 897 PB 
38 80 1C€04 898 

CO 10 1420 899 

38 40 O20A 900 DXIO2 
F2 90 06 901 

CO B87 0222 902 

FOFO 1438 903 

328 20 O20A 904 Dxl 
F2 90 22 905 

30 00 1C06 206 

34 01 1C0D SOT 

38 FO ICOC 908 

C2 01 0042 909 WT 
36 O1 LFTF $10 WT1 
CO 84 1450 911 

OF O1 1C0D 1FF5 912 

CoO 01 144C 913 

CO 87 12F4 914 EXl 
38 04 1BF8 915 

3B 08 1BFC 916 

30 F3 1C05 917 

38 30 1€04 918 

F2 10 2F 919 

29 06 14B8C 920 

F2 10 28 921 

38 08 14B8C 922 

F2 10 10 923 

38 20 1C04 924 

F2 10 1A 925 

oC O1 14BD 1FE8 926 

F2 87 OD 927 

38 10 1C04 928 HOP2 
F2 10 OA 929 

oC OL 148D LFES 930 

3A 08 1BFC 931 PRIMIT 
31 Fé 1C00 932 XECUTE 
3D 05 OAO3 933 

F2 01 04 S34 

31 F6 LFF9 935 

31 FS 1FFD $326 GOGO 
F3 00 00 937 EX2 
Ci FV 14D6 938 

38 02 1C05 939 

CO 10 1462 940 

CO 87 12F4 941 

CO 87 156C 942 

CoO 87 1462 943 

CO 87 14F8 944 DX22 
CO 87 12F4 945 

38 08 1B6FC 946 

F2 9C OA 947 

OC 01 148D 1€02 948 

CoO 87 1462 949 

oc O1 1COF 1480 950 GOCN 
co 87 0000 $51 OUTS 
28JUL69 24N0V69 10FEBTO 
816444 816562 816592 


STATEMENT 

JF DX102 

TBN  CMND»X* 80° 

JF PRNTB1 

TBN CMNDB4,X* R08 
JT BSYBUF 

SBN FLAGS »FLAGT 

J Dx102 

SNS  WORK,X°F3° 
TEN  WORK-1,Xx"40? 
BT BSYBUF 

J Dx 102 

TBN CMNDB4,X*80" 
BT SETBUF 

SNS WORK, X*F3¢ 
TBN  WORK-1,X"80° 
BT PRL 

TBN  SBYTE2,SNSW11 
JF DXi 

B HALT 

DC XL2"FOFO® 

TBN SBYTE2,SNSW12 
JF EX 

SNS MSEC ,X*098 
SBN MSEC,X*O1* 
SBF MSEC-1,X*FOt 
LA 664XR1L 

A ALLF,XR1 

BH wth 

SLC  MSEC(2),0NE 
BNE WT 

& RDY 

SBF FLAGS, FLAGS 
SBF FLAGS] sFLAGL4 
SNS  WORKsX*F3! 
TBN  WORK-1,X*30? 
JT XECUTE 

TBF  CMND-1,x*04* 
JT XECUTE 

TBN  CMND-1,X*O8* 
JT HOP2 

TBN  WORK-1,X*20* 
JT XECUTE 

MVC = CMND, FIRST141(2) 
J PRIMIT 

TBN WORK-1,X*10° 
JT XECUTE 

MVC  CMND-FIRST2(2) 
SBN FLAGS], FLAG14 
LIO LDPU,X*F6! 
CLI RNUM,X*05° 
JNE GOGO 

LIC LDPT,X*F6® 
LIO  LDRD,X*F5* 
SIO 0,0 

TIO.  0X22,xX*F7* 
TBN WORK, X*02* 

BT EX1 

8 RDY 

B STAT2 

B EX] 

B STATUS 

B RDY 

TBN  FLAGS1,FLAGI4S 
JF GOON 

MVC CMND,SAVIT(2) 
B EX 

MVC = CMNDB4(22_ CMND 
8 +—2% 
14APR70 L5MART1 
816678 818962 


30AUGT1 
818667 


PART NO. 
PAGE 


2589732 
TA 


*PRINT COMMAND 
*CK FOR AND BRANCH IF NOT 
*PRINT FROM BUFFER 2 COMMAND 
*CK FOR AND BRANCH IF PREVIOUS PRINT 
*COMMAND WAS FROM BUFFER 2 we 
TURN ON PRINT WAS NOT FROM SAME BUF 


*LOOP UNTIL BUFFER 2 BUSY 
*DRCPS BEFQRE ISSUING SECOND 
*PRINT FROM SAME BUFFER 


*CK FOR AND BRANCH IF PREVIOUS PRINT 
*COMMAND WAS NOT FROM BUFFER 1 
*LOOP UNTIL BUFFER 1 BUSY 

*DROPS BEFORE ISSUING SECOND 

*PRINT FROM SAME BUFFER 
*CK FOR OPTION TO HALT AFTER EACH 
*COMMAND AND JUMP IF NOT CN 


*CK FOR OPTION TO DELAY BETWEEN 
*COMMANDS AND JUMP IF NOT ON 

READ THE DATA SWITCHES 

INSURE FOSSITiIVE DELAY FACTOR 

TURN OFF HIGH GRDOER 4 BITS OF MSEC 

LOAD 1 MILLISECOND DELAY COUNT 

SUBTRACT 1 FROM DELAY COUNT 

LOOP UNTIL COUNT GOES TO ZERO 

SUBTRACT 1 FROM WAIT FACTOR 

BR BACK UNTIL IT GOES TO ZERO 

GS CHECK FOR RDY 

TURN OFF PREVIOUS FD CK INDIC FLAG 


_ TURN OFF PRIME PEQUIRED FLAG 


*CK FOR AND BRANCH IF THERE 

*ARE CARDS IN WAIT 1 AND 2 

*CK FOR AND BRANCH iF NOT 

*A PUNCH OR PRINT COMMAND 

*=CK FOR AND BRANCH ITF CMND 

*IS FROM SECONDARY HGPPER 

*CK FOR AND BRANCH IF 

*CARD IN WAIT 1 

MOVE IN CMND TO FEED INTO WAIT 1 


*CK FOR AND BRANCH IF 
*CARD IN WAIT 2 
MOVE IN CMND TO FEED INTO WAIT 2 
TURN ON PRIME REQUIRED FLAG 
LOAD PUNCH AREA 
*CK FOR AND BRANCH IF 
*NOT STACKER SELECT ROUTINE 
LOAD PUNCH AREA FOR STACKER SELECT 
LOAD READ AREA © 
ISSUE THE COMMAND 
BRANCH IF ANY BUSY IS ON 
*CK FOR AND BRANCH 
*IF FEED CHECK 
GO CHECK FOR READY 


GO CHECK FOR PROPER STATUS 
*Ck FOR AND BRANCH IF PRIME 


*REQUIRED FLAG IS NOT ON 
MOVE SAVED CMND IN FOR EXECUTION 


MOVE COMMAND INTO CMND SAVE AREA 
EXIT SUBROUTINE 
PROG ID OFOI-« 
PAGE TA 


« : z - os 


baa 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


«3 


FOL4 


& 14F9 
1458 
14FEF 

$ 1503 

1507 

1508 

150F 

1512 

1516 

3 153A 

1520 

1524 

$ 1527 
1528 

152F 

8 1535 

1539 

153¢ 

3 1540 

1543 

1547 

1548 

1549 

1548 

£ L545 
1552 

er 1556 

1557 

1558 

155A 

155E 

1561 

1565 

1566 

1567 

1569 

156C 

1570 

1574 

1577 

1570 

1581 

1584 

158A 

158D 

1593 

1597 

1598 

159¢ 

159D 
159F 
15A3 
1L5A7 
15AA 


er 


ay 


1SAE_ 


1582 
1585 
15B9 
’ 1580 
15C3 
isc7 
15c0 


DATE 
EC NO. 


MFCU FUNCTION TESTS 


8000 


34 
38 
ci 
3A 
38 
F2 
CY 
3A 
oc 
38 
F2 
C1 
3a 
oc 
38 
F2 
38 
F2 
co 
ol 
12 


08 
FO 
Fl 
80 
02 
90 
F2 
40 
05 
04 
90 
F4 
20 
05 
€0 
so 
80 
90 
87 


i8SFF 


38 
F2 
co 
ol 
12 


40 
90 
87 


1911 


38 
F2 
co 
01 
12 


20 
90 
87 


1923 


F2 
34 
38 
F2 
oc 
C1 
F2 
oo 
F2 
OF 
co 
co 
cl 
11 


87 
08 
40 
10 
01 
FT 
87 
01 
81 
01 
87 
87 


1934 


BA 
38 
F2 
30 
38 
F2 
39 
co 
oc 
30 
OF 
F2 


10 
04 
90 
3 
06 
10 
co 
90 
ol 
Fl 
01 
81 


ERR LOC OBJECT CODE 


1642 
1BFC 
15068 
1BFC 
148C 
OE 

152A 
LBFC 
78E1 
14BC 
OE 

152F 
IBFC 
18E7 
1BFC 
34 

18FE 


O21A 


1BFC 


O21A 


1BFC 


O21A 


04 
1642 
02 0B 
61 
1c05 
1584 
lF 
1c05 


1€05 
1570 
O21A 


1BFC 
14BC 
2eé 

1€05 
1C0s 
25 

1C04 
15AA 
1C0B 
1€05 
1€08 
08 


28JSUL69 
816444 


ADDR 
14FA 
1907 
1919 
1547 
1548 
154A 
1556 
1557 
1559 
1565 
1566 
1568 
14FA 
1FF3 
1FF5 
1598 
159C 
159€E 
icol 
1FFS 
24N0VE9 
816562 


STMT SOURCE STATEMENT 

952 , 

Q53 FET EKEEKEKERKEKSEKKSESRESKEESRS USECKEKEEEAEKEASE SRARAKSEKARAKK SRA KEKLERRRESS 
954 * STATUS * 
955 * % 
956 * SUBROUTINE TO CHECK FO". PROPER STATUS. * 
OST FREER SE RE EERE ESEASEREREKPKAK KEARSE CRATERS AEARAARSKAARARKARERRKEKAAR EA 
$58 WAT oc XL2*80008 

959 STATUS ST OUT9S+3,ARR SAVE THE ARR FOR SUBROUTINE EXIT 
$69 SBF FLAGS1, X*FO?* TURN GFF FLAGS 10,112,12 AND 13 

96) Tic PUCMND, X* Fl ®* 1S READ OR FEED BUSY , 

962 SBN FLAGSI,FLAGLO TURN ON NO READ-FEED BUSY FLAG 

S63 PUCHMND TBN CMND-1,.X"0O2? *CK FOR AND BRANCH IF 

964 JF CKPRNT *NOT PUNCH COMMAND 

865 TIG SETPU,X*F2° 1S PUNCH DATA BUSY 

966 SEN FLAGS1,FLAGI1 TURN ON NO PUNCH BUSY FLAG 

96T SETPU MVC PTCHMND-7,BUSY2-10(6) PUT -PUNCH INTOQ COMMAND MESSAGE 

968 CKPRNT TRN CMND—1,.X?#048® *CK FOR AND SRANCH TF : 

969 JF FLAGCK *NOT PRINT COMMAND 

970 Tia SETP Ts XtF4® 1S PRINT DATA BUSY 

971 SBN FLAGS1,FLAGi2 TURN OR NO PRINT BUSY FLAG 

972 SETPT MVC PTCMND—1,BUSY3-10(6) PUT -PRINT INTO COMMAND MESSAGE 

973 FLAGCK TBN FLAGS, xXK*°EO?® *CK FOR AND BRANCH TF 

O74 JF STOREL *NO TIO ERROR FLASS ON 

975 TBN FLAGSi,FLAGIO CK FOR AND BRANCH IF NOT A 

976 JF CKil *READ--FEED BUSY ERROR 

977 B PRINT *xPRINT 

978 BC *F..1°*O01¢ *NO READ--FEED BUSY 

979 DC ILift1s¢ * 

980 oc AL2Z(8USY1) * 

981 CKil TBN FLAGSI,FLAG11 *CK FOR AND BRANCH IF NOT A 

$82 JF CK1i2 *PUNCH DATA BUSY ERROR 

983 8 PRINT =PRINT 

984 oc AL1f*O1L# =NO PUNCH DATA BUSY 

985 oc IL1?718° * 

986 oc AL2(BUSY2) * 

S87 CK12 TBN FLAGS], FLAG1I2 *CK FOR AND BRANCH IF NOT A 

S88 JF STORE] *PRINT DATA BUSY ERROR 

$89 B PRINT *PRINT . 

990 oc XL1L*O1* *NO PRINT DATA BUSY 

991 pC 1L1°18* * 

992 DC AL2(BUSY3} = 

993 J STORE 

994 STAT2 ST GCUTS42, ARR 

995 STORE] TBN SBYTE3,SNSWLO *SKIP WAITING FOR BUSY*S TO DRGP TG 
96 JT ‘CKIT *DETECT INTERLOCK PROBLEMS IF ON 
997 MVC WORK(2),WAT SETUP WAIT COUNT 

998 ANY Tio DECT,X* FT BRANCH IF ANY BUSY ON 

$99 J STORE 
1000 BECT ctLc WORK (23, ZERO *CK FOR AND BRANCH IF 

1001 JE BBIT *END OF WAIT COUNT 

1002 SLC WORK( 2), ONE SUBTRACT 1 FROM WAIT COUNT 

1003 6B ANY 

1004 BBIT B PRINT =PRINT 

1065 oc XL1l*o1°* *BUSY DID NOT DROP 

1006 oc IL1i*i7# * 

1007 oc AL2(NODROP) * 

1008 SBN FLAGS1, FLAGI3 

1009 STORE T3N CMND-1;xX*04# *CK FOR AND BRANCH 

1010 JF CKiT *IF NOT A PRINT COMMAND 

1011 STORE2 SNS WORK, X*F38 *CK FOR AND 

1012 TBN WORK, X*06! *BRANCH IF 

1013 JT CKiT *FD CK OR HOPPER CK 

1014 TBF WORK-1,X*CO® *WAIT FOR BUFFER BUSY 

1015 BF STORE2 *TO DROP 

1016 MVC WAIT, LOPU41 (2) LOAD WAIT FACTOR 

1017 INJECT SNS WORK, X*F1it =WAIT UP TO 

1018 SLC WAIT(2),0NE *.9 SECOND 

1019 JZ CKIT *FOR PRINT 

1OFEB70 L4&APRTO 1SMART1 30 AUGT1L PROG ID OF 01-4 
816592 816678 818962 818667 PAGE 8 


PART NG. 2589732 
FAGE 8 


we tee = eee seererenecte waren arrvase genset sas errnasnrecceteeenin = mrenataarnarenman nn west cspacn inet CEE 


sah Ss sant ae B A ow ge “SS meme a cb Seneca en aaa 


Q 


oy 


= 


ye * 


ey 


ea 


ta 


¢a 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


F014 
ERR LOC 


i5D0 
15D4 
15D8 
ISDE 
25E2 
15E6 
iSEA 
L5€D 
I5F1 
L5F4 
i5FB 
15-9 
15FA 
15°C 
1600 
1606 
160C 
1610 
1614 
1618 
1618 
161F 
1623 
1626 
162A 
1628 
162D 
162F 
1633 
1634 
1635 
1637 
1639 
1630 
163F 


1643 
1647 
1648 
164E 
1651 
1655 
1658 
165E 
1664 
1667 
166D 
1673 
1676 
167C 
1682 
1685 
1688 
1691 


1695 
1699 
169F 
16A3 
16A4 


DATE 
EC NO. 


MFCU FUNCTION TESTS 


OBJECT CODE 


38 
Co 
oc 
3c 
30 
39 
F2 
38 
F2 
co 


34 
oc 
co 
42 
15 


10 
90 
01 
01 
F3 
FF 
10 
00 
90 
87 


os 
06 
61 


ol 
ic 
30 
03 
87 
30 
03 
87 
30 
o3 
87 
30 
03 
87 


os 
ol 
87 


1004 
15¢3 
15FB 
i5EE 
1C05 
1005 
32 

1C05 
oc 

C21A 


IBFC 
15F8 
15EE 
iSEE 
15ED 
icos 
04 

1BFB 
1BFC 
19 

O2iE 


O2Z1A 


0222 


00c0 


1694 
148D 
19 
25 
14BD 


19A2 
1EG3 
2A 

198E 
1E03 


1998 
1E03 
oc 

1984 
1€03 
0000 


i6E7 
L6BS 
O21A 


28JUL 69 


816444 


PART NO. 2589732 
PAGE SA 
ADDR STMT SOURCE STATEMENT 
1020 TBN WORK-1,X*10° *INJECT CB TO 
1021 BF INJECT *COME UP 
1BFE 1022 CKIT MVC MSGADD, AREAD( 2) *INITIALIZE TO 
1023 Mavi CHECKI41,xX*01° *CHECK ERROR BITS 
1024 SNS WORK, X'F3E 
1025 TBF WORK, X* FES *CK FOR AND BRANCH 
1026 JT SPACE *IF NO ERRORS 
1027 CHECK TBN WORK » ¥-* *CK FOR AND BRANCH IF THIS 
1028 JF UPDATE ERROR BiT IS NOT ON 
1029 B PRINT *PRINT  - 
i5f8 1630 DC XLito1s *xERROR 
15F9 1031 pc TL1°13° *MESS AGE 
15F8 1032 MSGADD DC AL2(NCOP} * 
1033 SBN FLAGS1,FLAG13 
LEFT? 1034 UPDATE ALC MSGADD, DEC18£ 2} INCREMENT PRINT AREA ADDRESS 
1S5EE 1035 ALC CHECKIZ1¢(1),CHECKL41L DOUBLE MASK IN INSTRUCTION x 
1036 TAF CHECKI+1,X°FF® *CK FOR AND BRANCH IF ANY 
1037 BF CHECK *=BIT IS ON IN TEST MASK 
1038 TBN KWORKsX* 028 *€K FOR AND BRANCH 
1029 JF SPACE *]F NOT FEED CHECK 
1040 SBN FLAGS, FLAGS TURN ON PREVIOUS FD CK INDICATOR 
1041 SPACE TBN FLAGS1,FLAG13 *CK FOR AND BRANCH IF 
1042 JF GUTS *NC ERROR PRINTOUTS 
1043 8 UNPACK 
1624 1044 DC TLi*2¢ 
162C 1045 OC AL2(CMND) 
162E 1046 pC AL2UINHEX) 
1047 B PRINT 
1633 10468 oc XLI*C6F 
1634 1049 DC IL1°27? 
1636 1050 DC AL2 CINHEX} 
1638 1051 DC XL2*FOL1° 
1052 B HALT *HALT UNLESS BYPASS ExXROR 
163E 1053 oc XL2"FOL1* *HALT SWITCH IS ON 
1054 CUTS B % mh 
1055 
LO5S6& FESSEEKEREESSESESKASEAAKASRSERERSEAK SEA REASTAEKRK LH FEKKEAKKES AEA EKEK KEK SEEKER 
1057 * COUNTM * 
1058 SFRERRKREEKEKKKEKKSARAKEKCKEKKERSEKEKSE SKASSEKRKAKRELASKSEKASSESEEKSEE SEEKS KEKE FHKE ESESE 
1059 COUNTM ST CTOUT+3,ARR SAVE ARR FOR EXIT FROM SUBROUTINE 
1060 CLI CMND,X* 06" 
1061 JE $S2 BRANCH IF STACKER 2 
1062 JH $$3 BRANCH IF STACKER 3 
1063 TBN CMND,X* O18 
1064 JST SSl BRANCH IF STACKER 1 
1FD9 1065 Az SS4CT(4) ,D1(1} ADD 1 TO STACKER 4 COUNT 
1FE2 1066 MYC PUST+3(4),SSNO0-3 MOVE STACKER & PUNCH INTO PUFD 
1067 J CTOUT 
1FOS 1068 SS2 AZ SS2CT(4) ,D1 01) ADD 1 TO STACKER 2 COUNT 
1FE4 1069 MVC PUST4314),. SSNO-1 MOVE STACKER 2 PUNCH INTO PUFD 
1070 J CTout 
1FDS 1071 S$S3 AZ SS3CT(4),Di1) ADD 1 TO STACKER 3 COUNT 
1FE3 i072 MVC PUST+#3 (4) »SSNO-2 MOVE STACKER 3 PUNCH INTO PUFD 
1073 J CTOUT 
1FD9 1074 SS$1 AZ SSICT(4),D1L 01) AOD 1 TO STACKER 1 COUNT 
1FES 1075 AVC PUST+#3(4) 5SSNO MOVE STACKER 1 PUNCH INTO PUFD 
1076 CTOUT 8 +*—* 
1077 
1078 SKEREKEKSEKERARKRSESLKE RSE SEARKKHKKKEREHKSE SLERSEREKS EKKHKKEKKKEKK LA LH TKEKEHEKI KKH SEKEKK KE 
1079 #* LIst + 
1080 * * 
108i * SUBROUTINE TO LIST STACKER COUNTS. * 
L082 ESSERE RREEKKAKKESEERRETHEEKEKSE SEHKEABEBRAKASEKAREKHKAKKREKRKSESEKE CHKESRKS ST EFS HEKEKKESR 
1083 LIST ST LST4#3,ARR SAVE ARR FOR EXIT FROM SUBROUTINE 
LFFE 1084 MVC APT2,A1CT(2} INITIALIZE STACKER SUMMARY ADDRESS 
1085 B PRINT *PRINT 
16A3 1086 DC XL1°429 * STACKER 
16A4 1087 oc ILL®*21° *COUNT 
24NOV69 1OFEB70 14APR70 1SMARTL 30 AUGT1 PROG ID OFO1-4 
816562 816592 816678 818962 818667 PAGE BA 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


SOURCE STATEMENT 


oc 
DC 
LA 
B 
oc 
oc 
oc 
A 
JE 
ALL 
B 


AL2 (SUM) 
XL2"*FOF4® 
4,XP1 
PRINT 
XLILSOLe 
IL1*10°8 
AL2(SS1CT) 
ALLF,XR1 
FINK2 
APT2, TEN{2$3 
PINT2 


PART NOW 2589732 
PAGE 9 


* SUMMARY 
*HEADING 
LOAD THE PRINT LINE CQUNT 
*PRINT ONE 
LINE OF 
* SUMMARY 
= PRINTOUT 
SUBTRACT 1 FROM PRINT LINE COUNT 
BRANCH AFTER FOUR LINES ARE PRINTED 
ADD TEN TO PRINT ADDRESS 
BRANCH BACK TO PRINT NEXT LINE 


EEEKREK AREER LARS LEAARKEKERSAKSERSARASESSE KAERS SR HERE KK HARKS CESSES EEE HERERE 


SUB-SUBROUTINE TO CLEAR STACKER COUNTS * 
Me Re eae SE hee he a Rea ae ae Se a ae oe a aa A a aa EEE HRS EEE EERE KE EE REE 


ST 
MVI 
LA 
MVC 
LA 
SLC 
BNE 
8 


LST43,ARR. 
WORK, X*04* 
SS1CT»xXR1 


0(4sXR1),8LANKS 
10(¢XR1)_XR1 
WORK(1) ,ONE 


CLCT2 
ke * 


SAVE ARR FOR EXIT FROM SUBROUTINE 
#CLEAR 
*STACKER 
*COUNTERS 
* 


* 


SREEEEEE SE RES EERE ERS ERS ER EKEE EK SKEKK EAS RAKE STE GAR EAR ATAK ERS KAR SLA RS SKAE SS 
SUB-ROUTINE TO PRINT STATUS AND SPECIAL INDICATOR BYTE CONTENT * 


IF BITS ARE NOT AS EXPECTED. 


* 


REKESKTEREKEKKSERKERKAEAAHASE SEER AEKERSRESEKHEKSS SKA ASHE SEA LA, KKKEKEKEKASERRKE 


ST 
6 
oc 
oc 
DC 
8 

oc 
pc 
oc 
DC 
8 

oc 
oC 
oc 
B 

oc 
DC 
oc 


B 
oc 
8 


SCAT+3, ARR 
UNP ACK 
IL1*2" 
AL2( WORK) 
AL2CACT3 
PRINT 
XLI'C1t 
TL1*40° 
AL2(NOTALL) 
XL2*FO308 
PRINT 
XL1*e1¢ 
1L1*13¢ 
AL2 EXP) 
PRINT 
XL1"86* 
TL1°13° 
AL2(ACT) 
HALT 
XL2"F030* 
ene 


SAVE ARR FOR EXIT FROM SUBROUTINE 
*UNPACK ACTUAL 
*SENSE DATA 
*=FOR 
=PRINTING 
*PRINT 
* THE 
*ERROR 
=MSG 
* 


*=PRINT 
*EXPECTED 
*SENSE 
*DATA 
=PRINT 
*AC TUAL 
*SENSE 
*DATA 


BE He RR ER RE RK KR EKER EEK EKER RK KRESS EKEKEDR 


SUBROUTINE TO PRINT THE TRANS/COUNTER BIT 1 & 2 ERROR MESSAGES * 
EERE EER EKER SA AEARARALASE REESE SAREE SERA LEA KK TREES SARE AK KEARSE S SEEKER ERR 


FOL4 MFCU FUNCTION TESTS 
FRR LOC OBJECT CODE ADDR STMT 
16A5 1788 16A6 1088 
16AT FOFS 16A8 1089 
16A9 C2 O01 0004 1090 
LEAD CO 87 O2ZI1A 1091 PINT2 
16B1 C1 1681 1092 
16B2 OA 1682 1093 
16R3 1984 1684 1094 APT2 
1685 36 01 FTF 1695 
16B9 F2 81 OE 1096 
168C OF O1 1684 1FER 1097 
16C2 CO 87 16AD 1098 
1099 
1100 
1101 * 
1102 
16C6 34 O8 16E7 1103 CLEAR 
1404 3€ 04 1C05 1104 FINK2 
16CE C2 01 1984 1105 
1602 4C 03 OO 1FE1 1106 CLCT2 
16D7 02 01 OA 1107 
16DA OF O00 1€05 1LFFS5 1108 
16£0 CO 01 16D2 1109 
16E4 CO 87 0000 1110 LST 
1l1l 
1i12 
1113 * 
1114 * 
1115 
16E8 34 08 1718 1116 RADBIT 
16EC CO 87 O2Z1E 1L17 
16FO 02 16FO 1118 
16Fl 1C€05 16F2 1119 
16F3 1817 16F4 1120 
16F5S CO 87 O21A 1121 
16F9 Cl 16F9 1122 
16FA 28 16FA 1123 
16F8 1AFO 16FC 1124 
16FD F030 16FE 1125 HALTID 
16FF CO 87 O21A 1126 
1703 81 1703 1127 
1704 oD 1704 1128 
1705 1BOA 1706 1129 
1707 CO 87 O21A 1130 
1708 86 170B 1131 
170C 0D 170C 1132 
170D 1817 170E 1133 
170F CO &7 0222 1134 
1713 FO30 1714 1135 HALTEM 
1715 CO 87 0000 1136 SCAT 
1137 
1138 
1139 * 
1140 
1719 3C Fl 187F 1141 UP1 
1710 F2 &7 04 1142 
1720 3C F2 187F 1143 uP2 
1724 OC O1 1892 1941 1144 UP3 
172A 34 08 1748 1145 
172E F2 87 15 1146 
1731 3C Fl 187F 1147 DOWNL 
1735 F2 87 04 1148 
1738 3C F2 187F 1149 CCWN2 
173C OC O1 1892 1094 1150 DOWNS 
1742 34 08 1748 1151 
1746 OC 00 1765 0000 1152 WHICH 
174C OC OO 176F 1765 1153 
1752 34 08 1773 1154 
1756 OE O01 1773 1FFS 1155 
DATE 28JUL69 24NQV69 10FEB70 
EC NOw 8164446 816562 816592 


MVI PRTARE-19,X*"F1® 

J UP3 

MVI PRTARE~19,X"F2® 

MVC PRT ARE, NOST AK-9(2) 

ST WHICH+5,ARR 

J WHICH 

MVI PRTARE-19,X"FL® 

J DOWN3 

MVI PRTARE-19,X"F2° 

MVC PRTARE, PRFO2+26(2) 

ST WHICH+5,ARR 

MVC HALT1 (1), 4-* 

MVC HALT2(1) ,HALTL 

st UP10UT+43,ARR 

ALC UP1OUT+*3,0NE(2) 
14APRTO 1SMAR71 30 AUGT1 PROG ID OF 01-4 
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an 7 a 


FOILS 


® @® &% @ 


ERR LOC 


175C 
1760 
1762 
S 1762 

1764 

1766 
€ 176A 
176E 
1770 


1774 
L77C 
3 1784 
2789 
1791 
% 1796 
179E 
17A3 
g 17AB 
17B0 
1788 
2 17BD 
17C5 
17CA 
2 17D2 
1707 
17DF 
€ 17E4 
17EC 
17Fl 
17F9 
1801 
1807 


o% 


1817 
181F 
g 1827 
182F 
: 1831 
3 1839 
1841 
1842 
3 184A 
1852 
185A 
$ 1862 
186A 
186E 
3 1876 
187E 
1886 


1893 
1898 
> 1e9C 
LRAS 
1BAC 


= 1884 


1889 
18C1 
9 1eC9 
18D1 
18D3 
3 18DB 
1863 


DATE 
EC NO. 


OBJECT CODE 


CO 87 O21A 
cé6 

2c 

1892 

F030 

3C C6 1892 
CO 87 0222 
FO30 

co 87 0c00 


E 2E3C1C 302C 50940 
C 3D6E4D5E340E2E4 
D4D4C1D9E8 
D5066006D7404040 
4040404040 
C6C5C5C440C3C8C5 
C3D2404040 
C8D6D7D7C5D940C3 
C8C5C30240 

D7D9E 2400 3D3E4E3 
C3C840C3D2 

D7D9°C 905E34004C1 
E3C140C3D2 
D7E4D5C 3C840C9D5 | 
E5C1D3C9C4 
D7E4D5C3C840C3C8 
C5C3D24040 
D9C5C1C440C3C8C5 
€202404040 

D4C 1020 540D4C 6C3 
E440D5D6E340D9C4 
F 8400 105C440 
D5D709D640C 206E3 
C840C6C5C5C4E260 
D4C102C 540C 206E3 
C84004C6C3E440C6 
C5C5C4E24009C5C1 
C4E8 

4 O0E6C9E3C840C2D3 
C€105N240C3C 1D9C4 
E2 
C5D5E3C50940C3D4 
D5C440C 9D540C1C4 
C4D940E2E67DE260 
60D7E4E 2C 840E2E3 
C 1D9E36060D9C5D7 
C5C1E340 
C606D940D4D6D9C 5 
40C3D4D5C4E26060 
C5D5C 44 0E6C9E3C8 
4 OFOFOFOFO 
C9D5E5C103C9C440 
C304D5C 440 TETET 
ET 

C503C9D4C 9D5C1E3 
C540C5D9D9D6D9E2 
40C1D5C440C3D605 
E3C SDS5E4C5 

E3C°D 640C 9D5C4C9 
C2C1E3CSE240E7ET 
E 7E740D5D6E 74009 
C4E8 

C 304050 440404040 
4040404040404040 
404040404040 


28JUL69 


816444 816562 


MFCU FUNCTION TESTS 


ADDR 


1760 
176i 
1763 
1765 


176F 


1788 


1795 
1TA2 
17AF 
178C 
17c9 
1708 
17E3 
17FO 


1806 


1816 


1830 


1841 


186D 


188A 


1898 


18868 


18D2 


18E8 


24NO0VE69 
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PART NO. 2589732 
PAGE 9A 


STMT SOURCE STATEMENT 

1156 8 PRINT 

1157 DC XL1*C6* 

1158 oc IL1*446° 

1159 DBC AL2(PRTARE} 

1160 HALT DC XL2*FO30* 

1161 MVI PRT ARE, X*Ce? 

1162 8 HALT 

1163 HALT2 DC XL2*FO30* 

1164 UP1OUT B te 

1165 

L166 FXRSAERKASHKAKEAS SRK EAEAAEASLHS ESKSEKKSSHKAAKT EH HK AEE AE REES KEE ES HKEET EK 
L167 * MESSAGES . * 
1168 HEREKEAKEEERAKAKRSEKHKKEKAKAKKAE KEKSELEKCKARKSEKCKESK HER HSS AKHKSE EHS KEKE SEHK ASEVKEKKA 
1169 SUM DC CLZ1L*STACKER COUNT SUMMARY® 

i169 

1169 

1170 nooP DC CLi3*no-OP | : 

1170 

1171 FCCT OC CLI3°*FEED CHECK . 

1171 

1172 DC CLI3*HOPPER CHECK * 

1172 

1173 DC CLI3*PRT CLUTCH CK? 

1173 

1174 DC CLI3B* PRINT DATA CK? 

1174 

1175 DC CL13*PUNCH INVALID® 

1175 

1176 pc CL13*PUNCH CHECK * 

1176 

1177 RCCT oC CL13*READ CHECK . 

1177 

1178 INS1 DC CL22*MAKE MFCU NOT RDY AND * 

1178 

1178 

1179 DC CLI6*NPRO BOTH FEEDS-* 

1179 

1180 oc CL26*° MAKE BOTH MFCU FEEDS READY®* 
1180 ; 

1180 

1180 

1181 INS2 pc CLIT" WITH BLANK CARDS®* 

1181 

1181 

1182 BC CL44°ENTER CMND IN ADDR SW**S--PUSH START--REPEAT * 
1182 

1182 

1182 

1182 

1182 

1183 INS4 oc CL29*°FGR MORE CHNDS--END WITH 0000! 
1183 

1183 

1183 

1184 INVC oC CLIT*INVALID CMND XxXxx? 

1184 

1184 

1185 ELIM DC CL29*ELIMINATE ERRORS AND CONTINUE ® 
1185 

1185 

1185 

1186 TIOERR DC CL26*TIO INDICATES XxXxXXK NOX RDY* 
1186 

1186 

1186 

1187 PTCMND DC CL22°*CMND : 

1187 

1137 

1CFEBT70 14 APRT7O 15MART71 30 AUGT1 PROG ID OF 01-4 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


FO14 
ERR LOC 


% 18E9 
1BEE 
18F6 

5 18FE 
1900 
1908 

3 1910 
1912 
191A 

> 1922 
1924 
192€ 

3 193 

1935 

193D 

1945 

1948 

1953 

e 1958 
1963 
1968 

3 1973 
1978 
1983 

3 1985 

198D 

198F 

1997 

1999 

19A1 

19A3 
19AB 
19B3 
19BB 
19C3 
1SCA 
19D2 
19DA 
19E2 
19E9 
19F} 

; 19F9S 

1A0l 
1A09 
1A0B 
1A13 
1A1B8 
1A1D 
1A25 
1A20 

LA2F 

1A37 

LA3F 

LA4T 

LAGF 

1A53 

1A58 

1463 

1 A6RB 

1A73 

1A7B 
1A83 
1A86 
1LABE 
1A96 
1LASE 
1LAA6 
LAAE 


Rae 


ae 


DATE 
EC NO. 


\ 


¥ -waf 





ORJECT CODE 


4040404040 

D5064 009C5C1C460 
6006C5C5C44 002 E4 
E2E8 

05064007 E4D5C3C8 
40C4C 1E3C140C2E4 
E2E8 

05084 0D7D9C90D5€3 
40C4C 1E3C140C2E4 
E2E8 
C2E4E2E840C4C9C4 
400506E340C4D9D6 
SF ; 
D5D6D540E 2E240C3 
C460C 9D540E7ETET7 
E7T40E6CICSE3 

€2C 5E340C4C1£3C1 
4OEZE6C9E3C3C8C5 
£240E 30640030349 
E3D640C3D6E4D5E3 
40C3C1DSC4E240E6 
C9E3C 840D04C6C3E4 
EZ E2F1C3E340F0FO 
FOFO 
E2E2F 2C 3E340F 0FO 
FOFO 

£2 2F 3C 3E34 OF OFO 
FOro 
E2E2F 4C 3E340F0FO 
FOFO 
C4D64060D5D6E360 
40D5D 7D 9D66840D7 
E4E340C 3C1D9C4E2 
40C60906D440E2E3 
C1C3D2C 5D 94 0£7 
40C9D5E3D64¢007D9 
CeD4C 1D9E 8400105 
C44004C 1D2C 540C9 
E340D9C5CIC4EB 
C4D640E2C9D5C 703 
C540D5D7D9D640C6 
D9D6D0440D7D9C9D4 
CIDSE840C BDEDTD7T 
C509 
E2E3C1C302C5D940 
C9C440D TE4D5C3C8 
C5C4 
CLE34003C5CLE2F3 
40F1LFEOFO40C2D3C1 
D502 

D507D 906406 2D6E3 
C840CEC5C5C4E268 
40C50407E3E84001 
030340E2E3C1C3D2 
CSD9E26B 
4003D06C1C440C1E3 
40D3C5C 1LEZE340F1 
FOF 040C203C105D2 
40C3C1DEC4E240C9 
D540E 2C 5C 3044001 
05°44004C1D2C540 
D9C4EB 
D3D6C1C44CD4D6D09 
C540C3C109C4E240 
£30640C3D6D5E3C9 
D5E4C 56840060940 
EZE4D9054006C6C6 
40D6D7E 3090605 


28J5ULE9 


816444 816562 


MFCU FUNCTION TESTS 


ADOR 


18ED 


18FF 


1911 


1923 


1934 


194A 


197A 


1984 
198E 
1998 
i9A2 


i9sc9 


19E8 


LAGOA 


1A1C 


LA2E 


1A52 


LAGA 


LABS 


1AB4 


24N0V69 


STMT 


1188 
1189 
1189 
1189 
1190 
1190 
119¢ 
1191 
1191 
1191 
1192 
1192 
¥i92 
1193 
1193 
1193 
1194 
1194 
1194 
1194 
1194 
1194 
1195 
1195 
1196 
1196 
1197 
1197 
1198 
1198 
1199 
1199 
1199 
1199 
1199 
1200 
1200 
1200 
1200 
1201 
1201 
1201 
1201 
1201 
1202 
1202 
1202 
1203 
1203 
1203 
1204 
1204 
1204 
1204 
1204 
1205 
1205 
1205 
1206 
1206 
1206 
1206 
1207 
1207 
1207 
1207 
1207 
1207 


10FEB70 
816592 


PART NO. 
PAGE 


2589732 
10 


SOURCE STATEMENT 


oc 
oc 


INHEX 
BUSY] 


cLs* ® 
CL18"*NO READ--FEED BUSY® 


BUSY2 OC CLI8'NO PUNCH DATA BUSY? 


BUSY3 DC CLIS*NO PRINT DATA B8USY® 


NODROP CLi7*BUSY DID NOT oROP® 


NOST AK CL22°*NON SS CD-IN XXXX WAIT?® 


INSS oc CL4&8*SET DATA SWITCHES TO CC TO COUNT CARDS WITH MFCU® 


ssict oc CLLOFSSICT O0008 


$S2ct OC CLiO*SS2cT oooos 


SS3CT oC CLIO*SS3cT ooooF 


S$S4CT dC CL10*SS4CT 00008 


STAND OC CL39'D0 —-NOT-— NPRO, PUT CARDS FROM STACKER X* 


LDNEXT DC CL31" INTO PRIMARY AND MAKE IT READY* 


ACTUAL CL34*DO SINGLE NPRO FROM PRIMARY HOPPER? 


PUNCHD OC CLI8B*STACKER ID PUNCHED® 


BLANK ODOC CLI8*AT LEAST 100 BLANK® 


oc CL36*NPRO BOTH FEEDS, oes ALL STACKERS,* 


INS3A OC CL24* LOAD AT LEAST 100 BLANK® 


INS3 ODOC CL27* CARDS IN SECO AND MAKE RDY® 


CL47*°LOAD MORE CARDS TO CONTINUE, OR TURN OFF OPTION® 


L4APRT7O 
816678 


ISMARTI 
818962 


30AUGT1 
6153667 


PROG ID 


PAGE 10 


OFO1-4& 


 & 


(> 


ad 


ay 


@ 


e 8 ww 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


FO14 
ERR LOC 


1AB5 
LABD 
LAC5 
LACA 
1ACE 
1AD2 
1AD6 
LADE 
1 AEG 
1AEE 
LAF& 
LAFE 
1806 
iBOB 
1B13 
1618 
1B20 
1828 
1830 
1831 
1839 
1840 
1848 
IB4E 
1B56 
LBSE 
1B66 
1B67 
1B6F 
1B?7 
1B7F 
1B87 
1B8F 
1893 
189B 
1BA3 
18AB 


1BAE 
18B6 
LEBE 
18C6 
1BCE 
1806 
LBDE 
1BE2 
BEA 
1BF2 
1BFA 


18FB 


1BFC 


DATE 
EC NO. 


OBJECT CODE 


40E 2€503C 5C3E3C5 
C440E3 D640C5 D5C4 


40E3CSEZES 


FOFSFOFO 
FIFLFIF9 
FOF3FOFi 
C2C9EZE240C1D9C5 
40D5D6E 3400 1£ 240 
CSETDTICSC3E3BCSCe 
40C 6D6D940E 2C5D5 
E2C 54060C6E 76048 
CSETO?PCS5C3ESC5C4 
S0ETETETET 
40C1C3E3E4C1D340 
SOETETETE? 
C8DEDTDTCS5DS40C 3 
£ 8C 3D3C 54 0D5D6E3 
4CC3D6D4D0 7532°5E3 
cs 

C 8DEDTDIC SDI4CE? 
40D04Ci CTO5C5E3 
C3C1D9C4400 90540 
E6CLC9IE346F1 
C3C44 0C 9DS40E3D9 
C1O5E261C 306E405 
£E3C50940C2C9E340 
Fl 

4040 404040404040 
+0404 04 04 04 04040 
4040404 04 0404040 
4040C 2C 9E340D5D6 
E340E3E4D905C5C4 
40D6C6CéE 
E4D760C 4D6E 60540 
C306E4D5E3C5D940 
DSD6E340C1 E340€£9 
C5D9D6 


C10303406CC6E760 
40E207C5C3C9C103 
40C9D5C4C9C3CIE3 
D60940C 2C9E3E240 
E2C 8D6E403C0440C8 
CLIE5C540C3D6D4C5 
40060540 

C4E4D°CC 905€ 74003 
D60404C105C440C5 
ETC5C3E4E3C9D6D5 
48 


00 


00 


24NCV6 
816562 


28JUL69 
816444 


MFCU FUNCTION TESTS 
ADDR 


1ac9 


LACO 


tAD1 
1AD5 


LAFD 


LBOA 
1BiT 


1830 


183F 
1840 


1866 


iB92 


1BAD 


IBE1 


LBFA 


1BFB 


1BFC 


9 


PART NO. 
PAGE 


2589732 
10A 


STMT SOURCE STATEMENT 

1208 INS6 oC CL21* SELECTED TO END TEST* 

1208 

1208 

1209 F3STAT DC ci4*0800° 

1210 FOSTAT OC cL4*1119* 

1211 FISTAT DC CL4*03018 

1212 NOTALL OC CL40'*BITS ARE NOT AS EXPECTED FOR SENSE -FxX-.§ 
1212 

1212 

1212 

1212 

i213 EXP oc CLIB*EXPECTED XxXx® 

1213 

1234 ACT oc CL1I3* ACTUAL XXXX* 

1214 

1215 HOPCYCT DC CL25*HOPPER CYCLE NOT COMPLETE? 

1215 

1215 

1215 

1216 HOPMAG OC CLI5S*HOPPER X MAGNET® 

1216 

1217 INWAIT OC CL14*CARD IN WAIT i* 

1217 

1218 TRANS OC CL25*CD IN TRANS/COUNTER BIT 1* 

1218 

1218 

1218 

1219 PRTARE DC CLéegt BIT NOT TURNED OFF® 
1219 

1219 

1219 

1219 

1219 ; 

1220 UPDOWN DC CL27*UP-DOWN COUNTER NOT AT ZEROG® 

1220 

1220 

1220 

i221 

1221 

1221 

1222 oC CL52°ALL —-FX- SPECIAL INDICATOR BITS SHOULD HAVE COME ON * 
1222 

1222 

1222 

1222 

1222 

1222 

1223 NOTUP OC CL25*DURING COMMAND EXECUTION.* 

1223 

1223 

1223 

12264 FEREKESSESAKSRERKSSERSHFERECESTSEEDHESE SSSAHAKHESEKKK EEK SESE SAKE HKE SKE ERASE RKKHKSES HRS 
1225 * PROGRAM INDICATOR FLAGS * 
L226 SEEREFESASERAREARKAKSE SRE EKES ESAS SHEKSEHHESERAKHEKKEKRS EKREKESE KEKE SEALKEKSE RTH EKKREKS 
1227 FLAGS OC XL1"00° 

1228 * FLAGO BIT O~MFCU WENT NOT READY 

1229 * FLAG) BIT 1-COUNTING STACKER 4 TARDS 

1230 * FLAG2 BIT 2-COUNTING STACKER CARDS 

1231 * FLAG3 BIT 3-1D OR IE WERE ON 

1232 * FLAG4 BIT 4-BUSY ERROR INDICATOR FLAG ‘ 
1233 * FLAGS BIT 5-PREVIOUS FEED CHECK INDICATOR 

1234 * FLAG6 BIT 6- 

1235 * FLAG7 BIT 7-PRINT WAS NOT FROM SAME BUFFER INGICATOR 
1236 FLAGSI DC XL1*0O0* 

1237 * FLAGIO BIT O-NO REAN-FEED BUSY 

1238 * FLAGIL BIT 1-NO PUNCH BUSY 

1239 * FLAGI2 BIT 2-NO PRINT BUSY 

1240 * FLAGI3 BIT 3-SPACE UP REQUIRED 

10FE870 14APR70 1ISMARTI 30 AUG71 PROG ID OFO1~-4 
816592 816678 818962 818667 PAGE 10a 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


FO14 


ERR LOC 


LBFO 
LBFF 
1co1 
1€03 
1C04 
1€06 
1cos 
1COA 
1C 0€ 
1coE 


1p00 


1000 
1008 
1010 
1018 
1020 
1028 
1030 
1038 
1040 
1D48 
150 
1058 
1060 
1C€8 
1070 
1078 


180 
1D88 
100 
1098 
1OAO0 


TE O00 
1E80 


1FOO 
LFTE 


1F89 
1F 86 
1F8C 
1F92 
1F98 
1FSE 
LFA4 
1FAA 
1FBO 
1Fe6 
1FBC 
1FC2 
1FC8 
1FCE 
1LFO4 
LFDA 


DATE 
€C NO. 


OBJECT CODE 


1795 
1F80 


SC 40F SF 4F 2F 44004 
E4D3E3C940C6E4S05 
C3E3C 9060540C3Cl] 
DSC 44CE4D5C SE35C 
ESC8C540E261F 340 
C4D6E4C203C 5E240 
ESC8C540C6E4D5C3 
E3C 906054 0C6D6D9 
C8C1D3C 640E3C 8C5 
40C3D6E2ZE340C1D5 
C440E3C @CLE370E2 
4ODSDEE340C2C1C4% 
C140F24003C905C5 
40D709C SD5E340D3 
CSCLESCSE240D4C5 
40C 90540C 306D9C5 


SCE3C8CSE2400709 
CODS5SE3DE6E4E34009 
E240C609D06D440C2 
E4C6CEC5DI40F25C 


FFFF 


4CGOGF4FCICL 
€1C190006040 
40404040F1F3 
FETCEB8DC6040 
6ICICICICL4F 
6ESOFLF3F3D3 
N303D34F4E40 
FIFZFE7TCEPDO 
€040404040F1 
F 30303030303 
D34F6E404040 
SOEGFF BF 4F 86F 
SOSOGFESESES 
FO4O0407E6161 
61E6140406EF1 
FLF16E404040 


28JUL69 
816444 


24N0V6 
816562 


MFCU FUNCTION TESTS 


ADDR 


1BFE 
1c€00 
1c02 
1€03 
1€05 
1C07 
1€09 
1coe 
1coD 
1COF 


1p00 
1D1F 


103F 


105F 


107F 


1p280 
1D9F 


1DFF 
1€00 
LEVF 
1E80 
1EFF 
1FOO 
1F7D 
1FTF 
1-80 
1F85 
1F88 
1F91 
1F97 
1F9D 
1FA3 
1FA9 
LF AF 
1FB5 
1FBB 
1FC1 
1FC7 
1FCD 
1FD3 
1FO9 
1FOF 


9 


STMT SOURCE STATEMENT 

1241 * FLAGS BIT 4-PRIME REQUIRED 

1242 * FLAGIS5 BIT 5- 

1243 * FLAG16 BIT 6- 

1244 * FLAGLT BIT 7- 

1245 

L246 FSSESESESEKEKKSSESETESE HESS SESEESESEESERSKSEESE KE KARE SE ERE EKG FESHES SEE TSE ESTEE 
1247 CONSTANTS * 
1248 SSKEKKSSESTSESSESESHSL ELSIE SSESSCSHKSKSESEHE SESHKSEKSE ESSE SEKKKSS SEEKS HE SEHKEESSESEEDESETRESR 
1249 AREAD OC AL2(NGOP) 

1250 LOPU OC AL2(PUFD) 

1251 SAVIT DS CL2 - 

1252 COUNT DS cul 

1253 WORK os CcL2 

1254 CMD DS cL2 

1255 SAVE1 DS CL2 

1256 WAIT DS cl2 

1257 WSEC DS CL2 WAIT FACTOR AREA 

*258 CMNDB4 DS cL2 PREVICUS COMMAND SAVE AREA 
1259 

1259 

1260 ORG x*2000" 

1261 PRFD E£QU * THIS MUST BE LOCATED AY 1FOO 
1262 oc CL32** 5424 MULTI FUNCTION CARD UNIT*® 

1262 

1262 

1262 

1263 DC CL32*THE S/3 DOUBLES THE FUNCTION FOR® 

1263 

1263 

1263 

1264 DC CL32*HALF THE COST AND THAT®*S NOT BAD* 

1264 

1264 

1264 

1265 oC CL32*A 3 LINE PRINT LEAVES ME IN CORE® 

1265 

1265 

1265 

1266 PRFD2 EQU * 

1267 DC CL32"*THIS PRINTOUT IS FROM BUFFER 2° 

1267 

1267 

1267 

1268 oS CL96 

1269 PUST EQU. * 

1270 DS CL128 

1271 RDFD EQU * 

1272 DS CL128 READ FIELD 

1273 CTABLE EQU * 

1274 DS CL126 TABLE FOR COMMANDS FROM SWITCHES 
1275 ALLE OC XL2"FFFE® 

1276 PUFD EQU. * THIS MUST BE LOCATED AT -1680- 
1277 Dc XL6"40406F 4FC1C1° 

1278 DC XL6"C1C1D00960408 

1279 DC XL6"40404040F1F3° 

1280 DC XL6*F67TCE8D06040* 

1281 DC XL6"61CICICICI14F® 

1282 oc XL6°6E40F 1F 3F 3D3° 

1283 DC XL6"D3D3D34F4E40! 

1284 DC XL6"F1E3F67CEB8DOF 

1285 oC XL 6"6040404040F1° 

1286 pc XL6°F3D3030303D3° 

1287 oc XL6"°D34F6E 4040408 

1288 oc XL6"4O6FFBFGFB6F® 

1289 oc XL6*404COFEGEGER* 

1290 oc XL6"FOSOGO7TE6161* 

1291 D1 oc XL6"616140406EF 1° 

1292 DC XL6"F LF 1664040608 

1OFEBT70 14APRTO 15MART71 30AUGT} PROG ID OFO1-4 
816592 816678 818562 818667 PAGE 11 
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PAGE 


2589732 
11 


—@ 


ca ee ORNS I APSA AN 


- 


a ~ 


4 


6 


3 


37° 


, 


&9 


a 





IR4 MAINTENANCE DIAGNOSTIC PROGRAM 


FO14 
ERR LOC 


1FEO 
LFE2 
1FE6 
1FE8 
1FEA 
LFEC 
1FEE 
L1FFO 
1FF2 
LFFS 
LFF6 
1FfFS 
1FFA 
1FFC 
LFFE 


OATE 
EC NO. 


MFCU FUNCTION TESTS 


OBJECT CODE 


4040 
SF 404040 
FOOO 
F800 
OOOA 
F105 
FBOS5 
£905 
oooo 
ocol 
oood 
1€00 
1000 
1E80 
1984 


ZB JUL69 
816444 


24NOVE 
816562 


AGOR 


1FEL 
1FES 
LFET 
1FE9 
1FEB 
1FED 
LFEF 
1FFL 
1FF3 
1FF5 
1FFT7 
1FF9 
1FFB 
1FFD 
1FFF 


0001 
0002 
0008 
C20A 
02cB 
0212 
0216 
O21A 
O21E 
0222 
022A 
1480 
0040 
0020 
0080 
0049 
0020 
0010 
0004 
0002 
00c1 
ooso 
0040 
ooze 
0010 
0008 
0004 
0001 
0086 
0040 
0020 
0910 
c008 
OOAO 
FFFF 


9 


STMT 


1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1203 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1227 
1328 
1329 
13390 
1331 
1332 
1333 
1334 
1335 
1336 
1237 
1338 
1239 
1340 
1341 
1342 
1243 
1244 
1345 


SOURCE 


PLANKS 
SSNO 
FIRSTL 
FIRST2 
TEN 
READI 
READPY 
READCD 
ZERO 
ONE 
DEC18 
LOPT 
LOPR 
LORD 
A1CcT 


STATEMENT 

DC XL2°4040* 
oc XL4°4F404040* 
Dc xXL2"*FOOO* 
oc XL2*F800* 
oc IL2*10° 
oc XL2°*F105¢ 
bc XL2"°FROS® 
pbc XL2*F905* 
Dc xL2*0000* 
oc XL2*0001° 
DC 112°13* 

oc AL2(PUST) 
DC AL Z2(PRFD} 
OC AL2 (RCFD) 
bc AL2(SSICT) 


PART 
PAGE 


NO. 2589732 


11a 





READ FROM PRIM INTO STACKER 1 
READ AND PUNCH COMMAND 
READ COMMAND 


FESESEAE SASH SELASEAR ERASE SSHEELEREHKEESERAEKEKESES KKSKEEKERK KEES KE KE KERESEE 
EQUATES : 
RES KKKFETRSELASAKKA TKS SESS ESSERE SKE SESS SHE RE SERSERHRSELERSESC ERNE KKK SEES STKE KKSAEE 


* 


XR1 
XR2 
ARR 
SBYTE2 
SBYTE3 
TEST 
LINK 
PRINT 
UNPACK 
HALT 
LOAD 
CMND 
SNSWI1 
SNSW12 
SNSK18 
SNSW19 
SNSWIA 
SENSWId 
SNSWID 
SNSWILE 
SNSWLF 
FLAGO 
FLAGI 
FLAG2 
FLAG3 
FLAG4 
FLAG5 
FLAGT 
FLAG10O 
FLAGI1 
FLAG12 
FLAGIL3 
FLAG14 
FLGO2 


LOFEBTO 
816592 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQu 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
ECQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
END 


14APRTO 
816678 


x*o1°® 
X*o2* 
x*ose 
X*20A8 
X*20B°* 
X*212° 
Xx*216* 
X*2YAe 
X*21E* 
X*222¢ 
X*22Aa% 
EX24+2 
X*4O# 
X*208 
X*goF 
xX*40* 
x*20° 
x*108 
x*04t 
x*o2e 
x*o1# 
x*so? 
X*4or 
x*20° 
x*1o0° 
x* Gee 
X*O04G? 
x?o1* 
x*sor 
x*4O* 
X*208 
x*108 
x*ose 
x*ao?® 


1SMARTI 
£18962 


SO0AUG7T1 
£18667 


* 


SBYTES 


en eun se 


FLAGS 0 AND 2 


PROG ID 
PAGE 


OFO1-4 
LIA ‘ 





a 
'- BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 
2g PAGE 
ve FOL4 MECU FUNCTION TESTS 
CROSS-REFERENCE 
# SYM@OL T LEN VALUE DEFN REFERENCES 
act A O13 B17 1214 0683 0692 0701 O710 12120 1132 
% ACTUAL A 034 2AOA 1201 0047 ©0087 0255 0256 0419 
. AGAIN A 004 0A21 0034 0045 
“ALLE A 002 FTF 1275 0486 0487 0502 0503 0534 053£ 0550 0551 0596 0597 0613 0614 
£ 0626 0627 0641 0642 0675 06677 0695 0872 0910 1095 
ALLUP A 004 12221 0714 C655 0655 0664* 0666* 0669% 0671* D677 0682 0695 0700 
ALLO & 003 118A 0662 0674  O676 
% ALLI A 003 1191 0664 0663% 
ALL2 A 003 1198 0666 0665% 
ALL3 A 0C3 11A2 0669 0668 
& ALL& A 003 LIAS 0671 0670* 
ANY A 004 1570 0998 1003 
APT2 &£ 002 1684 1094 1084* 1097* 
3 AREAD A 002 18FE 1249 1022 
ARR C 001 O008 1313 0606 0849 0862 0959 099% 1059 1083 1103 1116 121145 1153 1154 
AT AL A 004 12€2 0786 0796 
¢ AlcT A 002 iIFFF 1307 1084 
BADPIT A 004 16F8 1116 0133 0143 9152 
BADL & 004 1281 12762 O757 0759 
3 BBIT A 004 1597 1004 100L 
BITION A 004 1103 0622 0617 
BIT2 A 004 10C8 0605 0600 
3 BITZ20N A 004 1cDe 0610 0606 
BLANK A O18 1A2E 1203 0270 
BLANKS A 002 1FE1 1293 1106 
3 BSYBUF A 006 1409 0891 0888 0893 
BUSY] A 018 ISFF 1189 0980 
BUSY2 A 018 1911 1190 0967 0986 
> ®uUSY3 AO1l1B 1923 1191 0972 0992 
CDINWL 4 004 OFfa9d 0518 0506 
= : COINW2 A 004 1047 0566 0554 
. CHECK] A 004 15ED 1027 1023% 1035 1035* 1036 1037 
CHECK2 A 00% 0098 0355 0353 
CKALL A OC4 L17F 0659 0657 0658 
CKFO A 004 OB18 0134 0128 
CKFL & 004 OB44 0144 0132 
CKHFR A 004 OFI13 0472 0462 
CKIT A 006 15D8 1022 0996 1010 1013 1019 
CKLAST A 006 11EE 0695 0678 
CKNOOP A 004 O869 0153 0147 
CKPR A 004 13ED 0883 0881 
CKPRIM A 004 Of464 0046 0026 
CKPRNT A 004 1520 0968 0964 
CKPU A 006 13D1 0877 0870 
CKSEC A 004 OA62 0056 0046 
CKKAIT A 004 OEF8C 0420 0422 
CKLL A 004 1548 0981 0976 
cK12 A 004 155A 0987 0382 
CK2 A 004 1311 0814 O81 
CK3 A 00 1318 0816 0812 0814 
CKS A 004 1378 0850 0841 0848 
CK42 A 004 12389 0854 0851 
CLCT2 A 005 1602 1106 1109 
CLEAR A 004 16CE 1103 0252 
CMD A 002 1CO7T 1254 0750* 0751 0752 O754 0756 0758 0764 
CMND A 003 14BD 1322 0184* 0189 0273% 0278% 0296*% 0299 0308* 0314* 0318* 0322% 0326* 03697 
O377* C386* 0396* 0406* 0787* 0789 0810 0850 0866 0869 O0874* 0878 
0883 0885 0920 0922 0926* 0930* 0948* 0950 0963 0968 1909 1045 
1060 1063 
CMNDB4 A 002 1COF 1258 0887 0895 0950% 
CCOMTAB A 002 OBE? 0209 0183 
CCUNT A 001 1€03 1252 0182* 0196* 0295* 0303 
CCUNTM A 004 1643 1059 0297 0200 
CCUNTO A 004 1078 O58} 0569 
COUNT1 A 004 1093 0591 0582 
CTABLE A 001 1F0O 1273 0738 O771 O786 
DATE 28J5UL69 24NOVE9 10FEB70 14APR70 ISMARTL 30AUGT1 PROG ID 
EC NO. 816444 816562 816592 816678 818962 818667 PAGE 


eeevneeneeeeoeoeeeeeneeeeeeseee50unre 


2589732 
12 


OFO1-4 
12 


@ 


(3 


€4 


9% 


ed 2 


ea 


eo 8© wt 


@ 


Not? 


wat 


TBM MEINTENANCE DIAGNOSTIC PROGRAM 


FOL4 


SYMBOL 


CTOQUT 
DECT 
DEC18 
ULY 
OLY! 
DOCMND 
DONE 
DONE 
DONO T 
DOWN? 
DOWN2 
DOWNS 
DKIO2 
Ox1 
DX22 
O1 
ELIM 
END3 
ENDS 
ExIO 


EXxITO7 
Exe 
EX1 
EX2 
FCCT 
FDONLY 
FD2 
FINK 2 
FIRST 
FIRsTl 
FIYRST2 
FLAGCK 
FLAGS 


FLAGS1 
FLAGO 


FLAG) 
FLAGIO 
FLAGIL 
FLAG12 
FLAG13 
FLAG14 
FLAG2 
FLAG3 
FLAG4 
FLAGS 
FLAGT 
FLGO2 
FOURTH 
FOSTAT 
FOl 
FISTAT 
F3STAT 
GETNXT 
GETOUT 
GOGO 
GOCN 
HALT 


HALTEM 
HALTIO 


DATE 
€C NO. 


T 


PPrPrPrPrprprpPprrrYPprrprpppp 


rPPPrrpPpPrPppPrPppp pp 


b> 


OP pPrprrrprranraranarqagnananaadana a 


A 
A 


LEN V 


004 
006 
002 
004 
004 
005 
006 
004 
004 
004 
004 
006 
004 
004 
004 
006 
029 
004 
004 
004 


004 
013 
004 
003 
013 
006 
OC4 
004 
004 
002 
002 
004 
001 


001 
col 


ool 
ool 
ool 
ool 
001 
Ool 
ool 
ool 
ool 
ool 
002 
col 
004 
004 
col 
C04 
004 
005 
004 
004 
906 
001 


002 
002 


2PJUL6 
816444 


ALUE 


1691 
1584 
1FF7 
1387 
1368 
OBA9 
1171 
1223 
OBCS 
1731 
1738 
173C 
142C 
1439 
1406 
1FO9 
1688 
OBDA 
12E7 
1391 


Ob61 
1BOA 
1462 
1488 
17A2 
13E7 
OC48 
16CA 
ODE6 
iFET 
IFES 
1535 
1BFB 


1BFC 
0080 


0040 
0080 
0040 
0020 
0019 
000s 
0020 
oo10 
0008 
0004 
ocol 
OCAO 
OE68 
14D? 
0An0 
1AD5 
1ACO 
129A 
OEAT 
1487 
14EF 
0222 


1714 
16FE 


9 


MFCU FUNCTION TESTS 


DEFN 


1076 
1000 
1303 
0871 
0872 
0184 
0655 
O77 
0195 
Li47 
1149 
1150 
0900 
0904 
0944 
1291 
2185 
0200 
0795 
0862 


0338 
1213 
0914 
0937 
1171 
0882 
0262 
1104 
0379 
1295 
1296 
0973 
1227 


1236 
1332 


1333 
1339 
1340 
1341 
1342 
1343 
1334 
1335 
1336 
1337 
1338 
1344 
0410 
1210 
0003 
1211 
1209 
O772 
0428 
0936 
0950 
1320 


1135 
1125 


24N0V69 
816562 


CROSS-REFERENCE 


REFERENCES 

1059* 1067 1070 1073 

0998 

1034 

08 76 

0873 

0199 

0580 0580 0604 0609 

0696 

0186 

0624 G647 

0607 0638 0653 

1148 

0884 0890 90894 

0901 

09 38 

0380 0388 0391 0398 

0041 

0197 

0790 

0195 0293 0298 0301 

0791 

0307 ©311 06336 

0131* 0142* 0151%* 1129 

0905 0940 0943 0949 

1322 

0825 0882 

0879 

0254 

1096 

0384 

0926 

0930 

0969 

0251* 0310 0335 0340+ 

9392 0399%* 0402 0408% 

0868* O889* 0915* 1040* 

0916* 0931* 0946 0560 

1033* 1041 

C310 0335 0341 0343 

0828 

0408 0835 

0962 O975 

0966 0981 

0971 0987 

1008 1033 1041 

0916 C931 0946 

0371 0831 

0340 0355 0357 

1040 

0818 0820 0915 

0868 0889 

0251 

0414 

0142 

O151 

0131 

0783 

0342 0358 0368 

0934 

0947 

0032 0043 0054 0064 

0364 0426 0457 0470 

606932 O711 0846 0902 

0132* 0140* 0149*% 

0129* 0139* 0148*% 
1OFERT7O 14APR70 
816592 816678 
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0621 0634 0640 0649 0652 

0401 0407 0411 1065 1068 1071 107% 

0309 0379 0385 0390 0395 0400 0405 0410 

0341 0343* 0355 0357* 0370* 0371* 0382 0389+ 

0409* 0412 0415* 0818 0820* 0828* 0831 0835 

0962* 0966* 0971 0973 0975 0981 0987 1008* 

0370 0382 0389 0392 0399 0402 0409 0412 

0082 0094 0105 0123 0173 0284 0333 0349 

0484 0500 0516 0530 0548 0564 0578 0588 

1052 1134 1162 

15MAR71 = 30AUGT2 PROG ID OFO1-4 

818962 81 8667 PAGE 124 
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PAGE 13 e . PAGE 13a 
‘ F014 MFCU FUNCTION TESTS c ~ FO14  #FCU FUNCTION TESTS 
CROSS-REFERENCE CROSS-REFERENCE 
| tgs 
§ SYMBOL T LEN VALUE DEFN REFERENCES ¢ 8 SYMBOL T LEN VALUE DEFN REFERENCES 
HALTL A 002 1765 1160 1152% 1153 Q 0559 0573 0583 0684 O0€89 0702 0707 0739 0766 O778 0784 0822 
2 HALT2 A 002 LT6F 1163 as @ 0837 0842 0977 0983 0985 1004 1029 1047 1085 1091 1121 1126 
HMAGON A 004 OFB6 9532 2 1130 1156 
HOPCYC A 025 1830 1215S 0678 , . PRNTBL A OC& 1418 0895 0886 ee 
£ HOPMAG A OlS 183F 1216 0493%* 0494 ©0508 0510 0541% 6542 0557% 0558 _ @ PRIARE A 044 1892 1219 0463% 0464* 0468 O0477* O478% 0482 0492% 0494* 0496 6505* O0510% 0514 
HOP2 A 004 1497 0928 0923 i 0522* 0524* 0528 0560* 0542% 0546 0556* 0558* 0562 0571* 0572% 0576 
HOP20N A004 1012 0550 0538 ; 0596* 1261* 1143* 1144% 1147% 1149% 1150* 1159 1161*% a es 
® HPROFF A 004 OFT74 6502 6490 _ @ PTCMND A 022 18E8 1187 0877 O877* 0880* 0882* 0967* 0972% . eae eS 
reon A pos ae oe wie i PUCMND A 004 1508 0963 0961 
N A 004 PUFD A OOL 1F80 1276 1250 
3S FRHEX &@ 005 ?PSED 1162 1046 1059 ' @ PUNCHD &€ 018 AIC 1202 0277 
eieet : ace aces oes cee! j PUST A001 1€00 1269 0274* 0275 0275* 1066* 1069* 1072% 1075* 1304 
TNJE c RCCT A O13 17FO 1177 0880 
9 INSL A 022 1806 1178 0030 0121 0845 | e RDOFD A OOlL 1€80 1271 0312 0316 0320 0324 1306 
iNS2 AOl7T 1841 1181 0080 0173 0455 i ROSWS A 003 123E 0744 0745 0747* 0749% O761 0770 
INS3 A 027 1A85 1206 0057 0098 0255* 0264 68264* 8265 0282 ‘ ‘tee OURO A 004 12F& 0806 0914 0941 0945 
2 INS3A A 024 LAGA 1205 @270* O277* S RDY2 A 004 137% 0849 0378 
INSG AO29 188A 1183 0742 | READCD A 002 1FF1 1300 9257* 0262* 0278 
INSS A 048 197A 1194 0363 READIT A 006 O0C91 0278 0272 
2 INS6 A O22 1AC9 1208 0347 ' ¢ READPU A 002 IFEF 1299 0258% 0263* 0273 
INVC A O17 1898 1184 0190 0194 0765 0769 O777 O71 READY1 A 006 OAA3 0087 0084 
INWAIT A 014 184D 1217 0523% 0524 O570* 0572 ‘ READY2 A 006 OAC4& 0098 ocss 0096 
> ISIT2 A 004 ODIC 0316 0313 i ¢g READIL A 0O2 1FED 1298 0369 
ISIT3 A 004 OD2A 0320 0317 | RERUN A 006 OCC5 9294 0292 0306 
ISIT4 A 004 0038 0324 0321 RNUM A001 OA03 0013 0829 0933 
8 TTSNOT A 00% O0D46 0328 6325 | = RTOlL A OOl OAOD 0023 0015 
LONEXT A 031 19€8 1200 0376 0840 | RTO2 A 001 OA84& 0073 0025 
LOPR A O02 1FFB 1305 0167 OS91 0737 RTO3 A OOL OAE2 0114 0075 
a LBPT A GO2 1FFO9 1304 6935 1 RT04 £001 OB6D 0163 0116 
LDPU = A CO2:—«S«1C00 «1250 0592 0610 0659 0932 1016 | RTOS A OOlL OC16 0247 0165 ' - 
nari? LORD A 002 FFD 1306 0472 0532 0593 0611 O660 0936 RT06 A OOl OEDT 0448 0249 ; oe 
e LEAVE] A 004 OAGO 0066 0056 | = RTO7 A001 1228 0733 0450 
LEAVE2 A 004 OADE 0107 C0086 0097 R3L A004 OBA1 0182 0201 
a LINK C OO1 O216 1317 0066 O107 0153 0202 6428 SAVE1 A 002 1C€09 1255 C788* 0792 
4 IST A 004 1695 108% 0359 0423 * 
’ LISTET A 004 ODAT 0359 0339 0356 | = iS . eel an iste oe: meh 
LOAD 8 € OOL 622A 1321 O717 O797 | SBYTE3 C 5601 O20B 1315 0185 0200 0253 0268 0271 0289 0291 0305 0338 0352 0795 0995 
9 LsT A 004 16€4 1110 1063* 11034 s SCAT A 004 1715 1136 1116* 
MORE A004 ODFF 0385 0383 SECOND A 004 O€15 0390 0394 
MOREL A 004 OE2A 0395 0393 | re SELECT A 006 OC8B 0277 0269 
3 MOKE2 A 004 OEFSS 0405 0403 | 3 SETBUF A 004 1402 0889 0896 
MSEC A 002 1coDd 1257 0906* 0907* 0908%* 09124 SETH A 004 124F O749 0746 
: MSGADD A 002 15FB 1032 1022* 1034*% | SETPT A O06 152F 0972 0970 
NEXT A003 127A 0760 0755 3 SETPU A 006 151A 0967 0965 
NOOROP A 017 1934 1192 1007 SNSW1A C 0OL 0020 1327 0795 
NOMORE A 004 O£80 0415 0413 SNSWI1B C OOL 0010 1328 0200 0305 
} nooPp) =A 013) «1795 =—«11170 0464 1032 1249 2 SNSW1D C O01 0004 1329 0271 0291 
NOSTAK A 022 194A 1193 0256* 02765* 0331 1144 | SNSHLE C 001 0002 1330 0268 0289 
NOTALL A 040 AFD 1212 0130* 0141* 0150* 1124 | SNSWIF C 001 0001 1331 0185 
5 NOTGO A 004 1366 0842 0827 0830 0832 0834 3 SNSW11 C 001 0040 1323 0900 
NOTRDY A 004 133A 0828 0817 0821 | SNSW12 € 001 002C 13246 0904 
NOTUP A025 I18FA 1223 0679% 0687 0697* 0705 | SNSW18 C 001 0080 1325 0253 
> ONE A 002 1FF5 1302 0196 0303 0874 0912 1002 1018 1108 1155 2 SNSW19 C 001 0040 1326 0995 
UNEOFF A 004 1L1LOF 0626 0623 | SPACE A 00% i61F 1041 1026 1039 
ouT2 A 004 138D 0855 0806* 0809 0813 0815 0849* 0853 SPEC A 004 OCF 0308 0290 0337 pee 
% ouTe a 008 Eine ee 0862* O875 { 9g SPEC1 A O00& ODSD 0337 0315 0319 0323 0327 
9 6 4 0S59* 0994* 1042 SSBITS A OOl OEAS 0433 0294 
PBL A 004 1420 0897 0899 | SSNO A O04 IFES 1294 1066 1069 1072 1075 
’ PCMNDS A 004 1296 OT7Ti 0753 @ $Sl A 006 1685 1074 1064 
- aes , eae as ee voce | SSICT A O10 1984 1195 04074 O0411* 1074* 109% 1105 1307 
Z $S2 A 006 1667 1068 1v61 
y earn : ue foes uel 1305 es SS2CT A O1O 198E 1196 0398* 0401% 1068 
0 80 1266 0864 C864* 1150 $$3 A006 1676 1071 1062 
| PRIMIT A 004 1444 0931 0927 4 SS3CT A O1O 1998 1197 0388* 0391% 1071*% 
> PRINT C 001 O21A 1318 0027 0038 0049 959 0077 0089 0100 0118 0168 0191 0279 0328 ® SSGCT A010 1982 1196 0380* 1065% 
0344 0360 0373 0416 0426 0452 0465 0479 0495 0511 0525 0543 STACK] A 005 OCCD 0296 0304 
> & 
DATE 28JUL69 24NO0V69 10FEBT0 14APR70 1SMARTL 30AUGTI PROG ID OF01-4 DATE 28JUL69 24NOVE9 10FEB70 146APR70 1SPART 30AUGT1 PROG ID OF01-4 
EC NO. 8164446 816562 816592 816678 818962 818667 PAGE 13 EC NO. 6816444 816562 816592 816678 818962 818667 PAGE 134 
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FOILS MFCU FUNCTION TESTS FOILS MFCU FUNCTION TESTS 


& SYMBOL 


STACKS 
& STAND 
STATUS 
STAT2 
2 STORE 
STOREY 
STORE2 
F STORE3 
SUB2 
SUN 
8 TELL 
TELL 
TELL2 
3 TEMP 
TEN 
TEST 
@ TESTL 
THIRD 
TYOERR 
TOZERO 
TRANS 
TWOOFF 
2 UNPACK 
UPDATE 
UPDOWN 
@ UPL 
UPIOUT 
uP2 
s UP3 
WAIT 
WAIT 
& WAIT 2 
WAITS 
WAIT4 
$ WAITS 
WAITS 
WAIT? 
3 WAITS 
WAT 
WHICH 
2 WORK 


wt 
wT 

3 XECUTE 
XRL 


3 XR2 
ZERO 


T LEN 


A 006 
A 039 
A 004 
A 004 
A 004 
A 004 
A 004 
A 004 
A 006 
A 021 
A 004 
A 004 
A 804 
A 002 
A 002 
Cc 001 
& 004 
A 004 
A 026 
A 004 
A 025 
A 004 
Cc 001 
A 006 
A O27 
A On4 
A 004 
A 004 
A 006 
A 002 
A 004 
A 004 
A 0046 
A 004 
A 004 
A 604 
A 004 
A 004 
A 002 
& 006 
A 002 


004 
004 
004 
ocl 


OpPpp - 


Cc ool 
A 002 


VALUE 


OEGF 
19c9 
14FB 
156C 
15Aa3 
1570 
1SAA 
1253 
1142 
1788 
ocoy 
OCAT 
OCAF 
1210 
1FEB 
0212 
ocs3 
OE40 
1802 
1161 
1866 
Li2F 
O21E 
1600 
1BaD 
1719 
1770 
1720 
1724 
1CoOB 
OF 43 
oF78 
OFE1 
1016 
10AC 
10€7 
1113 
1146 
14FA 
1746 
1€05 


144C€ 
1450 
14A8 
0001 


0002 
1FF3 


DEFN 


0411 
1199 
0959 
0994 
1909 
e995 
LOU 
o750 
0641 
1169 
0279 
0286 
0288 
o713 
1297 
1316 
6289 
0400 
1186 
0650 
1218 
0635 
1319 
1034 
1220 
1141 
1164 
1143 
1144 
1256 
04 87 
0503 
0535 
0551 
05S7 
0614 
0627 
0642 
0958 
1152 
1253 


0909 
0910 
0932 
1311 


1312 
1301 


REFERENCES 

08 36 

0372% O361* 

0944 

0037 0942 

0999 

0974 O988 

1015 

0748 

6637 

1088 

0276 

0259% 0266% 

0260*% 0267% 

0662%* 0663 

1097 

0181 06351 

0354 

0404 

0047% 0048* 

0645 

0594 

0630 

0187 0680 

1028 

0586 

0602 0632 

1154* 1155* 

0619 

1142 

1016* 1018+ 

0491 

0507 

0539 

0555 

0601 

0618 

0631 

0646 

0997 

1145* 1146 

0034* 0035 

0366* 0367 
-— 0519* 0520 

0615* 0616 

0673 O0772% 

0S17* 0918 

1020 1024 

0913 

0911 

0919 0921 

0486% 0487% 

0626* 0627+ 

0666 0667 

0760* O771* 

0872* 0909% 

03 83* 0184 

0752 0782 


CROSS-REF ERENCE 


O387* O39T* 


> TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 


DATE 
EC NO. 


‘ . | | a 


2BJSUL69 
816444 


24N0V69 
316562 


10FEB 70 
816592 


6993 
6665 6667* S668 0670 
0867 
0052 COS57* 0058* 0062 
0698 0762 O774& 1043 
11514 
0125* 0126 0127 0©134* 
0420* 0421 0460* 0461 
0536% 0537 0552 0553 
0622 0628* 0629 0635 
O7T76 O782 O807* O80S 
0924 0928 0939 0997* 
1025 1027 1038 1104* 
0925 0929 
0502* 0503* 0534* 0535* 
0641* 0642* 0657* 0658 
0668 0668 0669 0670 
0772 O773 O773* 0786 
0910* 1090* 1095* 1105 
0198 0198* 0294* 0296 
0789 1000 
0 
14APRTO 15MAR71 
816678 618962 


008 T* 


1117 


0135* 
0474* 
0567* 
0636 
0816 
1000 
1108* 


0550* 
0662 
0670 
C787 
1106 
0299 


30AUGT71 
618667 





O08s* 


0136 
0475 
0568 
0643* 
0833 
1002* 
1119 


0551* 
0663 
0671 
0788 
1107 
0302 


0092 


0137 
0488* 
0581 
0644 
0891* 
1011* 


0596* 
0663 
0716 
o792* 
1107* 
0302* 


0144* 
0489 
0598* 
0650* 
0892 
1012 


O59T* 
0664 
0738* 
0793 


0656* 





ooss* OOVSs 0103 


0145 0146 
0504* 0505 
0599 0605 
0651 O0672* 
0897* 03898 
1014 1017# 
0613* 0614* 
0665 0665 
0751 0760 
0793% 0871 
0675 

PROG ID 
PAGE 


OF01-4 
14 


Cnr 68 


9) 62 4% 


4) 


eer 


THE CHARACTER 


CL 2 TRROUGH 16 


T4-¥:2AE B-4 
T#-75/0HS2 | /0Y 
T+-DOF(.0 286 S. 


oe 


Te-9 91 /YQ4? DOH* 
T+-ZWFAPO=<BG S. 
T+e-_/ +3 8A HEETO 
T4+->*8/ ,NOH*O: <B 
T+2POH*BDTOOS | 


T+-OKB:USD H.O! 


Te#-1(Z"=XAQ +53> 
T+-2HG=8< 1Z8FX- 
T+-3C/00<DJZDF/0 
T+#-3=UtHBCDZ2.AO 
T4+-49 1OHM?<BGD9D 
T4+-54GY [2 E*9AAK 
14-6748 $=2BG /2 
T+-7 D< AV O0H*BH?C 
T 4-8V <AWSG "US@1X 


T+-5-OH*4E*RCDID 


Te-3 $6° Us EAPH48 


T+-€COH*BF/$ /0H 
DATE 28JUL69 
EC NOw 816444 


Cl 17 FHROUGH 32 


ao a 


[Ac & BYL /OH 
/0~ HO-OCE<YE C3 
0 286 /OB- , SOHE 
BH? DI~-H1 (HGF-0 


O=CC3G MO* 1L0E+4% 


OE78a<A*M{I} E=00 


G /QD- O0<-&-~=a8 


B -?X. DM7E 8 EH 
-Y*BG /SOAIDDa-P 
-F"? /1SF4H OBA 
< 1VEFX-:B 2Ye-- 


< JK°G"G /OHEIVs 


CH HN7EC s1RCOHe 
8-A?#a/ALIMas-1H 
© aY*POH*BFZQOFM, 
FJA,Tall! /OnSall 
4< #AL KG P2 3< 
I4H S="HEAGGCs$ 
@A/K*| LORZEQOFQB 


$=aBGD9SDF<AWDG*U 


$a] /OHONONGRA) 


OBJECT CARD LISTING 


INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 


EJSHQESC10H*BHIC 
WE<# /OHE1/YO6? | 
BFUO,FDGOaZBG S. 
CF<VESC3TF<# /0H 
+ALHEETO3ZE 288a ls 
Gee apcescease 
G /ZF41/AaHl /0H 
222 JOH*BG-HM2JS 
ZANEFTESEA™#CE L 
EGOOCEX-E OCFMM 
<2C-8 -?2DB <DJZ 
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PAGE. 1 > PAGE 1a 
: FO26 5424 MFCU READ-PUNCH-PR INT TESTS e FO26 5424 MFCU READ-PUNCH-PRINT TESTS 
2 ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT : ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
bere t 
€ 2 DECK 4 : @ OABT F2 01 1D 70 JNE  CKO9 *1F COLUMN IS NOT BLANK 
@A00 3 FO2 START x*ago* : i CABA D2 O1 O1 71 tA 1(eXR1} gXR1 
G THESES EERSERESESE SERERESE TELS HESS OSSES EEF FEE ES SESSEES EEHKEEEEERSE FE SSEERER | OABD OF CO 1C64 LAAE 72 SLC STEP(13, ONE *CHECK FOR AND BRANCH IF ALL COLUMNS 
€ 5.* * ¢ OAC3 CO 01 OABS 73 8NZ CLEAR *HAVE NOT BEEN CHECKED 
6 & SYSTER%s3 S424 MFCU FUSLTION TESTS x OACT 38 20 020C T4 TEN SBYTES,SNSW22 *CK FOR AND BRANCH IF OPTION TO LOOP 
oa 7 * * OACB F2 90 3A 5 JF GERPU *ON PUNCHING CARD READ IS NOT ON 
. GB LESSEEHES SHSSSSS HS SOSESRES SS SEFTESGKSE HERS SSS LSSSTER GREK SES LESS SESERERER @ OACE OC O1 1202 1AC9 T6 MVC CMND,»RDPU2Z2 (2) MOVE IN COMMAND 
9 * SECTION 2 ~ ROUTINES 1 THRY 9 * ; OADS F2 B87 5C 77 J DUPIT GO TO EXECUTE. COMMAND 
LO SHeHeASSRSESESKHERESCSS SSE KHSPASE SES SRSELSESS SESE SESH ARAAER AGEL SES RSSEHAHSEKEKKERER | OAD7T 38 40 0200 78 CKOS TEN SBYTESG « SNSW21 *CK FOR AND SRANCH IF LOOP ON 
. OAGG FO26 cAOl 11 oc XL2°FO26° PROGRAM IDENTIFICATION AND LEVEL | @ OADB F2 90 00 7S JF pup * PUNCHING RIPPLE CARD IS NOT.ON 
- OA02 00 OAC2 i2 oc XL1tFOt FLAGS ‘ : OADE OC 00 1C65 1€00 80 MYC WORD{(2),RDBFD MOVE FIRST BYTE OF RDFD INTO WORK 
ars OAC3 006 OA03 13 RRUM OC XL1*0° CURRENT ROUTINE NUMBER ee OAE4& 3€ 06 1202 81 FDONLY AVI CMND,X*06* ALTER CMND TO SELECT STACKER 2 
OA04 9000 OA05 14 pC XL2*6* RESERVED ; $ OAES F2 87 15 82 J SET2RD 
CAOG& CACD OAGT 15 oc ALZURTOL) ADGRESS OF FIRST ROUTINE PREFIX | OAEB 38 209 020C 83 DUP TBN SBYTEG, SNSW22 *CK FOR AND BRANCH YF OPTION TO LOOP 
OA08 8000 OaCS 16 oc XL2*6¢ RESERVED i OAEF F2 SO OA 64 JF UNBLAK #0N PUNCHING CARD READ IS OFF 
€ OAOA FO5000 OAeC 17 SPUDT OC XL3*FC5000* UNIT DEFINITION TASLE -— MECU & OAF2 OC SF IFSF 1LESF 85 MYC PUFD+95 (96) ,RDFD4+95 MOVE DATA READ INTO PUNCH FIELD 
TQ SSRXEKKKE AEA LEK SKS KKSAEESKKKSEKSERESHKSESSSLRSRTSREKA KEKE KEKE ES HKKKKAKSE SSRETE OAFS CO 87 DPE B6 8 FDONLY 
19 * x OAFC 3C O7 1202 87 UNBLNK MMVI C¥ND, X*o7e ALTER CMND TO SELECT STACKER 3 
£ 20 % ROUTINE 1 - PUNCH TEST * ; @ OB0O 3B 06 1201 88 SET2RD SBF CMND-1,X*06* SETUP TO READ ONLY 
21 * + OB04 CO 87 OAAB 89 8 x—ECcu GO READ THE NEXT CARD 
22 SSR SERESEKERHERRAERKES SEK CEAKSARK SES ERE SSS ASEKCAAK ASKS A SERRE KK KKKA ESE RSEKAAKKH OBO8 38 40 020C SO GENPU TBN SBYTE4+SNSW21 *CK FOR AND BRANCH IF LOOP ON 
¢ OA0D O1 OAOD 23 RTO1 ec KL2°O1¢ ROUTINE NUMBER i @ OBOC F2 10 06 91 JT #49 *=PUNCHING RIPPLE CARD 1S GN 
CAOE 80 OAOE 24 oc XLi*so® FLAGS - MANUAL INTERVENTION OBOF OC OO 1C65 1FOL 92 MVC ¥WCRD(1),PUFDEL MOVE SECD BYTE OF PREV CD INTO woRD 
OAGF OBSO OA1O 25 oc AL2(RTO2)} ADDRESS OF NEXT ROUTINE PREFIX OB15 C2 01 1863 93 LA STABLE »XR1 LOAD ADOR GF TABLE INTO xXRi 
c Z2E FHEKTSSRESSAKAEKEAA SASH HSSEASE SRE RKERETARAKE KTS SEK KKK SSAA SKKKEESEKAERSEKSS SRE @ 0B19 4D 00 OO 1C65 94 NEXTL CLE O(1eXR1),WORD *CK FOR AND BRANCH If FIRST 
GAlI 3C 40 1FO01 27 MVI PUF D41,X*40* ZERO FIRST BYTE OF READ AREA \ OB1E F2 81 O7 95 JE NEXTCD *CHAR READ EQUALS CHAR IN TABLE 
OA15 OC 98 1L7DE 1998 28 MVC INST 1-22(9),PRIMRY PUT PRIM INTG INSTRUCTION MSG | 08621 D2 Ol 01 96 LA 10 gXR1LP XRT ADD 1 FOR INDEXING THRU TABLE 
c OAIB 38 80 0208 29 TEN SB8YTE3,SNSW18 *CK FOR AND BRANCH IF FEED ] OR24 CO 87 6819 97 8B NEXT] BR BACK TO CHECK NEXT CHAR IN TABLE 
OALF F2 10 06 30 JT *49 *FROM PRIM HOPFER IS ON ose OCB28 1C SF ILF5F SF $8 NEXTCD MVC PUF D495 (961)4950,XR1}) MOVE 96 CHAR TO BE PUNCHED INTO PUFD 
§A22 OC O8 ITDE 19A4 31 MVC INST1-22(9),SECOND PUT SECD INTG INSTRUCTION MSG _ 082D OC 01 1202 1ACT 99 MVC CMND(2),READPU MOVE IN READ/PUNCH COMMAND 
C OA28B COC O06 17C8B 1907 32 MVC INST1-41 (7) gINS9O-5 PUT BLANK INTO INSTRUCTION MSG S 0833 3C 40 1D5F 10C DUPIT VI BUFF+95 ,X°408 
OAZE CO 87 O2Z1A 33 8 PRINT =PRINT : 0637 OC SE 105E 1D5F 101 MYC BUFF+94 ,BUFFA95(95) 
ee OA32 46 GA32 34 DC XLE*46# * INSTRUCT IONS , 083D CO 87 O71E 102 B UNPACK 
e OA33 44 OA33 35 BC IL1*68* * 3 0841 O11 OB41 103 DC ILi*ie¢ 
OA34 TFS OA35 36 oc AL2C INSTI) * , 0842 1F00 OB43 104 DC AL2(PUFD} 
. f OA36 FOCO OA37 37 oc XL2*FOCC# : 0844 1001 0B45 105 pc AL2 (BUFFE¢L) 
t OA38 CO 87 0222 38 8 HALT 8 0846 30 00 1C75 106 SNS WORK» X* C0" READ DATA SWITCHES 
OA3C FOTO OA30 39 pc KL2*FOCO® i OB4A 30 00 1C75 107 CLI WORK,X*OO0? *CK FOR AND BRANCH IF CARDS ARE 
OA3ZE 38 80 0208 40 TBN SBYTE3,SNSW18 *CK FOR AND BRANCH IF FEED t OBSE F2 01 04 108 JNE *+7 *NOT TO BE PRINTED ON 
e OA42 F2 90 18 41 JF FO2 *FROM PRIM HOPPER IS OFF i @ 0651 3A O07 1201 109 S6N CMND-1,X"0O7* TURN ON PRINT BIT 
OA4S 38 O08 1LAC2 42 SBF READCD-1,Xx*08* TURN OFF M BIT IN READ COMMAND Td es 0855 CO 87 1008 110 8 Exi0 
e OA4S9 3B 08 1AC6 43 SBF READPU-1,X"08* TURN OFF M BIT IN READ/PUNCH COMMAND ee ds 0859 38 40 020C 111 TBN SBYTE4s SNSW21 *CX FOR AND BRANCH IF LOOP ON 
% OA4D 38 O08 IACB 44 SBF RDPU2Z2—-1,x *08* TURN OFF # BIT @ OB5D F2 10 1C 112 JT CK *PUNCHING RIPPLE CARO IS ON 
OA51 Cl FO OA5S 45 TIO *48,X"FO? | OB60 38 20 020C 113 TEN SBYTE4, SNSW22 *CK FOR AND BRANCH IF OPTION TO LOOP 
4 OA55 CO 87 OA5S1 46 B *-G i OB866 F2 10 15 114 JT K *ON PUNCHING CARD READ IS ON 
ef OA59 C1 FO OAS5S9 4T TIO *,X*FO? ' @ OB67 OD OO LFOO 1C67 115 CLC PUFD(1) LAST *CK FOR AND BRANCH IF ALL THE 
OASD F2 87 18 4B J CK8BIT i OB6D F2 01 OC 116 JNE cK *CARDS HAVE NOT BEEN PUNCHED 
i OA60 3A O08 1LAC2 49 FD2 SBN READCO-1,X*088 TURN ON M BIT IN READ COMMAND | OB70 38 80 020C 117 TEN SBYTE4,SNSW20 *CK FOR AND BRANCH IF LOOP ON 
. OA64 3A 08 LACE 50 SBN READPU-1,Xx*08* TURN ON M BIT IN READ/PUNCH COMMAND i) 0874 CO 90 0216 118 BF LINK *PUNCHING SAME DECK IS NOT ON 
OA68 3A 08 1AC8B 51 SBN RDPU22~1,X*08* TURN ON M BIT ‘ 0878 3C OG 1FO1 119 RESTRT MVI PUFD+1,4-* INITIALIZE TO RESTART RIPPLE DECK 
¥ OA6C Cl FB OAT4 52 Tro *+8,X"FSt | OB7C CO 87 OAAT 120 CK 8 CKNEXT BR BACK TO PUNCH ANOTHER DECK 
. OA70 CO 87 OAEC 53 B *-4 ; > 121 
OATS Cl FS OATS 54 T10 *,X*FR? ' L22 SFXSESEEETESESE AER TERR ERSLALE KEKHEFESEREREESS EEEKLE EERE TEE AAEERERAKERED 
: OATS OC 91 1202 1AC3 55 CK8BIT MVC CMND(2) ,READCD : 123 * * 
a OAT7TE 38 O1 OAOT 56 TBN SPUDT.sX*01* : > 124 * ROUTINE 2 ~- RIPPLE READ TEST * 
OA82 F2 10 17 57 JT INITAL : 125 * * 
OA8S 3C 4F 1C67 58 MVI LAST, X"4FPe 126 FEKRESSESSARAELER EES SAKES SASHREREERE KEE SS EEEKERKAKAHES KAKKLELATSE EEKEKSESRE CE 
t OAs9 3C 4O ORTO 59 AVI RESTRT4+1,X*40# > 0880 02 OB80 127 RTO2 DC XL1*02* ROUTINE NUMBER 
OA8D OC 3F LBE2 18A2 60 MVC STABLE4+127(64},STABLE#63 0881 80 0881 128 oc XL1*80° FLAGS —- MANUAL INTERVENTION 
: OA93 OC 3F 1C22 1BA2 61 MVC STABLE+191( 64) ,STABLE+63 OB82 OCFE 0883 129 oc AL2(RTO3} ADDRESS OF NEXT ROUTINE PREFIX 
| t OAS9 F2 87 OC 62 J XECU > 130 4#FSRSSSEKESEE KEELER ESSE SESEREEKELER SEE SEEK ECR ESTERASES EEE KEE EERE E 
OASC 3C FF 1C67 63 INITAL MvI LAST, X* FFF O0B84 OC O08 1L7YDE 1998 131 MVC INST1-22(9) ,PRIMRY PUT PRIM INTO INSTRUCTION MSG 
OAAO 3C BO 1F01 64 MVI = PUFD+1, X*B08 OBA 328 80 0208 132 TBN SBYTE3,SNSW18 *CK FOR AND BRANCH IF FEED 
} { OAA4 3C BO CB79 65 MVI RESTRT4+1,X%*BO® 9 OBBE F2 10 06 133 JT RIPCDS *FROM PRIM HCPPER 1S ON 
OAAB CO 87 1008 66 XECU 8 Ex10 O£f91 OC 08 IT7DE 1946 134 MVC INST1-22(9). SECOND PUT SECD INTO INSTRUCTION MSG 
“eek OAAC C2 01 1E€00 67 CKNEXT LA RDFD,xXR1 ra OBS7 OC O06 1LTCB 19A8 135 RIPCDS MVC INST1-41 073 ePUNCHD PUT RIPPLE INTOINSTRUCTION SG 
: z OABO 3C 60 1064 68 MVI STEP,X*60° SETUP THE COLUMN COUNT . & OB9SD CO FT OPI1A 136 B PRINT *PRINT 
OABS 7D 40 00 69 CLEAR CLI OC eXR1) eX" 40° *CHECK FOR AND BRANCH OBAL 46 OBAl 137 oc XL1°%46° *INSTRUCTIONS 
$ e 
DATE O3NOV69 10FEBTO 14APR70 29 JUN7O ISNCVT7O 1SMART1 30AUGTI1 PROG 10 OF 02-6 DATE O3NO0V69 10FEBT70 14APR70 29JUNTO 15NO0V70 ISMART1 30AUGT71 PROG ID OF 02-6 
EC NO. 816523 816592 816678 816704 818905 818962 818667 PAGE 1 €C nOw 816523 816592 816678 816704 818905 812962 618667 PAGE 1A 
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IBM MAINTENANCE DIAGNOSTIC PFOGRAK 


FO26 
ERR LOC 


OBA2 
O8A3 
OBAS 
OB8A7 
OBAB 
OBAD 
obe3 
0887 
O8BO 
ORCL 
68cs 
Secs 
o8cs 
OBCF 
O8D5 
SEDB 
OB8DF 
OBE2 
ORES 
OBES 
OBED 
OB8F1 
OBFS 
O8F9 
OBFC 
ocoso 
6c o3 
OCOT 
oc oB 
OCOF 
0C13 
Oci? 
Oc10 


oc21 
oc 2s 
oc29 
oc2D 
0C31 
0C35 
o0c39 
oOC3Cc 
0C40 
0C43 
OC47 
OC4A 
OC4E 
ocs1 
OC54 
ocss8 
ocsc 
oceél 
0C64 
OC67 
OC6B 
OC6F 
Oc7s 
oc 78 
oc7c 
OCTF 
oce3 
ocs9 
ocec 
oc90 
ocol 
oce2 
OC94 


DATE 
EC NO. 


OBJECT CODE 


a 


1T#4 
FOCl 
£0 87 0222 


6c 
38 
oC 
38 
2 
c2 
aa 
c2 
oc 
oc 
38 
F2 
38 
F2 
38 
€1 
co 
Ci 
F2 
3A 
F2 
3a 
€2 
C6 
ci 
ce 
OE 
3B 


30 
38 
co 
38 
co 
38 
F2 
38 
F2 
38 
F2 
38 
F2 
F2 
C2 
3A 
4D 
F2 
b2 
co 
3A 
oD 
F2 
38 
F2 
3A 
oc 
F2 
co 
Cc. 
60 


FOC! 


01 


co. 


01 
Ol 
90 
01 
FF 
01 
3F 
3F 
49 
10 
80 
90 
08 
FQ 
87 
FO 
87 
86 
87 
68 
F8 
87 
FS 
87 
ol 
79 


F3 
02 
10 
04 
10 
10 
10 
02 
10 
08 
10 
80 
10 
87 
01 
80 
00 
81 
01 
87 
80 
5F 
61 
02 
10 
02 
SF 
87 
87 


1F5F 
F025 


1202 
rAgB 
4CT7 
OAC 
OT 


1075 
1c 75 
1588 
020C 
OBFC 
020C€ 


020 
il 
020C 


1a9B 
Ag 
53 
1£63 
1A98 


1AC3 
LAAC 


iBA2 
IBAZ 


LAAE 


00 1£&60 


43 
ol 
OcsCc 
1A98 
1LFSF 
O07 
1A98 
00 
1A9B 
1F5SF 
6A 
O21A 


O3N0V69 
816523 


LE5F 


LESF 


aoper 


osa2 
OBAS 
OBAG 


OBAC 


0cso 
ocgl 
0c93 
oc9s 


LOFEBTO 


816592 


STMT 


138 
139 
140 
141 
142 
1463 
144 
145 
146 
147 
148 
249 
150 
151 
152 
153 
15 
155 
156 
157 
153 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
172 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 


5424 MECU READ-PUNTH- PRINT TESTS 


SOURCE 


READLI 


TABLE 


TABADD 


SETINO 


FEED2 


READ! 


STRAIT 


LOADAD 


RDC OMP 


SAME1 


BADCD 


14APR70 


816678 


PART WO. 2589734 
PAGE 2 


LOAD READ COMMAND INTO EXID ROUTINE 
TURN OFF FLAGS 0 AND 1 
ZERD ECARD COUNT 


{O40 CD CODE RIP TAB ADD INTO XR1 


*CK FOR AND BRANCH TF FEED 
*FROM PRIM HOPPER IS GFF 


TURN GFF M BIT 


TURN ON OPTIONS SELECTED FLAG 


TURN ON M BIT 


ADD 1 TO CARD COUNT 
CLEAR ALL FLAGS EXCEPT PREV. FD CK 
AND 1ST CD LOADED FOR COMPARE INDIC. 
AND BYPASS COMPARE WAS GN INDIC 
STGRE THE STATUS INDICATORS 

*CK FOR AND BRANCH 

@#1F FEED CHECK 

*CK FOR AND BRANCH IF 

*BYPASS COMPARE IS ON 

=CK FOR AND BRANCH IF 

*COMPARE ANY CARDS IS ON 

*CK FOR AND BRANCH IF NON 

* SEQUENTIAL CARDS 


*CK FOR AND BRANCH TO EXIT ROUTINE 
*IF OPTIONS SELECTED FLAG IS ON 


LOAD ADDR OF TABLE INTO xRi 

TURN ON OPTIONS SELECTED FLAG 

7CK FOR AND BRANCH IF FIRST 

*CHAR READ EQUALS CHAR IN TABLE 
ADD 1 FOR INDEXING THRU TABLE 
BR BACK TO CHECK NEXT CHAR IN TABLE 
TURN ON OPTIONS SELECTED FLAG 
*CK FOR AND BRANCH IF 

*DATA IS AS EXPECTED 

*CK FOR AND BRANCH TF 

*FIRST CARD HAS BEEN MOVED TO PUFD 
TURN ON FIRST CARD LOADED INDICATOR 
MOVE DATA READ INTO PUFD FOR COMP 
GO READ NEXT CARD 


STATEMENT 

oc 1L1°68* 

6c AL2CINSTLI 

oc XL2°fOC1* 

8 HALT 

BC KL2°Fe1¢ 

YC CMADE 2}, RE ABCD 
SBF FLAGS, FLAGO] 
ave COLAT, ZERII2) 
Tan SPUDTK*O1® 

JSF TABLE 

LA TAB+11,XR1 

J TABADD 

ta STABLEs ¥R1 

M¥C STABLE+127(64) ,STABLE+63 
HVT STABLE+191 ( 64} , STABLE+63 
TBN FLAGS ,FLAGI 

JT READY 

TBN SBYTE3, SNSW18 
JF FEED2 

SBF CMND~1,x*08* 
Trio *4+8,X "FO? 

8 th 

T10 *,X*FO? 

J READ 

SBN FLAGS »FLAGO 

J READL 

SBN CMND-1,X* 68? 
TI9 *+B,X*F RB? 

8 Ranke 

TIO e_X*FBe 

8 EX1IG 

ALC COUNT, GNE (2) 
SBF FLAGS, X*79°" 
SNS WORK »X*F3" 

TBN WORK, X*02* 

BT STAT2 

TBN SBYTE4s SNSW25 
BT SETIND 

TBN SBYTE4, SNS W23 
JT ROCOMP 

TBN SBYTE4, SNSW26 
JT STRAIT 

TBN SBYTE4, SNSW24 
JT OOESIT 

TBN FLAGS,FLAGO 

JT END6 

J OGESIT 

LA STABLE,XR1 

SBN FLAGS »FLAGO 
CLC OC 1sXR1),RDFD 
JE DOESIT 

LA 10yXR1)_XRI 

B LOADAD 

SBN FLAGS +FLAGO 
CLC PUFD4+95(96) ,RDFO+98 
JE SAME 

TBN FLAGS, FLAGE 

JT BADCD 

SBN FLAGS ,FLAG6 
MVC PUFD4+95 (96), RDFD+95 
J READIA 

8 PRINT 

oc XLi*c1* 

oc IL1°96° 

oc AL 2 (PUFD+95) 
oc XL2°*FO25* 
29JUNT70 15NOV70 ISMART1 
816704 818905 818962 


*PRINT 
*EXPECTED 
*DATA 
x 
30AUG71 PROG ID OFO2-6 
818667 PAGE 2 
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F026 
ERR LOC 


oc96 
OC9A 
oc 98 
ocec 
OC9E 
OCA2 
OCAS 
OCA7 
OCcAC 
OCAF 
ocB3 
0C84 
OCB6 
ocBs 
ocec 
ocBD 
OCBE 
octo 
OcC2 
occs 
occc 
= OCcDO 

OCDS 

ocDB 
° ocDB 
OCEl 
OCES 
OcEes 
ocesB 
OCEF 
OCF3 
OCF6 
OCFA 


9 


ts ge $e 8668 &2 


> 


{) 


OCFE 
OCFF 
0D00 


oe 


0002 

0D06 
3 0007 
opos 
ODOA 
op0c 
0010 
oDl11 
0012 
0014 
0018 
ODLA 
ODIE 
oDd22 
0026 
OD2A 
oo2E 
2 0032 
0038 
CO3E 
0044 
0048 
CD4C 
OD4F 
0D53 


ea 


od 


4” 


#9 


DATE 
eC NO. 


o:@ oo # 


S@Ceeeoenaeeaeeneennnn58d 


OBJECT CODE 


CO 87 0214 


62 
60 


LESF 


co 


87 


F025 


F2 
4D 
F2 
co 
01 


87 
5F 
81 
87 


LEOO 
1816° 


co 
C1 
22 


87 


1816 
FO25 


06 
£2 
3C¢ 
co 
38 
F2 
oD 
F2 
38 
F2 
3A 
co 
D2 
co 
co 


03 
80 


30 
02 
25 
87 
02 
10 
o1 
ol 
08 
90 
co 
87 
01 
87 
87 


oosc 


co 
41 
47 


87 


190C 
FOC2 


co 
06 
2C 


87 


YASA 


co 


87 


FOC2 


Cl 
co 
Cl 
co 
ci 
Ci 
oc 
04 
oc 
30 
3D 
Fe 
38 
F2 


O3NOGV69 
816523 


FO 
87 
F8 
87 
FO 
F8 
TF 
01 
ol 
00 
03 
01 
20 
87 


0222 


4F 
SF 1LESF 


O21€ 


O2Z18 


iAcD 
1E00 
TOCA 
OFE1 
6200 
18 

1c77 
OF 

020C 


1AB3 


LABS 


1A98 
OfBT 
Ol 

0c13 
0216 


O21A 


O21A 


0222 


0022 

OD1A 

OD2A 

od22 

OD2A 

OD2E 

1D7F 1851 
1B85F 1862 
1202 1853 
1C6F 

1C 6F 

17 

1202 

1c 
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ADDR STMT SOURCE STATEMENT 


OC9OA 
oc98 
Oc9D 


o0ca3 


oce3 
OceSs 
OCcE7 


ocec 
OCcBD 
OCBF 
occ. 


OCFE 
OCFF 
opol 


oOp06 
oDO7 
oDp0s 
OoDOoB 


oD10 
0D12 
oDp13 


0D19 


10FEBT70 
816592 


PART NO. 
PAGE 


2589734 
2a 


266 8 PRINT *PRINT 

207 oc XLitg2¢ * ACTUAL 

208 oc ILi tee *DATA 

269 oc AL2(ROFO*95) * 

210 8 HALT 

211 oc XL2*FO25° 

212 J READIA GO READ NEXT CARD 

213 ODESIT CLC 95196, XR1},RDFD195 *CK FOR AND BRANCH IF ALL 96 

214 JE LIMIT *COLUMNS COMPARE 

215 8 UNPACK *UNPACK CARD 

216 oc ILitié® *NUMBER AND 

217 DBC AL2(RDFDB} *PLACE IN 

218 oc AL2(HEADNG) * MESSAGE 

219 B PRINT *PRINT 

220 BC xXEL°C1°* *CGLe 

221 oc IL1*34¢ *EXPECTED 

222 Oc AL 2(HEADNG) FACTUAL 

223 DC XLZ2°FO25* 

224 AZ ERRCT(4)-0101) ADD 1 TC ERROR COUNT 

225 LA RDFD, XR2 LOAD ADDR OCF READ FIELD INTO XR2 

226 MYT TURNZ40 oX*253 

227 8B CKEACH GQ CHECK EACH BYTE 

228 LIMIT TBN SBYTE4, SNSW26 *CK FOR AND BRANCH IF 

229 JT READIA *NJIN-SEQUENTIAL CARDS 

230 cLC COUNT, SIXTY4(2) *CK FOR AND BRANCH IF ALL THE 

231 JNE READIT *CARDS HAVE NOT BEEN READ 

232 TBN SBYTE4, SNSW24 *CK FOR AND BRANCH IF -LOOP ON 

233 JF ENDS *READING CARDS~- SWITCH IS GFF 

234 SBN FLAGS-FLAGOL TURN ON FLAGS O AND 1 

235 B READIL 

236 READIT vé 1(,XR1),XR1 

237 READIA 8 READ < 
238 ENDS 8 LINK Go To oce 

239 

240 FEEEEEEKEEAERASEAREAES EASA ELHAECKRHESRAE SERA AKE SHA EARHK SEEKS EREAKCERRSERSE CHER 
241 * * 
242 * ROUTINE 3 - RIPPLE PRINT TEST * 
<43 * * 
2GG FKRKESSSEKESEKEEKARR SKS KAHERE KAAS EASH AKERS ESSA EKKKHEDHET EASE AKEAKKES HAEKSRSE KAS 
245 RTO3 BC XxL1*03° ROUTINE NUMBER 

246 oC xXLi*so* FLAGS ~ MANUAL INTERVENTION 

247 oc ALZURTO4) ADDRESS OF NEXT ROUTINE PREFIX 

248 KSESRKESKEARKKSERKAEACERKKSHKERS SASS SHARES RKEEKERKAERKKHK AKER KKH EHS ERK SKKERRHE 
249 8B PRINT *PRINT 

250 oc XLES41¢ *INI TIAL 

251 DBC IL1*718 *PROGRAM 

252 OC AL2UINS9) * MESSAGE 

253 pc XL2°FOC2® 

254 B PRINT 

255 oc XL1*06® 

256 cc IL1*44* 

257 DC AL2Z(SET43} 

258 B HALT 

259 DC XL2°*FOC2* 

260 TIO #4+B_yX* FOP 

261 B ¥—G 

262 T190 #4+8,X*F BE 

263 B wh 

264 T10 *eX* FOF 

265 T10 *,X*FRe 

266 MYC BUFF4¢127°(128}-TABLEL SET PATTERN INTO PRINT BUFFER 1 

267 ZAZ COCNT( 2),PLUS32¢2} SET CARD COUNTER TN 32 

268 RVC CMND(2),PRTFDI LOAD PRINT COMMAND 

269 SNS SWITCH ,xX*00° 

270 CLI SWITCH,X*O3¢ 

271 JNE PRTBF 1416 

272 SBF CMND, X* 20° 

273 J PRT BFI416 

14APR70 29JUNTO 1SNOV7O ISMART1 30AUGT1 PROG ID OFO2-6 
816678 816704 818905 818962 8218667 PAGE 2a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589734 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589734 
PAGE 3 PAGE 3A 
F026 5424 MFCU READ~PUNCH-PRINT TESTS “ F026 5424 mMECU READ-PUNCH-PRINT TESTS 
C b 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STKY SOURCE STATEMENT 
€ 0956 OC 00 1LDTF 1D8s0 . 274 PRTSF1 MVC Sue ie teri Luc esse che ce wath creck i = Bere . 7 ae Eb ay a TSIE Gta Sein CUeC ane LAG 
OVE LOFF 275 avC BUFFt126 #25 R E 2 ; 
Boas as 7 isos ; 276 SBF CAND -X* 80° : SET COMMAND TO BUFFER 1 ; ODE1 OC FE 1SFE 1LDFEF 344 RVC BUFE4+254(255) »BUFF4255 FILL BOTH BUFFERS WITH CHARACTER 
c ODé6é CO 87 1008 27T 8 EXxIO z ODE7T OC O01 1202 1853 345 AVC CMND(2},PRTFDL LOAD PRINT COMMAND 
. OD6A OC OO IDFF 1D00 278 BVT BUFF 2255513, BUFF RIPPLE DATA FROM ODED 04 O1 1B5F 1AB2 34¢ STAYIN ZAZ COCNT(2),FIVE{23 SET CARD COUNTER TO 5 
OD70O OC TE 1DFE 1D7F 279 aC BUFF4254(127),BUFFE127 *+QUFFER 1 16 ue. oA . ODF3 a 80 1202 a. 1coPS SeF ae SET COMMAND TO BUFFER 1 
N MN *so* SET COMMAND TO BUFFER ODF’ CO 87 inDB 34 B XI 
: obs eS a tase oar a SiGe, 7 OOFB 3A 80 1262 349 SBN CMND,X* 808 SET COMMAND TCO SUFFER. 2 
OD7E O07 10 185F 1860 282 $Z COCNT(23_,PLUSE CL) CARD COUNT MIRUS ONE OOFF CO 87 10D8 356 8 Ex 10 
€ OD84 CO 84 0056 283 eH PRIBFY BRANCH IF NOT ZERO ¢ OEO3 OF 10 1B5F 1B60 351 SZ COCNTi23,PLUS1 OL) SSUBTRACT ONE FROM CARD COUNT 
oo0es CoO 87 06216 284 8B LINK OEOS CO 84 ODF3 352 BH Looes *AND BRANCH IF NOT ZERO 
285 OEOD 38 40 0208 353 TEN SBYTEO,SNSWOL 
c 286 KESRERSKSESRERSHASELSE SAS EKS SES SSRSSELESKKARSEHKS KS GHEE EK AHASEEKEASSE REE KEK z OEF11 CO 10 ODED 354 BT STAYIN 
287 & * 6E15 CO 87 O22A 355 LEAVET B LGAD 
es 288 * KOUTINE 4 - PRINT H IN ALL POSITIONS . * 2 OE19 OC OE19 356 oc XLitor 
289 % * 357 
C 290 RHEKEHEREREATAESESAARKS SASSER ARLES Sy HESTESATAKERKAKKKAL RE RSEKSE SHKAKHRERE 258 SHSERSSSESSSSEKEKELERRES AES ETALA TARE AKSSREKREAR GREEKS AL ES SHEERS EEE EEKEKES 
ODsC 04 eDsc 291 RT04 oc XLII" O45 RGUTINE NUMBER 359 * * 
Cc opsp Oo oped 292 DC xLifoot FLAGS : Pike PACER $ a : ROUTINE & — PRINT CHARACTERS ENTERED THRU DATA SWITCHES : 
8F 293 vc AL ZiRTO5) ADDRESS GF NEXT ROUTIN ss 
eee — 294 RRS SAERSE A AAESS KE RSE SRK SES KERESERKE SARE KER SERS ELAS SESKEAKSREKAARES : 362 FHHSRESSSSRESAAS HEE SSERKKEKAARAETHEAGSEAEAKKSLA SS KKAKES SERS AL SSHSS AES ZSERSE 
£ Op90 3C C8 1DOFF 295 MMVI BUFF4+255,x*C 8° LOAD PRINT PATTERN 3 OELA 08 OFLA 343 RTOS oc Ave G8! eee iat peeve 
0094 OC O01 1202 1855 296 MVC oes LOAD PRINT CGMMAND eae See OelB a ae es peeeee [ Se Cee eee 
PRTAL E . , 
€ CURR ee St eee aoe e r E 366 FEELEREKEREKE EELS STEAK SES SKESKRE TLE RKHKAAKSE KAS AKAKKSE SE AREA SERS SEE ERKSS 
299 FFSHRESSESELATHRS KE SEATRSRES HEARS SHSERESSEKAS SHKGEGHAAKTERAAGAGEAAS HELEEAAER OELE C2 C1 1p00 3267 PASS3 LA BUFF yxXR1 LOAD XR1 WITH BUFFER ADDPESS 
300 * * OF22 CO 87 0222 368 8 HALT 
é 301 # ROUTINE 5 - PRINT - IN ALL POSITIONS * z OE26 FOES OEZT 369 oc XL2*FOES* 
302 * * OEZ8 30 90 1LCéF 370 SNS SWITCH, X*Co? SENSE CONSOLE SWITCHES 
3503 FSSEEERAETSESEAERKHEKESLAE KSLA SETHAREKSERSE KAS TRE RKEASHKAKSGKESAKKSES AKER SESEERG OE2C 30 CO ICEF 371 CLI SWITCH, X*008 COMPARE SW. 364 FOR 00 
e QDSE 05 OD9E 304 RTOS oC XL1°'O05# ROUTINE NUMBER = OE30 F2 81 4E 372 JE PRICD ake BR. IF OO 
OD9F 00 OOSF 305 oc XL1*008 FLAGS é ‘ seuc ene nee S . eae a7 pel oo 04 “s 
= ODAO ODBO ODA1L 306 oc AL2(RTO6} ADDRESS OF NEXT ROUTIN x : 
c BOT FFFSEESERESSEEARSELEEEKEREAKL ERE HESS ESESSASERASTSHESRETRS HEKEKE SE EKEEEEREE OEBA C2 O02 1AD2 375 LA TABLE1-127,XR2 LOAD XR2 WITH TABLE ADDRESS 
ODA2 3C 60 IDFF 308 AVI BUFF+255,X*608# LOAD PRINT PATTERN OEZE 20 00 IC6éF 00 376 LTOL CLC SWITCH(1),00,XR2) COMPARE SW. 364 FOR PRINTABLE CHARA. 
S CDA6 OC O12 1202 1857 309 MVC CMND(2) ,PRTFD3 LOAD PRINT CCMMAND BEL = ae ea a re See aoe Be ae as 
ODAC CO 87 1T1F 310 B PRTALL : ? 
8 311 OE4S 34 02 I1CT5 379 ST WORK, XR2 STORE XR2 
eee BL 2 FERRERS CHE SAESERSREKEE AE SSE AKERS KASEKEKE EE KEES KEKE KEKEKES EXE SEERED = OE4D OD O1 1C75 1AAB 380 CLC WORK(2),S5SLIP COMPARE FOR END OF TABLE 
€ 313 * * - OES53 CO 82 OE3E 381 BL LTO1 BR IF NOT 
314 * ROUTINE 6 - PRINT 1 IN ALL POSITIONS * feoe oe 87 O21A cts ao te oes Tee rane 
315 + * 0 6 
C B1LG FEEREESSASSHR SESE ALESER HERS REKS ALG KALESKESE SHE ARAKES REKK KKH EEKE KEE LELRKKSE ses OESC 1E OF5C 384 DC IL1*36? * CHARACTER 
ODBO 06 ODBO 317 RTO6 oc xXL1*06* ROUTINE NUMBER OES5D LAGE CEFE 385 oc AL2(BAOCHA?) *SELECTED 
ODOB1 OO oval 318 oc XL1*908 FLAGS - OESF FO37 CE60 386 pc XL2*FO3T7* 
C OODB2 Opc2 opB3 319 oc AL2(RTO7) ADDRESS OF NEXT ROUTINE PREFIX = OE61 CO B87 0222 387 8B HALT 
320 FFRSEESCHRALEEARKESEREEAE SES EARESEERE EE AREA ERE LAS SRA CELA CKERACKES TE REEERES | OE65 FO37 OF66 388 oc XL2"°FO37* 
COe4 3C Fl LOFF 321 MVI BUFF4255,X"Fl® LOAD PRINT PATTERN i Es OE&T CO 87 OE22 389 B PASS344 ; RE-TRY 
. ovBe OC O1 1202 1859 322 MVC CMND(2) ,PRTFD4S LOAD PRINT COMMAND 3 aa Bee oe ae 1C 6F =e LTO2 So foe oe ee BUFFER 
ODBE CO 87 IT1F 323 8 PRTALL OE7 ’ ? a 
324 OET3S 34 O1 1C75 392 ST WORK ,XR1 STORE XR1 ; i 
£ 325 HHREHEEERSSTEREELEAES ED EAE ER ES EE AEE EE EAELESERAEEERSEEERESEAEES EE SE EEEEERS Ds OE77 OD O01 1C75 1AAA 393 CLC WORKO2) sLASTCH COMPARE FOR LASY BUFFER POSITION 
326 * * OFT7D CO 82 OE22 394 SL PASS344 ' BR IF NOT 
327 * ROUTINE 7 - PRINT CARD FULL OF CHARACTER ENTERED IN DATA SES) # OEFS81 34 01 1C€75 395 PRTCD ST WORK e XR1 STORE xR1 
c 328 * * : OE85 OD O1 1C75 1p00 396 CLE WORK(2) «BUFF COmP FOR AT LEAST ONE CHARA ENTERED 
B29 FHREEEERESEEKAREEEREREEREESSERAEEEREE ES CSEEEHEREREERL FERREKE EES $HEEERERER OCEBB CO 81 OF22z 397 BE PASS344 BR IF apes Z F 
rot T *o7* ROUTINE NUMBER OE8F OC Cl 1C6D 1C75 398 MVC SAVE(2) »sWORK SAVE DISPL ACMEN 
a Sece a0 ones aot ves is pines pace 5 ! 4 OE€&9S 38 FF 1C6C 399 SSF SAVE-1_X"FF? REMOVE HIGH ORDER BITS 
O0C4 OELA OOCS 332 oc AL2(RTO08) ADDRESS OF NEXT ROUTINE PREFIX ‘ OF99 OC CO OEAF 1C6D 400 MVC LOAD1 42 €1),S AVE LOAD BIS rt eemen 
B33 FEKEREREE SE EEE ES EREEEEREEE ES HE EKEEREETESERERS $4 EEEEEE EE ERK SESE EEEREEREEE \ OESF 36 O1 LABF 401 A ALLF,XR1] SUBTRACT ONE FROM XRi 
£ Ovc6é CO 87 O2Z1A 334 8B PRINT Z OEA3 34 01 1C€75 402 ST WORK sXR1 STORE XR1 
OOCA 46 COCA 335 oc X¥L1°46° : OFAT OC OO OEAE 1075 403 MVC LOAD1 +41 (1) gWORK LOAD LENGTH ; 
oocB 2c ODCB 336 oc IL1L*442 OEAD SC 00 O00 00 404 LOAD] AMVC O01sXR1),0€,XR1) MOVE PATTERN TG NEXT .OCATIGN 
£ Oocc 1a50 ODCcD 337 oc ALZ2(ENTER) * OEB1 36 O1 16D 405 A SAVE,XRI erane Gh 
COCE FOE7 ODCF 338 oc XL2*FOET® CEBS 34 01 1C75 406 ST WORK, XR1 sto x 
0000 CO 8T 0222 339 8B HALT CEB9 OD O01 1C7S AAA 407 CLC WORK (2) ,LASTCH COMPARE FOR LAST BUFFER POSITION 
€ ODD4 FOE7 0005 340 oc XL2*FOET® te OEBF CO 82 OEAD 408 BL LOAD eR IF NOT 
0006 30 00 LDFF 341 SNS BUFF4255,x"008 READ THE DATA SWITCHES ; OEC3 OC TF LDFF 1OTF 409 aVC RUFF ¢255(128),8UFF e127 MOVE BUFFER 1 "NTO BUFFER 2 
gre Ae feiss od 
. | ¢ 
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ie. F026 5426 HECU READ-PUNCH-PRINT TESTS FO26 5424 MFCU READ-PUNCH-PRINT TESTS 


} 
E 
io 
ERR LOC OBJECT CODE ADDR STSY SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
¢ OECS OC O01 1202 1857 410 mvC CAND( 2), PRTFDS SET COMMAND CF93 C1 FSB OFOA 478 CK2 710 CK3,X*F8* BR IF SECD FO NOT ROY OR ERROR 
OECF F2 87 12 4il J porr i OFST F2 87 43 479 Jj OUT2 
OFD2 38 BO 1202 412 TESTIT Yan CAND, X* 80° TEST WHICH BUFFER ae OFSA 38 02 1C75 480 CK3 TBN WORK »X*025 
c OED F2 10 O07 413 JT SETBL BR IF BUFFER 2 i GFOE F2 90 18 482 JF NOTRDY 
COEDS 3A 80 1202 ALG SON CMND ,x* BO" SET TO BUFFER 2 OCFAL 39 04 1AS95 482 TBF FLAGS » FLAGS *CK FOR AND BRANCH IF PREVIOUS 
OEDD F2 87 64 415 d SOIT OFA5 F2 10 O7 463 JT INC *FD CK INDICATOR IS NOT ON 
C OEEO BP 80 1202 426 SETBL SBF CHND,X?*8o* SET TO BUFFER 1 OFAS 38 04 LAGS 484 SBF FLAGS » FLAGS *TURN OFF PREVIOUS FD CK INDICATOR 
CEES CO 87 1OBB #17 OOIT 8 Exio OFAC F2 B87 OA 485 J NOTRBY SAND GO 
OEE8 76 87 6212. 418 8 TEST OFAF CO 87 O21A 486 INC B PRINT *PRINT 
€ CEEC 30 90 IC6F 419 SNS SWITCH .»X* OO? SENSE CONSOLE SWITCHES i OFBS Cl OFB3 “#87 DBC ALL°Ccis *FEED 
OEFO 3N 00 1Cé6F 426 Cul SWITCH, X*60# SWITCHES EQUAL 06 ' OFB4 OA OFBS 4868 BC ILi*1os *CHECTK 
OEF4 CO 81 OED2 421 BE TESTIT BR YF VES i OFBS i75F OFRS 489 pC AL 2(FCCT=3) *#SG 
c OFFS CO BT OELE 422 B PASS3 : OFB7 FOILG OFBS 490 BC XLZ2*FO01060* 
423 £ OFBS 38 O02 1LASB 491 NOTROY SBF FLAGS, FLAGS 
Q2G FHPESKSSTEASA CEASE SA RAE AHRESSSERSSETEKEKCESKSKEKAHERREKHKE MKS CE ARSERA HAKKAR SEH i GFBED CO &7 O21A 492 B PRINT *PRINT 
€ 425 % a bt 7 GFC1L 06 OFCL 493 DC XLE*O6* *NOT 
426 * ROUTINE 9 — PRINT CHARACTERS ENTERED SY DATA CARD * ? oFC2 OC OFCZ 494 oc ILitiet =RDY 
427 * « | OFC3 189A OFC4 495 pc AL2CINS1) *MSG 
€ 428 RELSEEAAAEAAKEAEREARRKEEKAAKESE SE SSK AEA RHSARE RS PASSA KSH SKS SEK HARES SAS KAS K f . OFC5 CO 87 0222 496 CKRY B HALT THALT UNLESS BYPASS ERROR 
. OEFC O9 OEFC 429 FTOFQ DC XL1*0OG* ROUTINE NUMBER e OFCS FO1O OFCA 497 DC XL2*FO10® *HALT SWITCH IS ON 
aA OEFD 80 CEFD 430 eC XL1*50* FLAGS — MANUAL INTERVENTION é OFCB 38 08 1201 498 TBN CMND-1,X"08* *CK FOR AND BRANCH IF 
¢ OE€FE FFFE CEFF 431 oc XL2°FFFT# LAST ROUTINE PREFIX Ves oe OFCE F2 10 OF 499 JT CKS2 *SECONDARY FD CMND 
G5Q SHXAARGRSESSCATASASRKSRALT EARS SLERERATAAS eAHEARASS ASSELE SHAKE SKESRE ERASE RAE  G OFD2 C1 FO OFCS 500 TIO CKRYsX* FOS BR TF PRIM FD NOT RDY OR ERROR 
OFOO CO 87 O21A 433 8 PRINT 4 OFD. F2 BY 04 501 J OuT2 
€ OFO4 46 OFOS 434 oc XL1*4é* oe OFDS Ci FB OFCS5 50z CK42 Tio CKRY.K* FBS BR IF SECD FD NOT RDY OR ERROR seat 
OFOS5 3) OFOS 4435 DC IL21*498 a S OFDD CO 87 0000 503 OUT2 8 eee EXIT SUBROUTINE ge PO ESS 
OFC LAZ4 OFOT 436 pc AL2CINSTS} ; 5046 os 
é OFOB8 FOC3 | OF09 437 pC XL2*FOC3e - oS SOS SHEERS SEER SSAERESASARSAAHSE SKAKSESKSRSLAS LK ERAKKH LEEK SHEKELS SEKLSEKERRKR 
OFOA CO 87 0222 438 8 HALT : 506 * CKEACH * 
OFOE FOC3 OFOF 439 oc XL2°FOC 3° : SOT * = 
€ OF10 Ci FO OF18 440 T19 *4+8_X*FO? toes. 508 * SUBROUTINE TO CHECK DATA ONE BYTE AT A TIME. * : 
Redes OF14 CO B87 CF1O 4&1 8 *—-G ; : SOQ FSeRERSEEEEERSERERSS HHA SEK ELAS HSEKAESESLES SELLS LEAKE KK KH SK SESE LES HRHEKH PR 
a ‘ OFILS C1 FB OF20 442 Trio *+85X*F Rt a OFEL 34 08 1006 S510 CKEACH ST XIT*3 «ARR : 
ne OFIC CO 87 OFIS 443 8 eG | OFES 34 01 1LOCE 511i ST RESTR14+3, XR1I *SAVE BOTH REGISTERS UNTIL 
OF20 C1 FO OF20 444 TIO eeXtFOP | OFES 34 O02 10D2 $12 ST RESTRZ243 -XR2 EXIT FROM SUBROUTINE 
2 OF24 Tl FSB OF24 445 T1G *,X*FE! po OFED CO 87 G2LA 513 8 PRINT *PRINT 
2 OF28 OC O1 1202 185D 446 MVC CMND(2) sONLYRD LOAD READ ONLY SECD INTO SS1 ; OFF! B61 OFFI 514 oc XL1°81° *DCBA8421 
OFZE CO 87 1008 447 8 ExIo 4 OFF2 1A OFF2 S512 oC ILi*26* 
OF32 OC O1 1202 1858 8 MVC =e CMND (2), FEEDCD LOAD FEED ONLY PRIM INTO SS1 OFF3 1874 OFF 516 oc AL2(HOLES} . 
€ OF38 CO 87 1008 449 8 EXxIo 7 OFF5 OC O1 1877 1860 5i7 MVC DAT A~-23 (02), BLANKS INITIALIZE COLUMN PRINTOUT COUNT 
OF3C OC SF LDSF 1ESF 450 MVC =—- BUFF #95, RDFD+95 (96) MOVE DATA CARO INFO. ENTO PRINT BUFF - OFFB 06 10 1877 1483 518 CONT AZ DATA~23(2),D1 019 ADD DECIMAL 1 TG COLUMN COUNT 
OF 42 3C 40 1DT7F 451 MYT BUFF4127,X"40* ; : 1001 6D CO O00 06 519 cLe O€1,XR1),900-XR2) *CK FOR AND BRANCH IF THIS 
€ OF46 OC 1E LOVE LDVF 452 NVC BUF F4126, BUF F4127(31) ‘ = 1005 2 01 13 529 JNE BADONE *COLUMN XS INCORRECT 
OF4C OC TF LDFF 1DTF 453 MVC BUFF 4+255(1283,BUFF+4127 HOVE BUFFER 1 INTO BUFFER 2 : 1008 OD 01 i877 ACI 521 ADDGNE CLC DATA-23 (2) o FOF6 *CK FOR ANO BRANCH 1F ALL 96 
OF52 oC G1 1202 1857 454 MVC CMND( 2) ,.PRTFD3 . LOOE F2 81 AE 522 JE TURN *COLUMNS HAVE BEEN CHECKEO 
€ OF5B 38 80 1202 455 WHICH TBN CMND, X*80® : 2 1031 D2 01 OF 523 LA 1¢0,XRL},XR1 
OFS5C F2 10 O7 456 JST TURNBI] . 1014 €2 02 O1 524 LA 1(eXR2Z} yXR2 
OFSF 3A 80 1202 457 SEN C&ND,X* 80°" 1017 CO 87 OFFB 525 & CONT BRANCH BACK TO CK NEXT COLUMN 
g OF63 F2 87 04 458 J GO . 3 526 
OF66 3B 80 12202 459 TURNBI1 SBF CHND,X*80°* oS S27 SHERRAKSEKARETESSAERER SEL HSER ECKRA KEES KEKE AE FS ALKESEAKSERAALHES LAKE SSE RRS 
edt OF6A CO 87 1LODB 460 GO 8 EXxio ; $238 * FIND AND PRINT ACTUAL CARD HOLE CONFIGURATION FOR THE * 
g OFGE CO 87 0212 461 B TEST : 3 529 * TWC BYTES WHICH WERE COMPARED AND FOUND TO BE OIFFERENT. * 
1 OFT2 CO 87 OFS5S 462 © 8 WHICH ; SOQ FEEKEKEALKAKKESKARKSKRAALHRALS LHRH KEL KEK ESSERE SKS SESH SKA HS ARK ERAS RK 
, 463 1018 34 01 1083 531 BADGONE ST RESTL43—XR1 *SAVE BOTH REGISTERS UNTIL EXIT FROM 
¢ GEOG THREES EEAEREEREESERSELERSAKE HKSAR IREKAKHEAKEKEKELHKKESK ALATA SEREEKEKEEKAS 2 101F 34 O02 1687 532 ST REST243_XR2 =PRINTING ACTUAL HOLE CONFIGURATION 
465 % RDY . 1023 C2 02 1863 533 CKEXP LA STABLE +XR1 LOAD ADOR CF COMP TABLE INTO XR1 
. 466 *% * 1027 3C OO 1C€66 534 MVI PLACE »X*00* INITIALIZE TABLE SEARCH COUNT 
€ 46T * SUBROUTINE TO DETERMINE IF THE PROPER FEED IS READY, PRINT AN * | 3 102B 60 06 090 $0 535 NEXT2 CLC OC1LeXR1i} Of eXRZ} *CK FOR AND BRANCH TF CHAR IN TABLE 
468 * ERROR MESSAGE tf IT IS NOT. AND LOGP UNTIL IT IS MADE READY. * : 102F F2 81 OD 536 JE BITSON *EQUALS CHARACTER READ 
G69 FREEKEEHEERER TEE SESERASEEAGHSAREEEAE LAE EEE ES ES EKE EGE EREEERERSRRER ATES ER | 1032 02 01 OF 537 LA 1(,XR1) XR? ADO ¥ FOR INDEXING THRU TABLE 
g OFT6 34 O08 OFEC 470 RDY ST OUT 243, ARR SAVE ARR FOR EXIT FROM SUBROUTINE ' 3 1035 OF 00 1046 LAAE 538 ALC PLACE(19~, ONE ADD 1 TO TASLE SEARCH COUNT 
’ OFTA 30 3 1C75 471i SNS WORK, X*F3# STORE THE STATUS INDICATORS 1038 CO &7 1028 539 8B NEXT2 BRANCH BACK TO CK NEXT CHAR JIN TABLE 
: OFTE 39 EO 1C75 472 TBF WORK, X*EO?* *CK FOR AND BRANCH IF vas 103F 38 O1 1A9B 540 BITSGN TEN FLAGS »FLAGT *CK FOR AND BRANCH IF 
¢ OF82 F2 90 58 473 JF OuT2 *—O CD, PU CK OR PU INVALID ERROR : = 1043 F2 10 Of 54} JT LOTAB *SECOND TIME THRU FLAG 7S ON 
| OF85 38 08 1201 474 TBN CMND~1,x*08" *CK FOR AND BRANCH i 1046 OC 01 1063 LAGE 542 MVC = PER TOD#3(2),ADATA ADDR OF DATA PRINTOUT INTO MVE INSTR 
OF89 F2 10 OT 475 JT CK2 *1F SECONDARY FD CMND 104C OC O1 106A IAQE 543 MYC ITSONE*#3 (2 )yADATA ADPR OF DATA FRINTOUT INTO MVE ENSTR 
: ¢ GF8C Cl FO OF9A &76 TIO CK3_X*FOF BR IF PRIM FD NGT RDY GOR ERROR } 2 1052 C2 01 1C66 544 LOTAB LA PLACE, XR ADOR OF TABLE SEARCH COUNT INTO XR1 
OF90 F2 87 4A &77 J ouT2 j 1056 3C OF 1058 545 aVI CKSONES1 2 X*O1* CHECKING BIT INTO TBN INSTR 
q 
. lg 
DATE O3N0V69 LOFEBTO L4&APRT0 29 JUN70 15NOVT70 ISMART71 30AUGT1 PROG 10 OF 02-6 | DATE O3N0VE9 1OFEBTO 148PR7O 29JUNTO 15N0V70 LS MARTI BOAUGTI PROG ID OFO2-6 
c EC NO. 816523 816592 816678 816704 818905 818962 818667 PAGE 4 €C NO. 816523 816592 816678 816704 818905 818962 818667 PAGE 4&A 
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5424 MFCU READ-PUNCH-PRINT TESTS F026 5424 MECU READ-PUNCH-PRINT TESTS 
} 
OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
78 60 00 546 CKSONE TBN Ol, XR1},t-s *CK FOR AND BRANCH IE | 8 114A 30 F3 1075 614 BSYBUF SNS WORK, X*F38 *LOOP UNTIL BUFFER 2 BUSY 
F2 10 O07 547 JT ITSONE *THIS BIT YS ON | L14E 38 40 1074 615 TBN WORK-1, x40? SDROPS BEFORE ISSUING SECOND 
3C 6B 0000 $48 PERIOD MYI wae. XHKBE INSERT . INTO PRINT AREA a 1152 CO 10 114A 616 BT BSYBUF *PRINT FROM SAME BUFFER 
F2 87 O4 549 J *4+7 ? 1156 F2 87 14 617 J DxXI02 
3C Fi 0000 550 ITSONE VI *—% XPOFE INSERT SYM IN PRINT AREA 1159 38 80 10DA 618 PRNTB81 TBN CMNDB4,x*80t *CK FOR AND BRANCH IF PREVIOUS PRINT 
OF O1 1063 iAKE 551 SLC PERI0D+43(2),ONE DECREMENT PRENT AREA ADOR FOR MMVI 1150 CO 10 1143 619 BT SETBUF *COMMAND WAS NOT FROM BUFFER 1 
OF 01 106A IAAE 552 StC ITSONE4+3(2),GNE DECREMENT PRINT AREA ADDR FOR HVI 2 2161 30 F3 1C75 620 PBI SNS WORK, X*F3* *LOOP UNTIL BUFFER 1 BUSY 
OF 50 1058 1058 553 ALC CRSONE4+1(1),CK40NE41 ODGUBLE MASK IN TBN INSTR 1165 38 86 1074 621 TBN WORK~1,X"# 808 *DROPS BEFORE ISSUENG SECOND 
29 FF 1058 554 TBF CK4ONES1,X*FES *CX FOR AND BRANCH IN ANY 1169 CO 10 1161 622 BT PB1 *PRINT FROM SAME BUFFER 
CO 90 105A 555 BF CK4ONE *BIT IS ON EN TEST RASK | & 1160 38 40 0204 623 OX1IG2 ‘TBN SBYTE2¢SNSWIL =CK FOR OPTION TO HALT AFTER EACH 
38 O1 1A98 556 TEN FLAGS »FLAGT *CK FOR AND BRANCH JE 1171 F2 90 06 624 JF DXi *COMMAND AND JUMP TF NOT ON 
F210 18 557 JT GETCOL *2ND TIME THRU FLAG IS GN 1174 CO 87 0222 625 B HALT 
3A OIF 1498 556 SBN FLAGS »FLAG7 TURN ON SECOND TIME THRU FLAG : 3 1178 FOFC 1179 §=626 DC XL2"*FOFOF 
CF O1 1063 1LABO 559 SLC PER IODs 362), FOUR DECREMENT PRINT AREA ADDR BY 2 | 117A 38 20 O26A 627 DX1l TBN SBYTE2, SNSW12 *CK FOR CPTION TO DELAY BETREEN 
OF O1 106A 1AB0 560 SLC ITSONE+3(2), FOUR DECREMENT PRINT AREA ADDR BY 2 j lL17E F2 90 22 628 JF EXL =COMMANDS AND JUMP IF NOT ON 
35 02 1083 561 t REST143,xXR2 LOAD ADDR GF EXPECTED DATA INTO xR2 cay 1181 30 00 1oDR 629 SNS MSEC »X*008 READ THE DATA SWITCHES 
CO 87 1023 562 B CKEXe BR BACK TO CK HOLE CONFIGURATION i 1185 3A 03 1008 630 SBN MSEC,X*O1? INSURE POSITIVE DELAY FACTOR 
3B 02 1A98 563 GETCOL SBF FLAGS «FLAG? TURN CFF SECOND TIME THRU FLAG 1189 26 FO 10B7 631 SBF MSEC-1,X* FOF TURN OFF HIGH ORDER & BITS OF MSEC 
CO 87 O21A 564 B PRINT *PRINT t 118D C2 02 0042 632 WT LA 66- XR2 LOAD 2 MSEC DELAY COUNT 
81 10AC 565 Dc XL1ite1e *COL. NO. ' 1191 36 02 1ABF 633 WTl A ALLF,XR2 SUBTRACT 1 FROM DELAY COUNT 
1A 10AD 566 DC IL1*z6# *EXPECTED AND 1195 CO 84 1191 634 BH wT LOOP UNTIL COUNT GOES TO ZERO 
188E 1OAF 567 DC ALZ2CDATA) *ACTUAL DATA 3 11°9 OF O21 10D8 LA&E 635 SLC WSEC(2),0NE SURTRACT 1 FROM WAIT FACTOR 
C2 01 1083 568 REST] LA £43,XR1 *KESTORE BOTH 1i9F CO 01 1180 636 BNE wT BR BACK UNTIL IT GOES TO ZERO 
C2 02 1087 569 REST2 LA *+3_XR2 *INDEX REGISTERS 11A3 CO 87 OFTS 637 EX1 B RDY GO CHECK FOR RDBY 
CO 87 1008 570 8 ADDONE + L1A7 3B 04 1A9B 638 SBF FLAGS »FLAGS TURN OFF PREVIOUS FD CK INDIC FLAG 
CO 87 O21A 571 TURN B PRINT *SPACE 11AB 3B 08 LASC 639 SBF FLAGS 1,FLAG14 TURN OFF PRIME REQUIRED FLAG 
16 10CO 572 oc xXL1'16# *ONLY LIAF 30 F3 1075 640 SNS WORK, X*F3& 
38 Llu 1A9SC 573 SBF FLAGS], FLAG13 3 1163 38 30 1C74 641 TBN WORK-1,X* 30? *CK FOR AND BRANCH IF THERE 
CO 87 0222 574 eB HALT L1B7 F2 10 2F 642 JT XECUTE *ARE CARDS IN WAIT 1 AND 2 
F026 10CA 575 TURN2 GC XL2°FO26! 116A 39 06 1291 643 TBF CMND-1,X"06* *CK FOR AND BRANCH IF NOT 
C2 01 10CE 576 RESTRI LA *+3,XR1 *RESTORE 80TH a l1BE F2 10 28 644 JT XECUTE *A PUNCH OR PRINT COMMAND 
C2 02 1002 577 RESTR2 LA *+43,XR2 *INDEX REGISTERS 11C1 38 O8 1201 645 TBN CMNO-1,X"08* *CK FOR AND BRANCH IF CMND 
CO 87 C000 578 XxIT 8 +—* EXIT SUBROUTINE ; 11C5 F2 10 10 646 JT HOP 2 *1S FRCM SECONDARY HOPPER 
579 ee 11C8 38 20 1074 647 TBN WORK-1,X*20# *CK FOR AND BRANCH IF 
580 REKALTKKKL KEKE SLES KAKA SKSES SESS SSSARALSHEKSETHRARAKSEKS KEKKTARKAK ATER KEKE KS LICC F2 10 1A 648 JT XECUTE *CARD InN WAIT ] 
581 * Ex10 * LICF OC 01 1202 1858 649 MVC CMND, FEEDCD(2) MOVE IN CMND TO FEED INTO WAIT 1 
582 * + | 1105 F2 87 OD 650 J PRIMIT 
583 * SUBROUTINE TO ISSUE COMMANDS AND CHECK FOR SUBSEQUENT FAILURES. 1108 28 10 1C74 o51 HOP2 TBN WORK-1,X*10* *CK FOR AND BRANCH TF 
584 RERAKSLELSESKESER SEK ASER SEARS SEKAKEARE RAHAT SERS KEKKE TA RKE RK KEKE KK KAAKRS KE HERKEAES i 110C F2 10 GA 652 JST XECUTE *CARD IN WAIT 2 : 
0000 1008 585 MSEC DC XL2*08 WAIT FACTOR AREA ' 3 LIDF OC O14 1202 1AC5 653 MVC CMND,FIRST2(2) MOVE IN CMND TO FEED INTO WAIT 2 
0000 10DA 586 CMNDBS DC XL2¢°08 PREVIOUS COMMAND SAVE AREA LILES 3A O08 LAST 654 PRIMIT SBN FLAGS 1,FLAGI4 TURN ON PRIME REQUIRED FLAG 
34 08 1251 587 ExIO ST GUT 843, ARR SAVE THE ARR FOR RETURN TO MAINLINE L1E9 31 FE 1AAS 655 XECUTE LiIO LDPU.XtFE® LOAD PUNCH AREA (DIAG) 
OC O1 1073 1202 588 MVC SAVIT,CMND(2) SAVE CMNO IN CASE OF PRIME NEEDED . L1ED 3C FD 11FD 656 AVI LIORD+1,X*FD!# MODIFY LIO TO DIAG READ 
CO 87 0212 589 8 TEST 11F1 3P 01 OAO3 657 CLI RNUM,»X*O1" *CK FOR AND BRANCH IF 
31 £4 1AA2 590 LIO LDPR,X*F4® LOAD PRINT AREA REG. L1LF5 F2 O01 04 658 JNE LIORD *NOT ROUTINE 1 
3B O1 1A9B 591 SBF FLAGS, FLAGT TURN OFF PRINT WAS NOT FROM SAME BUF £ LIES 30 FS LIFD 659 MVI LIORD+2,X°F5# MODIFY LIO TO NON DIAG READ 
39 FO 1201 592 TSF CMND—1, X" FO® *CK FOR AND BRANCH If THE FIRST FOUR 21FC 31 FO 1AA0 660 LIORD LIO LORD, X*FD* LOAD READ AREA (DIAG) 
F2 90 LA 593 JF cKeu *ARE NOT ALL ZEROS INDICATING DELAY ; i200 F3 00 00 661 EX2 S10 0:0 ISSUE THE COMMAND 
C2 O01 0042 594 DLY LA 66eXR1 LOAD 1 MILLISECOND DELAY COUNT . 8 1203 3C 40 1FFF 662 MVI PUCKFD+127 -X*4Q8 
36 O01 LABF 595 DLYL A ALLF,XR} SUBTRACT 1 FROM DELAY COUNT 1207 3C 40 LEFF 663 MVI ROC KFU+127 9 X*408 
CO 84 LOFC 596 8H DLY1 LOOP UNTIL COUNT GOES TO ZERO 1208 OC TE IFFE 1FFF 666 MYC PUCKFD4126,4 PUCKED4127(127) 
OF O1 1202 1AAE 597 SLC CMND-GNE(2) SUBTRACT 1 FROM WAIT FACTOR. a 1211 OC YE 1EFE EFF 665 MVC RDC KF D4+126,ROCKFD4127(127) 
CO 81 124E 5°08 BE OUTS BR OUT WHEN WAIT FACTOR GGES TO ZERO 1217 Cl FY 1233 666 TIG OX22,X*FT7# BRANCH IF ANY BUSY IS ON 
CO 87 1OFS 599 8 OLY BR BACK TO WAIT 1218 30 F3 1075 667 SNS WORK, X*F3E 
OC 10 1968 1969 6cO CKPU MVC PTCMNO-1,PTCMND(17) CLEAR COMMAND MESSAGE FIELD : 121F 38 02 iC75 668 TB8N WORK» X*02? *CK FOR AND BRANCH 
38 01 1201 601 TBN CMND-1,X"O1* *CK FOR AND BRANCH IF sos 1223 CO LO 1143 669 BT EX] *IF FEED CHECK 
F2 10 09 602 JT JUSTFD *FEED ONLY COMMAND ; 1227 CO 87 OFT6 670 B RDY GO CHECK FOR REAOY 
OC 04 195C 17A7 603 MVC PTCMND- 13, RCCT-S(5) PUT -READ INTO COMMAND MESSAGE = 122B CO 87 158B 671 6 STAT2 
F2 87 06 604 J #49 122F CO 87 11A3 672 B EX1 
OC 04 195C 1759 605 JUSTFD MVC PTCMNO—13,FCCT-9(5) PUT -FEED INTO COMMAND MESSAGE 1233 CO 87 1254 673 0X22 8 STATUS GO CHECK FOR PROPER STATUS 
38 04 1201 606 TBN CMND-1,xX*04! *CK FOR AND BRANCH IF NOT 3 1237 38 08 LASC 674 TBN FLAGS1,FLAG14 *CK FOR AND BRANCH IF PRIME 
F2 90 38 607 JF Ox102 *PRINT COMMAND 1233 F2 90 OA 675 JF GOON *REQUIRED FLAG IS NOT ON 
38 80 1202 608 TBN CMND,X* 808 *CK FCR AND BRANCH IF NOT 123£ OC O1 1202 1€73 676 MVC CMND, SAVIT (2) MOVE SAVED CMND IN FOR EXECUTION 
F2 90 1D 609 JF PRNTBL *PRINT FROM BUFFER 2 COMMAND 2 1244 CO 87 11A3 677 B EX1 
38 80 10DA 610 TBN CMNOB4,x*80t *CK FOR AND BRANCH IF PREVIOUS PRINT 1248 OC 01 100A 1202 678 GOON MVC CMNDB4(2),CMND “OVE CCPYMAND INTO CMND SAVE AREA 
F2 10 O7 611 JT BSY BUF *COMMAND WAS FROM BUFFER 2 124E CO 87 0000 679 GUTS 8 *—% EXIT SUBROUTINE 
3A 01 1A9B 612 SETBUF SBN FLAGS,FLAG7 TURN ON PRINT WAS NOT FROM SAME BUF a 
F2 87 23 613 J Ox102 | 
{ 
t a 
O3NO0V69 10FEBT70 14APR70 29J5UNT7O 15NOV70 ISMARTI Z0aAUGT71 PROG ID OFO2-6 DATE O3NOV69 1OFEB70 14A?R70 29 J5UNT7O 15NOV70 30AUGT1 PROG ID OF 02-6 
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PAGE 6 ce PAGE © 6A 
F026 S424 MFCU READ-PUNTH- PRINT TESTS 2 F026 5424 MFCU READ-PUNCH-PRINT TESTS 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
€ GEL SSCKSESER CESSES SHSTE SE HOH CHE ESERE HY CEKRSHSES EHGESES SSSHESE HERS ESSE VSESASEAE SESSRSS S 132B 30 F6 1€69 749 SNS PHCHAR, X® 6t STORE PUNCH ADDRESS REGISTER 
682 * STATUS , * 132F OD 01 1C69 1AA4 750 CcLe PNCHAR si DPUL2} *CK FOR AND BRANCH IF REGISTER IS 
6863 % = 1335 F2 81 13 751i JE CKSTEL *STILL AS ORIGINALLY LOADED 
€ 684 © SUBROUTINE TO CHECK FOR PROPER STATUS. * | = 1338 CO 87 O21A 752 INCOR 8B PRINT *PRINT 
SBS SECESESLSSSSEKSEGKSERS SESH HSRSSOS SEAS ERSESESESSS TOSSES SVSSE TRS KEKRS HES KOHHEASAS SESSSEE 133C C6 133C ¥53 oc XLE°C6® #-LSR INITIALLY INCORRECT— 
1252 8006 1253 686 WAT DC KL2*eou0® { a 1330 10 133D 754 oC TLi*29¢ * 
¢ 1254 34 08 IT1LE 687 STATUS ST GUTGt7T, ARR STORE RETURN ADDRESS : I33E 19F3 133F 755 oc AL2(BADLSR) % 
1258 36 01 271A 688 $T OUT943 KRE STORE INDEX REGISTER 1 1340 £027 1341 756 oC XL2*FO27® & 
iat 125C 3B F4 LAST 689 SBF FLAGS 1, x9FG? TURN BFF FLAGS 16512.12213 AND 15 7 1342 CO 87 0222 757 8 HALT 
€ 1266 C1 Fil 1268 €90 JIG PUCMRD: x*F1* I$ READ GR FEED BUSY se 1346 FO?2T 1347 758 oc XL2°*FO2T¢ 
1266 34 86 TASC 691 SBN FLAGS1,FLAG1O TURN ON NO READ-FEED BUSY FLAG 1348 F2 87 8D 759 J STORES 
2268 38 Q2 1201 632 PUCMHNOD TBN CMND~ 1. x*O23 *CK FOR AND BRARCH IF 1348 30 Fl 1T75 760 CKSTEL SNS WORK» X*F2? SENSE 
g so #2 OD @F 693 JF SETCUSE SHOT PURCH COMMAND | e 134F 38 02 iC 75 761 ¥3N WORK, X*O2Zt *CK FOR AND BRANCH EF PUNCH 
L26F Ci Fe L277 694 Tio SETPUCKTFEZ* 1S SUNCH DATA BUSY tee 1353 CO 10 1348 T62 BT CKSTEL *STEPPER CB IS STILL ON. . 
1273 3A 40 LACT 695 SBN FLAGS1, fi A611 TURN ON NO PUNCH BUSY FLAG < 41357 30 F3 1C75 763 NOTYET SNS WORK,XK*F3t *CK FOR AND ; - 
e L277 OC O05 1962 1L7BE 696 SETPU RYE PICHNO-7,PICT-St6) PUT -PUNCH INTO COMMAND HESSAGE | = 13258 38 06 1075 764 TRAN WORK, X* 06! *BRANCH IF 
1270 38 04 1201 O97 TBN CHND-1,X°O4? *CK FOR AND BRANCH IF | 125F CO 10 15F4 T65 BT CkiT *FD CK OR HOPPER CK 
1281 F2 90 CE 698 JF SETPT+6 NOT PRINT COMMAND | 1363 30 Fl ICTS 766 SRS WORK 2 X* Fl® SENSE 
€ 1284 CL F4 128C 699 TIG SETOT.X*F4! IS PRINT DATA BUSY = 21367 38 02 1C75 767 TBN WORK, X*02¢ *CK FOR AND BRANCH ITF PUNCH 
' : 2288 3A 20 LAGSC 700 SBN FLASS$1, FLAG1L2 JURN ON NO PRINT BUSY FLAG 1368 CO 90 1357 768 BE NOTYET *STEPPER CB BIT NOY ON YET 
are i128 OC 65 1968 1781 791 SETPT MVC PIC MAD~1,PTDATA~816}) PUT -PRINT INTO CONMAND MESSAGE L36F 38 02 OACC 769 TBN SPUDT »X*02? *CK FOR AND BRANCH 
€ 12962 30 £3 1C€75 7962 SNS WORK, X*F3! CK FOR AND i 1373 F2 90 OT 776 JF FAST *IF NOT LOW SPEED 
1296 38 02 IC 75 703 TaN WORK, X*O2¢ *BRANCH IF | 1376 35 01 LADI 771 L MSECO6,XR1 
| 1294 CO 10 25F4& 104 8T CKIT SFD CK 137A F2 87 04 772 J WAITL 
| z 129€ 38 EO ASE 705 T8N FLAGS1,X*EO* =CK FOR AND BRANCH IF - i370 35 01 LACE "73 FAST OL MSECO5yXR1 
1242 F2 98 32 706 JF STEAL FNO TIO ERROR FLAGS GN | 1381 30 F3 1C75 774 WAITL SRS WORK, X*F3° *CK FOR AND 
} 1245 38 80 LASC TOT TeN FLAGS 1,FLAG1O *CK FOR AND BRANCH IF MOT A ‘ 1385 38 06 1C75 775 TBN WORK »X* C6 =BRANCH IF 
: g 1249 F2 90 98 768 JF CKkil FREAD--FEED BUSY ERROR 1 é 3389 CO 10 1593 TT6 BT STORE *FD CK GR HOPPER CK 
| 12AC CO 87 O21A 769 B PRINT *PRINT : 138D 36 01 1ABF 777 A ALL F,XRL 
: 1280 01 1280 710 pe XLi‘O1! eG READ--FEED BUSY 1391 CO 84 1381 778 BH WAITL 
¢ 1281 12 i2B1 711 oC iiitiss * be oe 1395 Of 00 iC63 1AAE 779 SLC WORKI(1},ONE *CK FOR AND SRANCH IF ALL 32 CYCLE 
ae 1282 191E 1283 712 oc AL 2(8USY1) * Y 1398 F2 81 3A 780 JZ STORES *STEAL CHECKS HAVE BEEN MADE 
~ 1286 38 49 1A9C Fis C#il Te FLAGS1,. FLAGI1 *#CK FOR AND BRANCH IF NOT A if 139E OF OL LC6EB IAAE 781 ALC COMP(2} ,ONE INCREMENT r 
u i2e@6 F2 90 06 714 JF CKxi2 *PUNCH DATA BUSY ERROR i 7 13A4 30 F6& 1C69 782 SNS PNCHAR, X*F6?* STORE PUNCH ADDRESS REGISTER 
1268 CO 87 GO218A 715 8 PRINT *PRINT ‘ 1348 OD 01 1C6B 1C869 783 cLc COMP. PNCHAR(2) *CK FOR AND BRANCH IF PUNCH ADDRESS 
x 12BF OL 128F 716 DC XLE'O1* *NO PUNCH DATA BUSY a 13AE CO 81 1348 784 BE CKSTEL *REG HAS BEEN INCREMENTED BY 1 
i %. 12C0 12 12C0 «717 DC TL1*18* * : x 1382 F2 84 13 785 JH NOSTEL 
: 12€1 1930 i2C2 716 pc AL2(BUSY2) * 3. 1385 CO 87 OZI1A 786 EXTRAl B PRINT =PRINT 
ne 12C3 38 70 1A9C 7i9 CKi2 TBN FLAGS1,FLAGL2 *CK FOR AND BRANCH IF NOT A a 1389 Cé 1389 787 pc XLL®*csEt *-EXTRA CYCLE STEAL- 
€ 12C7 CO 90 13508 720 SBF STORE4 *PRINT DATA BUSY ERROR py 13BA 17 13BA 788 oc 1L1*238 * 
i 12CB CO 87 O2Z1A : T2i 8 PRINT =PRINT 1388 19D6 138C 789 Cc AL2CEXTRA? * 
T2CF OL 12CF 722 DC XL1*O1* *NO PRINT DATA BUSY . 1380 F029 13BE 790 DC XL2*FO298 * 
| 3 12p0 12 1200 723 oc ILi*1gs* * ‘ 3 13BF CO 87 0222 791 B HALT 
‘ 12D1 1942 1202 724 oc AL2(BUSY3) * a 13C3 F029 13C4& 792 oc XL2*F Ozer 
1203 CO 87 13D8 725 8 STORES : 13C5 F2 87 10 793 J STORES 
: 9 726 oe 13C8 CO 87 O21A 784 NOSTEL 8 PRINT *PRINT ot 
‘ T27 FeERAERSERERTE TH EFRKRECK SS CKRTEALETKERSE ES EKERSEREEEKHKE KEL RAKEKE SESE SERERE 13CC C6 13CC 795 pc XL1'C6? *-NO CYCLE STEAL- 
T26 * BEGIN CHECKING PUNCH CYCLE STEALS * | 13CD 14 13CD 796 oc ItLi*2o0* * 
: 2 729 SR are ee ae ee ae ESKER STE TERE SRER SS AAEKE RAKES KREKKESSE SESE KHKEKEKEREE S 13CE 198F 13CE 797 DC AL2ENOCYCL}I *& 
1207 38 02 120} 730 STEAL TSN CMND-1,X"02* *CK FOR AND BRANCH IF THIS IS 1300 F028 1201 798 oc XL2*FO28* * 
1208 CO 90 130C 732 BF CYCLE1 *NOT A PUNCH COMMAND ne wh 1302 CO 87 0222 739 3} HALT 
12DF OC 04 1908 1926 732 “VC BADLSR-24,BUSY2-10(5) : C 13D6 F028 1307 800 DC XL2*FO28*? 
1Z2E5 OC 04 19CA 1926 733 MVC EXTRA-12,B8USY2-10(5) : 1308 CO 87 1593 801 STGREG B STORE! 
12EB OC 04 1983 1926 734 KYvC NOCYCL-12, BUSY2-10(5) i 13DC 38 04 1201 802 CYCLE TBN CMND-1,x"04* *CK FOR AND BRANCH IF THIS 
1L2F1 3C 21 1C€63 735 MVI WORKI gX*21°* INITIALIZE COUNT FOR PUNCH in oS 13E0 CO 90 1501 803 BF CYCLE2 *IS NOT A PRINT COMMAND 
12FS 30 F3 1075 736 PRECEL SNS WORK, X*F38 *CK FOR AND 804 
12F9 38 06 1C75 737 TBN WORK sX*06* *BRANCH IF i SOS FHRAKRSSESSESEERESREKRARKERKSERRASRASSEAKAAAKHKASRHKER SEES SEKKSEKCEKKKKEKS AHS HKAKS ERA 
12FB CO 10 15F4% 738 eT CKitT ‘ *FD CK OR HOPPER CK Ts 206 * BEGIN CHECKING PRINT CYCLE STEAL * 
1301 30 Fl 1C75 739 SNS WORK, X* FILE *LOOP UNTIL PUNCH BOT FHKE EXKKES AKEKESAAESSEA KAS AAKKKS HTLRETRKESSLKELRKE AKKEREEREKHKEKALERESCAKESEKESE 
1305 38 80 1C75 740 TBN WORKsX*80# *REG. ROLL BIT 13&4 OC 04 19DB 1938 208 MVC BADLSR-24, BUSY3-10(53 
1309 CO 90 12F5 741 BF PRECEL *COMES UP ce 13EA OC 04 19OCA 1°38 809 MVC EXTRA-12, BUSY3-10(5) 
1300 30 F3 1C75 742 REGROL SNS WORK ,X*F3* *CkK FOR AND 13FO OC 04 1983 1938 810 NVC NOC YCL-12 eBUSY3-10(53 
1311 38 06 1C75 743 TBN WORK, X*06? *BRANCH IF 13F6 OC 01 1C6B LAA2 811 aVC COMP, LDPRC2) 
1315 CO 10 15F4 144 eT CKITt *FD CK OR HOPPER CK 2 13FC 38 20 1202 812 TBN CMND,X* 20° *CK FOR AND BRANCH 
1319 30 Fl 1C75 745 SNS WORK» X*F 18 2400 F2 90 O07 813 JF *410 *1F NOT 4 LINE PRINT 
1310 38 80 1C75 T46 TEN WORK,X*80t *CK FOR AND BRANCH IF PUNCH 1403 3C 08 1C€63 814 MVI WORK1 »X*08* 
1321 CO 10 130D 747 BT REGROL *REG ROLL BIT IS ON pee 1407 F2 87 04 815 J +47 
1325 OC O1 1C6B LAA4 748 AVC COMP,LOPU( 2) 140A 3C 06 1C63 816 avI WORK1 »X*06* 
S 5 
DATE O3N0V69 10FEBT70 14APR70 29J5UNTO 15NCV70 1SMART1 30AUGT1 PROG ID OF 02-6 DATE O3NOVS69 1OFEBTO 14APRTO 29IUNTO 15NOV70 15MART1 Z0AUGT1 PROG ID OFO2-6 
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PAGE 7 | PAGE 7A 
F026 5424 MECU READ-PUNCH-PRINY TESTS ‘ c FOZ26 5424 MFCU READ-PUNCH-PRINT TESTS 
ERR LOC CRJECT CODE ADDR STMT SOURCE STATEMENT i ERR LOC GBIJECT CODE ADOR STMT SOURCE STATEMENT 
C I40E 30 Fé 1€69 817 SNS PNCHAR,XtFat STGRE PRINT ADDRESS REGISTER H 3 1526 30 FS 1C69 885 SNS PNCHAR, X*F5* STORE READ AREA ADDRESS REGISTER 
: 1412 OD O1 1€69 1LAAZ2 818 c.c PNCHAR,LDBPR(2 } *CK FOR AND SRANCH IF REGISTER | 1524 OD O1 1069 1AA0 886 cite PNCHAR,LDRD(2) *CK FOR AND BRANCH IF REGISTER 
21418 CO 01 1338 819 BNE INCOR *FS NOT AS GRIGINALLY LOADED | 1530 CO O1 1338 887 BNE INCOR *3IS NOT AS OREGINALLY LOADED 
C 141C 38 80 1262 $20 TBN CMND,X* S80? =CK FOR AND BRANCH IF NOT | 3 15324 3C 20 1C€63 888 VI WORK1,X*Z0° 
1420 F2 90 18 821 JSF HAM SPRINTING FROM SUFFER 2 | 1538 OC O1 1C72 LABF 88S WAITS MVC WATT, ALLE(2) RE-INITIALIZE WAT FACTOR COUNT 
7423 OF O21 1€68 LABD 822 ALC COMP, ONEZE (2) SETUP TO CK FOR BUFF 2 LSR CONTENT i 1536 30 FS 1Ccéc B90 KICK SNS SAVE, X*F5* STORE READ AREA ADDRESS REGISTER 
Cc 1429 OF O1 1€69 LABD 823 ALC PNCHAR, CNEZ8 (2) : § 2542 OD Gi 1C6D icté69 . BOE cic SAVE, PNCHAR (2 5 +CK FOR AND BRANCH 
142F 320 Fe 1C60 824 WATTON SNS SAVE sX*FS? =| 1548 F2 01 19 8o2 JE HILO2 *1F ETF HES CHANGED 
1433 356 00 1Cé6D 825 cil SAVE, X*00* - : 1548 20 F3 1C75 893 SNS WORK,X*F3* *CK FOR AND 
c 1437 CO 82 142F 826 BE WAT TON | 3 154F 38 06 1C75 294 T8N WORK,X*06? *BPANCH IF 
1438 38 62 OAOT B27 HAM TBN SPU0T.x*®02* *CK FOR AND BRANCH IF a 1553 Fe 10 3D sss JST STDGREL *FD CK OR HOPPER CK 
143F F2 90 25 828 JF HAMER] *NOT 6 HAMMER PRINTER 4 1556 OF O1 1C71 LAAE 896 Stic WATT(2),QNE 
. 1442 3C LO 4489 &29 AVE NINTEN,X* BDF i 8 155C CO O12 153E 897 BZ KICK 
1446 3C IC 1487 B30 MVI EIGHTN,X*iCc* : 1560 CO 87 13C8 898 i) NOSTEL 
1444 38 04 GOADC 831 TEN SPUDT »K° O04? ' 1564 OB OL 1C68B 1C6D 899 HEILO2 CLC COMP, SAVE(23 CK FOR PROPER LSR INCREMENT 
c 144E F2 90 OF 832 JF *47 | & 156A CO. 84 13C€8 900 6H NOSTEL BRANCH TO PRINT NO CYCLE STEAL 
1451 3C 18 iA8S7 833 MVI EIGHTN,X*1B! | 156E CO 82 1385 ool BL EXTRAL BRANCH TC PRINT EXTRA CYCLE STEAL 
1455 3C oc 1C63 834 MVY WORK] -X*OC?* INIT FOR 8 HAMMER 3 LINE PRINT 1572 OF OO 1€63 IAAE S02 SLC WORK1 (13 ,0NE *CK FOR AND BRANCH 
€ 1459 38 20 1202 &35 TBN CMND, XK* 2u* =CK FOR AND 8RANCHK | z 1578 F2 81 18 $03 JZ STOREY *IF DONE 
1450 F2 90 OF 836 JSF HARKER *IF NOT & LINE PRINT . 1578 oC OL 1069 1Cé6D 904 MVC PNTHAR, SAVE(2) SAVE LSR FOR CHANGE COMPARE 
1460 3C 10 1C€63 837 MMVI WORKI,ZX*1G# INIT FOR 8 HAMMER 4 LINE PRINT : 158i OE GO 1C6B 1AAE sos ALC COMP(1) «ONE UPDATE TO NEXT EXPECTED 
€ 1464 F2 87 08 838 J HAMER _ g 1587 CO 87 1538 906 8 WAITS 
1467 3C 1F 1lABS 839 HAMERIT MVI NINTEN,X*®1F® j 907 
2468 3C LE 1AB7 840 aVI EIGHTN, X*1E* if OO8 KFFSKKESSSKSSASE SETHE RSA RAHERESARASEDEASERS*RESTHSEKH SLES RHE HHS SEES STEERS 
€ 146F O€ O1 1C6B TAAE 841 HAMER ALC COMP, CNE(2) 3 sag = ENTRY POINT FOR CHECKING STATUS ONLY + 
1475 38 04 1A9T 842 SBF FLAGSI,»FLAGL5S TURN OFF WAS 19 INCREMENT FLAG Q1O KHKSESASHEASE SASHA HAAS HAH ESHKE REE KEEL YS EESKEK EEKHKAELAKH SLA KTR ALE EKLER SE 
1479 OC O1 1C71 LABF 843 WAITUP MVC WAIT, ALLF(2) RE-INITIALIZE WAIT FACTOR COUNT 1588 34 G@ LTVIE ShL1 STAT2 ST QNUTS+7, ARR STORE RETURN ADDRESS 
€ 147F 36 F4& iCéD 844 KAMPER SNS SAVE,X*F4&?* STORE PRINT ADDRESS RESISTER i § 1S8F 34 O1 L7LA $i2 ST CUT94+3,XR1 STORE INDEX REGISTER 1 
1463 OD O1 1C6D iCé69 845 etc SAVE, PNCHAR(2) =CK FOR AND BRANCH ; 1593 oc 61 1C75 1253 913 STOREL MVC WORK(2)5 WAT SETUP WATT COUNT 
1489 F2 Ol 1A 846 JNE HILO *IF IT HAS CHANGED | 1599 Ci FT 1580 S14 ANY TiS DECT,X* 78 BRANCH IF ANY BUSY ON 
C 148C 30 F3 1C75 847 SNS  WORK,X*F3° *CK FOR AND ; & 159D F2 87 LF o15 J STORE 
3490 38 06 1C75 848 TBN WORK, X*O6° =BRANCH IF ESAO OD O12 1C75 LAAC 916 DECT CLC WORKOZ)¢ ZERD *CK FOR AND SRANCH IF 
so . 1494 CO 1¢ 1593 849 BT STORE1 *FED CK OR HOPPER CK 15A6 F2 81 OA 917 JE BBIT END OF WAIT COUNT 
c 1498 OF O1 ILCT1 LAAE 850 SLC WAIT(2),GNE *CK FOR ANO BRANCH IF WAIT = 15A9 OF O01 1C7S TAAE 918 SLC WORK(2},0NE SUBTRACT 1 FROM WAIT COUNT 
149E CO O01 147F 851 BNZ HAMPER * ACTOR HAS NOT GONE TG O ue 1SAF CO 87 1599 919 B ANY 
si 14A2 CO 87 13C8 852 8B NOSTEL BRANCH TO PRINT NO CYCLE STEAL 4 1583 CO 87 O21A 920 BBIT 8 PRINT * PRINT 
M 14A6 OD O1 1C6B 1C6D 853 HILO cLCc COMP, SAVE( 2) CK FOR PROPER LSR INCREMENT 4 = 1557 O12 1sB7 921 oc XLL"OL® *BUSY DID NGT DROP 
14AC CO 84 13C€8 854 8H NOSTEL BRANCH TG PRINT NO CYCLE STEAL 1 1588 11 1588 922 oc IL1L*378* * 
1480 CO 82 1385 855 BL EXTRAl BRANCH TO PRINT EXTRA CYCLE STEAL j 1589 1953 15BA 923 DC AL 2(NGDROP) * 
¢ 14B4 0C 01 1€69 1C6D 856 wvC PNCHAR, SAVE(2) SAVE LSR FOR CHANGE COMPARE i ¢ 15BB 3A 10 LAST 924 SBN FLAGS1,FLAGI3 TURN ON SPACE REQUIRED FLAG 
14BA OF 00 1CE63 1AAE 857 SLC = WORK 119 ,ONE | 15BF 38 O& 1201 925 STORE T3N CMND-1yxX*04" *CK FOR AND BRANCH 
14C0 F2 B81 DO 858 JZ STORE1l BRANCH OUT IF LAST ONE ALLREADY CKED i 15C3 F2 90 2E S26 JF CKIT *IF NOT A PRINT COMMAND 
€ 14C3 38 02 OAC 859 TON SPUDT -X*02* *CK FOR AND BRANCH IF ? 35C6 30 F3 1C75 927 STGRE2 SNS WORK,X* F3* *#CK FOR AND 
14C7 F2 90 08 860 JSF CGUNT1 *NOT 8 HAMMER PRINTER Zs 15CA 38 06 1C75 928 Ten WORK 9 X*O06* *BRANCH IF 
Beis 14CA 36 03 1C6B 661 TBN COMP,x?O3° *CK FOR AND BRANCH TG ADD 1 TO COMP } “8 ISTE F2 10 23 929 JT CKIT *FD CK OR HOPPER CK 
€ 14CE CO 90 146F 862 BF HAMER *UNLESS LAST DIGIT OF COMP IS 3 ; 2 15D1i 39 CO 1C74 930 TSE WORK—1- X*CO* WAIT FOR BUFFER BUSY 
14D2 3D O01 1C€63 863 COUNTL CLI WORKI,»X*Ol1® *CK FOR AND SRANCH IF LAST ‘ 1505 Co 90 15C6 931 BF STORE2 TG OROP 
1406 F2 81 16 864 JE FORGR3S *CYCLE STEAL IS COMMING UP ‘ 15D9 OC O1 1C71 LABE $32 MVC WAIT,ONEZ8+41 (2) LOAD WAIT FACTOR 
c 1409 38 04 LASC 865 CK15 TBN FLAGSI,FLAGLS *CK FOR AND SRANCH IF LAST LSR 1 & SDF 30 FL IC75 933 INJECT SNS WORK ,X*FL* *WAIT UP TO 
14DD CO 10 146F 856 BT HAMER *COMPARE AREA INCREMENT WAS 19 : 15E3 OF O1 1C72 LAAE 934 SLC WAITEZ) ZONE *.9 SECOND 
14E1 OE O1 106% TABS 867 ALC COMP, NINTEN(2) ADD NINETEEN TO LSR CCMPARE AREA i 1SES F2 81 08 935 JZ CKIT *FOR PRINT 
. 14E7 3A 04 LAS 868 SBN FLAGSI,FLAGL5S TURN ON WAS 19 INCREMENT FLAG : 2 1T5EC 28 10 1CT4& 936 TEN WORK-1, X* 108 *INJECT CB TO 
14E8@ CO 87 1479 869 8 WAI TUP i 15FO CO 90 1SDF $37 BF INJECT *COME UP 
: 14EF 38 20 1202 870 FOROR3Z TBN CMND, X* 20° { 15F4 OC O1 1617 LAAG 938 CKIT MYC MSGADD, AREAD(2} *INITIALIZE TO 
* 14F3 CO 90 1409 871 BF cCK1s . § 15FA 3C ©O1 160A $39 MVE CHECKIL414£,X*01° *®CHECK ERROR BITS 
14F7 OF OL 1C6B LAB? 872 ALC COMP ,EIGHTN(2) ADD EIGHTEEN TO LSR COMPARE AREA : L5FE 30 F3 1C75 246 SNS WORK, X#F3¢# 
14FO CO 87 1479 873 8B WAITUP ; 1602 39 FF 1C75 941 TBE WORK, X* FF? *CK FOR AND BRANCH 
z 1501 38 OL 12201 874 CYCLE2 TBN CMND~-1—9X*°O?" *CK FOR AND BRANCH IF THIS : z 1606 F2 10 36 942 JT CKCK *#1F NO ERRORS 
1505 F2 90 8B e75 JF STOREY *1S NOT A READ COMMAND 1609 38 00 1C75 943 CHECK] TBN WORK,*-* *CK FOR ANO BRANCH IF THIS 
876 | 1600 F2 90 OC 944 JF UPDATE *ERROR BIT IS NOT ON 
¢ OTT FKERAKHARSEEARATAESSEETERAERERES ESSE ESSEREKERERSEK EK SEE KSERKSEREKEKERSSRES ESSERE 86 BH 1610 CO 87 G21A 945 8 PRINT *PRINT 
878 * BEGIN CHECKING KEAD CYCLE STEAL. * 1614 01 1614 C&G oc XL1°O1° ERROR 
STQ SEKSEKARELEEKESEKEREASESESRESD SEER ATS EE SAKSEES KLEE SKSEKAE KSEE ESKER EESEE CESSES — | 7 1615 OD 1615 947 oc ILbL*13° *4MESSAGE 
€ 1508 OC 04 1908 1913 880 MVC BADLSR- 24, BUSY1-11(5) 2 1616 1755 1617 948 MSGADD DC AL2(NOOP) * 
! 150E OC 04 19CA 1913 681 MVC EXTRA-12,8USY1-11(5) ; 1618 3A 10 LASC 949 SBN FLAGS1,FLAGL3 TURN ON SPACE REQUIRED FLAG 
1 . 1514 OC 04 1983 1913 882 MVC NOC YCL--12 ¢-BUSY1-11 (5) ; 161C OF O1 1617 LABS 950 UPDATE ALC MSGADD,DEC18(2) INCREMENT PRINT AREA ADDRESS 
( € 151A OC O2 1C6B LAAO 883 MVC COMP, LDRD(2) 8 1622 GCE 00 160A 160A 951 ALC CHECK 14¢1(01),CHECK1¢1 DOUBLE MASK IN INSTRUCTION 
tee 31520 OF OO 1C6B 1AAE 884 ALC COMP( 12) ,ONE 1628 39 FF 160A 952 TBF CHECKL€1,X° FF? *CK FOR AND BRANCH IF ANY 
€ ? 
DATE O3NOV69 1OFEBT7O 14APRT0 Z29JUNTO 15NOV70 1SMART71 30AUGT1 - PROG ID OFO2-6 DATE O3NOV69 1OFEB70O 14APRT70 295UNT7O 15NOV70 1SMARTIL 20AUGTI PROG ID OFO2-6 
—€C NOw 816523 816592 816678 8167046 818905 818962 818667 PAGE 7 EC NO. 616523 816592 816678 816704 818905 818962 B1E66T PAGE TA 
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18M MAINTENANCE DIAGNOSTIC PROGRAN 


F026 5424 AFCU READ-PUNCH-PRINT TESTS 


ERR LOC OBJECT CODE 


162€ 
1630 
1634 
1637 
1638 
16BF 
1643 
LG&E 
L6GT 
Loar 
1653 
1656 
165A 
1658 
1661 
1662 
1663 
1665 
1667 
1668 
166C 
166E 
1676 
1674 
1675 


1676 


1678 
167A 
L6OTE 
1682 
1686 
168A 
1680 
1691 
1694 
1698 
1699 
169A 
16%% 
169E 
16A2 
16A6 
16A9 
isaF 
1682 
1686 
16B9 
1680 
1é6BE 
16BF 
16C1 
16C3 
16C7 
16C8 
16CA 
16CC 
16p0 
16D1 
1602 
16D4 
1606 
16DA 
16DE 
16E2 
16E6 
16E9 
16EO 
16FO 


DATE 
Ec nO. 


co 
38 
F2 
3a 
coe 
38 
F2 
oD 
F2 
38 
F2 
3D 
F2 
ce 


Fe 
38 
F2 
co 
C1 
16 


$0 
oz 
90 
os 
8T 


18C5 
Fell 


co 
01 


87 


1FOO 
185A 


co 
ci 
22 


87 


185A 
FO26 


C2 
C2 
3c 
co 
F2 
38 
F2 
co 


02 
ol 
26 
87 
87 
40 
90 
87 


1609 
ic7s 
08 

1A98 
LOFE 
1201 


OZ2IE 


O21A 


1£80 
1EOO 
16CA 
OFEL 
15 

1075 
OF 

G21A 


O21E 


O21A 


O3NOV69 
816523 


LESF 


LFDF 


ADOR STMT SOURCE STATEMENT 


1661 
1662 
1664 
1666 


2668 
1669 
166F 


1674 
1675 
1677 
1679 


1698 
1699 
1698 
169D 


1680 
16BE 
16C0 
16C2 


16CT 
169 
16CB 


1600 
1601 
3603 
1605 


1OFEBTO 


816592 


9$3 
754 
955 
586 
O57 
958 
959 
S68 
961 
962 
963 
ad 
985 
966 
967 
966 
969 
970 
971 
972 
973 
974 
975 
S76 
977 
97° 
975 
980 
982 
982 
983 
9B4 
985 
986 
987 
988 
989 
990 
$91 
992 
993 
994 
995 
996 
997 
$98 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 


EKCK 


PRINT? 


CKROCK 


CKPUNH 


PRINT2 


CKPUCK 


14APR70 
816678 


BF CMECKI 

TEN WORK, X*G2* 
SF CKCK 

$8h FLAGS» FLAGS 
8 SPATE 

TEN CMNC~1,K%*O1! 
JF CKPUNH 

cite RDF B+95 eROCKFED+95 (96) 
JE CKRBT K. 

FEN WORK, X* BQe 
JT PRINTL 

eLi RNUA, X*Oi® 
dE CK UAH 

a PRINT 

bc KL1°Ci* 

BC FLA*22° 

BC AL 2(UNDEL) 
BC XL2*FO11* 

8 UNE ACK 

bc ILi*1¢ 

BC AL2 CROFD) 

BC AL 2{RDHEAD) 
8 PRINT 

Bc XLi*Cc1® 

oc IL1*36# 

oc AL2 (RBMEAD) 
ac XL2"F O26" 

LA RBCK FD, XR2 
LA ROFD,XRI 

YI TURNZ 40 9X * 26% 
8 CKEACH 

J CKPUNH 

TBN WORK, K*8oF 
JF CKPUNH 

8 PRINT 

oc XLI‘Cci? 

oc TL1*20° 

BC ALZ(FALSER) 
oc XL2*FOLU 
SBN FLAGS 1,FLAGI3 
TBN CMND~1.X*025 
JF SPACE 

cre PUFDt95 » PUCKF D495 ( 96) 
JE CKPUCK 

TBN WORK, X* 408 
JT PRINT2 

B PRINT 

oc xLifcie 

oc IL1L#22¢ 

oc AL2 (UNDE2) 
oC XL2"FOl11° 

8 UNPACK 

oc ILie1¢ 

boc AL2(PUFD) 

oc AL2 (PUHEAD) 
B PRINT 

oc XL1‘*C1* 

oc ILL*34¢ 

OC AL2(PUHEAD) 
oc XL2°FO26* 

LA PUCKFD, XR2 
LA PUF Ds» XR1 

MMVI TURN240,Xx*26* 
8 CKEACH 

J SPACE 

TBN AORK » X* 40" 
JF SPACE 

8 PRINT 
29JUN70 15NOV70 
816704 818905 


PART NO. 


2589734 
PAGE 8 


SST 7S ON IN TEST MASK 

*CK FOR AND BRANCH 

*IF NOT FEED CHECK 

TURM ON PREVIDUS FD CK INDICATOR 


*CK FOR AND BRANCH IF 
SNOT READ COMMAND 
CK FOR AND BRANCH IF READ 
*FIELD EQUALS READ CHEEK FIELD 
*CK FOR AND BRANCH IF 
READ CHECK 
*CK FOR AND BRANCH 

SIF RIPPLE PUNCH TEST 
SPRINT 

UNDETECTED READ CHECK 

* 

Ca 


SUNPATK CARD 

ZRURBER AND 
PLACE IN 
*#MESSAGE 

SPRINT 

COL. READ AREA RD CK AREA CH KX 
* 


* 


*LOAD REGISTERS CGR USE 
*EN CTKREACH SUBROUT INE 


GO CHECK EACH BYTE 


CK FOR AND BRANCH 

*IF NO READ CK 

SPRINT 

FREAD CHECK WAS FALSE 
* 


* 
* : 
TURN ON SPACE REQUIRED FLAG 
*CK FOR AND BRANCH IF 
*NOT PUNCH COMMAND 
*CK FOR AND BRANCH IF PUNCH 
*FIELD EQUALS PUNCH CHECK FIELD 
*CK FOR AND BRANCH 
*IF PUNCH CHECK 
PRINT 
*UNDETECTED PUNCH CHECK 
* 
* 


*UNPACK CARD 
*NUMBER AND 
*PLACE IN 
*MESSAGE 
*PRINT 
*COLe PUNCH AREA PU CK AREA CD Xx 
* 


® 


*LOAD REGISTERS FOR USE 
*IN CKEACH SUBROUTINE 


GO CHECK EACH BYTE 


*CK FOR AND BRANCH 
*IF NO PUNCH CK 


*PRINT 
30AUGT71 PROG ID OF 02-6 
818667 PAGE 8 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


o 


F026 
ERR LOC 


3 16F4 
1 16FS 
se 16F6 
16F8 
LOFA 
16FE 
3 1702 
17035 
1709 
$ 170C 
1710 
171i 
3 1715 
1717 
1718 


2? , 


8 IVF 

1725 

1728 
b 4 1 72F 
1733 
1737 
1738 
174i 
1745 


oe” 


ta 


1749 
1751 
1756 
L75E 
1763 
z 1768 

1770 

1778 
3 177) 

1785 

178A 
z 1792 
1797 
179F 
17AG 
V7AC 
1781 
1789 
17C1 
17C9 
ve L701 
1709 
- 17DF 
> 17E7 

17EF 

17F5 
? 17FD 
1805 
180D 
1815 
1817 
181F 
1827 
182F 


“of 


39 


ty 


@ dp 


° 


DATE 
EC NO. 


@ @ 





OBJECT CODE 


ci 
i5 
i97E 
FOIE 
3A 10 LAST 
38 16 LAST 
F2 90 12 
38 10 0208 
F2 10 05 
CO B87 O2Z1A 
16 

CO 87 
FOIL 
C2 O1 
co 87 


0222 


06000 
ooco 


oc FE 
04 OL 
3B 80 
Co 87 
BA 80 
CO 87 
OT 10 
CO 84 
CO 37 


LDFE 
IBSF 
1202 
1608 
1202 
1008 
LB SF 
1728 
0216 


LDFF 
1aB2 


1860 


05066 CD6D 7404040 
4040404040 
C6C5C5C4460C3C8C5 
C3D7404040 
C8D6D7D7C5D940C3 
C8C5C3D240 

D7D9E 340C 303E4E3 
C3C840C3D2 
D7D9C 9D 5E340C4C1 
£3C140C3D2 
O7E4D5C 3C 8400905 
E5C1D3C9C% 
D7E4D5C3C840C3C8 
C5C3D24040 
D9C5SC1C440C3C CS 
C302404040 

D507D 9DE40C 2D6E3 
CB840CEC5C5C4E260 
D7EGE34 OE TETETET 
EVTETET40C3C1D9C4 
E240C 9D54 0E 7ETET 
ETETETETETE? 
40C8DEDTD7C50940 
C105C440D4C102C5 
GODICSC1C4EB 
C306D34B4040C5 ET 
D7C5C 3E3C 5C44040 
C1C3E3E4C 1034004 
C1£3C1406400306440 
EVET 
C306034840D9(5C1 
C4404 0C 1D9C5C140 
40D9C440C3D24001 
D9C5C 1404003440 


O3NOV69 
816523 


1LOFEBT 
816592 


ADDR 
16F4 
16F5 


16FT 
1L6FS 


1710 


1726 


1755 
‘762 
1T6éF 
177 
1789 
1796 
17A3 
17B0 


L7DE 


1TF4 


1816 


1838 


0 


5424 MFCU READ-PUNCH-PRINT TESTS 


STMT SOURCE STATEMENT 


PART NO. 
PAGE 


2589734 
ry 


1021 oc XL1°CA¢ “PUNCH CHECK WAS FALSE 

1022 Bt ILL¢21° * 

1023 DC AL2(FALSEP) * 

1024 oC KL2*FOLIE % 

1025 SBN FLAGS1,FLAGI3 TURN ON SPACE REQUIRED FLAG 

1026 SPACE TBN FLAGS1,FLAGL3 *CK FOR AND BRANCH IF 

1027 Jf oUTS *NO ERROR PRINTOUTS 

1028 TBN SBYTEO.SNSWO3 *BYPASS SPACE IF BYPASS 

1029 ST PASS *ERROR SWITCH IS ON 

1020 B PRINT *SPACE a 

1031 pc KLIS 16? ®ONLY 

1032 PASS B HALT *HALT UNLESS BYPASS ERROR 

1033 ot RL2*F0R1 *HALT SWITCH FS ON 

1034 BUTS LA tendty XRT RESTORE xXR1 

1035 B mt 

1036 

LOB? SPSHESSECSKHEKRAKASSAESERKAKEKAS KS KSEKKS SKKRLTSEKACAKHKSKCKEKRS KEKE HEE KES eK HoH Ke 
1038 * PRTALL * 
1039 # * 
1040 * SUBROUTINE TO PRINT 10 CARDS FULL OF THE SAME CHARACTER. % 
LOG] SHESESSELESESSSSELEKKEAASE SERRE SARABERLERSEHKSEKEREKEKELAKTS KES HASACAAKSSLERKSES HSH 
1042 PRTALL MVC BUFF 4254(255),BUFF4255 FILL BOTH BUFFERS WITH CHARACTER 
1043 ZAZ  CDCNT(2),FIVE(2) SET CARD COUNTER 10.5 - 

1044 LOOPS SBF CMND,Xx*80° SET CCMMAND TO BUFFER 1 

1045 B EXxI0 

1046 SBN = CMNND» X* 80° SET COMMAND TO BUFFER 2 

1047 8 EXIO 

1048 SZ CDCNT(2},PLUSI 11) *SUBTRACT ONE FROM CARD COUNT 

1049 BH LOOPS *AND BRANCH IF NOT ZERO 

1050 8 LINK 

1051 

LO52 SeSSESSEEESSESASEAKSSEREARSSRALASSESPREKRAKSRSE RE KES TEKAKAS EES TEEALRELKSE AST SETH 
1053 ® MESSAGES ® 
LO$64 SSRESEAASE SS REST ASE SS SEE KEKRESSESS SKS ASLESKAESEREAS SESSEKE KEES SERPS SULAKEPESSE KH 
1055 NOCP DC CL13* NO-OP 

1055 

1056 FCCT oC CLi3*FEED CHECK 

1056 

1057 DC CLI3*HOPPER CHECK * 

1057 

1058 pc CLI3"PRT CLUTCH CK 

1058 

1059 PTDATA 0C CLI3*PRINT DATA CK* 

1059 

1060 PICT DC CLI3*PUNCH INVALID? 

1060 

1061 DC CL13"PUNCH CHECK 

106E 

1062 RCCT o0¢ CL13*READ CHECK 

1062 

1063 oC CL4&6*NPRO BOTH FEEDS—PUT XXXXXXX CARDS IN XXXXXXXXX® 

1063 

1063 

1063 

1063 

1063 

1064 INSTL DC CL.22* HOPPER AND MAKE READY? 

106% 

1064 

1065 HEADNG DC CL34°COL. EXPECTED ACTUAL DATA CD Xx® 

1065 

1065 

1065 

1065 

1066 ROHEAD DC CL34°COL. READ AREA RD CK AREA CD Xx? 

1066 

1066 

1066 

14APR70  _29JUNTO 15NOV70 ISMARTL 30AUGT1 PROG ID OF 02-6 
816678 816704 818905 818962 818667 PAGE 8A 
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18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 
PAGE 
F026 5424 MFCU READ-PUNCH-PRINT TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
€ 1837 EET. 1066 
1839 C3D6D34840D7E4D5 185A 1067 PUHEAD OC CL34*COL. PUNCH AREA PUCK AREA CD Xxe 
i: 1841 C3C840C 1D9C5C140 1067 
€ 1849 4007E440030240C1 1967 
1851 D9C5C 14040030440 1067 
1859 ETE7 1067 
¢ 1858 404040404060 1860 1068 BLANKS BC cLet s 
1861 C4C3C2C1FSFSE2F1 1874 1069 HOLES OC CL20* OCBAB421 DCBAB421¢ 
1869 40404040C46C3C2C1 106$ 
¢ 187i FBFSF2ZF1 1069 
1875 40404040404604848 188E 1070 DATA 01 CL26" Exe ewews wevsewee® 
187D 4B4B484B4B484040 | 1070 
£ 1885 4040484846486 868 1070 
188D 4848 1070 
18BF D6C6CZE440DSD6E3 189A 1071 INS] DC CL12°*MFCU NOT RDY* 
t= 1897 4O0D9C4E8 1071 
1898 E4DSC4C5E3CSC3E3 1BAF 1072 UNDEL DC CL21°UNDETECTED READ CHECK® 
18A3 C5C440D9C5C1C440 1072 
€ 18AB C3C8C5C302 1072 
1880 E4D5C4C5E3C5C3E3 18C5 1073 UNDE2 oC CL22*UNDETECTED PUNCH CHECK® 
4 18B8 C5C440D7E4D5C3CB 1073 
€ 18C0 40C3C8C5C3D2 1073 
18€5 D507090640C2D6E3 1805 1074 BC CLI6*NPRO BOTH FEEDS-8 
18CE C840C 6C5C5C4E260 1074 
€ 18D6 D4&C1O2C540C2D6E3 18£E 1075 DC CL25*MAKE BOTH MFCU FEEDS RDY.* 
18DE C840D4C6C3E440C6 1075 
18E6 CS5C5C4EZ40D9C46E8 1075 
€ 18EE 48 1075 
18EF sOE6CSE3SCB840C1E3 190C 1076 INS9 DC CL30* WITH AT LEAST 100 BLANK CARDS* 
18F7 40D3C5C1E2 E3460FL 1076 
€ 18FF FOFO40C2D3C1D5D2 1076 
1907 40C3C109C4E2 1076 
ce 190D D050640D9C5C1C460 191E 1077 BUSY] OC CLI8"°NO READ--FEED BUSY? 
c 1915 60C6C5C5C440C2E4 1077 
191D E2E8 1077 
Z 191F D50640D7E4D5C3C8 1930 1078 BUSY2 DC CLI8*NO PUNCH DATA BUSY? 
c 1927 40C4C1E3C140C2€4 1078 
192F E2E8 1078 
1931 D5D640D7D9C 9DS5E3 1642 1079 BUSY3 oC CL18*°ND PRINT DATA BUSY® 
€ 1939 40C4C1E3C140C2E4 1079 
1941 E2E8 1079 
1943 CZ2EGE2E840C4C9C4 1953 1080 NODROP pc CL17* BUSY DID NOT DROP? 
€ 1948 40D5D6E340C4D9D6 1080 ; 
1953 D7 1080 
1954 €3D405C440404040 1969 1081 PTCMND DC CL22*CMND e 
€ 195C 4040404040404040 1081 : 
1964 404040404040 1081 
196A D7E4D5C3C840C3C8 197E 1082 FALSEP 0C CL21*FUNCH CHECK WAS FALSE® 
¢ 1972 C5C3D240£6C1E240 1082 
197A C6C1D3ZE2C5 1082 
2 197F D9IC5C1C440C3C8C5 1992 1083 FALSER DC CL2O0*READ CHECK WAS FALSE? 
£ 1987 C3D240E6C1E240C6 1083 
198F C1D3E2C5 1083 
1993 4OD7C9COD4C1DIEB 1998 1084 PRIMRY OC CLO® PRIMARY * 
¢ 1998 40 1084 
199C E€2C5C3D6D5C4C1D9 1944 1085 SECOND DC CL9* SECONDARY? 
ban 19A4 £8 1085 
€ 19A5 D7E4D5C3C8C5C4 1948 1086 PUNCHD DC CL7* PUNCHED? 
LOAC DSD6GOETETETETE? 19BF 1087 NOCYCL DC CL20"°NO XXXXX CYCLE STEAL®* 
19B4 40C3E8C3D3C540E2 1087 
€ 198€ €3C5C1D3 1087 
LOCO CSETE3D9C14CE7E7 19D6 1088 EXTRA 0C CL23"EXTRA XXXXX CYCLE STERE®- 
19€8 ETETE740C3E8C3D3 1088 = 
€ 1900 C540E2E3C5C1D3 1088 = 
LOD? EVETETETET40D3E2 19F3 1089 BADLSR DC CL29*XXXXX LSR INITIALLY ERCORIBEEE 
19DF D940C9DSC9E3C9CI 1089 S 
& 19ET D3D3E 840C9D05C306 1089 . 
1L9EF D9DIC5C3E3 1089 _ 
“+ 
€ e 
CATE: O3NOV69 10FEBTO 14APRT7T0 29JUN70 15NOV70 ISMART1 TRUE, PROG? TE. 
a |6=§RC NEE. 816523 616592 816678 816704 818905 818962 “SI R6SRE PASES. 
es. : 
ee... 


2589734 
9 


i 
| 
i 
t 
é 
i 
| 
pi DATE 


¢ 
s 
3 
; F026 
3 
{ ERR LOC 
i 
: § 19F4 
t L9OFC 
i 1A04 
: $$ 1A0C 
1AL4 
LAC 
' 3 LA24 
; RA25 
: 1A2D 
; 8 1A35 
t 1430 
i LA45 
; § 1A4D 
i 1A51 
' 1A59 
‘ 3 1LA61 
1A69 
LASE 
3 1A77 
; LATE 
1A87 
: § LASF 
i 1agoTy 
: 3 
: 1A9B 
:  § 
/ 3 
TE 
ie 
{ LASC 
tw, 
o 
t 
i 
i ¢ 
| , 
| - 
i 
2 1A9D 
o% LAOF 
LAAL 
2 1AA3 
LAAS 
LAAT 
z 1AA9 
3 


1AAB 
2 1AAD 
f 1 AAF 
oo 1AB1 
z 1AB3 
1AB4 
1LAB6 
3 1488 
LABA 


EC NO. 


i 
ene. 


OBJECT CODE 


D3D6C 1C440C4C1E3 
C14O0C3C IDK 4E 240 
C9D540E2C5(3 0605 
C4C IDE S40CI DSC4 
4£0C203C1D5D240C9 
D540D7D9C9D4T109 
E8 
C5D5E3C5D940D7D9 
C9D05E 3C1C203C540 
C3C8C IDSC IC3E3C5 
0940C9D5E3 064004 
ClE3SCISSEZE6C IES 
C3C8CSE2 
E4D5D7D9CSDSE3CI 
C203 C540C3C8C1 D9 
CICZE3C5D940E2C5 
D3SC5C3E3C5C4 
E2C5E340C “C1 E3C1 
40E2E6C 9E3C3C AC5 
E240E3D640FOF340 
C6D6D940F 340D3C9 
DSC5E 24006064007 
DSCSDS5E3 


oo 


00 


188E 
1E00 
1000 
1FOO 
1755 
1852 
1080 


0000 
0001 
0004 
FOFS 
Fl 

000d 
CO1E 
001F 
0040 


O3NOVES 
816523 


TOFEBT 
816592 


ADDR 


1A24 


LA5O 


LAGE 


1TAGA 


1A9B 


TAIT 


LASSE 
LAAO 
LAA2 
LAA4 
1AA6 
LAA8 
1AAA 


LAAC 
1AAE 
LABO 
LAB2 
1AB3 
1A85 
1AB7 
LABS 
1AB8B 


0 
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PART NO. 


PAGE 





2589734 


OA 





STMT SOURCE STATEMENT 

1090 INSTS DC CL&9"LOAD DATA CARDS IN SECONDARY AND BLANK IN PRIMARYS 
1090 

1090 

1090 

1090 

1090 

1090 

1091 ENTER DC CL44*ENTER PRINTABLE CHARACTER INTO DATA SWITCHES® 

1091 

1091 

1091 

1091 

1091 

1092 BADCHA DC =CL30"UNPRINTABLE CHARACTER SELECTED® 

1092 

1092 

1092 

1093 SET43 DC  CL44*SET DATA SWITCHES TO 03 FOR 3 LINES OF PRINT? 

1093 

1093 

1093 

1093 

1093 

1O094 FEFKSESKKHEKSERKAKSELAE ESLER EESKERRH SEA KESSHEREKE SEK EKTSEKE ERE AKKS EEE KE SEK HSE 
1095 + PROGRAM INDICATOR FLAGS * 
1096 FSERESERERE ARES SRERAEE SLES SALSE ELAR RE EEE EERE EEA OH ER TERY EEEEE RESET EERE SE 
1097 FLAGS 0C XL1"00° 

1098 * FLAGO SIT O-OPTIONS SELECTED FLAG 

1099 * FLAG BIT 1-COMPARE MULTIPLE RIPPLE DECKS 

1100 * FLAG2 BIT 2- | 
1101 * FLAG3 BIT 3- | 
1102 * FLAGS BIT 4- 

1103 * FLAGS BIT 5S-PREVIOUS FEED CHECK INDICATOR - 
1104 * FLAG6 BIT 6-FIRST CARD LOADED FOR COMP INDICATOR 

1105 * FLAG7 BIT 7-PRINT WAS NOT FROM SAME BUFFER INDICATOR 

1106 FLAGS! DC XL1*00* 

1107 * FLAGIO BIT O-NO READ-FEED BUSY 

1108 * FLAGLI BIT 1-NO PUNCH BUSY 

1109 * FLAG12 BIT 2-NO PRINT BUSY 

1110 * FLAG13 BIT 3-SPACE UP REQUIRED 

1111 * FLAG14 BIT 4-PRIME REQUIRED 

1112 * FLAGI5 BIT 5- 

1113 * FLAGI6 BIT 6- 

1114 * FLAGI7 BIT 7- 

1115 

L116 SHEERS SSASEKAR EK KERKSESARAEALESE FSELSEAKHAS SERSEKKAETHKS ERASKA SKEET KKK EVWKESSEAKKERKE 
1117 * ADDRESS CONSTANTS * 
LIL S kX SEEEERSEKKSELASKARESSEREKSASRHEATSEHKERSKERHSKE TTA TET HKEAKAREARSEK ETRE SRERHES 
1119 ADATA DC AL2¢{DATA) 

1120 LORD DC AL2 (RDFD) 

1221 LOPR DC AL2(BUFF) 

1122 LOPU OL AL2(PUFD) 

1123 AREAD 0C AL2(NCOP) 

1124 SLIP DC AL2(TABLE141) 

1125 LASTCH DC AL2(BUFF+128) 

1126 

ee EEK ERESEKRAEA EAE SEE KES ERKK SHS TEES SKRETREKRL HAST EHKEKE KE RELS THES KE HEEKAKSEESESESERESE 
1128 * CONSTANTS * 
LL 29 SESSEREKSE SERS SE KERERKVESSESSEKESES EKERAE KLE EKERE SETHKE RAEKERERKS EHEKESERERSHE 
1130 ZERO =O XL2*0000" 

1131 ONE DC XL2*0001° 

1132 FOUR DC  xL2"0004° 

1133 FIVE DC CL2*05* 

1134 D1 DCO soOLA TL. 

1135 DEC18 OC 1L2°13° 

1136 EIGHTN DC = XL2"1E® 

1137 NINTEN DC XL2°1Fe 

1138 SIXTY4 DC IL2*64* 

14APR70 29JUN70 1 SNOVTO ISMARTL = 30AUGT1 PRBEEID oF eR 
816678 816704 818905 818962 818667 PARES She. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. = 2589734 | 18M MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 2589734 
PAGE 10 | @ PAGE 10a 
i 
c F026 54246 MFCU READ-PUNCH-PRINT TESTS i‘ F026 5424 MFCU READ-PUNCH-PRINT TESTS . 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
‘ ‘ 
¢ 1ABC 0080 1ABD 1139 ONEZ8 DC IL2*128° | ®& 1021 CECF80313233 1026 1194 pc XL6*CECF80313233° 
1ABE FFFF LABF 1140 ALLF DC XL2°*FFFFe i 1C27 343536373839 1C2C 1195 pc XL6*343536373839" 
1ACO FOF6 1AC1 1141 FOFH OC XL2°FSF6® ; 1C2D BABBBCBDBEBF 1€32 1196 pc XL6 *BABBBCBDBERF® 
c 1AC2 F105 1AC3 1142 READCD DC XL2°F105° i § 1033 30A122232425 1€38 1197 DC XL6*30A122232425° 
LAC& F905 1AC5 1143 FIRST2 OC XL2"F9O05® | 1039 2627282 9AAAB 1C3E 1198 DC XL6 "262728 29AAAB* 
LAC6 F305 LACT 1144 READPU DC XLI*F305° : 1C3F ACADAEAFAOLL 1€44 1199 DC XL6*ACADAEAFAOLI® 
¢ 1AC8 FB04 1AC9 1145 RDPUZ2 DC XL2°FBO4" © . 8 1C45 121314151617 1C4A 1200 oc XL6 121324152617" 
1TACA FOFOFOFO LACD 1146 ERRCT oC CL4*00C0* READ COMPARE ERRORS 1C4B 18199A9B9C9D 1050 1201 pc XL6"1B199A9B9C9D* 
LACE ODES LACF 1147 MSECOS OC TL2°230° ( 1C51 9E9F2ZA010203 1C56 1202 DC XL6*9E9F 200102035 
c 1AD0 O1F4 1AD1 1148 MSECOS DC TL2*500° | & 1€57 040506070309 1C5C 1203 DC XL6 "040506070809" 
LAD2 4O040FLFIFZF2F3F3 1801 1149 oc CL4B*® 212233445566 778 8995 3 #F8a* * == 8 "OO//SSTTUUVVWWXX? ' 1C5D SA8B8CB8D8EBF 1C62 1204 pc XL6* SASBEC SDSESBF® 
LADA FGF4FSFSFSEFOFTFT 1149 | 1C63 1€63 1205 WORKI DS c.1 
¢ LAEZ € OF FOF STA742878 1349 ; 2 1064 IC64 1206 STEP OS Ett 
LAER TCTICTDTETETFTFFO 1149 : 1C65 1C65 1207 WORD OS cl 
eee LAF2 FOO1LELEZEZEZESE4 1149 | ‘ott 1C66 1C66 1208 PLACE ODS a TABLE SEARCH CQUNT 
£ LAFA ESE5ESEGEG6E TE 740 1149 i g 1C67 1C67 1209 LAST DS cil 
1802 E8E8E9E95050686B 1831 1150 pC CLOB*YYZZE6 5 ¢Z%Z__>>?7?7—-JIKKLLMMNNOGPPQQRR $$*#)) 55-9 i 168 1C69 1210 PNCHAR OS CL2 
1BOA 6C6CED6 DEES EGFEF 1150 1C6A 1C6B8 12112 COMP DS cri2 
€ 1812 6060D101020203D3 1150 i g 1C6C 1C6D 1212 SAVE DS cL2 
1B1A D4D405D5D6D60707 1150 i 1C6E IC6F 1213 SWITCH DS CL2 
1822 D8D8D9D9585 A5B5B 1150 i 170 1C71 1214 WAIT 0S cL2 
t 1B2A SCSCSDS5DSESESF5F 1150 3 1C72 1073 1215 SAVIT DS cCL2 
1832 4040C1C1C2C2C3C3 1B51 1251 TABLE DC CL32"((AABBCCODEEFFGGHHII .6<<((tel {®t 1C74 1C75 1216 WORK OS CL2 
1B3A C4C4C5C5COC6CTCT 1151 } 1C76 1C77 1217 CGUNT oS cL2 
@ 1842 C8CBCOCI4ASA4B48 1151 ' 1218 
1B4A 4C4C4D4D4ESEGFSE 1151 ‘ . L219 FSS ERKERESELAES SERS SHRELS KSEE ARAL LALALEAESEE EAS SEE LHELESERSTS SEAS SETH EE 
1852 F426 1853 1152 PRTFD! DC XL2°F426! PRINT FROM PRIMARY INTO STACKER 2 ' 1220 * DEFINED STORAGE AREA * 
g 1856 FC27 1B55 1153 PRTFO2 OC XL2°*FC27* PRINT FROM SECCNDARY INTO STACKER 3 8g 122] ¥HEREKEAREREREARALERSSALESSESERS ERELKSAEAEREEAK HE AKHKSS SESE EET HES EK SERTERE 
1B56 F424 1657 1154 PRTFD3 DC XL2"F4248 PRINT FROM PRItARY INTO STACKER 6 : 1D00 1222 ORG x*1DO00* 
1858 F425 1859 1155 PRTFD4 DC XL2*F425¢ PRINT FROM PRIMARY INTO STACKER 1 1p00 1223 BUFF EQU * MFCU PRINT BUFFERS 
€ 1B5A FOOS 1B5B 1156 FEEDCD DC XL2°F 005! FEED WAIT TO SS1 : § 1069 1DFF 1224 DS CL256 
1B5C F905 185D 1157 ONLYRD OC XL2°F905* READ SECONDARY INTO STACKER 1 } 1E00 1225 RDFD £QU # 
Serpe 185E FOFO 1B5F 1158 CDCNT oC CL2*008 CARD COUNTER 1£00 IETF 1226 Ds cLi2e READ FIELD : 
¢g 1860 Fi . 1860 1159 PLUSi DC cll*is 2 1E80 1227 RDCKFD EQU * READ CHECK FIELD 
1861 F3F2 1862 1160 PLUS32 DC CL2*32¢ 1E80 LEFF 1228 DS cL.128 
1863 1161 STABLE EQU) * | 1F00 1229 PUFD EQU) * 
4 1B63 40FLF2F3F4F5 1B68 1162 pc XL6 "GOF IF 2F3F4F5"* i 2 1F00 IF7F 1230 os cLizs PUNCH FIELD 
1B69 F6OFTFSFOTATB 1B6E 1163 DC XL6*FOFTFSFOTATB® : 1F80 1231 PUCKFD EQU) * PUNCH CHECK FIELD tee - 
AS 1LB6F TC7TDTETFFO61 1B74 1164 DC XL6"70 TD7E7FFO61" : 1F80 1LFFF 1232 Ds cLi2e ; Se 
@ 1875 E2E3ESES5SE6ET 1B7A 1165 Dc XL6 *EZEZE4ESEGET® ' 9 1233 i 
1878 E€BESS506B6CED 1880 1166 pc XL6*EBESSO6BECED* ‘ 1234 ERAGLAESEHTRRELE HERE EEKAESE SFLERHLERELHS TESTE HES ELS CHGS ES EREE LSE EHEES RE 
1881 6E6F60D102D3 1B86 1167 pc XL6*6E6F60D1D2D3" \ 1235 * EQUATES > 
& 1B87 D4D5D6DTD8DS © 188C 1168 oc XL6°0405 D6 0708609" i @ 1236 48 FEESESERESSEERERSAESSRSESERLESLSELSESSESSALS FES EEKEKE HERS HE SSEERELE KERTES 
188D SASBSCSDSESF 1B92 1169 oc XL6" 5A5BSC5D5E5F# ae 1202 1237 CMND EQU = EX242 
1893 DOCIC2C3C4C5 1898 1170 pc XL6 "DOC IC 2C3C4C5* vat 0001 1238 xR1 EQU k*O1* 
é 1899 C6C7C8C94A4B 1B9E 1171 pc XL6"CEOCTCBCO4AGB® i @ 0002 1239 XR2 EQU = X*02* 
1BOF 4C4D4E4F 1BA2 1172 oc XL4"4C4D4E 4F * } O0OC8 1240 ARR Fou) = x*08* 
1BA3 008182838485 1BAB 1173 TAB DC XL6"008182B3B4B5° | 0208 1241 SBYTEO EGU x*208* 
Ss 1BA9 86B7B88B93A3B 1BAE 1174 oc XL6*B6B7B8B93A3B i @ 0209 1242 SBYTEL EQU = x*209* 
BAF 3C303E3FB8021 1BB4 1175 pc XL6*3C2D3E3FB021° i 020A 1243 SBYTE2 EQU  X*20A* 
1BB5 AZAZA4A5A6AT7 1BBA 1176 pc XL6*AZAZAGA5AGAT® 0208 1244 SBYTE3 EQU X*208B* 
83 1BB8 A8A9102B2C2D 1BCO 1177 oc XL6"A8A9102B2C2D* 2 020C 1245 SBYTES EQU = xXx*20C* 
1BC1 2E2F20619293 1BC6 1178 oc XL6*2E2F20919293° 0212 1246 TEST EQU  x*212° 
1BCT 949596979899 1BCC 1179 oc XL6 "9495969798998 0216 1247 LINK EQU = X*216* 
$ 18CD LALBICIDIEIF 1BD2 1180 DC XL6*1A1BICIDIE1LF® i @ O21A 1248 PRINT EQU X*21A* 
1BD3 908182838485 1BD8 1181 oc XL6"9081828384858 i O21E 1249 UNPACK EQU X*21E* 
1BD9 868788890A0B IBDE 1182 DC XL6* 868 788890A0B" { 0222 1250 HALT EQU X*222* 
$ 1B0F OCODOEOFCOT71 1B8E4 1183 DC XL6*OCODOEOFCOT1* 9 022A 1251 LOAD EQU X*22A* 
YBES 727374757677 1BEA 1184 pc XL6O* 727374757677" OOCO 1252 FLAGO] EQU xX*CO® 
1BEB 7879FAFBFCFD 1BFO 1185 pc XL6"7879FAFBECFD® | 0C80 1253 FLAGO EQU xX*80* 
€ 1BF1 FEFFT0E16263 18F6 1186 DC XL6"*FEFFTOE16263° it @ 0040 1254 FLAG] EQU X*40* 
1BF7 646566676869 1BFC 1187 pC XLo'646566676869* 0004 1255 FLAGS EQU xX*O4* 
Ae: 1BFO EAEBECEDEEEF 1c02 1188 DC XL6 *EAEBECEDEEEF® 0002 1256 FLAG6 EQU xX*O2* 
€ 1C03 £05152535455 1C08 1189 oc XL6°E05152535455° i @ 0001 1257 FLAG? EQU xXx*O1® 
1C09 56575859DADB 1COE 1190 pc XL6*56575859DADB * i 0080 1258 FLAGIO EQU) = xX*B80* 
1COF DCDDDEDFEA41 1C14 1191 DC XL6* OCDDDEDF6A41* : 0040 1259 FLAG11 EQU xX*40* 
¢ IC1L5 424344454647 1C1A 1192 oc XL6 9424364454647" ; 9 0020 1260 FLAGI2 EQU = Xx*20° 
1C1B 48469CACBCCCD 1€20 1193 pc XL6"4849CACBCCCD* [ : 0010 1261 FLAG13 EQU = xX*10° 
“€ 
€ ' @ 
DATE O3NOV69 1LOFEB70 14APRT7O 295UNTO 15NOV70 LSMARTL 30AUGT1 PROG ID OFO2-6 | DATE O3NOV69 10FEB70 14APRTO 29JUNTO 1SNOV70 15maR71 30AUGT1 PROG ID OF 02-6 
EC NO. 816523 816592 816678 816704 818905 818962 818667 PAGE 1o | EC NO. 816523 816592 816678 816704 818905 618962 818667 PAGE 10A 
| @ | 
( +L @ @ z J 
CCR CCC HOHCECHOOOOC OOOO OSC OOOCEOC OOOO OSC OSCECEE 
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F026 5424 MFCU READ-PUNCH-PRINT TESTS FO26 5424 MFCU READ-PUNCH-PRINY TESTS 


Per er wR eee corre 
‘ Qo : 


ERR LOC OBJECT CODE ‘ADDR STMT SOURCE STATEMENT CROSS-REFERENCE 
¢ 0008 1262 FLAGI4 EQU  x*08* oe SYMBOL T LEN VALUE DEFN REFERENCES 
0004 1263 FLAGI5 EQU xX* OK? i: 
_ 0060 1264 SNSWOl EQU X*sO* i ADATA A 002 ASE 1119 0542 0543 
Cc ©010 1265 SNSWO3 EQU  xX*10* i ¢ ADDONE A 006 1008 0521 0570 
6060 1266 SNSW11l EQU  xX*4o* * | ALLF A OO2 1ABF 1140 0401 0595 0633 O777 0843 0889 
0020 1267 SNSW12 EQU xXx*20° * : ANY A004 1599 0914 0919 
Cc 0080 1268 SNSW18 EQU  xX*sO? ' § AREAD A 002 1AAG 1123 0938 
0080 1269 SNSW20 EQU xX*89* * i ARR C 001 0008 i240 0470 6510 ©6587 0687 0911 
0040 1270 SNSW21 EQU KF4aO? * : BADCD A004 OC8C 0201 0197 
Cc 6020 1271 SNSW22 EQU X*20° * i BADCHA A 030 1A6E 1092 0285 
0010 1272 SNSWZ3 £QU x*208 * SBYTES { BADLSR A 029 16F3 1089 0732* 0755 0808* 0880+ 
3 0008 1273 SNSW24 EQU  x*OB* * fADONE A 004 1018 0531 05 20 
c 0004 1274 SNSW25 EQU KX*O4? * roy BBIT A 004 1583 0920 0917 
0002 1275 SNSW26 EeU K*O2* * BITSON A 004 103F 0540 0536 
FFFF 1276 END t BLANKS A 006 1860 1068 0517 : 
¢ i BSYBUF A 004 114A 0614 0611 0616 . 
: BUFF A OOl 1000 1223 0100* 0101 0101* 0105 0266* 0274 0274* 0275 0275* 0278 0278* 0279 
. 0279* 0295* 0308* 0321* 0341*% 0342 0344 0344* 0367 0396 0409 0409% 
€ : 8 0450* 0651% 0452 0452* 0453 0453% 1042 1042% 1121 1125 
ae BUSYE A O18 191€ 1077 0712 0880 0881 0882 
ua - BUSY2 A018 1930 1078 0718 0732 0733 0734 ; 
¢ i g BUSYS A O18 1942 1079 0724 0808 0809 0810 . see: 
i COCNT A 002 1B5F 1158 0267* 0282* 0346* 0351* 1043* 1048* é 
Z CHECK1 A 004 1609 0943 0939* 0951 0951* 0952 0953 
¢€ : CK A 004 OB7C 1120 0112 0114 0116 
CKCK A 004 163F 0958 0942 0955 
CKEACH A 004 OFEL 0510 0227 0983 1016 
Cc = CKEXP A 004 1023 0533 0562 
a CKIT A 006 15F4 0938 0704 0738 0744 0765 0926 0929 0935 
CKNEXT A 004 OAAC 0067 0120 Le ne 
e ar } CcKpuU A 006 1112 0600 0593 <i, a 
ies anatase u CKPUCK A 004 16ES 1018 0996 = 
4 CKPUNH A 004 16A2 0993 0959 0965 0984 0986 
C > TD CKRDEK A 004 168D 0985 0961 
i CKRY A 004 OFC5 0496 0500 0502 
i CKSTEL A 004 1348 0760 0751 O762 0784 
Cc / 2 €CKO9  & 004 OAD? 0078 0070 
CK11 A 004 1284 0713 0708 
eee CK12. A 004 12C3 0719 0714 
€ B  CKI5 A 004 1409 0865 cs71 
‘ CK2 A 004 OF93 0478 0475 % 8 ek Sees 
> CK3 & 004 OFSA 0480 0476 0478 me sok 
€ " 3 CK4ONE A 003 105A 0546 0545* 0553 0553* 0554 0555 
os i CK42 A 004 OFDI 0502 0499 
. CK8BIT A 006 OATS 0055 0048 
C | @® CLEAR & 003 OAB4 0069 0073 
CMND A 003 1202 1237 0055* 0076* 0081* 0087* OO088* 0099* 0109* 0143* 0157* 0164* 0268* 0272* 
0276* 0280* 0296* 0309* 0322* 0345* 0347* 0349* 04107 0412 0414* 0416* f 
C i. . 8 0446%* 0448% 0454* 0455 0457* 0459% 0474 0498 0588 0592 0597* 0601 
i -- 0606 0608 0643 06465 06469* 0653* 0676* 0678 06°92 0697 0730 0802 
te art 0812 0820 0835 9870 O874 0925 0958 0993 1044* 1046* 
C ' $+  CMNDB4 A 002 10DA 0586 0610 0618 0678+ 
comp AOO2 1C6B 1211 0748* 0781* 0783 O811* 0822* C841* 0833 0861 O0867* 0872t 0883* 0884* 
0899 0905% 
C 2 CONT A006 OFFB 0518 0525 
aan! COUNT A O02 1C77 1217 0145* 0169* 0230 
tie & ; COUNT] A 004 1402 0863 0860 
Cc - §% CYCLEl A 004 13DC 0802 0732 
i CYCLE2 A 004 1501 0874 0803 
: DATA A 026 188E 1070 0517* 0518* 0521 0567 1119 
€ ' @ OECT A006 15480 0916 0914 
DEC18 A O02 1AB5 1135 0950 
: DLY A 006 10F8 0594 0599 
€ ' $+  Dtyl A006 10FC 0595 0596 
. DOESIT A 005 OCAT 0213 0183 0186 0190 
: : OorT A 004 OEFE4 0617 0411 0415 
€ - & ov A 004 OAEB 0083 0079 
OUPIT A 00& 0833 0100 0077 
Cc . 4 3 
DATE O3NOV69 10FEBT70 14A°R70 29JUNTO 15NOV70 15MARTI 30AUGT71 PROG ID OFO2-6 | DATE O3NOV69 10FEB70 14APR70 295UN70 15NOV70 ISMARTL 30AUGT1 PROG 10 OFO2-6 
EC NO. 816523 816592 816678 816704 818905 818962 818667 PAGE 11 f EC NO. 816523 816592 816678 816704 818905 818962 818667 PAGE lA 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589734 | . TOM MAINTENANCE DIAGNOSTIC PROGRAM | et 7 
e ! PAGE 12 , 
” = 
F026 5424 MFCU READ-PUNCH-PRINT TESTS | age 4 PER: © SIRE REAVER Ne nega taeohe 
| CROSS-REFERENCE CROSS-REFERENCE | oe ee 
3 FER we Ne 
@ SyMBOL T LEN VALUE DEFN = REFERENCES <7 OSYRBOL TREN VALUE BEEN “REFERENCES oes 
, “""  INS9 =& 030 190C 1076 0032 0252 . | oe ve 
“g@ « RxTG2, A GOA 1160 ce. aoe > sOCTSONE A 006 1067 0550 0543 0547 0552% o560 : 
Sya2 AGoe.wdoess OaTa- “eeee JUSTFD A OGG 1128 0605 0602 
Dee eee tees Mae. (550. Obie KICK & 006 153E 0890 0897 
d1 B Oot: 2683. Tt ' 2 Last A 001 1067 1209 0058* 0063* 0115 
€ EIGHTN A 002 1AB7 1136  6830% 0833* 840% 0672 . \ paca Gae Wake Ae. cuaee ocee 
EER’ a mse i091 O57 nar y LOPR A 002 1AA2 1122 0590 0811 0818 
. ee aco ties Bele | 3 .opy A002 1AA4 1122 0655 C748 0750 
ERECT! “B Oere ACR. “Et 7 i LDRD A002 1AA0 1120 0660 0883 0886 
EXI0 A 004 10D8 0587 0066 0110 0168 O277 0281 6348 0350 0417 0447 0449 06460 1065 | TUtLOS cA Goa Woseicoaee.. -ieces 
1047 : 
4 Fs SF 
& ExTRA A023 1906 1088  0733% 0789 0809* o8el# e Pee a eee ar neon see 
Be eee ee, ge” ese ee. faas Sry ts’ LINK «= C «©OL :«(0216:«:1247 = 0118 «0238 «0284 =«1050 
et eee thee bes owen wee REre & LIORD A 004 11FC 0660 0656* 0658 0659% 
€ EX2_ A 003-1200 0661 = 123 LOAD C001 022A 1251 0355 : 
FALSEP A021 197E 1082 1023 | boap ai Acces cee adaes cree 
ete noe eee tees. tee | LOAD A004 OEAD 0404  0400* 0403% 0408 
Eee: «Bs Oe | LOOP4 A 004 1728 1044 1049 
FCCT 4013 1762 1056 0689 0605 re ae oe ee oe 
8 eed Bees bee ee Sees ee SB  .TOl & 005 O€3E 0376 0381 — 
PEGDA BSB 1156 0448 0649 LTO2 A 005 ~O£6B 0390 0374 0377 gO a ae 
been eee aaaee aie MSEC A002 1008 0585  0629* 0630 0631* 0635* | 
FEED2 A 004 OC 1 @ MSECOS A 002 1ACF 1147 0773 
8 FIRST2 A 002 1AC5 1143 0653 i MSECO6 A O02 ADL 1148 0771 
i pepe ce eee Gee eee: ek eac ees : " MSGADD A 002 1617 0948  0938* 0950 
FLAGS A 001 1A9B 1097 0144* 0153 0162* 0179% 0184 0168* 0193* 0196 0198* 0234 0482 0484* page eee eee ata eee: le 
§ 0491% 0540 0556 0558* 0563* 0591* 0612* 0638" 0956* eer ahdee’ cet coens tones 
FLAGS A 001 1ASC 1106  0573* 0639% 0654* 0674 0689% 0691* 0695* 0700* 0705 0707 0713 0719 i Wet, aces eke eee. aed 
0842* 0865 0868* 0924" 0949% 0992% 1025* 1026 Ds ire cee Pace ages . cece euaueangens 
Bie se rnee ce cor. S0ee0 lees ote: User <O1e8, -04e8 : NOCYCL A020 19BF 1087  0734* 0797 0810* OBsz+ 
FLAGOL C 001 OOCO 1252 0144 0234 Poca. GNEBREBCAOIe cate Lose: chees + 
eee Oe. “epee eee cocee, a oee ere ; =  NOOP A013 1755 i055 0948 1123 
ree ‘ NOSTEL A 004 13C8 0794 0785 0852 0854 08S8 0900 
es Pear Satee: Ane, wcnene eee 4 NOTRDY A 004 OFB9 0491 0481 0485 
~  FLAGI2 C001 0020 1260 0700 0719 i Ro eee a oee, hase Gye. v Gece : 
a cant a a Ga OR I a | ~ ONE A002“ TAAE 1131 0072«O1€9 0538 0551 0552 0597 0635 O779 0781 0841 0850 0857 
FLAG14 € 001 0008 1262 0639 0654 0674 : Beek cosa’ ases. Geese pete Gee, 
FLAGI5 C GOl 0004 1263 0842 0865 OR68 oe. cate. gees ater Gace. jeees- pecs nese 
© FLAGS. C O01 0004 1255 0482 0484 0638 0956  BeGeeh moos tesa ee? eeee 
ere. ec oer ouce shece —Oh2e: OFG0 0aot BUT2 A 004 OFDD 0503 0470* 0473 04677 0479 0501 
FLAG7 C 001 0001 1257 0540 0556 0558 0563 0591 0612 | > cure A006 Ize 067s OSeTe ONte 
T —FORORS A 004 14EF 0870 0864 OUTS A006 1717 1034  0687* 0688* 0911* 0912* 1027 ; - 
FOUR A002 1A80 1132 0589 0560 Saee. avece “ieee ieee. anes 
Ee SmTeeh. “SNO0™ 0002 Z OPASS3) «A 004 ~OE1E 0367 0389 0394 0397 0422 
€ FOF6 A002 IAC] 1141 0522 | pai vac bon” NeEie BGeOh - ianes 
eee ee prose: (beoe wees, ~~ 0Ot | PERIOD A 004 1060 0548 0542* 0551* 0559% 
GETCOL A 004 1084 0563 0557 | ge Teg eae ese tea? oese 
€ PERE (ok Golo cae: bese ok PLACE A QO1l 1C66 1208  0534* 0538* 054% 
pes PLUSI A OOlL 1860 1159 0282 0351 1048 
“HALT € 001 0222 1250 0038 0141 0210 0258 06339 0368 0387 0438 0496 0574 0625 0757 ne ee ae 
 * 
é Oro), "B12? (2032 : PNCHAR A 002 1C69 1210 0749% 0750 0782* 0783 O817* 0818 0823* 0845 0856* 0885* 0886 0891 
HAM A 004 1438 0827 0821 : Sons 
HAMER A 006 146F 0841 0836 CB3B 0862 0866 ; 7 ee 
© HAMERL A 004 1467 0839 0828 5 bey a ook ace ores lee etn ee Rec 
rene a ae rane ieee at aos _-'  PRIMRY A 009 1998 1084 cO28 0131 ar 
.: fae ae s ete 2 , % PRINT C O01 O21A 1248 0033 0136 0201 0206 0219 0249 025% 0334 0382 0433 0486 0492 
HILO) =A 006 1406 0853 0846 i 0513 0564 0571 0709 0715 0721 O752 0786 0794 0920 0945 0966 
HOLES A020 i674 1069  OSi6 h 0975 0987 0999 1008 1020 1030 
@ wop2 A006 1108 0651 0646 " 3 PRINT] A 00& 1667 0971 0963 : 
UNG’ © “AcO0E 7ORAE GeRE.. Cocae ’ PRINT2 A 004 16C3 1004 0998 
INCOR A004 1338 0752 0819 0887 PENEB EAD OCy 2152 0618 - “0609 ; 
@ Garten acs bkac eee. “cose Z —séPRTALL A 006 171F 1042 0297 0310 0323 
PRIBF1 A006 OD56 0274 0271 0273 0283 
INJECT A004 15DF 0933 0937 ae me a 
INST] A 022 17F4 1064 0028* 0031 0032* 0036 0131* 0134* 0135* 0139 big. ‘onteoe avoos Gees ye: «cores ioaee 
€ = INST9 A 049 1424 1090 0436 PRTFD2 A002 1855 1153 0296 
INS] A012 189A 1071 0695 
weoha 7 
° 
SNO RSMARTL ©—«-30AUG 711 PROG ID oF 02-6 
DATE © O3NDV69 =«LOFEB70 = «14APR70. «=» 29JUNT0. ~—s«ISNOV70.—s«<ISMART1.©©—-30AUG 71 PROG ID OF 02-6 CO Ge Sicees” Cayecse’ cece eens Sartcee coreeee: Jeccee: DAE 128 
gq BE NOe stesz3 816592 816678 816704 818905 818962 818667 PAGE 12 i: eee 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


F026 


SvMBOL 


PRIFD3 
PRIF DS 
PTCKND 
PTDATA 
PUCK FD 
PUCMND 
PUFD 


PUHE AD 
PUNC HD 
RcCcT 


— RDOCKFD 


RDCOMP 
RDFD 


R DHE AD 
RDPUZ2 
RDY 
READCD 
READIT 
READPU 
READI 
READIA 
READIL 
REGR OL 
RESTRT 
RESTR1 
RESTR2 
RESTL 
REST2 
RIPCOS 
RNUM 
RTOL 
RTO2 
RTO3 
RTO4 
RTOS 
RT06 
RTO7 
RTO8 
RTC9 
SAME1L 
SAVE 


SAVE T 

SBYTEO 
SBYTE1 
SBYTE2 
SBYTE3 
SBYTE4 


SECOND 
SETBUF 
SETB1 
SETIND 
SETPT 
SETPU 
SETZRO 
SET43 
SIXTY4 
SLIP 
SNSWO] 
SNSWO3 
SNSW11 
SNSW12 
SNSWI18 


DATE 
EC NO. 


5424 MFCU READ- PUNCH-PRINT TESTS 


7 LEN VALUE 
A 002 1857 
A 002 1859 
A 022 1969 
A013 1789 
A 001 1F80 
A 004 1268 
A 001 1F00 
A 034 185A 
A O07 1988 
A 013 1780 
A 001 1€80 
A 004 9C6B 
A 001 1£00 
A 034 1838 
A 002 1AC9 
A 004 OF76 
A 002 1AC3 
A 003 OCF3 
A 002 1AC7 
A 004 0C13 
A 004 OCF6 
A 006 OBB7 
& 004 1309 
A 004 0B78 
A 004 10C8 
A 004 10CF 
A 004 1080 
A 004 1084 
A 006 0897 
& 001 0A03 
A 001 OA0D 
A 001 0880 
A 001 OCFE 
A 001 OD8C 
A 901 OD9SE 
A 001 OD80 
A 001 O0DC2 
A O01 OE€1A 
A 001 O€FC 
A 004 OC7F 
A 002 1C6D 
A 002 1C€73 
C 001 0208 
C 001 0209 
C 001 020A 
C 001 0208 
C 001 020C 
A 009 1984 
A 004 1143 
A 004 OEEO 
A 00% OBFC 
A 006 128C 
A 006 1277 
A 004 0800 
A 044 ILASA 
A 002 1ABB 
A 002 1AA8 
C 001 0040 
C 001 0010 
C 001 0040 
C 001 0020 
C 001 0080 
O3NOV69 
816523 


DEFN 


1154 
1155 
1081 
1059 
1231 
0692 
1229 


1067 
1086 
1062 
1227 
0193 
1225 


1666 
1145 
0470 
1142 
0236 
1144 
0168 
0237 
0145 
0742 
0119 
0576 
0577 
0568 
0569 
0135 
0013 
0023 
0127 
0245 
0291 
0304 
0317 
0330 
0363 
0429 
0198 
1212 


1215 
1241 
1242 
1243 
1244 
1245 


1085 
0612 
0416 
0162 
0701 
0696 
0088 
1093 
1138 
1124 
1264 
1265 
1266 
1267 
1268 


1OFEBTO 
816592 


PART NO. 2589734 
PAGE 13 
CROSS-REFERENCE 
REFERENCES 
0309 0410 0454 
0322 
0600 ©6600% 6603* G605* O6e6* 6701* 
0701 
0662* 0664 0664" 0995 1C13 
0690 
0027* 0064* 00B5% 0092 O096* 6104 0115 O119% 019% 0299% 6204 0595 
1006 1014 1122 
1OO7 i011 
6135 
0603 
0663* 0665 0665* 0960 0980 
o179 . 
0067 ©0080 0085 0189 019% 0199 0209 6213 O217 0225 0450 0960 
0973 «60981 1120 
6974 0978 
0044% 0051* 6076 
0637 0670 
0042* 0049% 0055 0143 
0231 
0043* 0050* 0099 
0154 0161 0163 0237 
0200 0212 0229 
6235 
C747 
0059* 0065* 
0511* 
O512* 
0531* 0561 
0532% 
0133 
0657 0964 
001s 
0025 
0129 
0247 
0293 
0306 
0319 
0332 
0365 
0195 
0398% 0399% 0400 0405 0824* 0825 0844* 0845 0853 0856 0890* O891 
0899 0904 
0588% 0676 
0353 1028 
0623 0627 
0029 0040 0232 0155 
0074 ©0078 0083 0090 O111 O113 OL17 0176 OLTB 0180 0182 0228 
0232 
0031 0134 
0619 
0413 
OL77 
0698 0699 
0693 0694 
0082 
0257 
0230 
0380 
0353 
1028 
0623 
0627 
0029 0040 0132 0155 
14APR70 29JUNTO 15NOVT7O ISMARTL 3OAUGT1 PROG ID OF02-6 
816676 816704 818905 818962 818667 PAGE 13 
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18M BAINTENANCE DIAGNOSTIC PROGRAM 


F026 5424 MFCU READ-PUNTH-PRINT TESTS 
CROSS-REFER ENCE 

SYMBOL T LEN VALUE OEFN REFERENCES 

SNSW20 C COL 0080 1269 0117 

SNSK21 € O01 0040 1270 6078 ©o090 01113 

SNSW22 € 001 0020 12712 0074 0083 90115 

SNSW23 C 601 0010 1272 0178 

SNSHZ4 €C 002 0008 1273 0182 6232 

SNSW25 C O01 0004 1274 0176 

SNSH26 € 001 ©O002 1275 0180 0228 

SPACE A 00& 16FE 1026 o9s7 6994 1017 1019 

sPpuvtT A 003 OAOC 0017 0056 0146 0373 O769 O827 6831 

STABLE A OOL 1863 1161 0060 ©0060 0061 0061* 0693 O50 

STATUS A 004 1254 0687 0673 

STAT2 A 004 1588 O91: OL7S5 0671 

STAYIN A 006 ODED 0346 63546 

STEAL A 00& £207 O730 0708 s 

STEP A OOL 1€£4 1206 0068* 0072+ 

STORE A 004 i58F 0925 oss 

STOREL A 006 1593 0913 C776 O801 0849 0858 O875 0895 

STORE2 A 004 15C6 0927 0931 

STORES A 004 13D8 0801 0720 0725 0759 6780 0793 

STRATT A 004 OC54 0187 0181 

SWITCH A CO2 iC6F 1213 0269* 0270 0370% 06371 0376 0390 

TAE A 006 1B8A8 1173 0148 

TABADD A 004 OB8DB 0153 * 0149 

TABLE A 064 OBCB 0150 6147 

TABLE1 A O32 1851 1151 C266 O375 1124 

TEST C001 0212 1246 0418 6461 0589 

TESTIT A 00& OED2 0412 0421 

TURN A004 108C O571 0522 

TURNBI A 004 OF66 0459 0456 

TURN2 A 002 10CA 0575 0226* O0982* 1015* 

UNBLNK A 004 OAFC 0087 0084 

UNDE1L A 021 I8AF 1072 0969 

UNDE2 A 022 18C5 1073 1002 

UNPACK C 001 O21E 1249 0102 0215 OS71 1004 

UPDATE A 006 161C 0950 0944 

WAIT A&A 002 1C7i1 1214 0843* 0850* 0889% 0896* 0932* 0934 

WAITON A 004 142F 0824 0826 

WAITUP A O06 1479 0843 0869 0873 

WAITL A 004 1381 O774 Oo772 O778 

WAIT4 A 006 1538 0889 02°06 

WAT A 002 1253 0686 0913 

WHICH A 004 OFS8 0455 0462 

wORD A 001 1C65 1207 Ooko* 0092+ 0094 

WORK A CO2 1C75 1216 0106* 0107 0173* O17& 0379* 0380 
0403 0406* 0407 O471* O472 0480 
0647 O651 0667 0668 O0702* 0703 
0745* O746 0760* O761 O0O763*% 0764 
0893* 0894 0913* 0916 0918* O927T* 
0943 0954 0962 0985 O997 1018 

WORKE A OO1 1C€63 1205 0735* O77T9* 0814* 0816 0834* 0837+ 

wT A 004 118D 0632 06 36 

wil A 004 1191 0633 0634 

XxECU & 004 OAA8 0066 0062 0089 

XECUTE A 004 J1E9 0655 0642 0644 0648 0652 

XIT A 00& 1003 0578 0510% 

XR1 C COL OO0G1 1238 0©067* 0069 0071 O071* 0093 0094 
0189 C191 0191* 0213 9236 0236*% 
0401* 0402 0404 0404 0405* 0406 
0535 0537 0537* 0544* 0546 0568* 
O7T77* 0912 0981% 1014* 1034* 

XR2 Cc 001 90002 12239 0225* 0375* 0376 0378 0378* 0379 
0561* 0569% 0577* 0632¢ 0633* O980* 

ZERO A 002 LAAC 1130 0145 0916 

TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 

DATE O3NOV69 10FE870 14APR70 29IUNTO 15NOV70 

EC NO. 816523 816592 816678 816704 818905 





PART NOW 2589734 
PAGE i3A 
0859 
0151 0151* 0152 0152* 0187 0533 
0303 
0419% (420 
if | 
0392* 0393 0395* 0396 0398 0402*% 
0614* 0615 0620* 0621 0640* 0643 
O0736* O737 O739* 0740 0742* 0743 
O766% O767 O774% OF775 O0847* 0848 
0628 0930 0933* 0936 0940* 0941 
O857* 0863 0888* 0902* 
0096 0096* 0098 0148* 0150* O18T* 
0367* 0390 0391 0391% 0392 0395 
0511 0519 0523 0523%* 0531 0533% 
OST6* 0594% 0595* 0688 O0771* O773* 
0512 0519 0524 0524* 0532 0535 
10138 
ISMART71 3O0AUGT1 PROG ID OFO2-6 
818962 818667 PAGE i3A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


F026 


THE CHARACTER 


5424 MFCU READ-PUNCH-PRINT TESTS 


OBJECT CARD LISTING 


PART ND. 
PAGE 


INDICATES A BLANK COLUMN AND THE CHARACTERS D E M. INDICATE NUMERIC SHIFT. 


CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 


T+-¥ 2280 8-4 
T+-Z5H7C +H BBA 
T4+-DOBXE< JHBER< 
Ti» QA1U—M a-D 
Te-2 WH Haz HCEa 
eco 
T+->* =32DAME Aa 
74-2 POH*BFURDEML 
T+-DKH/>S4D EWTH 
1 ssn toukesonkces 
T+-2H&/BZAVYILO-D 
T+~3 COY) DOMBFZE 
T4+-3=F2GEZOHBC~ 
T#-69~ 6<GHEBFUE 
T+-54F52$0-0AL-H 
T4-6243D De. /1C 


T+-7DA- (0T316-2 


T+-8VF5<D J_-F,H 


T+#-9-a4-0 A1?IE 
T+-:$0H*BH? 7OH* 
T+-# O,11_ (-DE73& 


DATE 
EC NO. 


O3NOV69 
816523 


“As F 88 ataa 
EF3SHFLHEBA, F20— 
8 £Y<as P{DasR31 
swebace ennose oS 
=P19-0K*H9 COGD-H 
K /+61D )POLS6NB 
“GF32 €08- H<Or 
00*BG $.00E0AD-H 
E<LS  -?72UAY#BAH 
EsT_9FZ%0a115¢ H 
$03D FZLt 3 tH 
-65"014BG /DBQA9 
a1UCHOHS! 8L-B -3 
GFE300%8G /YF.AD 
$M3_ GFa* 117a-D 
$A1 $P1_-OHE {NSB 
< JHBESX /1#-A8- 
#-AHBOH*EG3N D-. 
* $"HALT-DB-3 2DCG 


+HUG A1?74-DAT D 


AGSM< :>GGN* 


LOFEBTO 
816592 


146APR70 
816678 


AC -P7/WSeH BEEN 
E2<coavx /0250- 
” B7U<1 1?SF SH<H10 
HC-- -32UCY< JH 


eo 


#A/HROH*HOCS -3 
PaBG /BAGO ) L 
BETO GOG s0Dz Y" 
£03? FZZ< JL 7FDO 
A+ ."#BEB=7Aa 7 
*}* EEQZBA H<OA 
Ag*HA *BGCEO:-AD 
~OH#BH? V@Y)ILN® 
2DAZ( J1L7Fe?2 &@ 
EOH*BH?CBO— (HEB 
P42 K 7HGD 0 GPa 
G 0D 631<-)"00 
+FZBG /ZF.AZta+~ 
"71C$A1 $P1_-OHE 
B /yK.t *$0C2-KP 
+) £4AGGMEDZBBCSH 


(-O#4€L CAGEM( JI 


293UN70 
816704 


15NOV70 
818905 


EA~OHE*SRZ OF EAZ 
HO-HGFECYHE SH2 BA, 
SF2.2/008"11X]. 
‘ ‘ 
BEZX2/508& H<aZ 
2D Q< A1VGOGB J_ 
“ 66M* Al5a-DD+—* 
<*OHE'BRW3S -? 
8 &Y<a7 GO-DSZ"H 
Say=pey EW"HGDCY 
-"C-£ -320828 -H 
SCN@~P19-aYDG+ H 
~GY"2-KP /0H3 JB 
eB H<az 14% EWaB 
GCJ, A= 4D0H* (HZG 
= 1=GP8)"3> D-. 
AD-HSN®BGEL@E 6 


/OHSa+*0 AT™{E 


e 


(a3/ -T D 7_OH® 


S -D4& /15CED*) UD 


e oe 
4 J15CED*1I54 OHD 


5FD, —-:_CGa)"15 


15MARTIL 
818962 


RADBG /ZFSA—GO<C 
F4~-E2<G8BXL /0Z 
~ L20B7X /1C$0-D 
(C #Rg8 | OK 7H 
TLE GFPZ-E5K &6 
K *BGDIZ8E Has 
2D OCBANSFEECA/—~ 
GDC HAFE<<112SFEH 
HD~GA= O10H*<AaG 
<a7 J+ -BCIHEPLS 
EW*HECLYBFZZ<P1¢ 
"FAS /OHEOKHOE? 
GBAAK EG /00LOH* 
OCKs A= 4>CG@)—=1_ 
"yicsc "14 C68 
OfF )*00AD-HSNaB 
MHA 3=6581"00 
BH- H- #30-D! <B 
YOHH+1ZBG /,FG/Z 
+H~-OAGFG*IL 2"GFO 


"> DK /_PaY*KeH 


30AUGT1 
818667 


PROG ID 
PAGE 14 


2589734 
14 


CL 81 THROUGH 96 


SO~- BSSHFO260002 


3 CO 8/8F0260003 


GEL- KZ<F0260004 
"40% KTEFO260005 
*+B  OLOFO260006 
«FEZ P. FO260007 
<110 #ROoFO260008 
8C a =E2F0260009 
"FZZ +1 F0260010 
“GV@ wTDF0260011 
VAT *8-F0260012 
BE-< 31¥F 0260013 
JAD PQ<FO260014 
1/4 3:DFO260015 
GE1@ 4K8FO260016 
AD-H : #8F0260017 
a3 
G SH SHZF0260018 
>ac* ~DYFO260019 


< 8 6#EFO260020 


K ?H 30%F0260021 


OF 02-6 


70H IDHFO260001 | 


A Cee eR Re CITRINE Ae er 


ih iam ow a 


Breese 


ee ee 


SS TERE eRe ORES Sas et BEE 


prea 


a ne IEREEE Me eee aac te mnie one meR Baten tee 


eo 6» # ®©@ 


a ee NE AE ES EON Se eek 


ne RRR nem eee 


eterna 
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TSM MAINTENSNCE DIAGNOSTIC PROGRAM 


FO26 


CL 1 THROUGH 16 


T+-350 *:-ANBey* 
TFe-* KCEY /08E0~—- 
© 
Te-= G1 7"GPa< JH 
T4~-%B mHEASCOCSs 
Fee" tFT, SCHSAA 


T+#s 8110386 tH 
T+/A3FD# 1 4+ D 
T+/B>E/O>C~ EOLA 
T#/CZTZHAD.IB 7B 
T+/DU" ADS +ODEW3X 
wevesevece cea 
T+/FEE3C3GGM8-Al 
T+/GND(-E,% ADQ7 
T+sHEsSO4BDALSAS~ 
T4+/1 .CGBs */# "0% 
T+/HED-. /0 - 
T4#/. ATCY-FZOCASV 
T+/.a<C--FZ3 UAI 
T#/C70A N*CCIGGM 


T+/( 2OHEBFZQ)F- | 


Je/*_@Z GIEDE4>H 


T+/) YOHDLK"HODaB 
DATE O3NOV69 
EC NO. 816523 


Cl 17 THROUGH 32 


p+s K ZBGDI? /OH 
‘ 
{H<BGLITAa 2-0-- 
BESS 8-AHBay GeY. 
2/4,k= =EavICe H 
SBAHAas GO- L158 
ADOSAFG#E O-HAD Hi 
EW"HEC OADF<EX-0 
$+—BEODBEDEYS JD 
TOH*EB<BG /YO+1 
OD-G2UA,B EAB{-D 
R+ &K <HEsCS D-. 
40K JQL/ -,2U $ 
* 10*6+08EW3ZHFZO 
RC DK /,€+--EXCe 
K<3C3GGMB /150A. 
4BA%S{ DPFT24FZ3 
YEBDOaLIS+ HE)s 
QOH*BF-DKFM. /14 
8-A1501 K*LC3GGM 
Of aBG S.O1*HGTLC 


GACMAFZ3CA1154 @ 


5424 MECU READ-PUNCH-PRINT TESTS 


OBJECT CARD LISTING 


Ci 33 THROUGH 46 


K< #834 GES -E¢ 
If OAD-HSPsBGDtz 
K PHGAC> D-. /1C 
*)aHEFCUDFZ72D * 
GaAcGecaP yo { - 
Ati edeesee de 
ADFYEXZHAGFO@ JA 
$a/ 0+-DEWOSADF< 
Ex<BG S.O1ZHAD<# 
E7asopiol sHBrbe 
2UA48-ACE@/ G4-D 
“sOHS@l_ 8H Haz 
0d115+C *)1HE.3U 
=FDES"JC* | EDN AH 
SYaBGC7S /10.0H* 
AasIY+Y EXC-BD-G 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


FO32 S/3 READ EVALUATION AND ACJUSTNEAT CIAGNOSTIC “(REAG) 


ERR LOC 


Oa0Oo 


OA00 
0a02 
0A03 

004 
0A06 
OA08 
OAOA 
OAO 


OA10 
OAil 
OAl2 


OA14 


OAs 
OAIC 
0A20 
0426 
0A27 
OA2C 
OA31 
‘OA35 
0439 
OA3C 
0A40 
0A44 
OA48 
_OASE 
0A54 
OAS8 
OASE 


OA61 
OA67 
OAD 
OA73 
OATT 
OA7B 
OA81 
OA85 
oas8 
O ABC 
JASE 
0A93 
0A97 
OA9B 
OASE 
OAA3 
OAAT 
OAAB 
OAAF 
OAB3 
OAB9 
OABD 


- DATE 


Ec NO. 


OBJECT CODE 


‘F032 


00 

oo 
0000 
OA1LO 
0000 
F04000 
E01000 


1460 


1461 
ODAC 

04 00 

04 Z 
: 00 1979 
00 19CE 
0A20 
Oaoc ; 
25 is 
1999 
199€ 
199F 
OD2A 
ooli 
1SC8 
18F5 
58 


199A 
199A 


i9C4 


oD2Aa 
0012 
4815 
1980 
19¢8 
LSF5 
OAOE 
31 

OAOF 
2a 

199E 
199F 
1gAl 
1310 
1323 
1340 
135) 
1i9c8 
1457 
1954 
1873 
1672 


1998 
199C 
19C1 


00 
02 
12 
36 
02 
20 
90 
06 
90 
46 
35 
E4 
05 
05 
05 
05 
1B 
04 
04 
FF 
78 


19C7 


1963 


1873 


28JUL69 


816444 816485 


ADOR STMT SOURCE STATEMENT 


QAO 
OA02 
OAO03 
OA05 
GAOT 
OAOS 
OAOoe 
OAGF 


OALO 
OAlL 
OAL3 


25AUG69 
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PART NO. 


2589736 
PAGE 1 


2 DECK 4 
3 START X*A00® 
& EREFSEKRHERSERSESHAKSHEK SERFS AMEE SHELSAKSEHVSETHKRE SEKTHS FEARLESKSKSESKSS SAKE SSKASERERH 
5 * : 
6 * READ EVALUATION AND ADJUSTMENT DIAGNOSTIC 
7 * 
QB EKESVESHKSKSSESEKEA SER SARRS SZ FSESEKS STRESSES EKKARESKSESKREKESE KSEKSESKKEEAKKHSEKKAKHE RE 
9% SECTION 3 
LO EEREEEEEKESSEEAHASEKSESRERSSES SHAS SSSESRSESKKSESCKEBRSESERAKERE GEESSEAKERS ASA BETERS 
il * SECTION PREFACE 
LZ FCESHERASASABAKLSEALSKSERSSSESHAKS CHAS SKS RSESKEKHKLERKEAKHRKHKKARSLFAKRS WS FEF SEKVSKSRF 
13 DC = XL2*F032¢ PROGRAM 1D AND REVISION LEVEL 
14 DC =—- XL "008 SECTION FLAGS 
15 oc = XL1 "908 CURRENT ROUTINE NUMBER 
16 pc =: XL2 "08 
17 DC = AL2(RTO1) ADDRESS OF FIRST ROUTINE 
18 pC = x2 "08 RESERVED 
19 SPUDT DC xL3*FO40008 UNIT DEFINITION TABLE 
20 DC  =XL3*E01000* 
Zl] SeSRHERSHELESSASEES LESS KS SLE SKA SHKKLSSESSESEKHAKKSKHTEKNSE SHETEFESSE KES SH FHKE RK VTEKERD 
22 + ROUTINE 1 PREFIX 
23 BSSEKKESSASSRSEAKEASES SS VSR SKSS GSA HSK SERS SKSKESRKS CE KSSE KEE SKLKLALERKS KEKE KET FHHKKEE 
24 RTOL OC XL1°O18 ROUTINE NUMBER 
25 DC =—_- XL *808 MANUAL INTERVENTION 
26 FFFF DC XL2*FFFF* LAST ROUTINE 
ST SSSCSEHSERASKFSSKKEAHASSE PRSKEERSE SKATHKESSRKAKSKKKAKSEESEBRFERSEBESEKESRSEFEHE SESE TERS 
28 | SBF FLAGS »X*Co* *TURN OFF FIRST TIME THRU AND 
29 * #FIRST DATA CARD FLAGS 
30 SBF «FLAGS 2_X°FF* TURN OFF ALL FLAGS 
31 LA =: STORE14+3,XRi LOAD ADDRESS OF FIRST SENSE COMMAND 
32 GENIT MVC 4(4XR1),0¢,XR1) - MOVE SENSE COMMAND INTO NEXT POSITION 
33 “LA 4 _XR1DDQXRI INCREMENT XR1 TO POINT AT THIS SENSE 
34 ALC = 0(2.XR1), TWO INCREMENT ADDRESS. TG SENSE INTO 
35. CLE = OU 2p XR1) LAST *CK FOR AND BRANCH IF NOT 
36 BNE - GENIT *LAST SENSE COMMAND TO GENERATE 
37 TBN  SPUDT»X*02" *CK FOR AND BRANCH 
38 - _JT =: £0250 *1F 250 CPM 
39 MVI = 122..X*46* . 
40 MVI =—-123_.X*46* 
41. MMVI -D1244X"468 - 3 
42 MVC —- FIRSTD#3(1).034 *LOAD CONSTANTS FOR 
43 MVC =—- M10#341),D34 #500 CPM 
44 VI MINPUL,X*1B¢ 
45 MVC = - MIN-195 TWO50(3) 
“6 J INIT = ° 
47 * 
48 L0Z250 HVC FIRSTD+3(1),068 *LOAD CONSTANTS FOR 
49 MVC” —- MID#341),077 +250 CPN 
50 MVC = TOSKEW-21 sONEE2 (3) 
51 MVI - SKEW3 9 X#12° 
52 MVI - MINPUL»X*36° 
53 MVC «- MIN-19y FIVEOO(3) 
54 TEN SPUDT#2,X"20° *CK FOR AND BRANCH IF 
55 JF INIT *LINE PRINTER IS NOT ASSIGNED 
56 TBF = SPUDT+3,X* 06" #CK FOR AND BRANCH 
57 aF INIT *1F NOT 96 POSITION PRINTER 
58 MVI = 123yX*46° 
59 MVE = -0124,_X*35* 
60 MVI = - FFEA,X*E4* 
61 MVI =: TRAIL4#2,X* 05° 
62 MVI =: TRAIL14#2,X*05° 
63 MVI TRAIL 2#24X*05* 
64 MMVI TRAIL 3#2,X"05* 
65 MVI - MINPUL»X*1B° 
66 MVI- DAt2_ X*04" 
67 MVC = POS-10y SHORT (5) 
68 INIT MVI TABLEF+121,X*FF® *SET ALL BITS ON 
69 MVC =- TABLE F#1201121),TABLEF#121 *iN THE -AND- TABLE 
O6NOVE9 10FEB70 29JUNTO PROG ID oF03-2 
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18" MAINTENANCE DIAGNOSTIC PROGRAM 


F032 
ERR LOC 


oac3 
OAC7 
OACD 
OAD1 
OAD? 
OADB 
OAE1 
OAE7 
OAED 
OAFI 
OAFS 
GAFS 
CAFC 
6606 
0804 
0608 
os0c 


OBSOF 
0813 
o817 
0818 
OB1F 
0823 
0827 
0820 
0833 
0839 
O83F 
0845 
C 0849 
OB4F 

iS 0855 
C: 0859 
: OBSC 
0662 
0866 
0869 
o0B6D 
OB6E 
OB6F 
oB71 
C 0873 
. 0877 

“ “ 0678 
Cc: 0879 
O87B 

_O87F 

oO 0881 
oB65 

0688 

C OBBC 
0890 
0B93 
0897 
OB9A 
OB9E 
OBA2 
OBA3 
OBA4 
OBA6 
CBA8 
OBAC 
OBAE 
08B2 
OBB6 
O8B7 
OBBS 


o 


> 


nd 


. 


DATE 
EC NO. 
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$/3 READ EVALUATION AND ADJUSTMENT 
OBJECT CODE 


3c 
oc 
3c 
oc 
3c 
oc 
oc 
oc 
38 
F2 
3A 
3A 
3A 
3c 
3c 
3c 
F2 


38 
3B 
38 
3C 
3 
3C 
oc 
oc 
oc 
oc 
oc 
3c 
oc 
oc 
38 
F2 
oc 
"38 
F2 
co 
42 
19 


00 
78 
00 
36 
00 
F3 
ol 
05 
80 
10 
08 
08 
08 
F8 
F8 
F3 
87 


08 
08 
0&8 
FO 
FO 
FO 
7S 
79 
79 


79. 
79. 


01 
78 


Az 


80 
$0 
03 
80 


id. 


87 


188A 
FOES 


co 
06 
20 


87 


192E 


co 


87 


FOE4 


31 
F3 
ci 
30 
F2 
38 
F2 
3A 
co 
46 
23 


F5 
Fl 
Fl 


c3 


81 
80 
10 
80 
87 


1840 
FOEO 


co 


87 


FOEO 


30 
co 
46 


24 


oo 
87 


1871 


LAF9 
1AF8 
1080 
1cC8C 
1068 
icé7 
LSAT 
1973 
0208 
18 

OCDF 
003C 
1008 
OC7F 
1000 
1023 
18 


OCcOF 
o03¢c 
1008 
OCTF 
1000 
1023 
17FA 
1780 
1706 
168C 


1612. 


1598 
1597 
188A 
0208 
06 - 
188A 
1460 
te: 


o21A 


O21A 


0222 


19CC 
05 
oB8a 
1ACO 
92 
1460 
43 
1460 


O21A 


0222 


1983 
O21A 


ZBJULE9 
816444 


1AF9 
2080 


1068 
i975 
1A&6 


i7FB 
1781 
1707 
1680 
1613 


i596 
1936 


1932 


ADDR STMT SOURCE 


- OB6D 


OB6E 
oB70 
0672 


0877 
0878 
OB7A 


OB80 


OBA2 
OBA3 
OBAS 
OBA7 


OBAD 
OBB6 


OBB7 
ob89 


25AUG69 


816485 


112 
113 


114, 


115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
l2é 
127 
128 
i129 
130 
131 
132 
133 
134 
135 
136 
137 


WHICH 


INIT2 


INTT3 


LDATA 


ROCNTR 


O6NOVES 
826523 











PART NO. 


2589736 
PAGE 1A 








DIAGNOSTIC (READ) 

STATEMCNT 

MVE = TABLEC#121,X*00* *SET ALL BITS OFF 

MVC =TABLEC#1200121),TABLEO*#121 *IN THE -OR- TABLE 

MY¥I ALLOUT,xX*00* 

MVC ALLOUT—1,ALLOUT(60) 

MVE SKEW20~_x*00* . 
MVC = SKEW20-19SKEW20(244) CLEAR SKEW AREAS | ~ 
MVC LEAD, ZERO(2) CLEAR LEADING EDGE COUNTER 

MVC = =WORK3 »TABLEO*6(6) CLEAR LEADING EDGE TIME PRINTOUT 

TEN SBYTE3,SNSW1i8 

JT INIT2 

SBN CATA1+1,x*08* 

SBN DATA24+1.x*0O8* 

SBN OATA34+1,X*08" 

MV1 «= DATA441,X*FB* 

MVI DATAS41,_X*Fa® 

MVE = DATAG41 9X" FBP 

J INIT 

SBF DATAL+1,x*°C8* 

SBF DATA2+1_—X*08* 

.SBF ODATA3421,x*08¢ 

MVI 4 =DATAG41,X* FO? 

MVI «= DATAS+1,_X*FO* 

MVE =DATAG41 gX*FO® ; 

MVC =—- SKE W405 SKEW4041(122) 

MVC = SKEW30, SKEW30416122) 

MVC «= EMI TERS EMITER41 (1229 

MVC CELLI,CELL 10243222) . 
MVC =§CELL18,CELL18420122) 

MVI  SPAREL,»X*O1® 

MVC SPARE1~1 eSPAREL (1219 . 

MVC 6THEM,SECD(4) : 3 
TBN: SBYTE3,SA\SW18 2 

JF LDATA . 

4VC 0 THEM, PRIM(4? 2 

JBN FL4GSeFLAGO. *CK FOR AND BRANCH IF : . 
JT ROCNTR *NOT FIRST TIME THRU. 
8 PRINT *PRINT 
OC. XL1*42* *LOAD 

oc 1L1°25° POATA 

DC =—s_— ALC THEM) ®CARCS 

cc XL2°FOE4* * A ce 
8 PRINT SPRINT oe 
oc xXL1°06* @NOTE-—UDT CARD J 
oc TL1°32° - *MUST BE CORRECT— 

oc AL2(U0T) > 

8 ‘HALT SHALT TC LOAD 

Dc XL2*FOE4S* *DATA CARDS — 

L1G LERC,X*FS* 

SIO = X* 05%» X*F Re ; 

TIO = yX*Fi*e LOOP UNTIL BUSY DROPS 

CLI =RDFO, X*C3* ®CK FOR AND BRANCH 

JE CKINFO 1 CONTROL CARD 

TBN FLAGS eFLAGO ®CX FOR AND BRANCH IF 

‘JT BEFCRE | ®NOT FIRST TIME THRU 

SBN FLAGS»FLAGO TURN ON FIRST TAME THRU FLAG 

B PRINT *#PRANT 

-OC xXxL1"468 * 

oC IL1°35* e 

oc AL2(HANY? s 

oc XL2*FOEO® s 

8 WALT HALT 

DC XL2°FOEO® - . 

SNS WORK-4,X*00® READ NG OF CARDS TO @E READ PER PASS 

8 PRINT *PRINT 

oc XL1°46¢ * 

oC 1L1°368 

DC AL2USELECT) 

= 

LOFEBTO < SJUN70 2 PRCG 10 OF 03-2 
816592 816704 PAGE aa 
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ny 


os 








e 
€ 


c 
Cc 





_ 0039 


oc: 


IBM MAINTENANCE 


OBBA FOE1 
CBBC CO 87 
OBCO FOEL 
OBC2 30 O02 
OBC CO 87 
OBCA 46 
OBCB 1F 
OBCC 151 
OBCE FOE2 
OBD0 CC 87 
CBD4 FOE2 
O8D6 30 00 
OBDA F2 87 
o80D CO 87 
OBE FOEO 
O8E3 30 00 
OBE? 36 FO 
OBEB F2 90 
OBE CC O1 
ObF4 CO 87 
OBFB FOEL 
O&FA 30 00 
CBFE 39 FF 
OCO2 F2 90 
oces Oc oo 
OCOB CO 87 
OCOF FOE2 
OCIE 30 00 
OC15 36 FO 
DCI9 FZ 90 
OCC OC O1 


OCe2 F2 BF : 


GC2S oC 
oL28 
OC2F 
GC32 
OC 36 


oo 
35 OF 
F2 30 
39 CF 
Fe $6 
39 OF 
OC3D F2 16 
OC40 CO &T 
0044 Cb 
CC4S 16 
O0C46 LAFF 
OC4@ FOES 
OCGA CO BF 
OCGE FOES 
Oocsc CoO ar 
OC56 CO ST 
CCS8 Co 
OCSS 36 
OCSAa 1884 
GCse F2 87 
GCF CO a? 
oCé3 Ce 
O06 i997 
OCe6 98a 
6Cse8 CO &? 
Ove Ol 
OCéD OE 
OCeE L4esE 
CC?70 CO ar 
OC74% 06 
GTS OF 
GC76 196A 
O¢c7e CC 02 
OC7E CL FO 


- OC82 38 40 


0C86.CO $0 


ERR LOC OBJECT CODE 


0222 ° 


1985 
O21A 


O222 


O88) 
O2%é 


23 
O21e 


O2iA 
O2ia 


154A. 
CC54 
1460 


0D37 


1989 


1989 


L389 


LACD 


i991 


DIAGNOSTIC PROGRAN 


F032 S/3 READ EVALUATION AND ADJUSTMENT OLAGNOSTIC (READ) 


ADDR STMT SOURCE STATEMENT 


ob86B8 
obCi 


OBCA 
oece 
Osco 
OBCF 


O805 


OBE2 


OBFS 


OC 44 
oC4&S 
OC47 
0C49. 


OC4F 


oc5a 
0cs9 
ocss 


CCG3 
oces 
0C67 


ocac 
océD 
OC6OF 


OC T4 
oc7s 
oct? 


OATE =. 264uULe9 =. 25 AUG 69 
EC NO. 816404 616485 


138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
183 
154 
155 
156 
157 
158 
159 
160 
i6l 
162 
163 
164 
165 
166 
167 
168 
169 
‘170 
i7k 
L¥2 
i73 
174 
L756 
i?o 
17? 
i798 
179 
160 
“182 
"182 
183 
184 
185 
186 
187 
188 
1389 
196 
192 
1$2 
193 
194 
1395 
196 
197 
198 
199 
206 
201 
202 
203 
20% 
265 


BEFORE 
COLNO 


DELY 


CKINED 


BADCO 


&OADIT 


DE PACK 


INSERT 


DATA4 
CKAST 


OGNOVES 
816523 


DC 
8 
oc 
SNS 
8 
oC 
pe 
DC 
oc 
8 
Dt 
SNS 
J 
B 
DC 
SNS 
TBF 
JF 
MYC 
8 
oc 

SNS 
TeF 
JF 
AVC 
8 
oc 
5NS 
TBE 
JF 
KC 
3 
MYC 
TSF 


uc 
M¥C 
Tid 
TbN 
BF 


10FEB70 
816592 


XL2*FOEL® 
HALT 
XL2*FOE18 
WORK~2X*008 
PRINT 
XLL*468 
ILL¢3.¢ 
ALZ(MSEC? 

XL2 *FOE2° 
HALT 
XL2°FOEZE 
WORK @X* 008 
DEPACK 

HALT 
XL2°FOEO# 
WORK2,X?008 
WORK2—1 5X" FO® 
COLNG 
WORK=4 9 WORK2 (23 
MALT 
MLZ°FOERS 
WORK2 9X #008 
WORK2—1 gX* FFE 
DELY 
WORK=2(19 © WGRKZ 
HALT 
KL2*FO0E2® 
WORK2 »X*00* 
WORK 2-1 ,X*F OS 
DEPACK . 

WORK phORK2(23 
DEPACK 

CNTRL »RDED413(14) 


‘CARDS-3,XK* OFF 


BaDCcOo 
COLURN-2 eX OF* 
Badcd 

CNTRL~3 9X*GF* 
INSERT 


"” PRINT 


XLIfC6® | 
ik1*22! 
AL20BAD1) 
XL 2° FOE 3* 
HALT 


" XL2°FOE3° 


ROCATR 
PRINT 
XL1*06* 

TL #258 
ALZCTHEM) 
CKIST 

UNP ACK 
1L1%6? 

AL2 (WORK? 
ALZCCNTRLD 
PRINT 
XLA*OL* 

ILL 146° 
AL2(CC) 
PRINT 
XL1L*O6* 
IL2*i46 
AL2(CNTRLI 
CARCCT,000(3) 
LOACIT,x*FO* 
FLAGS e FLAG] 


-CKLEAD 


29JUN70 
816704 


PART NO. 
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& 
HALT 


READ COL NO. YQ BE READ 
SPRINT 
& 
* 
= 
* 


HALT 
READ DELAY IN 100 MILLESECOND INCRE 


*HALT TO SETUP 
*NUMBER GF CARDS 


*CK FOR AND BRANCH IE 

*LEFT SWITCH IS NOT ZERO 
MOVE NO. OF CAROS FOR UNPACK 
FHALT TG SETUP 

*COLUMN 70 READ 


#CK FOR AND BRANCH IF TO 
*LEFT SWITCHES ARE NOT ZERG 
MOVE COL. NO. FOR UNPATK 
SHALT TQ SETUP 
*DELAY BETWEEN CMNDS 


#CK FGR AND BRANCH JF LEFT 
*SWITCH IS NOT ZERO 
MOVE DELAY FACTOR FOR UNPACK 


MOVE CONTROL CARD INFG INTO CNTRL 
¥CK FOR AND BRANCH IF WO. ke 
uF CAROS IS MGRE THAN 3 DIGITS 
*CK FUCK AND BRANCH TF COL. NO. 
*IS MORE THAN 2 DIGITS 
*CK FOR AND BRANCH IF DELAY 
*FACTOR IS 3 DIGITS OR LESS 
*PRINT 
*BAD 7 
=CONTROL 
* CARD 
= MSG 
*HALT FCR CORRECTION 
*OF CONTROL CARD . 
GO BACK TG READ ANGTHER CARD 
*PRINT 
. LOAD 
*DATA 
*CARDS 7 


*PRINT 
*#CONTROL 
* INFORMATION 
*NAMES 
*PRINT 
STHE 
*CONTROL * 
* INFORMATION 
ZERO CARD COUNT AREA 
BRANCH TO PRINT If NOT RDY 
*CK FOR AND BRANCH IF 
*FIRST DATA CARO 


PROG 1D 


OF 03-2 
PAGE. 2 


ee ee ee ee ee et ee a er er 


°o @ @ @ @ ®@ 


ERR LCC 


OC8A 
ocs0 
ocs3 
ocs9 
ocgoc 
GCAO 
OC AG 
OCAC 
ocb2 
OcBes 
OCBE 
OCl4 
OCCA 
OCCE 
Ocd4 
OCDA 
OCcBE 
OCEL 
OCcE? 
OcEa 
OCFL 


e 


eo 


ry 


o 6 


OCF5 
OCFB 
oD01 
OB04 
ooo? 
CDOA 
C ODOE 

‘ODb12 

ODi6 
‘ ODLA 
i obID 
6D26 
05023 
OD27 
ees 8828 
' GB2F 
0033 


: 
os 


Eo 


0D37 
0038 
OD3E 
.O0D44 
OD4s 
OD4C 
0059 
0054 
oDp57 
0058 
ODSF 
0063 
O067 
OD6D 
oo73 
O077 
OO7B 
OD8i 
0085 


we 


Co Q O°: OO CQ @ O 


O 


oO 


0089 
obDsD 
0092 


oO 


DATE 
EC NO. 


e @© @ @ 


SSRI SAO ENR RT OIE IEA NRO OR EE a 


OBJECT CODE 


0b 
F2 
oD 
F2 
3A 
oc 
oc 
ce 
oc 
oc 
oc 
oc 
3c 
ac 
oc 
31 
F3 
oC 
c2 
oD 
ca 


G6 
oD 
F2 
70 
78 
co 
c2 
36 
co 
F2 
70 
78 
co 
C2 
36 
co 
co 


31 
F3 
oc 
C2 
36 
38 
co 
B2 
30 
38 
co 
34 
OF 
06 
36 
co 
oc 
3A 
co 


30 
38 
co 


Oi 
8&1 
ol 
82 
20 
Ol 
00 
02 
02 
719 
79 
82 
ol 
ic 
02 
FS 
Fl 
Ol 
0} 
02 
82 


o1 
oi 
Ol 
FO 
24 
90 
02 
02 
84 
87 
FO 
24 
$0 
02 


-02 


84 


87 


F5 
Fl 
03 
o1 
FO 
is 
i0 
ol 
FO 
04 
390 
Ol 
C1 
23 
01 
8&4 
03 
40 
87 


FO 
ia 
10 


L9Bé 
o9 
19B6é 
OA 
1460 
i9e6 
19BE 
1908 
L9OE 
LTFA 
i786 
i824 
1086 
icé5 
19A5 
19CC 
o6 
1960 
cao 
iSBé 
0089 


196D 
1960 
i9 
o1 
O21 
oDO4 
cG000 
OA13 
oD42 
BC 
Oo} 
Oi 
oDID 
0000 
OAL3 
0028 
OcFS 


19CC 
06 

1491 
ooco 
i98D 
i98D 
cD4a 
Ci 

198D 
498D 
O0D54 
LOA? 
iSAT 
1$73 
OA13 
ovéeD 
141 
1460 
OC8A 


i98D 
1S8D 
0D89 


28JUL69 
816444 


ADDR STMT SOURCE STATEMENT 
1991 206 DATACD CLC  CCLUMN,DOOL2) *CK FOR AND BRANCH IF 
207 JE GET3 *COLUMN SELECTED IS ZERO 
1999 208 CLC = COLUMN, 0332} *CK FOR AND BRANCH IF COLUMN 32 
209 JL GET *OR LOWER HAS BEEN SELECTED 
210 GET3 SBN  FLAGSyFLAG2 *SET FLAG AND SETUP TO CHECK 
1993 211 MYC COLUMN,D1(2) *COLUMN 1 
1975 212 GET HVC = SKEW4(12, ZERO CLEAR THIS PASS MAX SKEW COUNT 
1991 213 MVC LESS218,00013) ZERO SHCRT DATA PULSE COUNTER 
1991 214 MVC LESS1,D00(3) ZERO SHORT DATA PULSE COUNTER 
17FB Z15 MVC =—- SKEW40. SKEWS041 (1223 
1781 216 MVC =—- SKE W305 SKEW3 0414122) 
1992 217 MVC = TOSKEWO3) 01-1 | ZERO EXCESS SKEW COUNT 
218 MVI = DATFLE+6,X*G1" 
1C86 219 MVC =- DATFLD#¢5,DATFLD46129) 
1991 220 MYC CCUNT,DO00(33 ZERG ACTUAL CARD COUNT 
221 LIC LDRD,X*FS* *READ DATA CARD 
222 DATAl SiO xX*06*,X*Fi! *INTO STACKER 2 
1$93 224 CLEAR MYC COLCKsD142} LOAD CO'UMN TO BE CHECKED COUNTER 
224 LA DATFLD, XR LOAD DATA FIELD ADDRESS 
1953 225 CLC CCLUMN,D1C2) #CK FOR AND BRANCH IF 
226 BE BOTH *CHECKING CGLUMN 1 
227 SPSESAARSKAALEASAHA SKS LSERKIERERRGERAKAEL RH SARLSERERTSKSARFARK TRE ARK KES EPSSESSEE 
228 * DETERMINE COLUMN TO BE CHECKED 
229 SEVRASSERELAHKA ARS SAAHKS HAAS KEASHRAERSRKEARRSEAKSE SSS SKSRAEERAKARAK KAKA ALE KASS SRS 
1993 230 FINDIT AZ COLCK(23,03(2) ADD ONE TO COLUMN TO BE CKED COUNTER 
19B6 231 CLO © COLCK E23 e COLUMN *CK FOR AND BRANCH IF THIS IS 
232 _ JNE  COOLIT *NOT CCLUMN TO BE CHECKED 
233 ALLRDY SNS 1 fXRLiDeX*FOF *LOOP UNTIL 
234 ‘ TBN  -1€,XR1}2X#24° *ALLOW READ 
- 235 BF ALLRBY a #AND COUNT. 
236 MID LA BH y XRZ *DELAY REQUIRED 
237 DELAY A FFFF ¢XR2 #AMCUNT DEPENDING 
238 BH DELAY1 GON MACHINE SPEED 
239 J  $TOREL 
240 COCLIT SNS  14XR1},X* FOF *LOOP UNTIL 
241 : TEN ° G4 _XRLDX*24° #ALLOW READ 
242 BF COOLIT *AND COUNTL = 
243 FIRSTD LA. #r¥,XR2 DELAY REQUIRED 
244 DELAY2 A FFFF »XR2 AMOUNT DEPENDING. 
245 £H DELAY2 ¥ON MACHINE SPEED. 
246 B FANDIT 
247 
248 REREELAARRARARAKSRSEARRETSEHKSRESAELAT HARA RALSLELHRHLAA SEAS KTS RE STKSE SRSSSRS 
249 # CHECK LEADING EDGE ON FERST CARD ONLY 
250 REESE REARS LSPA RSE S SAGARA KAA HE RARE LAKHS HS SEAAKLAA ES SRERSHKYRKES RGB A 
251 CKLEAD LIO  LORD,X?F5# *READ DATA CARDS ; 
; 252 DATA2 S10 X*06%,XtFi* *INTG STACKER 2 
1492 ‘253 MVC = EDGE~10,EDGE-914) CLEAR LEADING EDGE COUNTER 
254 LA OyXR1 CLEAR XR 
255 ONE18 SNS  PLAY,XtFOS *LGOP UNTIL READ 
256 TBN PLAY» X*18¢ *CELLS 1 AND 18 
257° BT ONE18 ARE COVERED 
258 CKEDGE LA 1(,XRL) »XRY ADD 1 TC LOOP COUNTER 
259 SNS PLAY, X*FO# *LOOP UNTIL 
260 TEN - PLAY, X* 048 *ALLOW READ 
261 BEF  CKEDGE *COMES UP 
262 ST LEAD.XRi SAVE LEADING EDGE LOCP COUNT 
i978 263 SLC LEAD, FIVE(2) SUBTRACT 5 FROM LEADING EDGE LOOP CT 
1967 264 MULT AZ WCORK3 (6) 9 F2736(4) *CONVERT LOOP 
265 A FFFF eXR2 *COUNT TO : 
266 BH MULT = tg “eh *PRINTABLE TIME 
1971 267 MVC = EDGE- 10 » WORK3-2(4? MOVE TIHE INTG MESSAGE 
268 SBN  FLAGS,FLAG1 TURN ON FIRST DATA CARD FLAG 
269 B DATACC GG READ NEXT CARD 
270 * 
271 BOTH SNS PLAY,X*FOt *LOOP UNTIL READ 
272 TBN PLAY, X* 18° *CELLS 2 AND 18 
273 BT BOTH ¥ARE COVERD 
25AUGES O6NOVED9 LOFEB70 29JUN70 PROG 3D OFO3~2 
616485 816523 816592 816704 PAGE 2a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


F032 
ERR LOC 


0095 
OD98 
ODAL 
OBAS 


ODA9 
O0ad 
OF AD 
OFE3 
OFBS 
OFS 
OFCS 
BFCS8 
GFCC 
OF D2 
OF D6 
OFCA 
OFEO 
OF ES 


OFEO 3 


OF ED 
OFFI 
OFFS 
OFFS 
OF FF 
1603 
2007 
20084 
ZOSE 


aGi2 
1016 
10i7 
RGiB 
RGIA 
BOrC 
202¢ 
2022 
1026 


4024 
AO2E 
2032 
10386 
16036 
ROSE 
2041 
1044 
1047 
2044 
LOoSb 
1050 
4653 
1059 
£ose 
2060 
1083 


2067 


10668 


DATE 
EC NO. 


PART NO. 2589736 
PAGE 3 
S/3 READ EVALUATION AND ADJUSTHEAT DIAGNOSTIC (REAC) 
OBJECT CODE ADDR STMT SOURCE STATEMENT 
OC O01 1985 19A7 274 | MVC PLAY» LEAD(2) LOAD LEADING EDGE LOOP COUNT 
OF 01 1980 1977 275 SUBL SLC PLAY,ONE(2) *LOOP UNTIL ABOUT 
CO 87 ODA5 276 B +4 #8 SAMPLES AHEAD 
CO 01 OD9B 277 BNZ  SUB1 *ALLOW READ 
ZIG SEESSRERHRKAHKKGEARK SLSR SASKEREKARHKESEKKATHESKAGCFARRHKHERKKKCREKSHEASAS HKSAR 
30 FO 1Cel 279 STORE SNS  DATFLO+1,X* FO? 
CFAC 280 DS 4CLi28 
06 11 1945 1993 281 AZ  COUNT(33,D1(2} INCREMENT ACTUAL CARD COUNT 
OD 02 1982 1991 282 CLC = CARDS» DO0E3} *CK FOR ANO BRANCH IF 
F2 81 10 283 JE FINISH *NUMBER OF CARDS NOT SPECIFIED 
0S 12 19AA 1993 284 AZ CAROCTi3},D1¢2) ADD 1 TG CARD COUNT 
OD OZ 194A 1982 285 CLC = CARDC Ty CARDS (37 *CHECK FOR AND BRANCH IF TOTAL AO. 
CO O01 OFDA 284 BNE WAIT *OF CARDS SPECIFIED NOT READ YET 
OC 02 194A 1991 287 FINISH MVC  CARDCT,000(3) ZERQ CARD CGUNT AREA 
CO 87 2273 286 6 SETUP 
CO 87 102A 289 8 PRTOUT 
OD O1 15BA GAC 290 WAIT CLC  CNTRL»DELAY(2) *CHECK FOR AND BRANCH IF 
F2 81 1 292 JE CKRDY *DELAY HAS BEEN COMPLETED 
66 O1 19A4C 1693 262 Az DELAYE2},D1¢2) INCREMENT DELAY COUNTER 
35 01 1569 293 b D6575yXR1 *DELAY 
36 01 0413 294 CLYL =A FFFFyXRI *100 
CO 84 OFED 295 BH DLY1 #MSEC “ 
CO 87 OFDA 296 8 WAIT 
OC O1 LYAC 1992 297 CKRDY MVC DELAY,DCO(2) ZERO DELAY COUNTER 
C2 FO 1022 298 DATAS TIO NTRDY.X*FOS BRANCH TG HALT IF NOT READY 
31 FS 29CC 299 RONEXT LIO LORD,X*FS* 
F3 FL 06 300 DATARS SIG X*068,xX*FL® START NEXT CARD 
CO 87 1273 302 8 SETUP 
CO 87 OCEL 302 8 CLEAR 
303 * 
CQ aT 0214 304 NTROY 6 PRINT x 
46 1016 305 . dC XLLtGOF * 
“A 1017 306 oc TLL°74# _# 
16D 1019 307 oC AL2(HAKE} * 
FOES 1018 308 DC XL2*FOES® * 
€O 87 0222 “309 B HALT *HALT FOR DEVICE 
FOES 1622 310 oC XL2*FOES* *TO BE MADE READY 
Ch FO OFCC 3212 DATA6 TIO FINISH, X*FO* BRANCH TO PRINT RESULTS IF NOT RDY 
CO 87 2003 312 ° 458 RDNEXT 
313 * : 
SiS SHERVARSVSESRETRSEKSIS GLE LASERS SEE LHAKERAKEKTEKKSRKSLEKHKLBAKKEKKEKPHRKATHKARKLAKE 
35 # SETUP AND PRINT INFORMATION STORED 
31 G& BRHRSRHKATERS EERE SERMEARR AG RSH RASH ASSESREAKMPERKHRESEKSKREFRAAGARGKARY SHEE KS 
317 @ ~ SETUP CELL 18 PRINTOUT 
: ZLB SHSARASRSSESSSSARARKSSFS ARES ASE SRHARARKSKKKRRSARKHHKAEKMAK KE KKKKRKFSE SHESHFSRKERS 
C2 0% BA80 319 PRTOUT LA = TABLEQ, XR LOAD ADDRESS OF -GR- TABLE = 
G2 02 1599 320 LA TABOO, XR2 LOAD ADDRESS CF CELL 18 OUTPUT 
OC 00 16A2 1990 322 MVC =- LOOP (1) ,0122 LOAD LOOP COUNT 
7% O& OO 322 CKORS TBN G,XR1),x*O5* *CK FOR AND BRANCH IF CELL 18 
F2 10 068 323 JT CKANDS *WAS EVER COVERED 
BC 40 00 324 MVI O49 XR2D 9X4 GOE PLACE BLANK IN MESSAGE 
f2 87 OF 325 J ADDONE 
78 08 TA 326 CKANCS TBN  122¢9XR1} 9X" C8! *CK FOR AND BRANCH IF CELL 18 
F2 10 06 327 sT ALWAYS *#WAS ALWAYS COVERED 
BC 61 00 328 MVI Ole XR299X*618 PLACE SLASH IN MESSAGE 
2 87 03 329 J ADDONE 
BC 60 06 330 ALWAYS MVE 0 ,XR2)9X*608 PLACE DASH IN MESSAGE 
OF OO 1GA2 1977 331 ACDOWE SLC L00P141),0NE *DECREMENT LOCP CCUNT AND 
CO 61 1067 332 BZ CHECK1 *B3RANCH WHEN IT GOES TC ZERO 
02 01 01 333 La U(yXR1eXRI INCREMENT BOTH 
£2 02 Oi 334 LA 1g XR2) oXRZ *INDEX REGISTERS 
CO 87 1038 335 e CKGRS 
336 2 
3327 SEFSESHKSSEHSESEES SS ERSEKEKSSKKHEREREKAAAAHKRAARHKEKEHKEA KRHKSKEKHK AE SKETISE A KHEARHX 
; 338 ®@ SETUP CELL 1 PRINTOUT 
339 SSASEREKES SESE SESE SAREE EKSEREH SE: SEKERERKEERERKSEEK AEE TKK SKRESRRAIFLESKITSLHERE 
C2 02 1480 340 CHECKL LA = TABLEO» XR LOAD ADDRESS OF -OR- TABLE 
C2 02 1613 341 LA ss TABFF eXR2 LOAD ADDRESS OF CELL 1 OUTPUT 
285UL69 25AUG69 O6NGVES LOFEB70 = 29JUN70 PROG ID OFO3~-2 
816664 816485 816523 816592 816704 PAGE 3 
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eG 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


F032 


ERR LOC 


2 O6F 
1075 
1078 
1078 
LO7E 
108i 
1084 
1087 
LOSA 
108d 
1390 
1096 
1094 
1098 
1046 


1CAS 
10A& 
LOAT 
1C0B2 
1OB5 
1088 
icbsB 


LOBE 
16C1 
10C4% 
LOC? 


13CA 
10co 
1003 
ROOF 
2ODA 


1CDD 


ICE 
LOES 
1OES 
iOEO 
10F3 
LOF6 
LOFS 
LOFT 
1100 


11023 
2106 
12109 
120C 
i120 


1113 
1116 
Lila 
1120 
1124 
1127 
112A 


Li2e 
1132 
1135 
1139 


DATE 
EC NO. 


$/3 READ EVALUATION AND ADJUSTMENT DIAGNOSTIC 
GBSECT CODE 


oc 
78 
F2 
BC 
F2 
78 
F2 
BC 
F2 
BC 
OF 
co 
D2 
E2 
co 


C2 
C2 
oc 
768 
F2 
BC 


F2 


78 
Fe 
BC 
F2 


BC 
OF 
co 
Bez 
E2 
ca 


25 
C2 
C2 
oc 
78 
Fz 
BC 
3A 
F2 


7é 
F2 
BC 
3A 
F2 


BC 
3A 
OF 
co 
D2 
E2 
co 


38 
F2 
38 
Fe 


00 
19 
20 
4&9 
a7 
16 
10 
6i 
87 
éc 
6G 
8h 
01 
02 
a? 


Gi 
92 
oo 
24 
10 
40 
87 


24 
10 
61 
87 


c5 
oO 
i 
of 


92. 


87 


O7 
Oi 
02 
090 
Ol 
is 
40 
01 
87 


O1 
10 
61 
04 
87 


60 
G2 
oo 
81 
Ol 
02 
&7 


04 
10 
02 
10 


19a2 
oc 
06 
00 
OF 
7A 
cs 
oo 
03 
00 
19A2 
1044 
ol 
O3 
Ac7s 


LA3G 
1680 
1942 
0G 
06 
090 
CF 


7A 
06 
00 
c3 


CG 
i9Az 
1ck1 
Cl 
o1 


1052 


3466 
LASO 
LSiF 
19A2 
ac 
OA 
OG 
1460 
17 


TA 
OA 
Qo 
1460 
o7 


00 
1460 
1942 
Li2eE 
ol 
ol 
LOF3 


1460 
24 
1460 
o9 


28JUL69 


816444 


1990 


1977 


assB 


1977 


199F 


1977 


25AUG69 
816485 


ADDR STMT 





hee 


al oe pra "1 
PART NO. 2589736 
PAGE 3A 
(READ) 
SOURCE STATEMENT 

342 MYC LOGP1(1340122 EGAD LCCP CCUNT 

343 MOVE TBN OleXRLD,X*10° CK FOR AND BRANCH If CELL 1 

344 JT HOVE? *eAS EVER COVERED 

B45 MVE Ole XRZ) eX "40? PRALE BLANK IN MESSAGE 

346 J MOVES 

347 MOVE2 TSN 122i ge XRLDgX* 2G! *€K FOR ANC BRANCH EF CELL 2 

248 JT MOVES GAS ALWAYS COVERED 

343 MYI OU eXRZ} yX*618 PE&CE SLASH IN MESSAGE 

250 J MOVES 

351 MOVES MY Of oXR23,X*608 PLACE DASH IN MESSAGE 

352 MQVE4 SLC LO0P101),0NE *BECREMENT LOOP COUNT AND 

353 BZ MOVES BRANCH WHEN IT GOES TO 2ERG 

354 ta LG@eXRLb pXRE *ERCOREMENT BOTH 

355 LA 15 KR2}_XR2 S@EMDEX REGISTERS 

356 BE MOVED 

357 EEEEEEERG RAERES DEEERORE SYATEELHS SERS ROSES EDT 460064 40800000058000450008 
358 *% SETUP EMITTER PRINTOUT 

35S KRFKKESEAKEESAEKRSERKSSAKERSKSKSYASKAKS SESMEGH KERS SE SASCHRSESESAOR SKE SSHSKRSIPS HE STHAEe 
360 MOVE5 LA TABLEG XR LEED ADDRESS OF ~GR~ TABLE 

361 LA TABEE »XR2 LGAD ADORESS OF EMITTER OUTPUT 

362 MVC LOOPL(1) 60122 {GAD LOOP COUNT 

363 MOVES TBN OC gXRLPE eX92K* #EK FOR AND BRANCH IE 

344 JT MOVET *EMITIER AND ALLOW RO WAS EVER UP 
365 MYI O4 oe XR25 oX*408 PLACE BLAKK IN MESSAGE 

366 J MOVES 

367 * 

368 MOVET TBN 1226 ¢XR132-K4245 EK FOR AND BRANCH IE 

369 JT MOVES MEMITTER AND ALLOW RO WAS ALWAYS UP. 
370 MVI - O(eXRZ2),X*6L* PLATE SLASH IN MESSAGE 

371 J MOVES : 

372 * : 

373 MOVES BVI CigXR2}-K*C5* PLACE -E-~ IN MESSAGE 

374 MOVES SEC LOOP1(1),0NE @BECREMENT COUP COUNT AND 

375 BZ MOVELO ®@BRANCH HREN IT GOES TO ZERS 

376 LA 14¢XR1)_XRI SRMEREMENT BOTH 

377 LA L@eXRZ} gp KRZ SEMDEX REGISTERS P Pn 
378 8 . MOVES : 
373 Be re eee ee eR ne ee ere eral Pane een eee Cae eee 
380 * SETUP SPARE PROSE PRINTOUT 

SQL SECSKEKSKSEKKSES TAK SK AHVAKSSSHRSIVKSKKFFSEFHSSRNS RS SIG SASS SE SAPLIPKH VRE GH ONE DSAROVD 
382 MOVE1IO SBF FLAGS eXto7e CREAP SPARE PROSE FLAGS 

383 LA TABLEO, XR} LGM ADDRESS OF -OR~ TABLE . 
3a4 LA TABSPR,XR2 | LGAD ADDRESS OF SPARE PROBE OUTPUT 
385 . &vE L0GP2413+-0124 LOAD LOCP COUNTER . 

386 MOVE11 TBN Ot »XR2}eX*O1# *EK FOR AND BRANCH EF SPARE PROBE 
287 JT MOVE12 PwAS EVER UP / 
3ee MVI Ole XR2) 4X8 409 PEALE BLANK INK MESSAGE . 
389 SBN FLAGS »FLAGT we 
350 J MOVELS 

391 3 , 

392 PMOVE1L2 TBN 2220 eXR1L3 gy M*OL? EK FOR AND BRANCH EF SPARE PROBE 
393 JT MOVEL3 *mAS ALWAYS UP ce 
394 MVI OlsXRZ)-X*EL* PLACE SLASH IN MESSAGE a 
395 SBN FLAGS oFLAGS = 
396 J MOVE14 

397 * . 

398 MOVE1I3 MVI O(sXR2) ,X*SHO? PLACE DASH IN KESSAGE 

399 SBN FLAGS eF LAGE 

400 MQVE1L4 SLC LOOPLGLEyONE *PECREMENT LOOP CCUNY AnD 

401 82 MOVELS TERANCK WHEN 3F GOES TC ZERO 

402 LA 14 9XR1L}—XRI SEROREMENT BOTH 

403 LA kU yXRZ) _XRZ @ERDEX REGISTERS 

404 B MOVELL 

405 * 

406 MOVELS TBN FLAGS, FLAGS *CK FOR AND BRANCH IF THE SPARE 

407 JT MOVEL7 *PROBE HAS PULSE VARIATION 

408 TBN FLAGS ¢FLAG6 *CR FOR ANC BRANCH IF SIGNAL 

409 JT MOVE1LS AS EVER UP 
D6NOVE9 1OFEB70 29JUN7O PROG 10 OF 03-2 
816523 816592 816704 PAGE 3A 
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18M MAINTENANCE OLAGNOSTIC PROGRAM 


F032 


ERR LOC 
113C 
2342 


4245 
1149 
114¢ 
1152 
L156 


1159 
Lise 
1165 
2168 
11i6F 
1170 
R171 
L173 
1175 
1179 
iva 
Live 
21706 
318i 
3282 
1283 
2165 
2189 
TESA 
i188 
biléo 
12923 
1192 
2293 
1195 
R1S¢ 
LIGA 
1198 
1190 
ror st 
RiA2 
2243 
LAs 
£ ise 
Rika 
i 4AA6 
1446 
4283 
2182 
8283 
8iss 


L189. 


BABA 
Lie68 
ik60 
4ich 
Lice 
RECS 
ics 
Bics 
aicc 
4ice 

_ gibi 
iid2 
2kO4S 
2208 
2108 
& LDF 
L2k6 


DATE 
EC NG. 


$/3 READ EVALUATION AND ADJUSTHENT 


OBJECT COGE 


Oc 
F2 


38 
Fe 
oc 
3A 
F2 


oc 
oc 
GC 
co 
42 
Of 


03 
87 


01k 
10 
05 
20 
87 


03 


‘03 


G2 
87 


14Aa9 
FOES 


co 
02 


8&7 


14E8 
oD 
1460 
oD 
14E8 
146% 
06 
14E8 
14BA 


14AS 
O21A 


O2lAa 


O23a 


O21a 


O2ia 


b462 


O2k& 


1461 
O2za 


2BJUL69 
816446 


i7FE 


1802 


LSE9 
i986 
LSA5 


ADDR STMT SOURCE 


i16f 
1170 
il?2 
2i74 


i179 
117A 
L177 


2282 
2282 
2184 


2239 
1iea 
Lise 


119% 


L192 


1294 


£195 
229A 
129C 


LIAL 
1i&2 
ita4 


LLAY 
1LAA 
RLAC 


aya. 
1282 
2184 


LESS 
Z1BA 
21g 


41} 
Lica 
2204 


1iBG 
ait 
LEGS 


21DF 
LLESo 


2540669 
216465 


410 
411 
412 
413 
414 
415 
&16 
417 
418 
&19 
420 
&24 
422 
423 
%2& 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
435 
437 
&34 
439 


. £49 


441 


* 
MOVES 


SKEPIT 


x 
MOVE 7 
MOWE 23 


442 © 


443 
444 


445 


446 
&47T 
448 
449 
459 
451 
452 
453 
454 
455 
456 
457 
458 
459 
469 
461 
462 
463 
64 
465 
466 
467 
468 
489 
470 
471 
&i2 
&73 
474 
&25 
47S 
“FT 


co 


OsNOVES 


Re ee NE See tn mm ON ee cee nen Reet be a ae eine Caren ethane at 


DIAGNGSTIC (READ) 
STATEMENT 
MVC = SPARE-1 ,UP (43 
J SKIPIT 
TBN FLAGS sFLAGT 
JT MOVEL? 
MVC = SPARE~1 ¢ DOWN(4) 
SBN  FLAGS2,FLAGL2 
3 MOVE 23 
MVC SPARE-2 ,SPARE(4} 
MVC = CKEM,p COLUMNG25 
M¥C = READE, COUNT 3) 
B PRINT 
DC XL1°42t 
pc IL1*14# 
De AL2{READEM} 
DC Xi2*FOE6® 
B PRINT 
DC XL1*O2* 
Dc TLL°L7 
DC ALZiCKEM) 
B PRINT 
pC XLL*O1t 
BC ILites 
pc AL2ERCW18} 
B PRINT 
DC XLL°02" 
oC ILL#122° 
DC ALZ(CELLiS? 
B PRINT 
pc XLL°O18 
oC IL1*122¢. 
DC AL2{SKEW3O} 
5 PRINT 
DC XLLPO1 
oC IL1¢ge 
DC ALZ(ROWL) 
“8 PRINT 
oc XLL°OL®. - 
oC sa EL ®122° 
DC. AL2{CELLI) 
B PRINT 
oe XLiton? 
DC ILi*i22e 
DC AL2(SKEWSO? 
3 PRINT 
Dt XL1*O1" 
DC 1L2°88 
pe AL2Z{ EMIT) 
B PRINT 
Dc XLL®°O2* 
DC TL2e122¢ 
DC ALZ2(EMITER) 
8 PRINT 
oc XLL*O1t 
oc 1L1*23° 
DC ALZ(SPARE) 
TBN  FLAGS2,FLAGE2 
JT 60 
B PRINT 
oc XLL°92° 
DC ILi*i22° 
oC AL2(SPAREL) 
TBN FLAGS2,FLAGIO 
JT RESET 
B PRINT 
DC KL1*028 
DC TLL *44? 
LOFEB7TO0  293UN76 
816592 ~~ 816704 


$15523 


—#CELL 1 


ter 


Me Nan ne A et ee ee 


ace 
ne 


PART RG. 
PAGE 


Upeeres commenentrrpenares sO 


2589736 
4 


ose 


wor 


MOVE DOWN INTO SPARE PROBE MESSAGE 


Sesame SEE 


*#CK FOR ANO BRANCH EF SIGNAL 
*WAS EVER DOWN 
MOVE UP INTO SPARE PROBE MESSAGE 


BLANK END GF SPARE PROBE MESSAGE 


*PRINT 

SHUMBER 
*OF CARDS 
*READ 


. 


@°27r7 2 eee eee eee ewe nee een eoneeosseve 


*PRINT 
+COLUMN 
‘=NUMBER 
*CHECKED 
2PRINT 
SCELL 18 
SSTATUS 
*HEADERG 
= PRINT 
CELL 128 
*xSTATUS 
* 
PRINT WORST 
*CASE SKEW #85 
+FOR 
SCELL 38 7 
«PRINT : “a 
“SCELL i 
xSTATUS 
*HEADING 
PRINT . 


*STATUS 
+ 
=PRINT WORST 
#CASE SKEW **S 
=F OR 
*CELL 2 
*PRINT 
*EMTTTER 
_*STATUS 
*HEADING 
*PRINT 
*XEMITTER 
SSTATUS 
®t 
*PRINT 
SPARE 
*PROBE 
eI NFO 


#PRINT 
SPARE 
*PROBE 
* INFO 
*CK FOR AND BRANCH ITF LEADING EDGE 
*INFO RAS BEEN PRINTED ALREADY 
¥*PRINT TIME BETWEEN 
LEADING EDGE 
*#AND FIRST 


PROG 15 OFOB—2 
PAGE 4 


PINE et Stemmte statment re 





2 
4 
4 


F032 


ERR LOC 
11€1 
11E3 
L1E7 
LIED 
LIFO 
LIFS 
LiFs 
LFS 
LFA 
LUFC 
1202 
1205 
2209 
120F 
i213 
2214 
i2i5 
1217 
2218 
122¢ 
1210 
121 
1223 
1224 
1225 
1227 
1228 
3232 
1235 
1238 
123F 
1242 
1246 
1249 
“E240 
L24F 


1253 
1259 


1250 


1261 
£265 
1269 
L26F 


1273 
1277 
1278 
L27F 
1282 
1285 
1288 


8230 
L2g0 
L296 
L29A 
129E 
22A2 
i 2A6 
L2A9 
LZAc 


DATE 
Eo NO. 


LO Maan ge ee gt 


OBJECT CODE 


ee 


1498 


3A 
OD 
Fé 
3C 
co 
02 
37 


86 
02 
@1 
FE 
37 


21908 


oD 
Fe 
3¢ 
oc 
cs 
G2 
37 


2 
82 
46 
G2 
87 


1908 


cG 
O12 
<é 


8&7 


195E 


CG 
cé 
28 


87 


182A 


ac 
cc 
3c 
oc 
36 
FZ 
36 
Fe 
€9 


oc 


a: 


co 


Bh 
35 
oc 
CG 


34 


Cz 
C2 
Bé 
F2 
E2 
oO 


36 
oc 
36 
28 
co 
36 
F2 
BS 
co 


FF 
78 
00 
73 
20 
10 
19 
1d 
87 


‘FOEG 
co 


87 


Ok 
1G 


87? 


id 
20 
O41 
87 


C38 
01 
Q2 
24 
i0 
2 
87 


02 
OG 
T4 
04 
io 
os 
is 
18 
is 


1461 
150B 
oc 

1808 
O21A 


L90E 
ld 

1896 
1908 
921A 


Q21a 


O25A 


i673 
1872 
LAFS 
LAFS 
1466 
iF 

1455 


0222 
OED 


1966 
1460 


OCAG 


1466 
1960 
L9B6 
SCAG 


L4@5F 
1430 
1280 
o4 
o7 
o2 
L2tF 


19414 
1942 
1461 
1462 
13EzZ 
1442 
tz 

O2 

13€2 


ZESUL OS 


816444 


ADDR 
LLEZ2 
1S92 
LIFS 
LIFS 
LLFB 
1993 
190E 
1213 
1214 
1216 
1218 
121¢ 
i2lE 
1223 
1224 
1226 
iB73 
AES 
, 124E 
1997 
1S95 
i99E 
25ANGES 
816485 


IBM MAINTENANCE OIFAGNOSTIC PROGRAM 


tne ee ee ae ne ee a 


S/3 READ EVALUATION AND ADJUSTMENT DIAGNOSTI 


(READS 


STMT SCURCE STATEMENT 


478 
479 
480 
484 
482 
483 
4&84 
485 
436 
487 
“88 
£89 
49G 
“92 
492 
433 
494 
495 
496 
“S37 
£98 
499 
500 
50% 
S02 
503 
504 
505 


506 


507 
508 
509 


. 3a9 


511i 
Siz 
$13 
514 


5150 


Sle 
Si? 
5165 
519 
520 
522 
522 
523 
- 524 
525 
526 
527 
528 


oC 
SBN 
cic 
JE 
MY I 
8 
oc 
4 
oc 
cL 
vE 


RESET 


UNDER] 


NONE 5 


SBN 
SBF 
MYC 
6 


AL2(EDGE) 
FLAGS2,FLAG1LO 
LESS18,000(3} 
UNDER1 
MIN~45yX*FEe 
PRINT 


a Nes He ERT Mini OY Mailed Acetate oe nes a ne tae i te a ee Beet 


PART NO. 
PAGE 


2589736 
4A 


*CCLUMN 


*CK FOR AND BRANCH IF THERE WERE NO 
*DOATA PULSES LESS THAN MINIMUM -18= 
MOVE ~8- INTO MESSAGE 


XL1i*oO2* 
BLae5se 
AL2€LESS13) 
LESSi,00003) *CK FOR AND BRANCH IF THERE WERE NO 
NONE op *DATA PULSES LESS THAN BIRiMUM -1~- 
MIN-45¢X* 408 MCVE SLANK INTO MESSAGE 
LESSI8,LESS1(3} MOVE CELL. 1 UNDER COUNT ZNTO MSG. 
PRINT 
XLi*o2? 
Th *S5° 
ALZULESS183 
PRINT *PRI GT , 
XL1USOLé 
TLi*4Q9 
AL2¢PO$3 
PRINT SPRINT 
XL1L°O6* SEXCESS 
TL1L*40# +SKEX 
AL2CTOSKER? @iNFO 
FABLEF+I21 eX*FF* SSET ALL BITS ON IN ; 
TABLEFE¢ L200R Zi} eTABLEF4121 THE -AND~ TABLE AFTER PRIGUT 
TABL E0121 5x°G0% SSET ALL BITS OFF IN 
TAGLEQFIZOCI2L2 sTABLEGVL2i «=F THE ~-OR~ TABLE AFTER PRINTOUT 
FLAGS ,FLACZ *CK FCR AND BRANCH TF COL bh PASS 
“SETS ®OF THE 1-15-32 COL SEQUENCE 
FLAGS; FLAGS #CK FOR AND BRANCH TF CCL 15 ©8$§ 
SET4 SOF THE 1-15-32 COL SEQUENCE 
HALT HALT 
XL2Z°FCE&S 
wHACH 
COLUMN, 032¢€2) SSET UP FOR AND PROCEED 
FLAGS sFLAG3 SwITH FINAL BASS 

*OF THE 1-15-32 
GET SCOL SEQUENCE 
FLAGS ¢FLAGS - #SET UP FOR AND PROCEE® 
FLAGS »FLAG2 #WiThH THE SECOND 
COLUMN, Di5%2) PASS OF TRE 1-35-32 
GET *COL SECUENCE 


RR AE HES HAGE MRSA RE SAKES RAKAEASASEHBVE SSSRLORS SS OK GCHE KH KG HYPER ISS 9 OU HGHdY O 4 


* SETUP 


RRSSSL RAYE RRARKE SH SHH HES SET SRA DAS FERS GRA H PHS ¢ OSHS SH TVA GH SH SS GOS |OGS HS 
* SUBROUTINE TO ~AND- AND ~OR- SENSE INFGRMATION INTO STORAGE BREA 
HRAAPSERASSILALKAS SASS SASKLA STL SERASRE SSS OSS SKS VLSELTS HOP SSESIO SIS HHSOOD 


529 SETUP ST 
526 L& 
$31 LA 
532 EMITIR TBN 
533 Jt 
53% LA 
535 B 

53é # 

537 SYNC & 

533 MYC 
539 SBF 
540 DONEXT TBN 
542 BT 
542 TBN 
543 JT 
544 TBF 
545 BT 
D6NOVES LOFES7G 
846522 816592 


GETCUT43, ARR 
TABLEG, XRI 
DATFLO, XR2 

LC gMR29eKE2HE 
SYNC 

20 eXR2) gXR2 
EMITTR 


FFREA,xRK2 
LOOP2 (13-b123 


-FLAGSZ 9 X* 748 


FLAGS 2 9FL&EGIS 
OVER 
FLAGSZ¢ FLAGS 
TRAIL 
LOsKPR2}) 6k? 18¢ 
OVER 


293UN70O 
616704 


SAVE TRE ARR FOR SUBRCUTEIAE EXETY 

LOAD ADDRESS CF -CR— TABLE 

LOAD ADDRESS OF DATA FIELD 

70K FOR AND BRANCH EF EMETTER 
ANG ALLOW READ ARE UP 
IMCRERENT CATA FIELD aDORESS BY 2 


GECREMENT DATA FPELE 
LGAD LOOP COUNT 

FURN OFF FLACS 2igiZoiB Ano 25 
eCK FOR AND SRANTH EF ALL SREw 
SHAS GEEN FAKEN CARE OF 

SOK FOR AND BRANCH FF THE LEAL ING 
BENGE SKE HAS BEEN TAKEN CARE OF 
@CK FOR AND BRANCH SF BOTH CELLS 
@ARE COVERED IN TRIS SAMPLE 


ADDRESS BY 26 


PROG ID 
PAGE 


OF O3~ 2 
48 





& x 
y 





e 


IBM MAINTENANCE OIAGNOSTIC PROGRAM 


FO32 $/3 READ EVALUATION AND ADJUSTMENT 
ERR LOC OBJECT CODE ADDR STMT SOURCE 
1280 B& 18 0} 546 
1283 F2 90 37 547 
1286 3A 08 146] 548 
128A 38 10 1461 549 
12BE F2 90 06 550 
1201 7C 5C F4 551 
12C4% F2 87 11 552 
$53 ¢ 
12C7 D2 01 7A 554 SETLON 
12CA 7C 5C F% 555 
12CD 36 O1 1968 556 
1201 38 40 1462 557 
1205 F2 90 08 558 
3208 38 40 1461 559 CFFLL 
12DC CO 87 23E2 560 
| 561 
12E0 88 68 O1 562 FIRSTL 
12€3 F2 90 FC 563 
12E6 IC SC Fa 5b 
12E9 CO 87 13E2 565 
566 * 
L2ED 38 40 1463 567 HERE 
12Fl F2 10 LE 568 
$2F4 3A 40 1463 569 
12f8 BS 08 OL 570 
12F-B F2 10 06 BT 
1ZFE 70 SC F4 572 
1301 FZ 87 OF 573 
| 574 
1304 02 01 7A S75 SETI 
1307 70 SC Fe 576 
230A 36 O1 1968 377 
130E 3A 10 1463 578 
1312 OF GO 1S68 1977 579 SKEWUP 
131@ F2 87 C7 580 
. : 581 * 
1318.88 18 03 . 582 TRAIL 
131E F2 10 €1 583 re 
2321 BO 18 03 584 TRAILI 
1324 F2 $0. 29 585 
1327 89 10 61 586 
1324 2 10 10 S87 
2320 D2 01 7A 586 
1330 7C 5C F4 589 
1333 36 01 1968 590 
1337 36 4€ 1463 591 
1336 F2 2C 3C 592 
233£ 89 CE 03 593 TRAIL2 
A341 F2 9C 36 594 
L344 70 SC F4 595 
1347 F2 87 3¢ 596 
597 * 
134k 70 5C F4 598 FINALL 
134D F2 67 24 599 
600 © 
1350 38 46 1461 601 HERE2 
2354 F2 16 1A 402 
1357 24 4C 1461 603 
1356 88 08 03 604 TRAILS 
135E F2 10 06 605 
1361 7C SC F% 606 
1364 F2 87 O04 607 
606 @ 
- 2367 02 O1 7A 609 SETLL 
136A 7C 5C F4 610 
236) 36 O1 1968 611 
1371 CE 00 198C 1977 612 SKEWCT 
1377 F2 87 68 613 
DATE Z2BJULE9 = 25AUG6S O6NOVOS 
EC NU. 816466 816425 


816523 


(READ) 


DIAGNCSTIC 
STATEMENT 
TBN 10,XR2) oX418* 


JF HERE 

SBA FLAGS2,FLAGL4 
TSN FLAGS2-eFLAGI3 
JF SETION 

MYT 2440, XR1},4*5C8 
Re OFF il 

LA 1224 —¢XR19—eXR1 
MVi 2440, XR 13 eK" SC8 
A FF86-.XR1 

TSN FLAGS2, FLAGI1 
JF FERSTI 

SBF FLAGS2:FLAGLL 
8 OVER 

TBN 14eXR2)_.xX* 08? 
JE OVER 

MYT 2440 oXRED A XESCE 
8 COVER 

TEN FLAGS2,FLAGIL 
JT SKE wWUP 

SBA FLAGS2,FLAGIi 
‘YGF bi oXR2) »X*O08°? 
JF SET1 

RYE 244C KRU} XPSCE 
J SKE WUP 

LA L22¢6,XRIDYXR? 
MV 24449 MRI} 9g X9 508 
A FFB86_XR1i 

SBN FLAGSZ eFLAGLS . 
ALT SKEW1L(12 ,-0NE 

J OVER 

TBN Bd eXR29 gX*18° 
JT OVER ; 

TeF 3 gXRZ3.,X*18" 
JF HFRE2? 

_TBF Li gkR2) KX*108 
JT FINALi 

LA 1220 eXR1) -XRi 
AVI 24405 xR9 EXPE SCE 
A FFS865xXR1 

TBM © FLAGS2,FLAGI1 
JT WORST 

TeF 30,XR23 -X*O8* 
JF WORST 

MVY 2440—xXR17—eX*5C* 
J wORST 

MV 2440 _XR19,X"5C8 
J WORST 

TEN FLAGS2,FLAG1L2 
JT SKEWCT : 
SON FLAGS2,FLAGII 
TBN 3 eXR2},X'098 
JT SET11 

NVI 2440 4XR1) yg X*5C8 
J SKEWCT 

LA 1220, ,XR19—exXR1 
MYViI 2447 a XRLD EP X9SC® 
A FFB6,xXR1L 

ALC SKEW241) sONE 

J OVER 

LOFEB70 293UNTO 
846592 816704 
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*CK FOR AND BR IF CELLS ARE 
*DIFFERENT IN THIS SAMPLE 


*CK FOR AND BRANCH ZF FIRST = 
*WAS NOT IN CELL 1 TABLE 
PLACE = IN CELL 18 TABLE 


4DD 122 TO KR1 
PLACE * IN CELL 2 TABLE 


#CK FOR AND SRANCH IF CELLS 1 
*AND 18 WERE DIFFERENT SEFORE 


*CK FOR AND BRANCH TF CELL 28 
#S ON IN THES SAMPLE 
PLACE * IN CELL 18 TABLE 


ADD 122 TG XR2 
PLACE * IN CELL 1 TABLE 
SUBTRACT 122 FROM XRi 


#CK FOR AND BRANCH IF BOTH 

*CELLS ARE UNCOVERED IN NEXT SAMPLE 
*CK FCR ANO BR IF CELLS ARE 
*DIFFERENT IN NEXT SAMPLE 

*CK FOR AND BRANCH IF CELL i 

*1S ON IN THIS SAMPLE 

ADD i22 TO XR1 

PLACE * IN CELL 7 YABLE 


PLACE * IN CELL 18 TABLE 

PLACE * ZN CELL 18 TABLE 

*CK FOR AND BRANCH If CELLS i 

*AND 16 WERE DIFFERENT BEFORE 

*CK FOR AND BRANCH IF ONLY CELi 18 


*1S ON IN NEXT SAMPLE 
PLACE = IN CELL 16 TABLE 


ADD 122 TO XRi 
PLACE * IN CELi 1 TABLE 


PROG 1D 0F 03-2 
PAGE 5 


bans 28 ‘e 


mans bE re 


enema es nnn teen 


eo 6¢© © © ®@ 


ene sere penance come 


ne nee 


tee ony ON a AAAS EP art Se 


TOT IIe ee em 


tome 
* 


© @ @© © 60 0 


@ 


e 


oe 3 Cy 9 


0 


© 


C) 


cy 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


F032 


ERR LOC OBJECT CODE 


137A 
13806 
2383 
i389 
138C 
13292 
1398 
1396 
LZAL 


1384 
13AA 
13AD 
1363 
13B9 
138¢ 
13€2 
13C8 
L3CE 
13D4 
13D8 
13DC 
i3E2 
13€7 
L3EA 
13EF 
23F5 
13F8 
13FC 
L3FF 
1402 
1408 
140B 
L40£ 
1414 
141A 
L41E 
14622 
1425 
1428 
1431 
1434 
1434 
1440 
- 1443 
1449 
L445 
1452 
1455 
1458 


145C 


1460 


1*61 


DATE 
EC NO. 


$/3 READ EVALUATION AND ADJUSTMENT DIAGNOSTIC 


oD 
F2 
oD 
F2 
06 
oD 
F2 
oc 
Fz 


oo 
F2 
06 
ob 
F2 
oc 
oc 
Gc 
oc 
38 
3A 
ot 
ec 
TA 
2F 
oc 
7B 
2C 
88 
F2 
OE 
BS 
F2 
O£ 
OF 
co 
38 
F2 
oc 
ob 
F2 
G6 
oD 
F2 
06 
oc 
F2 
D2 
E2 
co 


co 


og 


00 


oo 
8&4 
oo 
82 
20 
co 
82 
60 
87 


oo 
82 
20 
00 
82 
0G 
79 


79 2 


F3 
08 
04 
oO} 
Oo 
0d 
00 
oo 
00 
FE 


08 | 


39 
oo 
iG 
30 
oo 
00 
01 
04 
10 
F3 
06 
84 
Oz 
o0 
84 
62 
02 
af 
OL 
92. 
87 


87 


1968 


Z8JUL69 


816444 


 #CK FOR 


ee @.- 2s & ore © aiagy @ x ®- ee -@- 7 @ wenn @---®. a @. ihe e@ sece ceah @-.. .©. ena ©. es © 
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*CK FOR AND BRANCH IF LEADING EDGE 
*SKEW IS GREATER THAN TRAILING EDGE 
*CK FOR AND BRANCH IF TRAILING EDGE 
*SKEW IS LESS THAN MAX TOLERANCE 
ADD 1 TO EXCESS SKEW COUNT 

AND BRANCH EF SKEW IS 

SLESS THAN PREVIOUS MAX 


*CK FOR AND BRANCH IF LEADING EDGE 
*SKEW IS LESS THAN MAX TOLERANCE 
&D00 3 TO EXCESS SKEW COUNT 

*CK FOR AND SRANCH EF SKEw 7S NOT 
tGREATER THAN PREVIOUS MAX 

MOVE SKEW INDICATORS FROM THIS 
*CARD INTO PRINT AREA ; 

CLEAR SKEW AREAS FOR THIS CARD 


ZERO LEADING AND TRATL 
MOVE DATA INTO HASK 
OR OATA INTO ALL ZERO TABLE 


ENG SKEK CTS 


~ COMPLEMENT DATA 


MOVE COMPLEMENTED DATA INTO MASK 
AND DATA INTO ALL ONES VABLE . 
RE-ENETIALIZE 
*CK FOR AND GRANCH JF CELA 389 

eES COVERED . 

ADD i TO CELE 18 DATA PULSE COUNT 
¥CK FOR ANG GRANCH IF CELL 2 

#iS COVERED 

ADO 1 TO CELL 1 BATA PULSE COUNT 


' =CK FOR END OF 


*LOOP COUNT: 


#CK FOR AND BRANCH IF DATA PULSE 
SLENGTH iS GQVER MENETMUN 
INCREMENT UNDER MINI MUN COUNT 
eCK FOR AND BRANCH JF DATA PULSE 
LENGTH IS OVER RIN IMUM 
INCREMENT UNDER MINIMUM COUNT 
CLEAR DATA PULSE LENGTH COUNTS 


INCREMENT STORAGE FIELD ADDR 
INCREMENT DATA FIELD ADDRESS 


SHEL SEHERSE SARS RAE GREAA SL MHSHSRHARS SEK HESKKLES SSE FEGKFESHLCH SHS GHHH HSH SIOSSRH 


REEHKHKRAEHEKSHKAHEHS IE CERIRABARIKSEAKSSAL NSLS RGSS KLIS RAKHT IRIE R HAG HGVONS 


5~SPARE PROBE HAS PULSE VARIATION 


PROBE HAS BEEN DOKN 


BIT 1-CELtL i AND 16 HAVE BEEN DIFFERENT SEFORE 


PROG ID. OFO3~2 
PAGE 5& 


(READ) 
ADDR STMT SOURCE STATEMENT 
614 ¥% 
19B8C 615 WORST CLC SKEW1(134SKEW2Z 
616 JH WORSTI 
i986. 617 CLC SKEWZ(LE »SKEWS 
618 JL EXCESS 
1993 61¢ AZ TCSKEW(3) 0141} 
LSBE 620 EXCESS CLC SKE W2 (1) » SKEWS 
621 JL UNDERS 
29BC 622 MYC SKEWS(3 2 oSKEK2 
623 Jo. MOST 
624 2 
1980 625 WORSTL CLC SKEWL {1D eSKER3 
626 Ji > mucH 
1993 627 AZ TCSKEWE 3) ,DLE1) 
LYBE 628 MUCH CLE SKEWLIZ3 pSKEWS 
629 JL UNDERS 
19BB €30 MVC SKEW4(12 9SKEWL 
1BED 631 MOST MVC SKEW30, SKEWLOCLZ2) 
1Cé? 632 MVC SKEW4S0 9 SKEW20-10122} 
1068 633 UNDERS MYC SKEW20~15SKEW204244) 
63% SBF FLAGS2—FLAGI4 
635 SRN FLAGS2,FLAGL5 
1975 636 MVC SKEWZ,ZERO(23 
o1 637 CVER MYC OR+L old LeXRZ) 
638 OR SBN O€eXR1dsX* C08 
61 639 SLC SAVEF ¢l (ig XR2) 
1°8E 640 MYC AND+i (1) 2S AVEF 
641 AND SBF 12202¥R1L}_ KOO" 
642 HVE SAVEFsX*FFE” 
$43 TEN 14 ¢XR2) »X*GBF 
644 JF CK1 : 
' 1ST? 645 : ALC CTiB@L}) -ONE 
646 CK1 TAN 1(2XR2) eX? 108 
647 JF CKEND 
1977 648 ALC CTIELE, CNE 
1977 649 CKEND SEC L00P2(2).0NE 
650 BNZ CKNEXT 
65} T8N FLAGSZeFLAGIS 
652 ‘ST | CKMIN 
1068 653 MVC SKEW20—19SKER20(244) 
19C8 654 CKMIN CLC CT1861} »MINPUL 
655 Jti MING 
1993 656 AZ LESS18¢3),01 43) 
. 19Ce 657 INL CLC CTL GLI MINPUL 
658 JH CLMIN 
1993 659 AZ LESS1(3),01¢3) 
1975 660 CLMIN MVC CT1,ZERQt2) 
661 J GETOUT 
662 CKNEXT LA 14sXRLE—XR1 
663 DA La 2 eXK2) gXR2 
664 B DONEXT 
665 *% 
666 GETGUT B ms 
667 
668 * PROGRAM INDICATOR FLAGS 
669 
1460 670 FLAGS OC XLitos 
671 * FLAGO BIT O-FIRST TIME THRU 
672 * FLAG] BIT 1-FIRS7T DATA CARD . 
673 * FLAG2 BIT 2-COLUMN 1 PASS 
674 * FLAG3 BIT 3-CCLUMN 15 PASS 
675 * FLAG4 BIT 4-CGLUMN 32 PASS 
676 * FLAGS BiT 
677 * FLAGé BIT 6-SPARE PROSE HAS SEEN UP 
678 * FLAG7T “BIT 7-SPARE 
1461 679 FLAGS2 OC XLifto® 
680 * FLAGIO BIT O-LEADING EDSE WAS PRINTED 
681 * FLAGI1 
25AUG6S O6NOVE9 1OFEBTOC 29 5JUNTO 
816485 816523 8186592 816704 





we 
ee 








eo. 
£0 i @ a 
: ‘ ’ 
ae 1BM MAINTENANCE DIAGNCSTIC PROGRAK PART NO. 2589736 © - IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589736 : LP 
- PAGE - 6 ; @ . PAGE SA Te 
a t : > ; : 
Cot F032 S/3 READ EVALUATION AND AQJUSTMENT DIAGNOSTIC {READ) : F032 $/3 READ EVALUATION AND ADJUSTMENT DIAGNOSTIC (READ) 
ey, i eset 
ae ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT i 2: ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
; Cte 682 * FLAGL2Z BIT 2-SKIP SPARE PROBE DATA PRINTOUT Q. 1898. 40E6CSE3CB840D4C6 7i7 
tee 683 * FLAG13 BIT 3-FIRST * WAS IN CELL 1 TABLE i L8A3 C3ES40D9C5CIC4ES 717 
eres 684 * FLAGI4 BIT 4-SKEW OF LEADING EDGE HAS BEEN CHECKED poe 18AB 4063064CC30605E3 7i7? 
 £ € 685 * FLAGI5 BIT 5-ALL SKEW CHECKING HAS BEEN PERFORMED ' § 18B3 C9B5E4C540D06D940 Vi? 
2 tae 666 * FLAGI6 BiT 6 1888 D506E340D9C5C1C4 16D4 718 MAKE DC CL26*NOT READY TO PRINT RESULTS* 
oe 687 * FLAGI? BIT 7 ' 18C3 E&840ESD64007DN9C9 718 
-¢€ BB FXEGSHSEEEBHSERHERS SHRERSAE SH HS VKHSEKSE AAERAASER ARH ART SACS VSKS FAHSHRK ASAE RE : § 18CB D5E340D9CS5EZE4D03 718 
. . 689 * MESSAGES 1803 E3£2 718 
ae ; CIO FHFRSEELEALEARAGAEASEESERERE ES SESAER ELTA SAA GELASAS RES SESS SLSR RARE 18D5 C3C5D30340F 1F 840 1908 719 MEN BC CL2*CELL 218 DATA PULSES LESS THAN XXX MICRO-SEC MEINIMUR * 
fog 1462 404040C3C4E2Z40C3 146F 691 CC oc CLs cOS COL OLYe f zg 2800 C4ClESC1S4OB TE 403 719 
146A D6&D034G6C4D03E8 691 } 28E5 E2C5E24003C SE2E2 719 
Be cat 1470 D3ICSCECSCSO5C 740 1498 692 EDGE oc CL44°LEADING EDGE TO ALLOW READ 1S 0000 MICRO-SEC®* : L18ED S40E3CECIDSS0E TET 719 
o~ C 2478 CS5C4&C 7C 54CE 30640 692 i @ 28F5 ET40D4C9C309D660 7S 
1480 CIC3SD3DEEESOD9CS5 692 : ' 2S$FD E205C034004CSO5CS 79 
1688 CIC440CSE24CFOFO 692 tvs 2905 D4E40440 719 
Cc 1499 FOFO«¢0D46C9C 30906 &92 : a) 1909 FOFOFO  . 1908 720 LESS18 DC CL3*000* 
1498 60€2T5C3 £92 pc 190C FOFOFO 190& 721 LESSi BC CL3*000* 
14SC C3CLOSCHEZ4G0SC5 14AS 693 READEM DOC Cil’* CARDS READ OOODF : i9OF D5D6E3CS6060E4CK 2192E T22 UDT DC CL32°AGTE~-UDT CARD MUST “E CORRECT—e 
€ 14AG CIC4HOFCFOFS 693 i 1917 E3460C3C1D9C440D4 722 
14AA C3DO03E4D40560C3 14BA 694 CKEM oc CLI7* COLUMN CHECKED a0® : 191F £4€26340C2C540C3 722 
1462 CBCEC3D2C SC440F 0 694 : 1927 DEpesNSC5T3E354060 722 
C 14654 FO 696 it oe LO2F D7DSCSD4 1932 723 PRIM BC CL4* PRIME 
1468 C3CSD303460F iF 840 1402 655 ROWLA OC CLS*CELL 16 * ct 1933 E2CSC3C4 1936 724 SECD oc CL4*secot 
24€C3 €3C503034040F140 14CA 896 ROW) oc CLE*CEiL 2 2 1937 CSCIC3C84O0D70GE2 195E 725 POS BC CL&O° EACH POSITION REPRESENTS Sel2 MICRO-SECSE 
Cc 14€8 CSU4CSE3ZE3C5D960 1602 697 EMIT oc CLBTEMITTER * , & 193F C9EBCSDEDS490N9C5 725 
8403 E2C7CIOSCSSOC3CS 24ES 698 SPARE DC CL23*° SPARE CELL PROBE s 1947 DIDOCSE2ZCSD5E3E2 725 
fom 140@ 03034007D906C 265 698 ie L94F 4040F945FiF 24004 725 
Cc 24ES GC4C4O4CEC40GC é98 © 63 1957 C9C3D09D660E2C5C3 725 
RSE A CODSCIOZOSNOCSCZ LeFF 6599 SACL oc CL22* INCORRECT CONTROL CARDE LSOSF FIFB4ERF2F4 1963 726 SHORT oC CL5*138.24? -- ais : : 
AGE2 E340C3D0ECSE 2U9D6 699 . T2F SEFRASEHERLAKESKRLSERASPESRYKSHSVASSSERSKSESA SCS VESISH OVSSSRE SST SESOHOSS OLHRVWS 
c LFA O340C3C ICSC 699 i & F23 % CONSTANTS 
1500 C5SDSESCSCS4ODSES TELE 769 MSEC: oc CLSLFENTER NUMBER OF 100 MSEC DELAYS® : a FZ2Q BPSK RAKALKASSKITHSKSERSESASSSERHKSSESVWRG SH VISH SS FSHOS HL GS VS SCH OY GSS OLBO OH 
£506 D4&C2750940D06C646 T86 i ; 156% F2FTFBF6 1967 730 F2736 DC ~ DLS* 27568 
Co. 2530 FF OFOROh4E2CSEC3 7600 [ CG 1968 1983 ; i96éS$ 731 C6579 ODC ILZ'e579* 
RSlE 40C4C5C3C RE SE? , 700 ; L96A FFE6" : iS68 732 FF86 DC. XL2°*FFA6* “ , : 
1S5iF 70} TABSPR EQU * 196C FOFOQ ... 1960 733 COLCK DC DL2*Go* COLUMN TO BE CRECKED COUNTER : 
e iSiF 1598 7C2 SPARE1 OS CL1l22 - Se: 196E 000000000000 1973 “734 WORK3 OC XL6*O* - : 
a . 2599 703 TABOO EQU = * 1$74 0000 Lf i975 735 ZERO BC XL2*G* : . 
: 2599 ‘1612 TO4 CELLIB DS CLi22 - i976 0001 se 197?) «6736 ONE DC XL2ere 
Cc 1613 705 TABFF EQuU % . : 1 © 1978 0002 1S79 737 Two oc AL2*2* 
2643  Y68C 706 CELLL OS Cilz22 er: 197A 0005 297% 738 FIVE - OC XL2°0005* 
2680 707 TABEE €EQU * 197C o00000000000 148i 739 oc XLO"O® 
Cc 1680 . 2706 708 EMITER DS CL122 : Lee 1982 conGcoogooCGOND 1987 740 wORK oc XLE%OS. 
1707 i78@C 709 SKER30 OS CLl22 ° 298a 0000 1989 742 WORK2 OC - XL2*0% 
178) vi TFA T10 SKEW4O OS CLi22 . 1S8A O000CCGC 1¢8D 742 PLAY oC XL@*O# 
c L7FB 4CE40740 ' LIFE FLL uP oc . CL4* UP s nes 198E FF G 198E 743 SAVEF OC XLL* FFT 
ETFF CeDeEeDS 1602. 732 OCOWN oc CL4*DCWNE i 198F FOFOFO oo. k 1991 744 poo pec 0L3*C008 
2603 CICLOSC&EZSOCSET LA2ZA 713 TOSKEW DC CL40"CARDS EXCEEDING 81 MICROSECOND SKEW 000° . 21992 FOFL . 1993 745 Dl oc OL2*o7* 
t 1608 C3CSCSC4CSDEC 740 ‘W13 c: 1994 FIFS i995 746 015 DC O12°258# 
2813 4“CFBFL&€CO4CSC3DN9 713 . : ' 1996 F3F2 1SS$7T 747 D32 oC DL2*3z* 7 
1616 G6€ 2C 5C30605C440 713 { 1998 F3F3 _ 1999 748 D33 DC DL2°338 
C A023 L2Z02C5Eb40F OF CFO . F713 ; oc 299A 26 : . 199A F749 D034 oc IL1*32¢ 
225 CSO5SE3CSD94005E4 1840 714 MANY DC CLS5*ENTER NUMBER OF CARDS TO BE CHECKED® H 1998 44: oe 1998 750 Dé8 OC IL1*6st 
1832 O4€2E SDS$40D06C 4640 714 , , i 199C 40 199C 751 B77 BC ILA*77* . 
¢ 2836 C3ICALSCHEPS& OE 3D6 - FW14 ° Oo 199D 7A 1990 752 0122 oc ThLitzee* 
1643 40€2C540C3C 8C5C3 74 4 199E 7A I99E 753 D123 dC ELL*222* 
1846 O2C5C4¢ 714 poo 199F 6). , L9SF 754 Di24. DBC ILz*2C0¢8 
C 2B6E CSOSESCSD9O“4OD5ES 1672 FI5 SELECT DC CL36"ENTER NUMBER OF COLUMN YO BE CHECKED? eC. L9OAO FFEE. - i1SAlL 755 FFEA DC XL2*FFEE®. 
1856 0402C EOS4&CDEC 640 ' 715 *s Pen 19az 00. 39A2 756 LOOPi DC ALL &O# 
§65E C306D3E4040540E 3 Wis , ! 19A3 FOFOFO. © 19A5 757 COUNT SC Bi 3*00G* ACTUAL CARO CCUNT 
Cc 3666 DEeCC2C540C3C8CS Wis ; BGS 19A6 6000 ° 1947 758 LEAD ac AL290¢ @ ae BS 
386€ C3D2CSC4 715 19A8 COC0OD ISAA 759 CARDCT OC XL3*0°® * 
8872 O3DECIC440C4ST1ES 186A 716 THEM BC CL25*LOAD DATA CARDS INTO XXXX!# 1SAB FGFO L9AC 760 DELAY DC 0L2*698 
C ABTA C140C3C109C 4E 240 716 , / C 1SAD COCO” 19AE Toi Cc DC xL2908 *CCNTROL 
B82 CSDSESICESOE FETE? 716 LOAF GGOCOO0D 19B2 762 CARDS DC XL4*Q8 #CARD 
188A €7 76 , 1683 00000000 1986 763 CCLUKN OC XL4*O8 tINEG 
Cc 3688 OTOSCSE2E240C8C1 18BA 717 oc CL48* PRESS HALT RESET WITH MFCU READY TO CONTINUE OR ? c LOB? coCcOoso0O 19BA 764 CNTRL OC XL4*Oe * 
rr 4693 O3E340C9CS5E2C5E3 Tit spat i9BB 00 hd 1988 765 SKEW? Of XL2€G¢ READING EDGE SKEW 
Cc : G ae ae 
DATE . Zh IULES 25AUG6S OdéNOV69 1OFEBTO 28JUN70 PROG if OF Q4-2 DATE ZBJUL69 = =—s-—- 2S AUGEY OENOD VES LOFEBTC 29JUN7O0 PRCG ID OFO3-2 
EC NU. 8164446 816485 816523 816592 816704 PAGE 6 ngs EC NQ. 616444 816485 616523 816592 S16704 PAGE &h 
Cc Lo 2 
le 
t 
See eeeoeoeeeeeeoeneeneaeaenes 
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' , : Z oats : ee i : fe : ; . i y y 
Cc : ¥ i 6 
IBM MAINTENANCE DIAGNCSTIC PROGRAM ; a PART NO, 2589736 =: - EBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589736 
Cc ; PAGE. 7 & PAGE 7A 
FO32 $/3 REAv EVALUATION AND ADJUSTMENT DIAGNOSTIC (READ) io°""  €032 $/3 READ EVALUATION AND ADJUSTMERT OIAGNCSTIC (READ) 
: | © | 
ERR LOC OBYECT CODE ADDR STMT SOURCE STATEMENT { CROSS-REFERENCE 
¢ 19BC 00 198C 766 SKEW2 OC XL1*O8 TRAILING EDGE SKEW @ SYMBOL T LEN VALUE DEFN REFERENCES 
19B8D O9 198D 767 SKEW3 OC XLitge MAXIMUM TOLERANCE SKEW i 
“a 19BE 00 19BE 768 SKEW4 OC XL1*O°® MAXIMUM SKEW FOR THIS PASS : ACDONE A 006 1053 0331 0325 0329 
Cc LOBF F1F6F2 19C1 769 ONE62 OC CL3*162¢ : . $ ALLOUT A 060 108D 0797 0072% 0073 0073 
19C2 F2F5FO i9C4 770 TwO50 oC Ci3'2508 i ALLRDY A 003 ODC4 0233 0235 
19C5 F5FOFO 19C7 771i FIVECO OC CL3*500? ' ALWAYS A 003 1050 0330 0327 
€ 19C8 00 19C8 772 MINPUL DC XL1*O° GZ AND & 9003 13F5 0641 06402 
29CS 00 19¢9 773 C318 oc XLi*o® ARR C 001 0008 0803 0529 
19CA CO i9CA 774 CT1 oc XLL*O8® i BAODCD A 004 O0C40 0177 0172 0174 
¢ TUS FREESE A REAR ARES ARR MESSER IRSTRAS ARSE KAAKKKSRSRESKFASRAARH A ADRS SRERR i @ BAOL £022 14FF o69e¢6 0180 
, Tié * ADDRESS CONSTANTS ' BEFORE A 004 OBDD 0151. 0124 ‘ ee - 
TTT SRRERHEASERARAAE SAS LIS RK SLE RRARRSRLAASHRSESRPRAKAHLEKTHKRK VK LASAHEREAAKSARH t BOTH A 0C4 O0D89 0272 0226 0273 
< 16CB 1A00 iscC) 6778 LORD oc AL2 (RDFD} oC A002 ASAE 0761 
i9cD 10861 1SCE 779 LAST Dc AL2(TABEND) ° ; CARDCT A 003 LSAA 0759 O202% 6284% 0285 0287% 
T8O Fee SSFSSRSSSRHAALE THR SELHSES HEARS SASAKAE LR SERRE HAERKSERAHKKSERAKSHKBKAS HH SEF ' CARDS A 004 156B2 0762. 0171 ©€282 0285 
¢€. 78l * RESERVED STORAGE AREA : . ; ie CC A 0i4 146F 0691 0197 
FE2 SHEARS SSHALAS KAA HE RAR SSE REEKE SRS KASAARAEKELA GH SLAF RERSAESSKERSERRAKAASEAKKK i CELL1 Ail22 168C c706 0097 0097% 0450 
2A00 783 ORG X*1A00! CELL18 A122 1632 O704 co9s)§=6CC98* 0438 
€. 1A00 784 RDFOD EQU * READ AREA i & CHECK A 004 1067 0340 0332 
iA00 LATF 785 OS cLi2s : CKANOS A 003 1044 0326 0323 
eAG 1A80) 7206 TABLEO EQU * , i CKEDGE A 003 0054 6258 0261 
C: 1A80 AFS 6787 DS CLi22 gt CKEM A 017 14BA 056946 0420%* 0430 
LAFA 788 TABLEF EQU * CKEND A 006 1414 0649 0647 
LAFA 1873 789 Os CLi22 CKINFO A 006 OC25 OL7O 0122 
¢ 1B74 1BED 790 SKEWIO DS CL1i22 . © CKLEAD A 004 CD37 0251 0205 : ‘ 
i8EE 1C67 «62791 DS CLiz2 ’ CKMIN A 006 1428 0654 0652 . é' 
‘ 1C68 , 1€68 792 SKEW20 OS cL CKNEXT A 003 1452 0662 0650 
ct ' 1069 1C7F 793 DS CL23 €& CkoORS A 003 1038 0322 0335 
: 1C8G 794 DATFLD EQU * CKRDY A O06 OFFO 0297 0291 
1¢c80 ; - IDTF 795 DS CL256 * CK1 A 003 1408 0646 0644. . 
; C 1b80 1D81 766 TABEND DS ci2 : ; C Ckist & 00& OC82 0204 0289 
# idsé2. 10B0 797 ALLOUT DS CL60 ‘ ; ey % c CLEAR A 006 OCE1 0223 0302 ° : ae . 
nani , 198 HEAE FERS EAEES ES ERAERATHALEEE SEARFAESERK ASS SESRELSSE RSS SSS HE SLAS SAAS ATHKH ---- €LMIN A 006° 1449 0660 C658 . ; 
iC: 799 ~* EQUATES , Bae : f C€CNTRL A 004 198A 0764 O170* 0175 0193 06201 6290 Ss - 
. B00 FESAEEEEAEERAS SS AAEESRSESSSKEAHAGSS SREAERSSSAAAGRESLSL ABE EHS HAHAS SEHKAS _ €GLCK A 002 156D 0733 0223% 0230¢ 6231 7 - , 
2 . 00Ci 801 XR1- EQU 1 i -CCLNO A 004 OBF4 0157 ci55 ” , 
C. OCO2 . 802 XR2- EQU 2 re COLUMN A 004 1986 0763 0173 0206 0208 - 0211* 0225 0231 0420 0515° 05220 . ; + 
0008 803 ARR EQU x*ose | : , ee COOLIT A 003 O0i1D 0240 0232 0242 es . 
“0208 804 SRYTE3 EQU  X*20B8 : COUNT A003 1945 0757 0220 0281% 0421 
Cc: O21A 805 PRINT EQU X*21At i Gc cTi & COL 1SCA O774 0648* 0657 0660% 
O21E 806 UNPACK EQuU X*21é* i CT1i8. A Ooi 156C9 0773 0645% 0654 
0222 807 HALT EQU K*22z28 | DA A 003 1455 6663 00664 
Cc 0232 . 808 UTAB EQU X*232* ; €: OATACD A 006 OC8A 0206 0269 ; be eed 
ocsce 809 SNSW18 EQU x*goe . ; DATAL A 003 OCDE 0222 ocsce 0C8Es 
me 0080 810 FLAGC EQU  — X*80F ey DATA2 A 003 O0D3B 0252 0081* 00894 
Cc 0070 811 FLAG1 EQU x*40* ; ' € QDATA3 A 003 1007 0300 - O082* CO>90% 
0026 812 FLAG2 EQuU x* 208 DATAS4 A 004 OCTE 0203 0083+ 0091 
’ 0010 813 FLAG3 EQU x*10° DATA5S A 004 OFFF 0298 0084* 00924 
Cc ; 0008 814 FLAG4 EQU x*088 - © DATA6G A GOS 1022 0311 0085* 0C93% 
0004 815 FLAGS EQU X*04* DATFLD A 001 i1C80 0794 "0218* 0219 0219% 0224 062798 C531 
0002 616 FLAG6 EQU x*O2* ; ““*“ DELAY A 002 1SAC 0760 0250 0292% 02979. 
C 0001 _817 FLAG? EQU xX*o1* fs DELAY1 A.004 0012 0237 ' 0238 
; C080 818 FLAG1O EQU x*808 DELAY2 A 004 ODZB 0244 0245 
0040 819 FLAGII EQU X*40* : DELY A 004 OCCB 0163 0161 
c 0020 820 FLAG12 EQuU = xX*20* - © OEPACK A 004 OC5F 0190 9150 0167 0169 
0010 821 FLAG13 EQU x*10° ; ; DLY1 A 004 OFED 0294 0295 
0008 822 FLAG14 EQu x*08* : ; DONEXT 4 004 129A 0540 0664 
CS 0004 823 FLAGI5 EQU X*048 f DOWN - A 004 18C2 0712 0415 
0002 6824 FLAGI6 EQU x*o2¢* os DOO A 003 1951 0744 0202 ° 0206 0213 0214 0220 0262 0287 0297 0480 04687 
; 0001 825 FLAG17 EQU x*o1e : : D1 A 002 1993 0745 0211 0217 0223 0225 0230 0281 0284 0292 0619 0627 . 0656 0659 
© FFFF 826 END C; 0122 A 001 199D 0752 ‘0039# 0321 0342 0362 vs - : =e: -- re 
a rn , 0123 A 001 199EF 0753 0040* CC5&* 0538 
° D124 A 001 199F 0754 0041#* O0C59* 0385 
Cc , G 015 A 002 1995 0746 0522 7 
D32 A 002 1997 0747 0515 
033 A 002 15699 0748 0208 
© B34 A 001 199A 0749 0042 0043 
: 06579 A 002 1969 0731 0293 
GQ . | ; 
DATE 28JUL69 25AUG69 O6NO0V69 10FEB70 29JUN70 PROG ID OFG3-2 DATE 28JUL69 25AUG69 O6NOV69 1OFEB70 29JUN70 PrcG 10 OF 03-2 
EC NO. 816444 816485 816523 816592 816704 PAGE 7 EC NO. 816444 816485 816523 oe 816592 816704 PAGE A 
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F032 


SYHEOL 


068 
077 | 
ELGE 
EMIT 
-EMITER 
EMITTR 
EXCESS 
FFEA 
fFFE 
FFB 
FINALL 
FINDIT 
FINESH 
FIRSTOD 
FIRSTL 
FIVE 
FIVEOG 
FLAGS 


FLAGS2 


FLAGO 
FLAGL 
FLAG10 
FLAGI1 
FLAGi2 
FLAG13 
FLAGi4 
FLAGI5 
FLAGI6 
FLAG1? 
FLAG2 
FLAG3 
FLAG4 
FLAGS 
FLAG6 
FLAGT 
F 2736 
GENIT 
GET 
GETOUT 
GET3 
co 
HALT 
HERE 
HERE 2 
CG INIT 
INIT2 


ee ® A 


© 


oO 


‘''" FNITS 


C  INsert 
LAST 
LOATA 

C toro 
LD250 
LEAD 

C Lessi 
LESS18 
LCOADIT 

CG coop. 
MAKE 
MANY 

C Mid 

MIN 

MINPUL 

KIND 

MOST 
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DATE 
EC NO. 
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18M MAINTENANCE CIAGNOSTIC PROGRAN 


S/3 READ EVALUATION AND ADJUSTBENT DIAGNOSTIC (READ) 


PrPPPrPrrPPrPrPrPrrrPrrpPrrPrprrOr PrP Pr FAAAGTHAAGHAHAAOBGSAHAAADA > 


LEN VALUE 
001 1998 
001 199¢ 
044 1458 
008 1402 
122 1706 
003 127F 
006 1392 
002 1SA} 
0C2 0A13 
002 1968 
003 134A 
006 OCFS 
006 OFCC 
004 QNn2z 
003 120 
002 197B 
003 197 
001 1460 
001 1461 
002 0080 
001 0040 
00 0080 
00 0040 
001 0020 
001 0010 
col o0ce 
001 0004 
00i 9002 
001 OcCi 
001 0020 
GOl oo19 
cok o0cs 
COl OCC4 
001 0002 
001 0001 
004 1967 
004 oA2C 
006 OCk6 
004 145C 
0c4 occ 
004 1104 
001 0222 
004 12ED 
004 1350 
004 OABS 
004 OBOF 
006 0B27 
004 0C68 
002 19CE 
0C% O0B62 
002 19CC 
006 O0A61 
002 19A7 
003 190E 
003 1SCB 
004 0C5¢ 
001 15A2 
026 18D4 
035 1840 
C04 ODOE 
052 1908 
ool 19¢8 
006 143A 
006 132 
28JULE9 
8 1644% 


OEFN 


0750 
0751 
0692 
06ST 
0708 
0532 
0620 
0755 
0026 
0732 
0598 
0230 
0287 
0243 
0562 
0738 
O77 
0670 


0679 


0810 
081i 
0818 
0879 
0820 
0821 
0822 
0823 
6824 
0825 
0812 
0813 
0814 
O815 
0816 
0817 
0730 
0032 
0212 
0666 
0210 
0473 
0667 
0567 
0601 
0068 
0088 
0094 
019% 
0779 
0105 
0778 
0048 
0758 
0721 
0720 
0185 
0756 
0718 
0714 
0236 
0719 
0772 
0657 
0631 


25AUGE69 
816485 


REFERENCES 

0048 

0049 

0253 C253 

0458 

0096 CC96+ 

0535 

0618 

00608 C537 

0237 0244 

0556 577 

05a? 

0246 

Gz83 0311 

0042* 0648* 

0558 

6263 

0053 

0028% 0105 

0408 0413 

0030% 0416% 

0567 0569% 

0105 0123 

0204 0268 

0473 C479 

0557 C559 

0416 0467 

0549 C578 

0542 6548 

0540 0635 

0210 O507 

C509 O516 

0395 C406 

0339 0408 

C389 0413 

0264 

0036 

6209 C518 

G529* 6661 

0207 

0468 

0116 0131 

0547 

0585 

0046 6055 

0079 

C066 

O1L7é 

0035 

0103 

0118 0221 

0038 

COT6* C262* 

0214* 0487 

02134 0480 

0203 

0321* 0331* 

0307 

0129 

0043* 0049% 

0045* CC53¥ 

0044* CC52* 

0655 

0623 
O6NOVE9 
816523 


G204 0210* 062687 O382% 0389% 0395% 0369% 0406 


0157 ©6163 0182 


PART NO. 


PAGE 


C521% 
0540 542 0548 
0634* 0635% O65} 


0309 0511 


0352* 0362% 03744 0385 0400* 0538% 0649% 


PROG 10 


CROSS~REFERENCE 

02674 O478 

0462 

C265 0294 

0590 0611 

0123 0125 

05607 0509 90516* 0520% 

0467 0473 0479% C536 

O578* O59% O601 0603 

0125 

0567 0569 C591 0601 6603 

0634 

0651 

0523 

0520 

0523 

0139 0147 0151 

00ST ¢ 

0251 ©6299 

0263* 0274 

0490 O0659% 

0486 C490* 06454 0656% 

0342* 

O0482¢ 04894 

0065* 0654 0657 
1OFEB70 29JUNT7O 
816592 816704 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


£032 


SYMBOL 


MOVE 
MOVE1O 
MOVE11 
MOVE i2 
MOVE13 
MOVE 14 
MOVE 25 
HOVE 16 
BOVE1T 
BOVE 2 
AOVE 23 
MOVES 
HOVE 
HOVES 
MOVE6 
HOVE? 
MOVES 
MOVES 
MSEC 
MUCH 
BULT 
NONE 
NTRDY 
OFFI 
ONE 
ONE18 
ONE62 
OR 
OVER 
PLAY 
POS 
PRIM 
PRINT 


PRIOUT 
RDCNTR 
ROFD 
RONE XT 
READER 
RESET 
ROW! 
ROWS 
RTO1 
SAVEF 
S8YTE3 
SECD 
SELECT 
SETUP 
SET1 
SETLON 
SETLI 
SET3 
SET4 
SHORT 
SKERCT 
SKEWUP 
SKEWL 
SKEW1O 
SKEW2 
SKEW20 
SKEW3 
SKEW30 
SKEW4 
SKEW40 
SKEPIT 


DATE 
EC NQ. 


3/3 READ EVALUATION AND ADJUSTMEAT DIAGNCSTIC (READ) 


Orrprk PrP bPYPP HP PEPE EPP PEP PErEP PEP HPP PPE PPP P= af 


PP PrpPrrrPpPprprrprrrPerpbrrpnbOr pp br bY» Pb bw I 


“LEN VALUE 
003 1075 
064 i10€&1 
003 1CF3 
003 1103 
0o3 1113 
O06 211A 
004 112E 
004 1145 
006 1159 
003 1082 
COG il5F 
003 208D 
006 1090 
004 10A% 
003 1082 
003. icBE 
0o3 iCCAa 
906 i0cd 
031 iSiE 
C06 1383 
066 oD6D 
00% i217 
C04 idi2 
004 12D8 
oo2 i977 
004 0D4& 
003 19C1 
003 1357 
005 i3E2 
004 1980 
040 ig5E 
004 1932 
001 Q214 
004 1024 
004 OB8i 
001 2LAOO 
6O& 1003 
014 1449 
COB Lie? 
008 14CA 
o0e@ 14C2 
001 OA10 
OOL 198E€ 
COL 0208 
004 1536 
036 1871 
00 1273 
003 1304 
6003 12C7 
003 1367? 
004 1261 
006 1253 
005 1963 
006 1371 
006 1312 
OO 19AB 
422 BED 
OOk 1i2S8C 
OOo: 1C68é 
ook 1980 
422 1TEO 
OGi i9BE 
122 «=LTFA 
cO& 1152 
28JUL69 

816444 


DOEFN 


0343 
0382 
0386 
0392 
0398 
0400 
6406 
0413 
0419 
0347 
0420 
0351 
0352 
0360 
0363 
0368 
0373 
0374 
o7G0 
0628 
0264 
0495 
0304 
o559 
O736 
0255 
oté9 
0638 
0637 
O742 
0725 
0723 
C805 


0319 
0118 
OT84 
0299 
0693 
0486 
0696 
0695 
0024 
0743 
0804 
C724 
o715 
052g 
O575 
0554 
0609 
0520 
o515 
0726 
0612 
0579 
0765 
0790 
0766 
OTS2 
O7&T 
0709 
0768 
0710 
0416 


25AUG69 
816485 


REFERENCES 


0356 
0375 
0464 
0387 
0393 
0390 
6401 
0409 
0407 
0344 
0417 
0348 
0346 
0353 
0378 
0364 
0369 
0365 
03145 
0626 
0266 
0488 
0298 
0552 
0275 
C257 
0056 
06374 
0541 
0255% 
OCST* 
0104 
0107 
0431 
0491 
0289 
9106 
0121 
0312 
0421 
0474 
0446 
0434 
6017 
C639% 
oo7s 
C101 
0137 
0288 
C572 
0550 
0605 
0508 
0510 
0067 
0S02 
0568 
C5 79% 
0631 
06124 
00742 
005i 
009s 
0212 
C0S4 
O4i1 


0396 


C414 


0350 


O37i 


0331 


0545 
C256 
9498 


o1i2 
0435 
C495 


0184 
O17 


0425 


0640 
0102 


0301 


Cé07 
0573 
G6i5 


céLs 
O0C75 
Cé17 
CCS5*% 
C620 
COS4* 


O6NC £9 


PART NO. 2589736 
PAGE SA 
CROSS~REFERENCE 
6252 C374 0460 C579 0612 0645 0648 0649 
0566 0563 6565 0580 0583 9613 
C259% C26C O271* C272 0274% 0275% 
0126 0134 0142 C177 0185 0194 0198 0304 0422 0427 
0439 0443 0447 0451 0455 0459 0463 0469 0475 0483 
0499 
0778 
06424 
0625 0628 0630 
0617 0620 0622 C636 
0075* 0632 0633 C633* 0653 0653* 
0625 
0216 ©216* 0442 0631% 
0622* 0628 0630* 
0215 0215% 0454 C632" 
LOFEBT7O 2SJUN70 PROG ID CF03-2 
816592 816704 PAGE 8A 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM - PART NOw 2589736 164 MAINTENANCE DIAGNOSTIC PROGRAM © PART NO. 2589736 : 
—- G PAGE 9° Cc PAGE 9A 
F032 S/3 READ EVALUATION AND ADJUSTMENT DIAGNOSTIC (READ) 6 F032 S/3 READ EVALUATIGN AND ADJUSTMENT OIAGNGSTIC (REAL) 
+e | | 3 
¥: CROSS~REFERENCE - GBJECT CARD LISTING 
.€ SYMBOL T LEN VALUE ODEFN REFERENCES © . mantis 
i THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS GC E H INDICATE NUMERIC SHIFT. 
SNSWi8 C 001 0080 0809 oo78 0102 ; 
Cc SPARE A O23 14€9 0698 0410* 0415% 0419 0419% 0466 c cL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THRQUGH 48 CL 4S THROUGH 64 CL 65 THROUGH 80 CL B81 THROUGH 96 
SPAREL A 122 1598 0702 0099% C160 0100* 0472 
SPUDT A 003 OAOC 0019 0037 00546 0056 
C SOREL A 004 GDAG 0279 0031 6239 oO eoeve 0 00 S82 © a0 © a * . o% e «a . 
- Sual A COS OD9B 0275 ~ o277 T4-¥ 2 acH ef {A #6 F "a #OAG—-*"SMCFHACEL ©& O08 4-DDL-D FPV € & RBZ ABS B-¥Y <a/ 21%F 0320001 
‘ott SYNC A 004 128C 0537 0533 ee 
¢ TABEE A COOL 168D 06707 0361 | oO ° e - eee ae . * 
TABEND & 002 1081 0796 Oa779 T+-ZSILLFFR405/ 6 s{DQRXOO CKYRN-O CJORUTOSE%~< fT SF#L2/5-<" @UERS < 43FRO<C /-NF?D “eps WSUFO320002 
TaBFE A OOL 1613 0705 0341 ; | d 
c TABLEF A 001 LAFA o788 O006e* OC69 G049% 0503* 0504 0504% oO os e * e en a « eo 
TABLEO A 001 2486 0786 0070* OO71 OOTI¥ CCT7 0319 0340 0360 0383 0505* 0506 0506* 0530 | Y#-DO?LOGFe-< /T SF#eBH YtaZ 146Q HC*HEHTIFFREA( JH m{FERYLCEDLSOAUS TY MLECOEDSSaFiX HE & 3L4F0220005 
TABSPR A OOL 251F C701 0384 i 
@ © Tapoo é 003 1599 0703 0329 ; | Q eo om = ° ° ° * ° 
THEM A025 288A 0716 OLOL*® C104% 0110 0188 T4-9 » EESCAAVMFOX a"1_3CG-$*/_3] EZELBFI-E=LO 6$4 <+1646$4a ALYCI< *RL1YC DRZIVSC M RELY 6CYF 90320004 
TOSKEW A O40 182A O723 C050® 0217 0502 0619* 0&2 7% 
cc TRAIL A 003 123186 6582 Ob61* 0543 , C oe * e ° e e e ° ee ° 
TRALL1 A 003 1321 0584 0062% | Tt-ZW/TS —-?2DAZRZ 28 Sxt~-(/CYHD - a= w=ii-& C3e0B) 2/2-86 g0tO-( {CS HD ~ae a=if €c3 coB< ZYME OS 20005 
- * JRAIL2 & GOB 133€ 0593 0063* ne 
Cc TRAILZ A 003 1358 C604 0664% | GS ss ° . ° ee e 6 ea ° 
Two A 002 1979 0737 0034 ‘ Tt-_/CGUP=/~#CGU P~A3ACGUPA/¥GCGU GTAECCGUOD/QLI DO Ne LEERtNW OCFHY ROITS ~72U QO< 1S HFLH BOYFO3Z0006 
TKOSO «66 003 «1904 O77C 0045 
& uby A632 LS2E O722 0115 o . ° * ~ e ~ °® e : at ee ° © 
UNDER] 2 G06 LIFC 0687 0482 : TaD e+H MQEHEF<E G /Z2B8F JSHO+L JOH EAS R-eB8G S.09G SFSBZBEPASSOHIF< E THAUTS EFC2ZDD< «=s~AG 3eEF 0320007 
UNDERS & 006 iL3CE 0633 0621 0€29 , 
UNPACK C OO OZ21E 0806 0190 oe ° e e ¢ « es ° es eve 
uP & 004 LIFE O712 6410 T#-2P0<86 /ZFHI/ (a+C /OHSa+ 0 Ad COHSSFUQUFGGGE*B- GS<E8L FQP- 0H ‘ES/SNG?CSOH®BHTE SC STEFOR2OGCR 
VTAa C 001 0232 0308 : ; : . : 
RWALY A OG OFDA 0290 0286 C296 : ° °° ~ s es ° oe © oe eos . 
BHICH & 004 OAED 0078° 0513 : T4-OKFOQ52/8 /OH Sat 0 ANI4—> RSIH GA-CAFOCRS®BG S. O08 FOUSPiWHaZ = FC R/SWLOM*ERTC SC EI<FO3Z0005 
WORK &.006 1967 OT40 0133* 01414 0156% 0162% 0192 - ; . 
£ wORKZ & O02 1989 O74) C1i53% 6154 0156 01597 0160 .0262 0165* 0165 0168 Pk is e -<. = ° , ° os a 
-WORK3 & GCO6 3973 C734 COTT* O264% 0267 ; : T+-L(FQU9aAWHAZA CC DR/iwiayesl 4 RO/Y(4EAR,BHECTU J FSL2U SSCluTas YOH*BFZCOE;*0ESB G SH SRLEOSZOOIS 2 
wORST & 006 137A 0615 0592 089% 0596 9599 \ , ; , 
rf -WARSTA A O06 1384 0625 0616 ee ; 'O 8 ° a ioe On. ea 6 as ae re : - 
xR © 001 Gook o6d1~ . 00314 OC32 0022’ 0032 00334 C034, 0035 0224%* 0233 0234 G240 06241 i Fe-2Hate ji /O>A0H* BF-QRFH,2/2) /OH sA/HGFS, /OHE 6&8 M4Sa8G6 CYEC/ aS MH RO/WIC <NCS EFC Ui & ~—SFO320082 
2 0254* 0258 O0258% 0262 0265* 0293 0294* 0319% 0322 0326 6333 0333* aan : ns _* mo a 
¢ ; 03402 0243 0347 0254 0354* 6360* 0363 0368 ©0376 376% 0383* 0386 te é & Nos ee ° ; e s eeif ° OS 
a 0392 0402 G402* 0530" 0551 0554 0554*% 0555 0556* 0564 0572 0575 i T+-3CUOSAFSQRUSH ABEGAFSQRWAHBBTY —EF < SWOFRCKK AW =FPEK /UCFRD< 40 SFRO<ZSI>ZEMSCESE «= ESD “HEF O3Z0022 
; 0575* C576 O577% 0588 0588" 0589 6G590* 0595 0598 0606 0609 . 0609% ‘§ oO . 5 : . 
£ 0610 Gé6L1* 0638 0641 O62 Cé662* ; +o) ee ° Bhp! . ee Se oy ee Se : 
" KRZ € 602 Q002 c&D2 02368 C237* 0243* 0244* 6320% 0324 0328 0330 0334 0334* 0341* 0345 . T+-2=C HON/WKI D % J-O*GHMt /-OBFEM RULGSE*33aEQC JV LFREB J2 CEDR_/e. LOHDOCSESAFOSRU0® AFOS H#2aF 0320013 
: at : 0349 0351 0255 0355 C361* 0365 0370 0373 O377 O9377T* 0384* 0368 | 7 ; 
: ¢ : 0394 ©0398 0403 04034 0531* 0532 0534 0534* 0537* 0544 0546 0562 eS e 2 oe ee ee ° .. ese * - o : 
0570 0582 0584 0586 0593 0604 0637 0639 0643 0646 0663 0663* | T+-49FS$2 JVO@ E 81 G U 4DO-H CQ BB/E / 4KOV3<#] ASEEAOL (GHB. 6 “YLOHGiHABGCIM LPsu LAVFOCS20Ci4S 
ZERO A 062 1975 O735 0076 0212 O636 0660 | 6 ; : : 4% 
' * eee 2 e e = % @ 
¢ TJCTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = a . ‘J4+-S43}))1A-CCEIB MUZHA O@AW{+A~- RT*® ECMTK EDOGAW i+ ERT®BECNES Je XCOORKZIVMAS<KROAY Xt~O OmUFC320025 
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os G PAGE 10 3 PAGE 10A 
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ar G | | é 
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Ppacs ta 





FF83 USAGE RETER TEST 
‘BRR LOC OBJECT CODE ADDR STST SOURCE STAT ESEST ZRR LOC OBJECT CODE ADDR STST. SGUECE STATENZNT 
2 DECK & OaaC 3C 07 OaFA 70 AVI «TU 1¢1,X%°07? 
0ac0 3 uca START xX*a00* 8 10 72 OaBO 3€ OF OBOE TT AVI TU2¢1,X*O7* 
S FOSSFESEEEE CESSES EES SOESTEEES EES CHEESES SESSESESSESE SES OOTES ESEEOEESEOEEESD GABS 3C 07 0506 72 avi TU3¢%,X%*079 
5 es OABS Ct 60 OCABF 73 TIO ZENEDI,X*60* TAPE ONIT O READT 7? 
6 USAGE SETER TEST OaSC F2 87 04. 7% J TESTOR GO TEST BEIT UNIT 
7 OABF 3C 87 OAF 75 ZRNRDY AVI TEOe? , x*87 * SkIP 0 
QB SSF SOSH KEKE OSES EEEEEEFSEEESESSES SEOCSESEESRESSEEESESS SESKESEESERETBEEERSS Oac3 Ci 68 OACA 76 TESTUI TIO SUNRDY,x*68* TAPE UNIT 1 READY 2? 
6 + SECTION PREFACE OACT F2 87 08 77 J TESTUZ GO TEST HEIST URIT 
10 S8F 685 S4S E69 USES OSES ESSES EESESESTERSE SSEREHKS THERESE SHEER SEES EESESESSETES O&CA 3C 87 OAFA 78 SONRDY BVT TU1¢1,z2°87* SKIP i 
oa00 FFa3 oa0t 8 11 DC XL2° PF83* PROGRAM ID AND REVISIO’ LEVEL OACE C1 70 OADS 79 TESTU2 TIO TOMRDY,X°70* TAPE GHIT 2 READY 2? 
D902 00 0202 12 pc XL1*00° SECTION FLAGS OAD2 F2 87 08 80 . @ TESTU3 GO TEST HEXT UNIT 
0a03 00 0203 «13 pc XL1° 908 CURRERT BOOTINE HDABEE QDS 3C 87 OBO 81 TUNRDY MYI = TU2+1,x°87* SKIP 2 
Cao8 0000 Gaos 14 Sc ZL2*° OF GADS Ct 78 OAEO 82 TESTS3 Tx0 THERDY .2*78¢ TaPZ UNIT 3 READE 7 
0a06 0422 OA0F7 8615 DC AL2 (BT01) ADDRESS OF FIRST ROUTINE OADD F2 87 0&8 83 J S101 GO TEST WEXT GAIT 
oaos 0000 ca209 76 Dc XL2* 0* RESERVED OAEO 3C 87 OBOS 84 TRURDY aYI TU3¢1,z°S7* SKIP 3 
OaOa FOOOCC oOA0C) 8=6©(17 SPUDT aC XL3* F00000* BNIT DEFINITION TABLE OABS F3 FO 00 85 SIO} SIO X°00*,x* FO? S?CU FEED 
OAQD E609000 OA OF 18 ac XL3* B00000* OAET F3 E2 00 86 SIO02 Ssi0 Z*00* x*Z2° $203 OR 1503 PRIBT 
OA10 500000 OAI2 19 DC XL3* 500009* OAEA F3 a0 00 87 S103 si0 X*OD",Z*a0* - SauG SEEK 
0473 A0O000 oats 20 pac Z1,3*a00000°* OAED F3 BO 00 88 sI0a sr0 xX£00*, x*BO* 5448 SEEK 
OA16 BO0OCO 0218 21 pc XL3* BODOGO* Ga?O F3 S50 00 89 SI05 SIO X*O0* ,x*508 1462 FEED 
OA?9 £10000 Oa 1B 22 oc XL3 *E10000* OAF3 F2 07 03 $0 TuC sc 26 ,X* O7* 
Gaic 510000 OAGE 23° Dc XL3* §10000° OAF6 F3 60 17 91 SIo xX*27*, 160° ZRASE GAP UEIT 0 
OAl¥F 701000 6421 24 pc XL3 *707000* GAFS F2 07 03 92 TDi Jc $46 ,X* 07% 
25 FREESE EEES HERES CEEESES EES EEE EEE ES SESEECEEESSESSESTE $OOESESESEIESAELEESEE OAFC F3 68 17 93 SiG ZX*17*,x%*68? ERASE GAP Uext 1% 
. 26 * ROUTIZE 1 PREFIX OAaPrF P2 07 03 $8 TE2 Jc *¢6 ,x* 07° 
QF SRK EKKE SEK STEHTE KK] SKAKEAESS SHS KKEE SE SEE SECRESTESSE VENTS TERSHESESEKEESETE Q0B02 F3 76 17 35 SIO X° 47° ,X* 704 ERASE GAP 8aIT 2 
Qa22 074 0322 28 RTO1 pc 22.12*O18 ROUTINE RUKBER 0305 F2 07 03 96 TUZ ac #26 .X°O7? 
O0A23 80 0423 29 BC XL1°so°* BANUAL ILTERVEWTLIOCN OB08 F3 78 717 97 “SIG x°717*,x*78* ERASE GAP UZiT 3 
QA2Z& FFFF O0A25 30 Bc XZL2°*FFFF* LAST ROUTINE OBOB CO 87 0212 $8 B PRIT 
31 SHESEER SHEE STETET ESR SESE EAE ERESESSESKRS SESTES SESOSESSTSE SESEEREKESTSES £6ECESEES OBOF 43 oBoFr 3S BC XL1 &aQze 
Oa26 CO 87 O27a 32 B PRINT OB10 4£ 0870 109 pc Ti. 7* 36¢ 
DA2B 06 022A 080.33 pc ZL1* 06° 0311 Oba? 0B12 1401 pc AL2 (UNT2) 
GAZH 13 04283 34 aC E7* 27° OB13 FrFrd OBIS 102 ac SL2° FFFO* 
Sa2c 0891 O0A2D 35 ac AL2 {UST 1} OB75 CO 87 O27a 383 8 PRINT 
OAZE 38 20 9AOS5 36 TBE SPUDT-1,X°26* *CK FOR AD BRANCHES IF SBi9 62 GB19 106 ac XL7* 62° 
OA32 F2 190 06 37 JT CEPT *HPCU IS ATTACHED OBia 25 OBikR 105 be EL 1 37° 
0A35 OC O02 CAEG OB76 38 iBYC $1012 ,SKIP+¢2 (3) SO-OP BPCD SIO OBIS OBDS OBtC 106 BC AL2 (UST3} 
0438 39 20 GADE 38 CKPt TBF SPUDT+2,x%° 208 *CX FOR AHD BRASCH IF OBID CO 87 O2tA 107 B PRINT 
GA3F 39 20 OATB ac TBF SPUDTS 18, X* 268 EITHER PRINTER IS &TTACHED 0B21 82 06823 1708 be XZ..7*02? 
GAS3 F2 90 66 Bt oF CK&2 OB22 OF OB22 109 pc IL 7° 15¢ 
OAS6 OC O62 OAED OBIE a2 KYC $130 242,SKIP42{3) HO-OP PRIESTER SIO OB23 OBE OB2& 426 DC AlLZ (UBTS} 
OAC 38 20 OAT? 43 CK&2 TBN SPUDTCS , F°720° CK FOR AKD BRASCH IF BPG 0B25 CO 87 O2ta 241 B PRIS? 
0a50 F2 10 OD. Q& JF CKS1 *1442 IS ATTACHED OB29 02 OBZS 712 pC XL1°O2¢& 
GA5S3 38 20 OQAID &5 TBH SPUDT+ 717 gK*20* *CK FOR AND BRAHCH IF 28&2 QBZA iF OBZA 433 pe ELit 33° 
0257 F2 716 06 86 JT CKS? *ATTACHRERT IS ATTACKED. 0828 8c02 CB2c «(718 bc AL2 (USTS) 
0a58 OC O02 OAF2 0876 4a? M¥C S105¢2,SKIP¢2{3) BO-OP 1882 CORMAED OB2D CO 87 O2tR t45 B PRINT 
O0ASO 38 20 OAs 88 CKS1 TEE SPUDT?#*S ,X* 20* *CK FOR ABD BRANCR IF 03831 02 0B3% 1726 ac XL7°O22 
GA64 F2 10 09 as Jt SETA *DISK SPIEDLE AIS ATTACHED 0B32 38 0B32 177 BC IL 1° 56° 
OAGC7 OC O02 OAEC 0576 59 avc SI03¢2 ,SKIP#2 (3) 3G-Or SPINDLE A S10 0833 OC3A CB38 118 bc AL2 (UNT6} 
GA6D F2 87 O48 51 J CKS$2 .-. OB35 CO 87 OQTA 218 B PRINT 
0470 31 AS OCF? 52 SETA LI0 3=—6 CDISK, ¥* AG * 0533 62 0B39 120 Dc 1L1°*028 
OaAv# 38 20 OA17 53 CKS2 TBe SPUDTE74,X* 20° *CK FOK ABD BRANCH IF OB3A 3F = OB3A 7221 bec 1% 1° 63° 
OA7& F2 10 09 54 JT SETS *DISK SPINDLE B IS ATTACHED OB3B OC79 OB3C 122 DC AL2 (UST?) 
0a7B OC O2 OAEF 0B76 55 AVC SIO&#¢2,SKIP*#2 (3) WO-OP SPINDLE & SIO OB3D CO 87 O21: 4123 B iS 
Oa8i F287 08 56 J CKTAPE 0B&i O07 OBS4 124 pc XL14 "O07? 
Oass& 31 B6 OCF? 57 SETB LIO ‘CDISK,xX*B6* OB&2 22 OB&2 125 Dc IL 1* 348 
OA88B 34% 20 OA20 58 CKTAPE TBH SPUDT+20 ,X* 20° TAPE OW SYSTES ? OB43 OCOB OB4e i126 DC £12 {UETS} 
OASC F2 10 OB 59 JT TRITIO OBY5 CO 87 0222 127 B BALT 
QASF 3C 8&7 OAFS& 60 aVI TUOeT  X°87* SET TO SKIP TAPE CDS. OB49 FFFO OB&A 128 BC XIL2 * FFFOQ® 
OA93 3C iS OAFS 64 SSVI TIO4+2,X* 158 SET TO SKIP TAPE CDS. OB4B OC O2 OPOD OCFC 129 START AYC COUNT, ZERO (3) ZERO THE COUNT AREA 
QOAYT F2 B87 4A 62 d SIo1 0B51 OC $1 ODAS OE4S8 130 soB1 SYC USELES (146) , HOTREG 
OASA CO S87 O2ZIA 63 TRITIO B PRINT PRINT TAPE SET-UP OB57 OE O02 ODOD OCFD $31 ALC COUBT, OHE (3) ADD 1 TO LOOP CoUusT 
OASE 06 OASE 68 bc XL1°O6* O85D OD 02 GDGO ODDN7 132 CLC COUNT, ATSALL (3) *CK FOR AND BRAECH SHED 
OASF SA OAOF 65 DC IL171°90° OB63 F2 81 O04 133 JE ALLF *COUNT IS COMPLET2 
Oaao OCF5 OAA? 66 pc AL2 (TUAaTS) OB66 CO 87 0851 138 B SUB1 BRANCH BACK THRO LOOP 
OAA2 CO 87 0222 67 B HALT OB6a CO 87 0222 135 ALLY & HALT 
OAA6G FFFA OAA? 68 ac XL2*FFPA® OB6E FFEE OB6GP 136 pc XL2* PFEE* 
OAAS 3C 07 OAFY 69 aVI TJ0+1,X* 07° 0870 CO 87 OB4B 437 8B START GO BACK AND START ALL OVER AGAIS 
DATE 27APR70 303 UL71 19NOV71 31A0G72 PROG 1D OFF8-3 DATE 27APB70 30J0L71 19 80¥71 3 1A0672 PROG iD Orré-3 
$C HO. 816677 818817 8148677 5770548 PAGE 1 EC 40. 816677 818817 818677 .5770546 PAGE WA 












a rT ' PERT 40. . 2569739 a IBA MZINTEZARCE DIAGHOSTIC PROGRAS a ae aaa 2 Sios 4 PART 30. 2589739 j 
450 MAINTEWABCE DIAGNOSTIC PROGEAE : PART 50. : | : eee : eee :. 
‘9983 gSAGE BEYER 3259 | | | FF83 USAGE SETER TEST i 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATESEST # alien | | B&R LOC OBJECT CODE ADDS STHT SOURCE STAT ENEET : 
138 © 164 cesenenaceseeseseeseseeesesseseseuesconesecesesesesesesensssscesseeses - 
165 * CONSTANTS . 
067% F2 87.00 | be SKIP J ee3 166 teseeseseassaceescesenesesensseceeeonssesseesssenssesseecenecoosssceses 2 
140 OcFA 000000 OCFC 167 ZERO 0c IL3*0° : 
181 seeneesseesseessseeueesssosscccccaseeeesecessssesecesesessecesseseseses!| OcFD O01 OCFD 168 ONE oc XL 1° 1# 
1a2 * MESSAGES { OCFE 000000 OD00 69 COUNT DC XL3*0* 
142 SHOOK OEEEEKOEESEESEES $8OF9 $068 684F8 56408 E884EESES 6OOSNSE8EEEEEEEEEEEE. 0D01% 000000FF 0Dp0& 170 BDISK pC BUN CoOUe ORE 
B77 D4C1v2C540C1D3D3 OB91 18% UNT? DC CL27°*SAKE ALL 1/0 DEVICES READY. * ODOS OAFCOF | 0D97 a ATSALL DC =. IL3 "719887 
OB7F SOC9ETDENOCSCSES «148 172 
mass flac Sy 173 FHS 898 OESEEREEE EES FEEEESS ES ONESS ESSE OFSEEEETEESETEEEEEE SEES 4088888880 
* no e 174 ¢ EQUATES 
nee Recs sGeanloriee OBAF ia UST2 DC CL30°DO HOTHIBG TO THE 1/0 DEVICES. . . 175 sensensenscaseseosenenseusensnesenssnenatensosenensenesscecesesenseses 
UBAZ C54 0C961D640C4C5 145 7 ODES 176 -USELES FOU «24160 
OBAA ESC9C3CSE2UB 145 : | OE4B 177 HOTHNG EQU = *+320 
OBBO DICSC3DEDICH4OES OBDY 146 UST3 DC  CL37*RECORD THE VALUE OF ALL USAGE METERS. * poset aoe eet et EO” See 
OBB8 C8C540ESC1D3E4CS 186 : O222 179 HALT EQU) X°222 
OBCO 40 6C640C1D3D340 146 FFFF 180 BND 
OBC8 ESE 2C1IC7C540D45C5 1486 
OBDO EICSDIE2Z4B 186 . 
OBDS DICSEZCSE3KX0E3CS OBES 147 UNTS pc CLIS*RESET THE HALT. * ~ 
OBDD C54 0C8C1D3 E34B - 147 : : ; ‘ = 
OBES D7ID9ID6EC7TD9ICIDSKO OCO2 148 UNTS oc CL31*PROGRAS WILL RUN FOR 6 SINUTES.* ; 
OBEC E6C9DID340OD9IESDS "188 : 
OBF4 SOCSDEDSNOFOS ODS * 488 
OBFC CODSEXE3ICSE24B 148 : 
0CO3 DICSCIDEDICHVOCI O0C35 149 Dc CL51T*RECORD AND CONFIRS 6 SINOTES ON EACH SETER AT -EE- * : a 
CCOB DSC 4&0C3IDE DSC6C9 149 ee ce 
OC13 DSDS4OF64ODSCODS 149 
OC1B EXE3CS5E240D6D540 749 
0C23 C5C I1C3C BRO DEC SEZ a9 = 
0C2B C5D98UC1E34060C5 149 : ; 
0C33 C56040 149 | 
0C36 C8CIDIE34UB Oc3A 150 UMTS DC CL5S* HALT.*® 7 
OC3B DICSCOC5D94NE3D6 OC6E 151 bC CLS2*REFER TO APPROPRIATE ENTRY MAP IF METER INCREMENTED ¢ 5 : 
0C43 40C1D7D7D9 D6D7 DY 151 
OC4SB C9ICTE3CS4&0C5D5£E3 151 S 
0C53 DIES40D4C1D740C9 151 
OC5B Co4’ OD4SCSE3C5D9KO 751 . : 
0C63 C9DS5SC3D9C5S DUCSDS 151 ek 
OC6B E3CSC440 151 | oe 
OC6F CIDADTDIDEDTICSDY GCC79 152 UNTT BC CL11* INPROPERBLY.* i 
OC77 D3ES84B 152 Cees ae 
OC7A DSICSE2ZC5E34060C5 OC9B 153 UMTS pc CL34*BESET -EE- HALT TO REPEAT PROGRAR. * ; = 
0C82 C56040CBC1IDIE340 153 a = 
OC8A E3DE40D9CSD7IC5C1 153 > 
O0C92 L340D7D9DOCTIDIC? 153 : a 
OC9A DAB 153 
OC9C ESC IDICSHOESDSCY OCC3 154 oc CLOO°PARE.UBITS TO BE TESTED MUST BE ENABLED, * 
OCA4 EIEZNUO0E3D640C2C5 154 : ' 
OCaC 4OE3CSE2ZE3CSCRAD 154 7 
OCB4Y D&E®E2E340C2C5480 154 
OCBC C5D5C1C2D3CS5C46B 954 { 
U0CC4 CIDS5C44O0D9CSCIC’ OCES 155 pc CL38°AND READY, WITH BRITE ENABLE RING ON A * 
occc EVO BEObCIEICEN OES 155 
OCDY DICIE3C540C5D5C1 185 
OcDC C2D3C540D9C9D5C7 155 
OCES 40D0D540C140 155 \ 
OCEA E2C3D9C1E3C3C640 OCFS 156 TUNTS DC CL12*SCRATCH TAPE* ' 
OCF2 EICUDWICS 156 
187 
157 e 
158 OE SERS EREE SE RERENE SEEEREEEREESESOESSE REESE RSE SESEEEESEES ESE EROEEREEEEES 
159 * ADDRESS CONSTANTS 
160 FH OEES HESS CEE EEEREEES ESE OEE E EES EEEEEEESEEEEEEEESES O49 080088888888 
“ OCF6 OCFS OCF7 161 CDISK DC AL2 (ADISK) 
- OCFB ODO} OC®9 162 ADISK pc AL2 (BDISK-3) 
i: 163 
£ATE 27APR70 3030L71 19NOV71 3120G72 PROG ID. OFrFrs-3 DATE 27a PR70 30JUL71 ‘W9NOV71 3 1A0G72 a PROG ID orrs-3 
£C NO. 816677 618817 818677 -§77058 PAGE 2 EC NO. 816677 816817 818677 577054 PAGE . 2a 








SCC HCHoSSCHECC ESSE SHSOHHOOOHM OCC O HEC EEO EES 








a ge ea gg en ETN a a ee gE gt gh em Pr gag ae oe TE Re aE a ta ew Ig Rh ne CP Ege ge Gh ge) cian eR eg ee a dl 





¥rFr83 


SYABOL 


ADISK 
aLlLF 
ATS ALL 
BDISK 
COISK 
Cet 
CKS1 
CKS2 
CKT APE 
CK42 
Count 
HALT 
NOT HNG 
ONE 
PRIBT 
BTO1 
SETA 
SETB 
S101 
SIO2 
S103 
Si0& 
SIo05 
SKIP 
SPUDT 
STaRt 
SU31 
TESTU! 
EPESTU2 
LESTUS 
TRITIG 
TRNRDY 
TUSTS 
TONRDY 
Tu0 
Tui 
EU 
TU3 
UGK 
uUHTI 
UNT2 
—- UNT3 
USTY 
UaTS 
UST6 
OnT7 
UATE 
USELES 
@UNEDY 
ZERO 
ZRNROY 


USAGE BETER TEST 


Tt 


bee See See De fae fe Be De te Dee few Doe me Be pe De te fe Be oe oe oe pe i OO) Be fe Ol mS Bm Dm Dm pw bm & Bw pm we 


Bd 


a 


a 
& 
a 
A 
A 
A 
A 
A 
A 
A 


LES VALUE 
002 OCF9 
004 OBBA 
003 oDO7 
9048 O0DO04 
002 OCF? 
008 0835 
004% OAG6O 
004 OA74 
004 oases 
008 Oa4ac 
003 0D00 
001 0222 
00% OEF48 
0014 OCFD 
001 O21A 
0017 OA22 
004 0OA70 
004 OABs 
003 OAE4 
003 OAE7 
003 OAEA 
003 OAED 
003 OAFO 
003 O74 
003 OAOC 
006 OBUB 
G06 0851 
004 GaAC3 
O0& OACE 
00% OADY 
004 GAGA 
004 OAED 
O72 OCFS 
008 OAD5 
003 OAF3 
003 OarFr9 
003 OAFF 
003 OBCS 
001 0a00 
G27 OB94 
030 OBAF 
037 O58DS 
O15 OBE3 
031 Ocdo2 
005 OC3k 
01% OCc79 
C34%& OC9B 
00% GDaA8s 
00% Oaca 
003 OCFC 
004 OABF 


DEFS 


0162 
0135 
0171 
0170 
0161 
0039 
0048 
0053 
0058 
0043 
0169 
0779 
0177 
0168 
0178 
0028 
0052 
0057 
0085 
0086 
Coa? 
0088 
0089 
0139 
0017 
0729 
07306 
0076 
0079 
0082 
0063 
0088 
0756 
0084 
0090 
0092 
6094 
0096 
0663 
071498 
O165 
0746 
O47 
0743 
9750 
0752 
0153 
0776 
0078 
07167 
6075 


1B8 BAINTENANCE DIAGBOSTIC PROGRAS 


B@EPERERCES 


0161 
0233 
0132 
0162 
0052 
0037 
00448 
0051 
0056 
0041 
0129 
0067 
0130 
0131 
0032 
0015 
004s 
0058 
0038* 
0042 
0050 
0055s 
0047 
0038 
0036 
G33? 
0138 
0074 
6077 
0080 
0659 
0082 
0066 
0079 
0060% 
oo70s 
OoFis 
007 2% 


0035 
O7G% 
0106 
C779 
OTTys 
C128 
0422 
8126 
071304 
0076 
0129 
0073 


0057 
0086 


01378 
0127 


0063 


0062 


00482 
0039 


5061 
0078% 
008t* 
GO84s 


CROSS~ REFERESCE 


TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 


DATE 
EC NO. 


27APR70 


816677 


30J30L71 
818617 


19NOV71 
818677 


0132 
0135 
0098 0103 0107 O1%71% 0115 
0083 
0047 0050 0055 
9040 0083 0085 6048 0053 
00692 0075 
0 
3 TA0G72 


577058 


0119 0123 


0056 


PAR? gC. 
PAGE 


PROG ID 
PAGE 


2589739 
3 


OFF8-3 


me ete ee, a. 


nat Anne ey I ON TE ete emt NE eens cee ween 


@o@e@qee@eeqed@e@e@e eee ee 8 eo9eee@eeoe@ests sd @ 
. fing ie : . | 


“BE SAIBTERAESCE DIAGEOSTIC PROGEAN 


PES3 


THE CHARACTER 


USAGE METER TEST 


oBsECY Cand EFRSFInG 


CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH &8 CL 49 ZEROUGE 654 


Te~¥3*8<¢ BSH 
Te-Z5¢K HCTU-B/, 
T+-D0B/~2D ux -, 
T+-,,A0% | *. ARE 
T¢-3u 100 446 {H 
T+-_/ /YBGOOBOR* 
T#->*A" HAACBGBSG 
T+-2P8°R baTES<Y 
T#-OK1 3 BaTEE<Y 
Te-1(6)3 *UCH2)P 
P+t~ 2H ACES: Es Dc 
T+#~3CE4j OS (XE5SSP 
T+~3=0} PDE (XEG*L 


s eevese 


TB &G C*520 


Bert sE7Te=nDC#PHs 


DAT. 27APR70 


EC NO. 816677 


ee eee eea ga@eae_e 


' ¢ -E& 8 

20 Q< -,ZB7Q8H Y 
?7B7$2/0E 1_-374B. 
~B,"2/068/0, 400- 
G "(-E"AG "(TEE 


BP-H8CC, /OHE Ta 
" /OHS*=# /0_.2T* 
/S5UCD15 PIO@PSK*E 
A&u= (.5°EG1"ZA5DC 
UGaPss (SHE<PROB/ 
H0}) 288 SePTty¥ 
ABHCR6) SCG*GRE=i 
YE=$18a/ 9_r18aE 


aretewrseveevece 


- D> ED G 
Jas (*B HG-~HEA-6 
HH {HEB32GB2E@EE, 
H2?7HGAC2GB?,a¢ , 
G "(0E"EG "(8EaB 


<3*BG /YGH-2$0H* 


e e 


5S<GKIBCAS*( 206 


EQ *SRIDCT2Z<CH 9%G 


¥2)!L5 (XUSHCPS_v¥ 


= 


S<PTIP¥ 6: ¢ O<P 
2) PC6*PH1) Prieg 


A53uN G(PIB=I 8°R 


eS 


1) PAO ES (X15%) 


Se Pees oenaeeaesnen 


fF F "8 /OHBA/S 
BB? H.)T--B/L2D 0 


Say) HO8*BF-REC{P 


WaY*D{H*. <EBB>C 


G /ICG-D>7""C /OH 


BH?"0C H({ 3acID 


OS<LEO*XCi;E 6eP 


LOCH SRR 0) ILECL 


"UCH2) PUBA@PSK*x 
EQDCHS) sTR LEIS 


2) LEG) SP2jXL:D? 


ORB Sa@PsearDs iL 


5B ORCSO*XA8a| 


See an e@eveeceteows 


=S7 MOF § j Cc PR ASC gk A SC Q , 
3030171 1S NOV71 3 TAUG72 
818817 818677 377058 


eed 
Beet a Rag ee toe 


PART #O. 


2589738 


PAGE 3a 


INDICATES A BLABK COLUSN AND THE CHARACTERS D E E INDICATE BUBERIC SHIPFP. 


CL 65 THROUGH 8&0 


-UL--B-72D Q< -, 
< -,%B7$2/08 12-3 
" /OBS** 340,44 * 
2/06@/0%Fa" a=8 
E S8.5<BG /rBco? 
(D 9Hc-H( 3°CoH 
A10/.1(B 5)STZ<z 
SO*~ES (LEG@PREU? 
EO*SB1DCAS#) OF 
R54 {OS<GPS*x05° x 
1; .ES8A-1*8-E<% 
08>{ OH 1} PAO_4 
HS*{AS@EC=EGR 


@eoecsesceeoecana2ang 


35511002710 


PROG £D 


CL 81 THROUGH 96 


¥B7Q 924FP830001 
7¢B *s FP830002 
H=T0 ;¥aPF830003 
“a: ~REFP830008 
TOH* 6Y9FF830005 
( & =z8PF830006 
Bis 9DEEF830007 
Ri;E 18 FF830008 
E10 2¢<PFe30009 
10;< E-<PP830010 


b&=< 9S-FF8I0G11 


EIFS *AQFFS30012 


oes ea 


& ‘JHFF&300%3 ~~ 


enaaoan 


Je QFFS300T@ 


81572*84PFF830015 


LAST PAGE —-~--~-~~-~-~~-~~--~----—--~~----——----------+------ 


OFF8-3 


PAGE 3h 


tee 
tote ananten arene Ante <adpstttece! ti Kant dea” 


eoeoeoeevec5ge 
age | 


| 
| 
! 














CHCHCCCEOHEHEHHHEEHHOHEOOHEHHESEEDES 








IBH SAINTENASCE DIAGNOSTIC PROGSAK | : oo paar ‘80. - ases798 ‘ a : 188 marerneanct: braguostic Procaas ~ . Pager wo, 2569705 
: : Dol pAeB ey Md et ae | ao PAGE. oO qa 
rP?7.- DISK ERROR BECORDING ABRALYSIS PROGRAS | : | . eae: os FFT? DISK ERROR RECORDING AMALISIS PROGRAB 
EBR LOC OBJECT CODE ADDR STAT SOURCE STATEAEET ERR LOC OBJECT CODE ADDR STHT SOURCE STATIHEST _— 
2 DECK & 3Q Seeseseseececcesseesesess ROUTIBE 1 seessecessosessocaseseoresesesese : 
pado 3 ERAP START X*a00° . 39 SOSSSSS SESS TE SEESES CERESEESEEETSEESSSESOEEESE SESE SEE SSEEEEE SESS EO SSESES 
0001 & XRi EQu 4 40 ¢ s 8 
0002 5 xYR2 B00 2 ORIC 03 OA1IC ai RTN1 DC REGege ® ROUTINE 6 s 
0008 8«©©6 BER Fou) 8 OA1D 00 Oa1D = _&2 pCCOKLLA*GE ® FLAC e , 
0080 7 $s#20 BOO x® B0® OA1E OF2ZA OTP 83 oc BL2(RTR2)} © BREXT ROUTI FE e 
6010 8 SSH23 £00 x*70* ag ¢ s = 
9008 Q@ SSE2u roo xtos® BS FS SESH FES SEESESSERETSEESSEESESSESERESSEESERESSSSEETES SHES OO SOESTELSEBSTS 
0200 10 BCDEL EQU 0 x 2008 BG FSG STSEESE SES SES ETEE FETED CESSES SERCEE STCTEE SEEDS SEKSEETESISSSESVSERSSHESESB 
020C 141 SBYTES EOD z*20c* 0a20 CO 87 O2iA 27 3B PRINT PRIET SS@ 
0216 12 LIMK Zoo x°216* OA24 81 Oa2& 4&8 pC XLI5 R94 
O27, 13 PRINT EQS X° 27a? 0825 OO0OOOFFSE 9a29 &9 aC XL5* PFOO* 
O21E 14 UWPACK EQU X*21E® OA2A 3C a8 230% 50 HV DSKDRY,xX*a68° 
0222 15 HALT EQOU xe 2328 , OAa2B 3D C#& 0266 $i CLE HODEL,C? Dé 
02238 46 LGAD £0uU E*22a¢ Oa32 #2 81 TE 52 JB RODELD 
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CO 87 1993 181 
CO 87 W8aC 182 
CO 87 1955 183 
CO 87 3955 188 
CG 87 1526 185 
CO 87 1546 186 
CO 87 1536 187 
C2 02 0C1B 188 
F2 87 6D 1893 
790 
0006990000000000 6Ci2 194 ENT! 
5O 191 
0006000000000000 oc1B 192 ENT2 
00 192 
00 ocic 193 
194 ® 
OciD 195 980 
3K 20 CEBS 196 
CO 87 1955 197 
3¢ 02 +B8C 198 
199 
C2 02 1F00 200 
36 O2 1B88 201 
BC 00 90 IDBz 202 
CO 87 18AC 203 
CO 87 ODDI 204 
205 * 
OC3E 206 QAO 
0C3E 207 QBO 
3A 10 OEBS 208 
35 01 1DPD 209 
38 10 1DE3 210 
F290 36 211 
cO 87 1991 212 
CO 87 1991 213 
cO 87 18aC 218 QAB1 
CO 87 184C 215 
OF 01 1B88 1B6C 216 
cO 87 1883 217 
CO 87 18aC 218 
cO 87 18AC 219 
220 * 
C2 02 1FUE 221 
36 02 1B88 222 
CO &7 19D6 223 HOVID 
6C 05 00 00 224 
CO 87 ODD1 225 
0C83 226 QAB2 
0EZ 01 1B88 OF5S 227 
OZ 01 1B8C OFSS 228 
CO 87 0C55 229 
230 
230 
230 
230 
0c93 231 910 
3A 80 OEBS 232 
35 01 1B68 233 
30SEP70 OVAPR71 OTAUGT7 
816760 818948 818817 


SBF 
SBF 


2 SU ae Sa Sate 


iv] 


eo 
O 


EQS 
SBS 


H¥E 


EQOU 
SBR 


21J3A872 
577007 


2(,XB1) ,1 


05 (,%21) ,X* BO0* 


07(,X81) ,X°EQ* 
09 (,XB1) ,X*EO° 
11(,2R1) ,.X°EO* 
CHTOFS, XR} 
CNTOPS, DBUP3 
TABIDX,2 

REX BEX 

CVTBIE 

CVTBIE 

HEXDEC 

HEX BEX 

HEXHEX 

HEX 22 

HEX22 

HEX 22 

ENT2~-0 ,XB2 
HOVID 


ELS ‘6S 
KL9* 0° 
XL 1° 0¢ 
* B 


DVFLG-1,x%° 265 
HEXHEX 


| 


PART #9. 
PAGE 7 


2589785 
2a 


CLEAR BITS 0-2 OF DAR 7 
CLEAR BITS 0-2 OF S~-5A 
CLEAR BITS 0-2 OF D-HA 
CLEAR BITS O-2 OF A~#HA 


8 BYTE 
S#37 
SES2 
cut 
Caz 
DAR 
S-HR 
D-BA 
A-GaA 


VOL-1D 
B,SNS1,S4NS2,CAB DAR, S~HA,D-EE 


R-Hi, VOL-ID,DOHHEY 


SCA 


COHPLETIOB CODE 


TABIDZ,2 BACKUP 
AND 

DBUF,XK2 RECONYEET 
CNTOFS, XR2 BYTE 2 (RETRY COORT) 
0(71,XR2) ,QRSHS#? TO 
HEXDEC DECIMAL 
RTN107 
© 5uaa 
= 
DVFLG-1,x° 10° 
OBRNTS,XB1 
QRSNS+#2,2°10° CHECK FOR EQUIPHENT CHECK O8 
QAB2 
CVTBIB SENSE BYTE 2 
CVTBIE SENSE BYTE 3 
HEXDEC 
HEXDEC Cc 
CETOFS ,SIXTEN 
RSHIFT 
HEXDEC s 
HREXDEC a 

MOVE YGL ID 
DBUF¢S,XR2 SET ETR TO VOL ID) 
CNTOFS,XB2 
PRIPOS SET PTR TO PRT POSITION 
0 (6,XR1) ,0 (,XB2) BOVE 
RTN107 
* SKIP OVER SENSE BYTE 2-3 
CNTOPS, TWO 
TABIDX, THO 
QAB1 


2 
DVFLG-17,x° 80° 
OBEND@,XR1 


OIMART72 
8718390 


5471 - CONSOLE-KEYBOARD 


CHECK Q FOB PRINTER 
T2ION72 2450L72 PROG ID OFF?-7 
577050 577060 PAGE 2a 


2 


P@eeveeeoessovovsensves see 


2877 


ISS AAINTEMASCE DIAGNOSTIC PROGRAR 


ERR LOC OBJECT CODE. 


OC9B 38 08 1DE1 238 
Oc9F CO 90 ODD? 235 
GCA3 CO 87 1955 236 
oca7 CO 87 ODD1 237 
| OCAB 238 950 
OCAB 32 40 OEBS 239 
OCAF CO 87 opD1 240 
: 244 
0CB3 242 OF 
OCB3 3A 04 OEBS 243 
OCB7 38 20 OAOE 288 
OCBB £2 90 08 285 
OCBE 3c F1 0862 246 
OCC2 3C F4 0883 247 
OCC6 38 0% 1DE3 248 P1803 
occa CO 90 ODD 249 
OCCE OF 01 1B86 0A56 250 
OCD4 C2 02 1F00 251 
OCDB 36 O62 1388 252 
ocDC BD 7¢ 00 253 
OCD? F2 82 65 254 
OCEZ 38 20 GAOE 255 
OCE6 F2 10 39 256 
OCES 8P 00 90 1BBD 257 
OCEE BD 18 00 258 
OCF1 FZ 64 22 259 
OCF4 BD 710 00 260 
OCF7 F2 84 1% 261 
OCFA BD Oc 00 262 
UCFD £2 8&8 06 263 
0D00 BD 05 00 264 
CD0? 265 x5 
0D03 F2 02 08 266 
ODO0& BE OC GO 158F 267 A119 
ODOB F2 87 OD 268 
ODOE 8E 00 00 138E 269 a107 
0D13 F2 87 05 270 
0D16 8F 00 00 1893 272 S21 
0D1B CO 87 1883 272 DIVBYS 
ODIF F2 87 1E 273 
0D22 278 PT1803 
0D22 F2 81 OF 275 
0D25 BD 7C 00 276 
0D28 F2 84 10 277 
OD2B 8E 00 00 OD01 278 
0D30 F2 87 OD 279 
0D33 8E 00 00 1B6E 280 ADDS 
0D38 F2 87 05 281 
0D3B BF 00 00 1890 282 SUB 126 
283 
OD40 CO 87 18AC 284 BOTH 
OD44 F2 87 BA 285 
0D47 286 IHVALD 
OD47 CO 87 19D6 287 
OD4B 4C 06 00 1898 288 
0D50 F2 87 7E 289 
290 
0053 291 OPO 
0D53 3A 08 OB 292 
0D57 F2 87 77 293 
OD5A 298 O1B 
ODS5A OC 06 0888 OFIE 295, 
ODe60 3A 62 EB 296 
OD64 F2 87 6A 297 
OD67 3A 01 OEB4 298 990 
OD6B F2 87 63 299 
OD6E 300 OB. 
OD6E 34 08 1DE1 301 
DATE  30SEP70 01APR71 01A0G71 
EC WO. 816760 818948 818817 


DISK ERROR RECORDISG ABALYSIS PROGRAR 


TBS 
BF 
8 

B 
EQU 
SBE 
5 


2035 
SBR 
Ba 
JF 


BYC 
J 


Eor 
SBR 
3 

200 
YC 
SBR 
J 

SBN 
J 

EQ0 
TBNW 


21JA N72 
577007 


es eeeeeeeeen. eee. 


ADDE STAT SOURCE STATRAERT 


QBSHS,xX*°08° 
RITN107 
REXHEY 
ETN107 

* 


DVFLG~1,X* S08 
BT E107 


¢ 
DYPLG-1, x 04° 
FLG1&,5°20° 
P1403 
PRTBUPFG2,C* 1° 
PRTIBUFS3,Ctae 
ORSES4#2, 2°94" 
BTN107 
CNTGFS, ORE 
DBUP , XR2 
CETOPS , XR2 

O (,XR2} ,X*7C® 
INVALD 
FLG14,X¢ 208 
PT 1403 

0 (,XB2) ,1123 
0(,X72) , 28 
$21 

0 ¢,ZR2),16 
2107 

0 (, X82) ,12 
2179 

0 (, 482) ,5 
e-2 


A107 

0 (,X82) ,1119 
DIVBYS 

0 (,XR2) ,1107 
DIVBYS 
0(,X82) ,121 
RSHIFT 
BOTH 

& 

ADDS 

0 (.XR2) 
SUB126 
0 (1, X82) ,I5 
BOTH 


eX%*7C* 


0(1, X82) ,EXGHT 


BOTH 


1,282) ,1126 


REXIDEC 
BTN107 
& 


PRTPOS 
0(7,X81) ,IBV 
BTH107 


& 
DVFLG-1,X* 068° 
RTH107 

e 


PETBGF+8 (7) ,CONSOL 


DVYFLG-1,xX"02* 
BT8107 
DVFLG-1,X*01° 
RIN107 

s 


QESUS, x* 08* 


O1MART2 
818390 


PART 20. g 
PACE 3 


1842 


5203 


TEST FOR 3403 ATTACHED 


CHECK FOR EAMHER ECHO CRECK 


LOCK AT LOW BYTE OF LBPAR 
CONVERT LDOPAR TO A DECIAAL 
RSBBER & 


TEST FOR 7403 ATTACHED 


ADD 5 


INVALID HAMNER @ 


54248 


ZEST LCD DEVICE 


24J0L72 
577060 


PROG ID OFrr7-7 
PAGE 3 


Pry? 


ERR LOC 


OD72 
0D75 
0D78 
OD7P 
OD83 
0087 


ODaR 
OD&E 
OD9a 
Opss 
eDsc 
ODAd 
ODA3 
GDaR7 
ODER 
ODBO 
ODBS 
ODE? 
ODBS 
ODSF 
oBc3 
ODBC& 
OBCA 


obeD 


ODD? 
oDpbs 
ODD6 
epac 
ODDF 
ODES 
ODEB 
ODER 
ODF2 
ODF? 
ODFB 
ODPP 
0E02 
0 £06 
QEO9 
OEOD 
OFT 
ORV? 
OE1B 
OE23 
OE2B 
02833 


OE39 
OE3D 
OE3E 
CE2F 
OE41 


OER 
OEMS 
OEaC 
0E50 
DES4 


DATE 
EC NO. 


OBJECT CODE 


F2 
oc 
3a 
co 
co 
F2 


3k 
ec 
co 
co 
38 
P2 
38 
F2 
Gz 
3c 
P2 
co 
c2 
36 
B55 
co 
F2 


3k 


CSODSDSDED9ROCECS 
B2E3D6N9 BEB40R3C1 
C2DICSAOCIEZKOCYS 


99 
03 
80 
87 
87 
87 


4&0 
06 
87 
87 
4Q 
46 
Os 
4 
&7 
98 
8? 
&7 
02 
92 
7F 
e7 
87 


20 


87 


ot 
8i 
02 
04 
81 
02 
31 
OF 
AO 
8% 
BO 
81 
co 
01 
01 
87 


15 
088s 
OEBS 
1855 
teac 
a7 


OEBS 
0888 
7955 
tac 
IDES 


O24 


TEES 
71 

aDFD 
7B 68 
29 

IDFD 
IDF6 
1DF6 
tDF6 
oP 

1DF6 
08 

1DF6 
OBO0a 
torD 
0808 


oFr29 


OF2S 


0836 


iDPD 
1BEE 
IDFD 


oa 


1EG6E 


DSESC1D3C9Cca 


co 
07 
VE 


87 


0E38 


P2 


C2 
3A 
co 
C2 
3A 


87 


02 
190 
87 
02 
10 


O21A 


iF 


0004 
15E1 
15E2 
0005 
ISEI 


30SEP70 


816760 


aDDR 


OD8A 


oDCcD 


ODDi 


SDDS 


0£38 


GE39 
OF39 
QE39 
OE39 
O£39 
O£39 


OE3D 


OBESE 
OE80 


OER 


OVAPR71 


818948 





DISK Sie ice PROGRAS 


>eeoeveeene 








f 40. 
PAGE 


STHT SOURCE. STAT ERENT 

302 aP AXPTR 

303 SVC =- PRTBUFeS (4) ,YYYY 

308 SBM DYFLG,x*80° 

305 B HEXBEX COMMAND BYTE 

306 B HEXDBC 

307 3 RT #707 

308 AXPTR EQU) Ct 

309 SBR DVFLG,Z°86* 

310 SVC PRTBUPSS (7) ,PTRER 

31t 3 HEXHEX 

312 B REXDSC 

313 TBE ORSHS¢3, NRO? 

318 JT ux 

315 TBR QB8SHSS3,x°68° 

316 J? uX1 

317 ALC 896 CBTOPS, ONE SKIP BYZE 7 

318 SVE TABIDI,8 

313 3 BITES 

320 Bx? B | BESHER 

321 BYTES Lé DBUF ,ZR2 PRINT PERH OR TESP EEROR FLAG 
322 A CUTOPS, XR2 

323 SPF 0(,XR2) .X°7P° 

324 5 BEXHEX 

325 J RTN107 

326 OFB EQU. 8 

327 SBE DVFLG,x'20° 

328 

329 RTH1O07 EQU ®t 

330 B PRINT PRIET LI¥E 
331 pe XLE°27¢ 

332 CLC OBRNDS,OBRNTe CHECK FOR ERD 
333 JE ATHIX 

334 RLC = OBRNT@, EIGHT 

335 CLC OBRNDa, OBERT? CHECK ¥OR BED 
336 3 BRTW11X 

337 L OBRNT@,XB1 CHECK FOR DISK EBTEY 
338 AVC «©TENP,8(,XR1) 

339 SBF TENP,X*OPF®* 

386 CLI TEAP,Z*AO* 

344 JE RTN110 

382 CLI TENP,X*BO® 

383 JE RTET10 

346 CLI TEMP, xX°CO? 

345 BEE RTN108 

346 RTH11@ ALC OBRNTS, EIGHT 

347 RTNTIX B RT N108 

348 MSGX DBC CL30°ERROR HISTORY TABLE IS INVALID® 
348 

348 

348 

343 920 EOU) oe 

350 930 zQu ot 

351 Quo EQD. 8 

352 060 EQU) oe 

353 070 EoD. 

354 gpd EQU) # 

355 ERMSG B PRINT 

356 DC XL1°07¢ 

357 DC IL 1* 308 

358 DC AL2 (MSGX) 

359 J RTW 1X 

360 

361 EMPTY EQU- ss 

362 La 4, XB2 SYNC PT & 
363 SBN SCBFLG,SFLG 

368 B SCAN 

365 RTW1X LA 5 ,XR2 SYHC PT 5 
366 SBM SCEFLG,SFLG 

O1A0G71 213A 872 O1FAR72 1250N72 24gJUL72 PROG ID OFr?-7 
819817 577007 818390 577050 577060 PAGE 3a 
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3a 


-vaealatag + 


@ 
g 
; 
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IBM SAINTEWANCE DIAGNOSTIC PROGEAB 


FP77 
E&R LOC 


OE58 


@ESC 
0Z60 


0F63 
OF67 
OEGD 
OE71 
OE72 
OE76 
OFT7C 
OE89 


O£81 
OE87 
OESB 
0591 
OES4 
OL98 
OESC 
OEAO 
OEA6 
OEAC 
OESO 


OEBY 
OEBG 


OEBA 
QEBC 
OEBE 
OECO 
Orc2 
ORCS 
OBC6 
oECa 
OECA 
VECC 
VECE 
OEDO 
OED2 
 OEDS 
" OED6 


OEDS 
OEDC 


CEEO 
OBES 
OEFE8 
OEEC 
OEFO 
OEFS 


DATE 
EC NO. 


DISK ERROR RECORDING BEALYSIS PROGRAS 


OBJECT CODE 


co 


39 
F2 


3c 
Qc 
co 
02 
3c 
Oc 
co 
02 


oc 
3c 
OE 
F2 
35 


87 


60 
90 


00 
FE 
e7 


ic 
03 
37 


0000 
OUFFOIFF 


0c93 
0E39 
0£E39 
OE39 
ocas 
OE39 
OR39 
OCiD 
OD67 
OC3E 
OC3E 
OB68 
OE39 
OCB3 
0D53 


ISE2 


020C 
1E 


FPF 
IPPE 
tai9 


TBOM 
1F03 
VAIS 


1380 
YDF7 
OEBS 
oc 

1B80 
iSE4 
ISE2 
1B80 
1DF7 
CESB 
0216 


FSPF&PTF1 
SONOUOKO 


§0404040 
404 04040 
FUPCPUF2 
4OuU0804NQ 
40404040 
C2E2C3C1 


30SEP70 


8716760 


IPFF 


OEBS 


1B77 


OEBS 


0a56 
Oas6 


ADDR 


OFG6G 


JET 


OF8O 
OES 1 


OEBS 
OEBS 


OEBB 
OEBD 
OEBF 
OEC1 
OEC3 
OECS 


ones 


OVAPR? 
8168948 


OECB 
OECD 
OECF 
OED! 
OED3 
OEDS 
OED? 
OEDB 
OEDB 
OEDF 
OEDF 
OEE3 
OBE? 
OEEB 
OEEF 
OEF3 
OEF7 


1 


PART KO. 25897485 
PAGE 8 


STAT SOURCE STATEMENT 

367 B SCAB 

368 * ERD PRIST OUI OF OBR TBL 
369 « CHECK SSW20 TO RE-IBITIALIZE OBR TBL 
370 TBP SBYTES,SS¥20 

371 JP RIHIX1 

372 RIRIXX EQO 

373 NVI DBUP¢255,x°00# 

378 AYC DBUF¢2S& (255) , DBUF¢255 

375 B DISKIO 

376 Dc XL1°O2° WRITE 

377 SVI DSKSEC,x*1C° 

278 BVC DBUF¢3(8),08R1 

379 B DISKIO 

380 pc XL1°02¢ SRITE 

381 RTRIX? EQU ¢& 

382 & PRINT OUT HEABINGS OF ENTRIZS THAT WERE XS OBR TBL 
3e3 SVC S¥NC#,SIX SYHC PT 6 

384 “VI CNT, 16 

385 RTN111 &2LC DVYPLG,DVFLG 

386 JNOL RTW112 

387 L SYNCE,XRZ 

388 SBN SCHFLG,SFLG 

389 B SCAN 

390 RTN112 ALC SYSC#,ONE 

391 SLC CHT,ONE 

392 BN2Z RTN411 

393 B LINK EWD ROUTINE 1 
394 © OBR DEVICE FLAGS 

395 DVPLG DC XL2*08 

396 OBRi Dc XLQ* OF POIFF® 

397 * DEVICE BIT BYTE SYNC PT 

398 © 5471 0 1 6 

399 « 1842 1 1 7 

800 © BSCA 2 1 8 

801 ® 5344 3 1 9 

402 * 5428 4% 1 10 

403 © 5203/1403 § 1 11 

404 * KEYBOARD 6 1 12 

805 ® 2265 7 1 13 

406 © LCD 8 2 14 

407 « PRINTER 9 2 15 

y08 © 54 96 10 2 16 

809 © 5445 11 2 17 

410 BRTBL DC AL2 (Q10) 5471, KEYBO2LED 
411 DC AL2 (020) N/R 

812 pc AL2 (030) B/A 

413 DC - AL2 (Q40) N/A 

B14 pc AL2 (050) 1982 

815 DC AL2 (060) w/a 

416 pc AL2 (070) B/A 

417 DC AL2 (080) BSCA 

418 pc AL2 (090) 2265 

419 DC AL2 (QAO) DRIVE 1 5884 
420 Dc AL2 (QBO) DRIVE 2 54844 
421 pc AL2(QCO) H/A 

822 DC AL2 (QD0) R/A 

423 pe AL2 (QEC) 5203, PRINTER, LCD, 1403 
424 DC AL2 (QFO) 59824, 5496 
825 DVYTBL £Q0 Cit 

826 pc CLa*Sa7i¢ 5471 

427 Dc CLa? * B/A 

928 BLANK EQU) #-1 

429 DC CLa® ® R/A 

430 pc CLae ® u/A 

431 pc CL8*14428 1442 

432 pc cLae , N/A 

433 DC CLae * N/A 

434 Dc CL4* BSCA* BSCA 
O1AUG71 21JAN72 01HAR72 24J0L72 PROG ID OFF7-7 
818817 | 577007 818390 577060 PAGE a 


25074 


IBA MAINTENANCE DIAGROSTIC PROGSAS 


FFI7 DISK ERROR RECORDING ANALYSIS PROSRAS 


ADDR STST SOURCE STATEMEKT 


ERR LOC OBJECT CODE 
OEF8 F2F2F6F5 OEFB 
OEFC FSFaFur4a OEFF 
OFOO FSF&FSFS OFO3 
OFOS FSP4&FuPS OFO7 
OF08 404040480 OFOB 
OFOC PSF2F0F3 OF OF 
OF10 FSPSP2F4 OF1?3 
OF1& FSPUFOFE OF 17 
OF 18 C3D6DS5SE2D6D3ICS OFIE 
OF1P DIDSCSDSE3C5DS OF25 
OF 26 D3C3C440 OF2S 
J 
DATE 30SEP70 OTAPR71 
EC SO. 816760 8189488 


&35 
836 
&37 
&38 
439 
440 
4g1 
442 X58 96 


483 CONSOL 


Q&& PIRER 
uaS YYYY 


OVAUGTI 
818817 


bc CL4&*2265° 
Dc CLES 5aaye 
i @ CL&?*Suage 
oc CLa*Saase® 
pc CLaeé ® 
bc CLS *5263° 
bc CL&* Skane 
DC CL8 #548964 
be CL7* CONSOLE® 
pe CL7° PRIBTER® 
oc CL4a*Lep ° 


213 A872 
577007 


O1MART2 
818390 


2265 
588% 
5854 
54845 
usa 

$203 
5828 


TZ2IUNT2 
577050 


24IUL72 
577060 





PART #O. 2589785 

PAGE Ga 
PROG ID OFF7-7 
PAGE ‘¢ aa 
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: pts . 
IBA BAINTENANCE DIAGNOSTIC PROGRAS as PRET BO. 2589745 cy TBA SAINTEMAECE DIAGNOSTIC PROGRAS | PART NO. 2589785 
: PAGE 5 PaGE Sa 
FF77 DISK ERECR RECORDING AWALYSIS PROGRAS | es FF77 DISK ERROR RECORDING ANALYSIS PROGRAA 
“€BR LOC OBJECT CODE ADDB STAT SOURCE STATEBERT . | ERR LOC OBJECT CODE ADDR STET SGURCE STATEMENT 
UR] SSKSSESEREESESSESESSSRESE OOUTIEE 2 Fee eeeeesece<sss ease ceseseeeseseses OFF9 F2 81 75 515 JE SDRBSC 
BUG 66S SESE SEES OE FEEEEEHEEE DE SESSETERSSSSSSSEESHSERESHEE SSE SESE SEE SESTEESESEDS OFFC 7D cO 00 516 CLi O(,XR1) -X*CO® CHECK FOR S445 
gag e * 2 OFFF F2 81 30 517 Jz sprco 
f ZL17° 2* * ROUTINE & & 1002 518 SDRS EQO e 
ae2n 00 orze ai xe ne XL1*°O8& © PLAG s 1002 CTO 87 18AC 5719 SDR3 8 HEXDEC 
pe AL2 (EBTH3 @ BEXT RCUTIRE * 7006 OF O00 1D10 OA56 §20 SLC TABTBL({1) ,GKE 
BESO AnES pny aes * } & ® 100C CO 01 1002 $21 BNZ SDR3 
G5 FHSAA ERE EES SS OESSEEESOESOEERESSESOSSERERSES HESESES KETESRESS ERS SESESSTE 1010 CO 87 O2%4 §22 8 PRINT 
B55 FEE SSEE ETE SER SESESE SEESSEESSERERESEHSRECESSS SESE SE KE FH EEEK SHE SSEEHE SESE SRS 10714 21 1014 523 pc XL7¢° 27° 
OFZE CO 87 O21A 456 B PRINT PRIBT SSW 1015 CO 87 ISE2 528 B SCAN 
OF32 41 OF32 4857 pc EL1®Q4¢ 1079 35 027 IDFB 525 L SDRIDZ,XBI 
¢ t 1071D 7D ES 00 526 cLI 0(,XR1},X* BB* TEST FOR PRINTER + 
OF33 O0OOOOFFOO OF37 458 pc XLS‘ FFCO 
OF38 38 20 OAOE 459 TBE FLG18,x%°20* 1803 ATTECRED? 3020 F2 61 7F 527 JHE SDB 
OF3C F2 90 04 460 3? e47 wo 1023 528 SDRIX EQD) 
OF3F 3C Bi 10CA 461 AVI E1,X°E7° ¥ES 1023 38 O02 i551 523 TBS SCHPLG,BSFLG 
OF4&3 39 20 OATA &62 TEF DSt- 1,x* 20* 51 PRESERT? 1627 F2 10 78 538 J? SDR& 
OF’7 F2 10 08 “63 oT 7 KO 1022 38 O2 35281 531 SBR SCHPLG,BSFLG 
OF4A 3c 51 10C9 264 AVI DD51,x*51° YES 1O2E CO 87 10C2 as . B SDRS 
1B01 §65 AYE DSKDRY,X°A8* 
Ore? S 2 anu 466 LA 2,XR2 ° 1032 3C 07 1B75 538 SDECO AVE ccut,7 
OFSS 4867 THO E£QU 4 1036 CO 87 18ac 535 SDRC8 8B AEXDEC 
OF56 CO 87 19F3 868 B SYHNCY SYNC PT # 2 103A CO 87 28aC : 536 B HEXDEC 
469 © PRINT DISK SDR 103E OF 01 1888 706E 537 ALC CHTOFS ,X18 
OFSZ CO 87 t5E2 870 B SCAB 1044 CO 87 18AC 538 B REXDEC 
OPSE 3C 4&0 1DF7 871 NVI CHT,68 1048 CO 87 184C $39 B HEXDEC 
Or62 OF 0% 158% 1B7S 872 SLC DSKOFS,XOE WOGC OF OF 1BBE 1070 S40 SLC = CHTOFS,X1C 
OF68 OC 07 1B88 1BB4& 473 DSDR3 NYC CNTOFS, DSKOFS 1052 CO 87 C2iA 541 8B hatte 
OF6E OF 01 1B88 1B79 47a DSDR1 RLC CBTOFS,X0E 4056 21 1056 5&2 c XL1°24° 
OF74 CO 87 I8AC S75 B HEXDEC 1057 CO 87 %SE2 543 B SCAR 
OF78 OF 00 1DF7 OA56 476 SLC CBT,OBE 105B 3C O01 1B8C 544 AVI = TABIDI,1 
OF7JE 39 O7 IDE? 877 TBF CNT, X*O7# 105PF OF 00 1B75 OAS6 5&5 SLC CCET ORE 
OF82 CO 90 OFGE 478 BF DSDR1 1065 CO O08 1036 546 BNZ SDRC8 , 
OF86 CO 87 O2ZTA a79 B PRINT 1069 CO 87 10A2 547 B SDE& | 
OF8A 21 OP8A 480 ve XL1i*21° 706D 0018 106E 548 X18 BC XL2* 18° | 
CF8B CO B87 15E2 481 B SCAR 106F OO01C 1070 S&9 XIC pc XL2‘1cC® : 
OF8F 3C 01 1B8C 882 AVI TABIDX,1 550 © | 
OF93 3D 00 1DF7 483 CLI CN7,0 10717 551 SDRBSC E£Q0 * 
OF97 F2 81 OA 484 JE DSDR2 1071 3C 30 1575 $52 BYi CCNT,48 
OF9A OE 01 1884 OFSS 48s ALC DSKOFS,T#O 1075 CO 87 18ac 553 SDRBS B HEXDEC 
OFAO CO 87 OF68 486 B DSDR3 1079 3C 02 1B8A 55% HYI CNTLNG,2 
OFAS 487 DSDR2 EQU * 107D OE Of 1B88 1B75 555 ALC CNTOFS,CCIT 
OFA’ 39 80 020C 488 TBF SBYTEY,SSW20 1083 CO 87 18aC 556 B REXDEC 
OFA8 F2 90 05 439 JF SDRNXT 1087 CO 87 O21A 557 B PRInT 
OFAB CO 87 3a19 490 B DISKIO 108B 21 =: 108B 558 DC XL1°21° 
OPAP 02 OFAF 491 pc XL1*02¢ — WRITE 2" a 108C CO 87 15E2 559 B SCAN 
OFBO 492 SDRENXT EoD *. 1090 3C 01 1B8C 560 aVI TABIDX,1 
OFBO 3C OC 1DF7 493 MVI CHT, 12 HUMBER OF DEVICES IH SDRTBL 1094 OF 00 1B75 O55 561 SLC CCNT,TWO CHECK FOR LAST LINE 
OFBY 3c 0& 1B80 4o4 avi SYNC#,4 109A 3D 16 1B75 562 CLI CCRT , 48-26 
OFB8 C2 02 10C8 495 La SDBTBL,XB2 1O9E CO OF 1075 563 BNE SDRBS 
OFBC 34 02 1DFB 496 st SDRBIDX,XR2 10A2 56% SDRS EQU). * 
OFCU 35 01 IDPB 497 SDR6 L SDRIDX,XB1 10a2 39 80 026C S65 TBF SBYTES,SSW20 
OFC&’ C2 02 0232 498 LA UDT, XR2 1NA6 F2 90 05 566 JF SDR1 
OFCB8 6D 00 00 00 499 SDR2 CLC 0(1,XR1),0(_ZR2) SEARCH ODT FOR CODE 10A9 CO 87 1419 567 B DISKIO 
CFCC F2 81 OD 500 JE SDRFSD W0AD 02 10AD 568 DC XL1°02° BRITE 
OFCF B8& 10 01 501 TBE 1(,XR2),X*10° CHECK FOR END T70AE OF 07 1B80 0A56 569 SDR1 ALC =SYNC8,ONE 
_OFD2 F2 10 D9 502 JT SDR1 10B4 O£ O01 1DFB OA56 570 ALC SDRIDX,ONE 
“OFDS E2 02 03 503 LA 3(,XR2) ,XR2 TOBA OF 90 IDF? O0AS6 571 SLC CNT,ONE 
OFD8 CO 87 OFCSB 504 B SDR2 10C0 cU 01 OFrco 572 BNZ SDR6 
505 * 10C4% CO 87 6216 573 B LINK 
OFDC 506 SDRFND EQU * 10C8 574 SDRTBL EQU * SY¥HC @ 
OFDC 35 O02 1B80 507 L SYNC#,XR2 10c8 130 10cB 575 BC XL1* 10° 5871 & 
OFEG 3A 30 15£1 508 SBN SCNFLG,SFLG 10c9 50 10C9 576 DD5S1 DC XL1*50# 1442 RPQ 5 
OFE4Y CO 87 15E2 509 B SCAN TOCA EO TOCA 577 £1 DC XL1° E0O* 5203/1803 6 
OFE8 3R 02 15E1 510 SBP SCHFLG,BSFLG 10CB FO 1OCB 578 pc XL1*FO* 3828 7 
OPEC 35 01 1DPFB 511 L SDRIDX,XR1 ne 10CC 80 10cc 579 pc XL171°80° BSCA 8 
OFFO 7D 80 00 512 CLI 0(,XR1),X*80! CHECK FOR BSCA 10CD 88 10CcD 580 — oe IL 1°88* BSCA 2 10 
OFF3 F2 81 7B 513 JE SDRBSC 1OCE 12 10CE 581 pc XL4°92* CORSOLE 9 
OFF6 7D e8 00 . 514 CLI 0(,XR4),X°88* - 10CF 90 10CF S82 Dc XL 1° 90° 2265 10 
DATE 30SEP70 OMAPR71 0140671 2 1JAN72 O1MAR72 1230872 24I0L72 PROG ID OFF7-7 DATE 30SEP70 O1APR71 01A0G71 21JAN72 OTMART2 T2ZIUNT2 24J0L72 PROG ID OFFI-7 
EC NO. 816760 818948 8186817 577007 818390 577050 577060 
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FF77| DISK ERROR RECORDING ANALYSIS PROGRAS PF77 DISK ERROR RECORDING ANALYSIS PROGRAS 
ERR LOC OBJECT CODE BDDR STST SOURCE STATESERT ERR LOC OBJECT CODE ADDE STMT SOURCE STATZSENT 
10D0 Es 10DC0 §33 pc EL?* ESBe PRINTER 12 5869 RESKEKKE SESS ES SHKEKESKEEETSEKKESSESEKEST SFSSESSESHTESCIEESSSHSSSHSEKSSES SSE HSSESTTVSS : 
10D1 E9 10D1 S84 pc XL1* E9° LCD 12 | ae Ser tertaee sea tenet rays eee rc er yen Crete eae en ree 
10D2 FS 10D2 585 pc XL 1° F8* 5396 43 . 
10D3 CO 10D3 586 pc XL1°CO* 54uR5 18 | sone ns Lh eae BTN3 DC oe : ROUTINE 8 : 
5387 * EBD ROUTINE 2 bc xu : 
| 10D6 FFFF 10D7 594 BC XL2*PFFF?® * i 
. | 595 « s ¢ 
| $396 ESSE SEKSAE SK SEEKERS SE SAS KISSER E OHS SSESESSEKEOSSES SSH SE THKAS OSSESKSVESCKSSESE SESHHE 
| 537 HESECKLESS FES KSSH AEKRKSTSESS AAS RKSIESESES TS KBESESS SASETSSS SSE RS ESE SHE SLSKSVS SS SOSS 
10D8 CO 87 d21~a 598 B PRIKT PRIET SSH. 
WODC 4% 10pc 597 DC XL1¢a1* 
TODD COCO0OFFDD 10£1 600 Dc YLS*FFOO® 
10E2 3c AS 1B03 601 BVI DSKDEV,X°:a8° 
10B6 C2 02 0003 602 LA 3,XR2 
10EA CO 87 19P3 603 B SYHHOY SYBC 
6048 * PRIBT SASTER SIO TABLE 
OEE 3¢ 04% 1DF7 605 MVYI CBTH,4 
¥OP2 3C 01 1B8C 806 RTN201 NVI $TABIDX,? 
| 10F6 CO 87 15E2 607 B SCA® 
OFA CO 87 18AC 608 B HEIDEC 
10FE CO 87 18AC 609 B HEXDEC 
1102 CO 87 021A 610 B PRINT 
1106 21 1106 611 pc XL1°21¢ 
| 1°07 OF 00 1DP7 0OAS6 612 SLC CHTE,ONE 
4110D CO 01 1072 613 BNZ  BTR201 
41111 CO 87 1582 €15 5 SCAB 
615 * ie 
7115 39 80 629C 616 TBF SBYTES,SS¥20 e 
4119 F2 90 05 617 JF rvs ke 
117C CO 87 1A19 618 B DISKioO te 
1120 02 1120 619 pe XL1*02¢ WRITE 
1121 620 IVS EQD) ol # 
621 * INTERBAL.DATA CARDS 
1121 622 IVvS1 £EQu. * 
1121 CO 87 O21~A 623 B PRIST 
1125 47 1125 624 oe XL1°a7¢ 
1126 4&1 1126 625 pc IL1°65* 
| 1127 12D8 1128 626 pc AL2 (SELECT) 
1129 FFFO 112A 627 . pc XL2"*FFFO* 
112B CO 87 0222 628 B HALT 
112F OOFO 1130 629 DC XL2*00FO* SET SS¥21-28 
1131 OC 01 1DF9 1DEA 630 BYC SVCSTR,CSTR@ 
2 1137 3B 08 1521 631 SBP SCNFLG,UFLG USED FLAG 
‘ie 113B 3c 08 1184 632 NVI SSWXX,SSW24 
123F 3C 00 12DE 633 BVI GRY#,0 
2148 634 SSWXX FOO 441 
1243 38 00 020C 635 IVS2 TBN SBYTES,0 
1147 CO 90 1273 636 BP Prr3 
“4 118B 3D 10 1188 637 CLI SSWXX,SS923 € 
1148F F2 84 08 638 a8 Ivsa 
1152 38 20 OA17 639 TBN pBO-1,Xx*20* 
1156 CO 90 1273 680 BF PDT3 
us oe 115A 641 IVSS Zou. (* 
ae 115A 3A 04% 15E1 642 SBN SCNPLG,UFLG 
a 115E C2 02 12D9 643 LA DRYTBL,XR2 : 
1162 36 02 12DE 644 A DRV#,XR2 i 
41166 2C 00 1801 00 645 MVC DSKDBYV(1),0(,X82) 
116B 3B 20 15E1 646 SBF SCHFLG, HFLG 
116F 3C 08 1B04 647 BVI DSKSEC,X*'08* 
1173 cO 87 1319, 648 B DISKIO 
1177 01 1177 649 pc XL1°O18 READ 
1178 OD 02 1F02 1582 650 CLC DBUF42(3),VOL 
117E F2 01 GE 651 JNE wSD 
1181 3D CB 1F5C : 652 CLI DBUP+92,XK"CB* 
1185 F2 81 OB 653 JE sD 
9188 654 IVS3 EQU # 
1188 3D 67 1F5C 655 CLI DBUP+¢92,x°67* 
118C F2 81 O4 656 JE SD 
cee a0serio O1APR71 O1AUG71 213 AN72 O1MAR72 1230872 24J0L72 PROG ID OFF?7-7 DATE 20SEP70 01RPR71 01AUG71 21SAN72 O1MAE72 1230872 24JUL72 PROG ID OPF?-7 
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PF77 DISK ERROR RECORDIEG ANALYSIS PROGRAR FP77) =6DISK ERROR RECORDING ABALYSIS PROGRAS 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEREST ERR LOC OBJECT CODE ADDR STMT SOURCE STATERERT 
118PF 33 20 1551 657 WSD SBE SCEFLG,#FLS 127F 38 80 1148 725 TBH SS¥XX,SS¥20 
1193 658 SD EQU * 1283 CO 90 72183 726 BP Iyvs2 
1193 OC 01 IDEA 1860 659 HVC CSTRO,I¥SDCe SET @ FOR DATA CARDS 1287 38 04 1587 727 TBE SCNFLG,UPLG 
1199 CO 87 15E2 660 B SCAN 128B CG 10 112% 728 BE Ivsi 
2139p 38 20 25381 661 TEN SCHFLG,EFLG 128F CC 0% IDEA 1DP9 729 HVC CSTR&,S¥YCSTR 
11a1 F2 90 20 662 JF sp1 1295 CO 87 0216 736 B LIEK 
11a8 3C FY 1588 663 NVI -DRYC,C*se 1299 EBZCSD3CSC3E380C& 12C8 731 pc CLOB*SELECT DRIVE FOR 5988 IND. VO..STAT., SET SS¥2E,? 
V1A8 OF O00 1588 12DE 664 SLC DRVYC,DRVE 1281 DYCSESCSLOCHDSDS 737 
11AE OC 9B 089F 1598 665 BVC PRTBUF4¢31{28} ,¥SDR 12A9 SOPSF&F4aF440cgaDs 73% 
11B4 CO 87 021A 666 B PRINT 128% CULBNOBSDEXBEBES 731 
11B9 CO 87 15E2 668 B SCAN 12C1 Z340E2E2F6F2E76B 731 
11BD CO 87 ISE2 66S 8 SCAR 12C9 EVIEFIGOFS40C6D6 12D8 732 SELECT DC CLI6‘X=1-8 FOR DRVX.® 
41C1 F2 87 AF 676 J PDT3 12D17 DOSOCSDSESETUBYD 732 Boe tee 
7iC4 671 SBI EQ © 12D9 4733 DRYTSL EQU * CI SEE Ga 
11C4 CO 87 18AC 672 B HEXZDEC SIO WRITES 42D9 BCBBACAS 1apDc 07348 BC XLS *BOBBADAS® DA & & BITS FOR DISKIO 
11C8 CO 8? 18aC 673 5 HEXDEC SIO READS izpp ood 12DE 735 Drv DC XL2*O8 
41CC CO 87 18aC 74 RB EEXDEC TEMP ERRORS FIG FEE SESSEKSEKSESRSESSES SIFFASESSESES SEE SESSESKSSESSES SSE SESE SS ES USHA SK LKSTCSSSESE SBSH 
41D0 39 B86 020C 675 TBF SBYTES,SS#20 737 * CYLPRT * ss 
41D4 CO 90 11DD 676. BF PDT 738 see eREsetes - PLACE CYL @ IB PRIBUP * 
11D8 <9 87 1219 677 B DISKIO 739 * - PLACE SECTOR # IX PRETBUP = 
11DC 02 WipC 30 ae pc XL7*022 WRITE : 7&G © ° PLACE Z* PREPS FOR RE-INITISLIZATION + 
11DD 679 PDT EQU) ® 74a se 2 | 
11DD CO 87 1522 80 B SCAN i 742 KEK STESSSRSE SS SCSHKGSTS SESS SK SSCKES LHS KS SSERATSSEARSSSRKIAE KE SSE CLS SEEKS SVE EKES 
681 * COMPUTE & OF ENTRIES If PERN DESK TBL. Soe hy eee eee 12DF Li CYLPRT zou a oa 
17E1 0c 05 0887 1F08 682 HVC PRTBUF+7 (6) -DBUF+8 vOL ID J i e 
14E7 C2 02 1FDE 683 LA DBUF+216,XR2 . 745 © PUT CYL € IE PRTBOF 
V1EB 3C 00 IDF? 688 KVI CBTR,O 1223 CO 87 18AC 746 B HEXDEC 
VIEF BD FF 00 685 PDT! CLI 0(,XR2) ,X*FF® CHECK FOR END 12E7 CO 87 1883 7a? B RSEIFT 
fiF2 F2 81 14 686 JE DED . 788 ® PUT SECTOR # IN PRIBUP 
1175 Of OO IDF? OAS6 687 ALC CHTN,ONE 12EB CO 87 18aCc 7489 B HEXDEC 
11FB 3D GC IDF? 638 CLI CHTN,12 CHECK FOR 12 ERTRY 12EF 8C 01 00 1B7B 750 NVC 8 8=©6©0(2,XR2) , ¥PPF 
S1FF F2 87 07 689 JE DED V2Fu CO 87 O21A 757 B PRIST 
1202 E2 02 02 690 LA 2 (,XB2) ,-XR2 SET POR HEXT EHTRY 12P8 21 12F8 752 DC XLV¢21° 
1205 CO 87 11EP 691 B PDT1 12F9 CO 87 0006 753 B e=8 
1209 3D CO IDF? 692 DED CLI CNTH,O 12PC) 0754 CYLX@ EQU) #1 
120D F2 81 &0 693 JE HOPDT . 
1210 3D 01 1DF7 694 CLI CHNTN,1 
1214 F2 81 32 695 JE ONEPDT 
1217 CO 87 12DF 696 B CYLPRT 
121B OF 00 1DF7 0a56 697 SLC CNTH,ONE 
1221 C2 01 1C83 698 LA PDTDC,XR1 
1225 F2 87 04 699 J PDT4 
1228 C2 01 TcCs9 700 PDT2 LA PDTDC+#6,XR1 
122C 701 PDTS EQU)- se 
122c 34 01 IDEA 702 ST CSTR@,XR1 
1230 CO 87 15E2 703 B SCAN 
1234 CO 87 12DF 708 B CYLPRT 
1238 OF OO 1DP7 0a56 705 SLC CNTN,ONE s 
123E CO 01 1228 706 BNZ PDT2 @ 
1242 CO 87 1582 707 B SCAB 
1246 F2 87 1D 708 J PDTX 
1249 709 ONEPDT QU * 
1289 CO 87 12DP 710 B CYLPRT 
/124D F2 87 12 711 J PDTSCH 
1250 712 WOPDT EQU) it 
1250 3c 05 1B8C 713 NVI TABIDX,5 
1254 CO 87 19D6 714 B PRTPOS : 
1258 4c 09 00 15:5 715 MVC) 8 =©.0(1C0,X81),NOPDTS 
125D CO 87 O21A 716 B PRINT 
1261 21 1261 717 pc XL1"21° 
1262 CO 87 15E2 718 PDTSCN B SCAN 
1266 39 80 020C 719 PDTX TBF SBYTES,SS¥20 
126a CO 90 1273 720 BF PDT3 
126E CO 87 1A19 721 B DISKIO 
1272 02 1272 722 DC XL1*02? WRITE 
1273 OF 01 12DE 0aS6 723 PDT3 ALC DRV#,ONE 
1279 OF 00 1144 1344 724 ALC SSWXX,SSUXX 
DATE 30SEP70 O1APR71 01AUG71 213AN72 O1MAR72 1230872 243UL72 PROG ID OFF?-7 DATE 30SEPT70 O1APR71 01AUG71 2 13AN72 01B5AR72 123 UN72 2430L72 PROG ID OFF?-7 
EC BO. 816760 818948 818817 577007 818390 577050 577060 PAGE 7 EC HO. 816760 818948 818817 577007 818390 577050 577060 PAGE 7A 
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FF77 DISK ERROR RECORDING ANALYSIS PROGRAN : ave oS cor ote S777 DISK ERBOS RECORDING ASALYSIS PROGRAR : 
£8R LOC- OBJECT CODE ADDE STNT SOURCE STATESENT £kR LOC OBJECT caDE ADDR STST SOURCE STATEMENT 
1580 756 ORG x*1580° 1628 34 O2 IDEA 821 Sst CSTRS,XB2 SET OP COLUAS START ADDRESS 
1580 E5D6D3 1582 757 VOL pc CL3°VOL¢ 162c F2 87 2E 822 J BEIT ; 
1583 40 1583 758 pc CLit ¢ 162F 823 RELOAD EQD. ¢ 
1584 Fu 1586 759 DRYC DC CLI7° ye 162F 3D a0 0232 824 CLY Xx°232°,x°a0? TEST FOR DISK DCP 
1885 S8O0CSEZ40C140D5D6 1595 760 NSDR pc CL23* IS A HON-STANDARD PACK® , 1633 F2 81 OF 825 Jz scs 
158D DS6GEZE3C1D5C4C1 7690 1636 CO 87 O21k B26 B PRIRT 
1595 DICK4OD7ICIC3D2 760 163zR 87 163& 827 pc XL1° 87° 
159C D5D640C5D9D9DEDY 1525 761 NOPDTH pc CLIO°HO ERRORS * 163B 141 163B 828 pc IL1°17¢ 
15a4& £246 761 163C 765C¢ 163D 829 DC AL2 (RLDASG) 
15k6 762 HEX22 EQU # 163E CO 87 0222 830 B BALT 
715a6 3&8 08 15£0 763 ST HEX22X, ARR , 4682 OOCER 1663 B31 pe Xu 2* OOF & RELORLD DATA CARDS 
1SAA CO 87 1906 766 B PRTPOS . 1644 832 Sch EQu. 8 
15AE 34 01 15CC 765 st PACKD, XR1 162% 3&8 80 I5E1 833 SBN SCNPLG,FFLCG 
1552 OE 01 1B88 OA56 766 ALC CBHTOFS,ORE 16468 CO 8&7 i60P 834 B SC2 
1558 C2 01 1F00 767 LA DBUP,XR1 164C DICSDIDECTICULOCR 165C 835 RLDESG pC CL17*RELOAD DATA CARDS® 
155C 36 O1 1888 768 a CNTOFS,XR1 1656 CIE3IC1IEOC3CIDSCy @35 
15CO 34 OF 15CA 769 st PACKS, xR1 165C E2 835 
15C4 CO 87 O21E 770 B XtQiee ORPACK IR DCP 155D 836 SC4 EQu 
1$C8 02 1Sc8 771 Dc XIL27*2° 165D 837 HEXT EQU ¢ 
145C9 0000 15CA 772 PACKS DC AL2 (*-#) 165D C2 01 1D80 838 LA PBUF-1,XR1 
45CB 0000 15cC 773 PACKD onc AL2 (#9) 1661 35 02 IDEA 839 L CSTR@,XR2 
15CD SF 01 00 00 778 SIC 0(2,XR1) ,0(,XB1) 1665 34 Of IDES 840 NXT St PEND@,XR1 
15D1 OF 01 1B8C 0:56 775 ALC TABIDX,ONE 1669 34% G2 1DER (641 ST CSTR@,ER2 
15D7 OE U1 1B88 OaS6 776 ALC CNTOPFS,ONE 766D OD O71 IDEA 1B68 Bu2 CLC CSTR@,CENDe 
15DD CO 87 0000 777 B oe 167% 8483 CHKS# EQG 41 
45E0 778 HEX22X EQU e- 4 1673 FZ 82 08 B44 JL NXTZ 
779 1676 CO 87 1795 845 B READ 
180 FOS RHEESEEE SSE HESEEE EERE HS EHS EEKEETETSSETEESRE SEES SE ERERE ETS EHRRERESE RE 1674 35 G2 iDEA B46 L CSTR@,XR2 
781 * SCAN * * 167E BD DO 00 Bay NxXT2 CLI 0 (g XB2),X°DO* 
782 *eencees & 1681 F2 81 83 B48 JE aSG 
783 * CONTROL CHAR e 16848 BD &C 00 849 CLI O(,XB2),c*<* 
784 * ( PRINT LINE ?-BLANKS, EXCS-ASTERISK 2 1687 F2 81 4c 850 JE DSK 
785 * < DISK INF. * 1684 BD 4A OO 851 CLI OQ (-XR2},C°e® 
786 * CENT COUNTER INF * 168D F2 81 63 852 JE CuTR 
787 # > TAB INP. & 1690 BD 6E 00 853 CLY 0(,XR2),C*#>* 
788 ® % RETURN % 1093 F2 81 28 854 JE TAB 
7189 «© + LINE SPACE * 1696 BD 6C 00 855 CLI O(,XR2),C*R® 
790 SEEK ESS TSA SETES SEEKS AES RSERETS HES ERESESEOESS REE REHEES SE OEREESEEEEERE OE EEEE 1699 F2 St 18 856 JE RETGEN 
15E1 80 15E21 791 SCHFLG pc XL1* 80* 169C BD GE 00 857 CLI O(,XR2),cte? 
792 * *BITe® *MEARING s 169F F2 &1 4&7 858 JE LINE 
0080 793 FFLG FQU) xx" 808 0 FIRST FLAG 1682 D2 O1 01 859 LA 1(,XR1),XR4 UP PBUF ADDE. 
794 *& ECO x*4oF 1 16A5 6C 00 00 00 860 HVC 0 (,XR1),0(,XR2) MOVE CHAR 
2 0020 795 NPLG EQU x*20° 2 NON-STANDARD PACK 16A9 E2 02 01 861 LA 1(,XR2) ,XR2 UP PTR TO DATA CARD CHAR. 
0010 796 SFLG EQD. x*40# - 3 SYNC FLAG 16aC CO 87 1665 862 B BXT1 
0008 797 ZFLG FOU x*"OBt gu ZERO FLAG 863 
0004 798 UFLG EQU xX" 04!.. ) USED FLAG 16B0 864 RETURN EQUU ® 
0002 799 BSFLG EQU) x*O028 6 PRINTER FOR SDR TABLES 1680 OF 01 IDEA OAS6 865 ALC CSTR&@,ONE OP PTR TO DATA CABD CHAR. 
800 + EQU) x*O18 7 16B6 3B 10 15E1 866 SBF SCNFLG,SFLG TURE OFF SYNC PLAG 
15E2 801 SCAB EQU) # 168A CO 87 0000 867 B e-& SCAN EXIT 
15E2 34 O08 16BD 802 ST SCNEXT, ABR 16gp 868 SCNEXT EQU ¢-1 
15E6 C2 01 ICA4 803 LA SYNTBL-6 ,xR1 869 
15ER 36 01 1B77 804 SCc1 A SIX, XR1 16BE 870 TAB £Qu0. so® 
ISEE 36 02 1B7B 805 A PPFF ,XR2 16BE CO 87 1857 871 B PACK 
VSF2 CO 04 15EA 806 BNZ SC | 16C2 OC 10 1D20 1D91 872 MYC TABTBL4+16 (17) ,PBUP+¢16 
1oF6 38 10 45E1 807 TBN SCNFLG,SPLG TEST SYNC FLAG OW 16CB 3C 01 1B8C 873 MVI TABIDX,1 
Toe aE 2 590-60 808 JP = Sc3 16CC OZ 01 IDEA 0456 874 IRC ALC CSTRO,ONE 
ISFD 38 80 15E1 809 TBH SCNFLG,FFLG 16D2 CO 87 165D 875 B NEXT 
1601 F2 10 OB B10 JT sc2 876 
1604 1D 03 iD80 03 8711 SYN1 CLC CRDNBB(4) ,3(,X81) 16D6 877 DSK EOD * 
ieee ap iat OB 812 JE SYN2 16D6 CO 87 1857 878 B PACK 
@ Bh 20 813 JH RELOAD 16D2 OC 00 1B08 1D81 879 KVC  DSKSEC (1) ,PBUF 
{eon eaves 45 160F 814 SC2 EQU * 16E0 CO 87 1A19 880 B DISKIO 
1795 815 B READ 16E4 01 16E8 881 pc XL1°01° READ 
1613 CO 87 1604 816 B SYN1 16E5 CO 87 16CC 882 B INC 
1617 58 01 05 04. 817 SYN2 BZN = 5(,XR1},4(,XR1) 883 
eo He S Hee 05 818 SVC) =—-#H24(1) ,5(,XR1) BRING OFFSET TOGETHER 16E9 884 LINE ECU 
1624 36 02 1B6 819 L H24,XR2_ 16E9 08 03 1769 1D81 885 MNM SPCNT,PBOF 
B66 820 A CBUF@,XR2 1OEF CO 87 16CC 886 B Inc 
oe ee O1APR71 O1AUG71 21JAaN72 01BAR72 1230N72 24J30L72 PROG ID. OF F7-7 DATE 30SEP70 O1APR71 O1AUG71 21JAH72 O1MAR?72 1230N72 24J0L72 PROG ID OF F7-7 
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a IB EAINTEMABCE DIAGNOSTIC PBOGRAA ; 
; PART HC. 2589785 B u cE DIAGHO. PART HO. 2589745 
IBS. SAIBTERANCE DIAGKOSTIC PEOGERAS PAGE 9 , PAGE OR 
PF77| «DISK ERROR RECORDING ANALYSIS PROGRAS FF77 DISK ERROR RECORDING AWALYSIS PROGRAR . 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATESERT EER LOC. OBJECT CODE ADDBE STAT SOURCE STATESEST ‘ 
* 937 SFREERSSESEERSESLS SHCSTKESSRSAESSKSSS SS SERS SKSSKSESEESESKCE SE SVSHSHSSSCKSSSESVSSES SESE 
16P3 CO 87 1857 urs a mai " PACK 938 * READ * 41. READS DATA CARDS INTO PRIBUF 3 
16F7 OC 00 1B68 1D81 889 aYC CHTOPS (1} , 2BU? S8T CRTOFS 939 ses ete8s 2. CHECK SEQUENCE OF DATA CARDS e 
16PD OC 00 1B8A 1D82 890 SVC CBETLNG(1),PBUF¢1 SET CETLEC 940 ¢ &. MOVES DATA CARD PROA PRIBOF TO CBUF e 
1703 CQ 87 16CC 691 8 INC 541 5. RESETS CSTR & 
&92 : i $82 *% 6. PROVIDE A SESSAGE AND HALT TO USER IF DATA CARDS ARE * 
1707 893 SG £Q0 * 943 2 HOT IBN QRDER e 
1707 c2 6% 0880 8948 LA PRIBUF,XRi uy & : s 
170B 7C 40 SF 895 avi 95(,xXR1),C° * | QGS SERSEEASSSSESSE SSE ALE SETS SSS SEIS SESHIRSSESSE SS SS EELS SSSFSROLSE FESS SI SE KESE 
I70E SC SE SE SF B96 HYC 98(95,XBR1) ,95(,X81) on 1795 946 READ EQU). Ct 
41712 C2 02 1087 &97 LE PBUP,XR2 3785 34 O08 i7F3 gal st REXT@,BRR 
17416 898 8SG1 EQU & 1799 348 80 ISEI 4s RST TBS SCNFLG, FFLS 
3716 BD OF 00 899 CLI G&,XRZ),C*?* 179D F2 36 25 94S oF RDi 
1719 F2 81 68 $06 JE SPACE $59 READ HEADER CAED 
471C BD SA CO o61 CLI 9{,ER2},c*8* 27K0 o4 38 1D80 IBéF 351 Zhz CRORMB(4} ,DZERS SET CRDEAS 75 0 
VIF FP2 89 4C 902 az ASTER 1786 3D AO 90232 $52 CLi X*232°,X°a0? TEST FOR DISK DCP 
41722 6C 006 00 GO 903 HVC 600 (,XR1} ,0{,X82} HOVE CHAR TG PRTSUP 17aa F2 OF OB 953 JRE R8D2 
41726 D2 01 907 904 La 4 €-X81) ,XB1 INCH. PTR TO PRTIBEP V7AD CO B87 O22 . $54 B. LOaDb 
1729 £2 02 01 $05 La 1(,XB2) -XR2 INCH. PTR TO PRUP 17312 20 17B1 955 DC XL7* 208 | 
172C 3% O2 IDES 806 MSGCK st PSTRO,XK2 T7782 BUCK 3753 6956 bc XLZ* DOCF® POSITION DISK HEad 
41720 OD O01 IDES 1DES $07 cLCc PSTR|O, PENDS 7B& F2 87 OS 957 J BBS 
4730 CO 0&8 1716 908 BHH 4SG1 17B7 CO 87 022a 958 RD2 B LOAD 
173A SE O07 IDEA D256 909 ALC CSTE@,ONE END OF COMBERST V7BB 29 17BB $359 BC EL14* 10° 
7740 GD O07 DBA 1BE8 $10 cL¢c CSTRG,CENDS CHECK POE BETURE CHAR T7EC CD O3 OSDF 1D8e6 $60 RD cLe PRTBUFE9IS (4) -CRD EBB TESS FOR HEADER CAEBD 
1787 911 CHKSW1 EQU ee 17C2 2 G1 05 961 JNE RbB3 - 
21746 CO 82 175A 912 BL 8SG2 Z 17CS 962 RDI EQu * 
1742 OC SF 1DEO O8DFP 913 ayc PBUPt95 (96) ,PETBUFS95 19C3 CO 87 822A 963 B LOAD 
1750 CO &7 1795 914 B READ 17E9 40 VCs 968 pe XL4* 108 
1754 OC SF GSDF 1DEO s15 BYC PRTIBUF+95 ($6} ,PBEF*9S 17CKR 965 BDI ZOU * 
1758 35 O2 IDEA $16 HSG2 L CSTR@, XR2 47CKR 3D FS O8DF S66 cil PRIBOFC91,C*5* CHECK LEVEL OF OCF (D&TA CARDS) 
175E BD 6c 00 917 CLI 0 (,XR2),C*S* 17CE P2 01 58 $67 JHE &ESLEV 
176% CO 8% 165D 918 BE REXT 17D7 06 30 1B80 1570 868 AZ CRDNEB (4) , DORE 
1765 CO U7 OZIA 919 B PRINT 17D7 Ob 03 71D80 O8DF 369 CLC CRDNAB{8) , PETBUF+95 
1769 26 1769 920 SPCRT Dc XL4° 26? V7DD F2 G1 74 870 JNE ONORD 
1768 CO 87 165D 921 B HEXT 17EO OC SF 3D80 OS8DF 971 BYC CBUF¢9S (96) -PRTBUF¢9S 
1762 922 ASTER EQU * 17E6 OC O1 IDEA 1B66 972 AVC CSTR@,CBUFa 
176E AS 01 02 01 923 MAZE 2 (,XR2) »1(.XR2) : 17EC 38 80 15£1 973 SBF SCHFPLG, FFLG a 
1772 7¢ 5c 00 924 ASTI MVI O(,XR1),C°*® 17F0 CO 87 0000 974 B +-4 | 
1775 D2 01 01 925 LA 1(,XR1) ,XR1 1773 975 REXTS EQDU) #-1 
1778 @PF 20 02 0a56 926 SLC 2 (1,282) ,CRE WF4 CO 87 O21A $76 UBORD B PRINT 
477D CO 01 1772 927 BNZ ASTI 17F8 87 17F8 977 pc XL1*87* 
1781 F2 87 OB 928 3 SP1 17P9 23 17F9 978 DC IL1°35°* 
929 VIFA 1828 17FB 979 pc AL2 (BESG) 
. 1788 930 SPACE EQUD- * 17FC CO 87 0222 980 B HALT 
1784 Aas 01 02 01 931 BZB 2(¢XB2) » 1(_XR2) 4800 OOEC 180% $81 pc XL2* QOEC® DATA CARDS NOT IR ORDER 
1768 BC 00 Q1 932 AVI 1(,XR2).,.X%°66%. ~~ 1802 CO 87 17F& 982 B UNORD 
178B B6 01 02 933 A 2-€2XB2) ,XR1 1806 C4C1E3CINOC3C1IDS 1828 983 RSG Dc CL35*DATA CARDS NOT IN ORDER,RE-RUN ERAP* 
178E E2 02 03 934 SP1 LA 3(,X82) ,XR2 180E C¥E2Z40DSD6E380C9 $83 
1791 CO 87 172C 935 B BmSGCK 1816 D544 GDbD9C8C5D96B 983 
181E DYC5S60D9 EXDS80C5 a 
1826 D9C1ID? . 98 
1829 CO 87 O2TA 984 NSLEV B PRIST 
182D 87 182D 985 DC XL1* 87° 
182E 1C 182E 986 pc IL1*28* 
182F 1856 1830 987 DC AL2 (LEVEL) 
1831 CO 87 0222 988 B HALT 
1835 OOEE 1836 989 DC XL2° OCEE* 
1837 CO 87 1799 $90 B RST 
183B E3C8CS8OD3SCSESC5 1855 991 bc CL27'THE LEVEL OF OCF HAS TO BE * 
1843 D38ODoCO4OFOC3CE 991 
184B SOCBCIEZ8O0E3D640 $91 : 
1853 C2C540 991 
1856 FS 1856 992 LEVEL oc CLO17®5* 
DATE 30SEP70 O1APR71 01AUG71 213 AN72 O1NAR72 1230N72 24IUL72 PROG ID OPF?-7 DATE 30SEP70 O1APR71 91A0G71 21JAN72 OTMART2 IZIUNT2 24J0L72 PROS ID OrFrv-7 
EC NO. 816760 818988 818817 577007 818390 577050 577060 PAGE 9 EC NOW 816760 818948 818817 577007 818390 §77050 577060 PAGE 9A 
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ISH BAINTENAZCE DIAGHOSTIC PROGRAS PRET #O. 2589785 IBS MAINTENANCE DIAGNOSTIC PROGRAA PART HO. 2589785 
PAGE 10 : , PAGE 10a 
FF77 DISK ERROR RECORDING ANALYSIS PROGRAS FF77 DISK ERROR RECORDING ANALYSIS PROGEAS 
ERB LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDER STHT SOURCE STATERERT 
99K FRESE KASEKS SG HETSTEH SSSEKEKE SS SSSSRSERESSSEREC REHASH FETE SERESSASRERSESERERE 1032 FHSSSCK ESSE FETTER SSE ASTE SE OSE LSS REKSSSE HERE HHE TEE SHENG STECSSSEOERSESEREEA 
995 © PACK * PACKS DATA IH PRBUF BACK INTO PBUP FROS LEFT TO BIGHT & 1033 &® H8EXDEC * CONVERTS A HEX @ TO A PRINTABLE DECIBAL $@ IN PRYBUF 6 
996 £oeeeete & 1034 Seeeeeeesr ee ase se WITH LEADING ZEROS SUPPRESSED e 
997 ¢ e 1035 # S 
995 SHS se Ss Sees St ee eGet SHSE SER AECES SKSSESCKIESEPRSEREE EROS. SLSESERSESKRES ES ESEE 3036 ® LE®sTH OF HEX @ IS CONTAINED IN CRHTLEG & 
gag i037 LCCATION CF RIGHT BYTE POSITION OF THE HEX @ IS + 
1857 3% O08 1882 3000 PACK St PEXITS,2R8 1638 = @ (DBUF) ¢C NTPCStCHTLUG<-1 % 
165B 35 O01 186~a 10074 L PBUPS, XRG {O39 & LOCATION OF PRINT POSITION(RIGHT HOST) 1S e # 
185F 35 O2 UB6A 1002 L PBUP@, X82 1680 * @(PRIBUF~7} # TABTBL (TABIDX} ¢ ., . 
1663 $8 01 GO OG 1003 PCK1 BZS 0 {,XR2} ,0 4. KR 5) 1047 ON Exit & g 
1867 9@ 63 00 01 7008 ENN O(, 5823 pF fe RBI JOk2 & HEX @ WILL BE ZERO & 
186B D2 2% 02 #005 LB 2,84) x84 TORS & CETOFS IS IKCREASED BY (CETLYG) % 
1BOE E2 02 1 1066 LA 1( e382) ,kR2 108g % TEBIDX IS INCREASED BY 1 2 
1871 38 O01 4DPFS 4007 Ss? TERP, XB LOGS SKESSEHSEKES HE SHE STAT ERSESCSSSRSKESELESKKSASE SRERKE SHS LHELESSE HS LAST SESEABED 
1375 OB G7 IDF6 TDEE 1008 / OeLe TERE ,PENDS@ TBAC 1086 HEXDEC EQU = 
187B CG 82 1863 7009 BL PCKY Teac 3% 08 1905 {0&7 st CVTZS, ARR SAVE RETURE @ 
187F cO 87 0000 1070 5 8 1680 £2 82 1950 168s LA LNGTBL-1,KR2 
. 1882 1017 PEXTS@ EQG t—j 48S 36 O02 ITBBA Oks A CHTILNG,ZR2 ; 
2012 Tape 2C OO 333c 99 ~ $050 HYC BYCL{1) ,0(,.XR2) SET LEG OF DEC & 
i612 1051 # SET LOOP COUNT {CHTLEG#5} 
1012 78BD C2 0% 1886 1652 LA CVTCHT,X81 
1012 18Ci 4 OF OO 158A 1053 aYC O (2,281) ,CaTLEG 
1042 38CS SE 67 CO 40 7058 ALC 0(2,%R1) ,0£,XB1} 
1012 18CA SE 01 OO 60 3055 ALC 0 (2, XR1) .0 (,X81) ee 
7012 ¥8CE SE 01 00 20 1056 ALC O (2,281) ,0 (, ER} Ee 
1012 1057 © SET LENGTH OF HEZ & XIHSTR. 
1012 i8B2 GC 01 IDPF& iBSA 1058 RYC TEHP,CETLRG 
1012 18D8 OF O01 IDF6 CASS 1659 SLC TEMP, OHE 
O12 SSS SSeS Sere RSS SESE ESRSEARERSERSCTE SERESRKSSE ASS SASS TKS SSKESTS TIE TESKEEEKEES YBDE OC 60 190B ipFré 1060 HYC RLCL (i) , TENE 
1O1G * RSHIFT @ SHIFTS A BYTE 2 BINARY PLACES TO THE RIGAT & TSEe OC OC 18FD IDFE 1061 AVC 8 =606CLCL (1) , TEMP 
1015 **e«¢eeeges ERD OFF & 4662 * SET X#2 TG RGET FOS CF HEX # 
1016 * s SEA C2 02 IF 60 7063 LA DBUP,XR2 
FOV] SSS HSSEERESSESTH TES SESE SASESEREESESHESSTSSSHSE SKC SESRASSSESSEE RS SEREKERE SBE TYEE 30 O02 1588 1068 A CNTOFS,ZR2 
1863 1018 BSHIFT EQD * 18F2 36 02 1IDF6 7065 A TEP, XR2 
1883 348 O8 16AB 71019 ST RSHFX@, ABR 18F6 0& 90 1DF& 1BEF 1066 ZAZ DEC, DZERC ZERO DEC ¢ 
1887 C2 02 ?F00 1020 LA DBUF,XR2 1067 * 
188B 36 02 1888 1021 A CNTOFS, XR2 18FD 1068 CLCL EQS #41 ¢ 
188F C2 01 0006 1022 LA 6 ,XB1 , | ¥8FC 8D 00 GO 1B74 1063 cLc 0(1, 282) ,ZERO TEST FOR ZEEO , 
1893 AE 00 00 00 1023 RSHF1 ALC 0(1,XR2) ,0(,XR82) 19017 F2 81 45 1070 JE HEXDO 
1897 P2 20 903 1024 JNOL RSHF2 ; 1904 06 OS IDF4 IDF4& 1071 HEXD1 AZ DEC, DEC DOUBLE DEC @ 
1894 BA 07 600 1025 SBN 0(,XR2),X*01* 1908 1072 ALCL EQU) #41 
189D 36 Of IB7B 1026 RSHF2 a PFFP,XR1 1904 AE 00 00 00 1673 ALC 0(1,XB2) ,0{,XE2) SHIFT HEX NUA 
HAT CU OF 1893 1027 BNZ RSHFPI 190E F2 20 06 10748 JNOL BEXD2 TEST FOR OVERFLOW 
1845 BB CO 00 1028 SBF 0(,XR2),X*cCO? 1911 06 90 IDF4Y 7870 1075 AZ DEC, DONE ADD 1 TO DEC @ 
18A8 CO 87 0000 1029 B soe 1917 OF OY 1886 O0A56 1076 HEXD2 SLC CYICNT,ONE TEST FOR END 
18AB 1030 RSHFX@ EQU ~- 3 191D CO 01 1904 1077 BNZ HEXD1 
1821 05 O9 IDEB OEDF 1078 HEXDS Itc DEC-9 (10) , BLAHK 
1927 38 08 15E1 4079 TBH SCNFLG,ZFLG ' 
192B CO $0 1933 1080 BF  §_ HEXD3 —& 
192F 3c FO IDFA 1081 NVI DEC,C*0* 
1933 3b 08 15£1 1082 HEXD3 SBF SCNFLG,ZFLG 
1083 * SET XR1 TO BIGHT POS OF PRIBT POS. 
1937 CO 87 19D6 1084 B PRTPOS 
193C 1085 MVYCL EQU tel 
193B 4C 00 00 1DF4& 1086 MVC 0 (1,XR1) ,DEC MOVE DEC @ TO PRIBUF 
1940 OF 01 1B88 1B8A 1087 ALC CNTOFS,CNTLNG 
1946 F2 87 83 1088 J CVTX 
1949 3A 08 15E1 1089 HEXDO SBN SCNFLG,ZFLG 
194D CU 87 1921 1090 B HEXDS 
1951 1091 LNGTBL EQU * CS8TLNG 
1951 02 1951 1092 DC IL?*2° 1 
1952 O04 1952 1093 pc ILi* 4 2 
1953 07 ‘ 1953 1094 Dc XL1*7° 3 
1954 09 1954 1095 pc IL1*° 9° & 
10596 
aot 1096 
1096 
1096 
metas see oyneon O1A0C71 213AN72 OVKAR72 I2ZION72 2430172 PROG ID OFF?~-7 DATE 30SEP70 O1APR71 O1AUG71 21JAN72 OUT NART2 IZIUNT2 2430L72 PROG ID OFP?-7 
° 818948 818817 §$77007 816390 5977050 577060 PAGE 10 EC NOw 816760 818948 818817 577007 818390 577050 577060 PAGE 10a 
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LBB BAINTEWABCE DIAGNOSTIC PROGRAS PART BO. 2589785 ot IBM BAINTENANCE DIAGNOSTIC PROGRAS ps PART BO. 2589745 * 
. . PAGE 11 . ; PAGE WA ie 
: : ‘ ’ cet 
FP?77 DISK ERROR RECORDING ANALYSIS PROGRAK FPF77 DISK ERROR RECORDIEG ABALYSIS PROGRAW® . a 
: : : $4 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATESEBT ERR LOC OBJECT CODE ADDR STHT SOURCE STATEAENT 1e 
4097 REFSESKSSES SSSESKSSE ESS SSSSSESLSESAKSSESSHEKSKESSESECSSESSESSTESRSSESSVSE SCS SOS SSRKSLESE VI] SStSeSs eS SSSeSESSSSESSSKESCSRESE SSSISSSSSESE SE CFESHSESSEVWSE SS SV SSS SVSCSSCSER fl 
1098 * HEXHEXK * CONVERT HEX BYTE TO A PRIWTABL?, HEX NUSBER s 1122 * CVTBIF ® CONVERTS A BEX BYTE TO PRIBTABLE BIHARY RUBBER IB * 4 
4099 SEE SKEKSECHS ; € FIZZ SSSseseeseeseseesesese PRY BUF s “’ 
712100 ©¢ ; * 2128 % 34 
4707 HKEKTERRKTESSSKSSSERK IS SSESSSSRESESSKSHSSESRKFCSEPESESKSESK ES RSAKS SRASSKESSESR SESS : / 4125 LOCATICH OF HEX BYTE IS ® (DBOF} @ CxuTors +e 
1955 1102 HEX HEX EQoU. Co? . 4126 ® 2 
1955 38 08 19D5 7193 ST CVTXG, ARR 1127 3 LOCATION OF PEINT POSITION (LEFT HOST POSITION) IS * ie 
1959 C2 02 1F00 4104 LA 8 =—s BUF, XR2 2128 * @(PRIBUF)-1 + TABTRL(TABIDX) - 7 f. 
795D 36 02 1B88 4205 A CUTOFS ,XRZ 1129 * x 
1961 CO 87 19D6 2106 8 PRTPOS . : 2130 * ON EXIT * 
1965 36 01 1B7B 9107 A PREP .XR1 . 7131 * HEX BYTE BILL BE ZERO 2 
1969 3B 012 196E 2108 SBF SWircH,x¢o1* FORK 8392 1132 * CETOPS IS INCREASED BY 1 = 
21862 1109 SWITCH EQD %43 4133 2 TABIDX IS INCREASED BY 1 & 
296D 68 OZ 99 00 9310 HEX2 RHZ Of, X87) .0{,222) : : TPP SRSECSRERSE RHR AKTSE SSS SESE SHE SESS SORE SFKEKEEKS SS SESARSE SGCSTESASASHSSVSSESSS : 
719771 7a FO 00 4471 SBM O(,X81) ,x*FO* ¢ 1391 77135 CYTBIH EQD # 
71974 7D £9 OC 9112 CLI O{,XR1} ,X? PO? 1991 38 08 19D5 4136 Sst CVUTKa, ARE SATE EXIT @ e 
1977 F2 04 05 7273 NB 8 BEX3 1995 C2 O02 1F66 $7137 LA DBUF, XE2 COBPUTE POSITION OF REX BYTE ‘ 
197A SF OO 00 1982 Tits SEC 0(1,%R1) ,X39 1699 36 02 1888 17138 B CHTOFS, XR2 
497F D2 01 01 1135 SEX3 LA 1(,XB1) ,XB1 4139 * COMPUTE PCSITION OF PRIBT PCS. ; 
1982 39 01 196E 9116 239 TBF S¥iITCH,X*O?® 1$9D CO 87 19D6 9140 B PRTPOS +: 
1986 F2 90 3a 4317 oP CVTZ1 1941 36 01 4B7C 97191 A WEG7, XB} % 
1989 3A C1 196E 9118 SBN SWITCH,Z*O1* FROM 42Z 9282 ¢ 
498D CO 87 796D 9219 3) HEX2 79a5 3C O08 1586 21143 “YI C¥TCET,8 SET LOOP CHET 7 
39a9 7C FO 00 218% CYTR2 BVI 8 60(, 381) ,C*O? SET PRINT CHAR 0,BY DEFAULT Cees 
ISAC BE 00 00 06 $145 ALC 6(,XB2}5,0 (,XR2} zl 
1630 F2 20 03 1146 JNOL CvTS1 TEST POR BIT OF 
19B3 7c Fl 005 4187 SVYI O(,XR1) ,c*1* BIf CR,SET PRINT CHAR 7 
19B6 D2 04 01 7148 CYTB1 LA 4 (,XB1) ,XR1 
1989 OF Gi 1BB6 0:56 1149 SLC C¥ICHT,ONE 
19BF CO Ci 19a9 4159 BRZ CYTBZ 
19C3 1151 CYTX1 EQU) O* A 
1973 BC O00 00 2152 MYI O(,XR2),0 a 
19C6 OE O01 1B88 0aS6 1153 ALC CNHTOPS,OBE ; 
1154 ¢ : ae 
19CC 4155 CVTX zQ95 «O* 
19CC OE 01 1B8C OAS6 1156 ALC TABIDZ,ONE si ee ar 
19D2 CO 87 9009 1157 B _ S28 Boe 
19D5 1158 CYTr@ EQU) «#1 
1SD6 1159 PETPOS EQDU) #8 
19D6 3&8 O8 19F2 1160 st PRTX@, ABB o 
19DA C2 01 1D10 1161 La TABTBL,XR1 oe 
19DE 36 01 1B8C 1162 a TABIDX,XR&? 
. 19E2 1C 00 1E£82 00 1163 MVC #H24(1),0(,281) 
; 19E7 C2 01 O87F 1164 La PRTBUP-1,XR1 
te. oF ae . 19EB 36 01 1382 1165 A H28,XR1 
_ : 19EF CO 87 0000 1166 B t-s 
19F2 1167 PRTxa EQU) e-1 
1168 
7168 
1168 © 
1168 
1168 
19F3 1169 SYNHOV EQD- # 
1170 * LOAD SYNC PTS FOR RTSX 
19PF3 34 O08 1218 3171 ST SYNNX@,ARR 
19F8 1172 OPNP EQU) #4 b 
19F7 CO 87 1F00 1173 BC OPEW,X*"87* 2 
19FB 1174 SYR EOD ® i 
19FB 3C 82 1747 1175 MVI CHKS#1,xX°82° 
19FF 3C 82 1674 1176 NVI CHKSW,X*82* 
1A03 3A 10 1581 1177 SBN SCNFPLG,SFLS 
1A07 CC 87 15E2 1178 B SCAN 
1A0B OC 53 1DOF 1D75 1179 SVC SYNTBL¢18483 (84%) ,CBUF+¢84 
1a11 CO 87 1795 1180 B READ 
1Ai5 CO 87 0000 1781 B +-% 
1A18 1182 SYNNX@ EQnH *-1 
- DATE 30SEP70 OTAPR71 O1A0G71 213A N72 01MAR72 1230872 2UJUL72 PROG ID OFF7-7 DATE 30SEP70 O1APR71 027AU0G71 213 A872 UIMART72 123 0N72 24JUL72 PROG ID OFF?7-7 
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IBM MAINTENANCE DIAGHOSTIC PROGRAA PART RO. 2589785 
PAGE 12 ‘PAGE 12a 
FF77 4 =DISK ERROK RECORDIEG ANALYSIS PROGRAS PPF77? DISK ERBOR RECORDING ANALYSIS PROGRAS 
EHR LOC OBJECT CODE ADDR STST SCUERCE STATEMENT ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
FIGS SFO SESE EES SSE CERETS HESS ESESSERSEESSHSSEESSTESSEESE SEHTES ESSER EEESOSE SESE EEES 1A9D SF 00 F5 96 9252 stc DSKC HT (, X81) , DKONE (,XR1) 
1185 * DISKIO ¢ CALLING SEQUENCE * 1Aa71 DO Of 6c 1252 BNZ ODRETRY{, X81) 
1186 ® B DESKIO $ JARS DO 87 9D 1254 B DSKHLT {,X¥B2) 
1187 © DC =OELI*ExX® xZx=01 - BEAD * 1aay DO 87 63 1255 B CYLO (,XB1) 
1188 ¢ XX=02 ~ "RITE * 1256 # 
4169 * BISKIO READ OR WRITE A SECTOR OW CYL C OF DRIVE THAT IS s FARR 1257 BED EQu 
7190 * CORTASNED IN DSKDBY, THE SECTOR HUBSER IS CONTAIYESED * TARA 75 92 DS 4258 L DISK X@(, 284), XR2 
1191 = Ik DSKSEC. * i 1AAD EG 87 01 1259 B 1(,%B2} 
2192 ¢ *A FK (A=1~-4) HALT @ILL OCCUR IF DISK IS NOT READY OR ERROR? VAaP 1260 DKORE EQU =&-14 
1193 ® OCCORS OF & READ OR WRITE. TEN RETRYS ARE MADE BEFORE * 1261 * 
4194 # A HALT IS GIVEN. A RESET HALT WILL RETRY THE FUECTIOR. * i WABO 1262 DSKBS¥Y EBQu # 7 
2195 # . * | 1aBO DO 87 SD 1263 B DSKELT (,XR1) ps 
1196 # s i 1883 DY 87 3B 72648 B TIO2 (,XB1} 
3437 SEK RERS SEK SRK SSHSSKHKSRESLSESSSSKLASTSE SSE SKS S SROKRSEHA SLLKKE SKS SERS ESESSEES | TABG 721265 DSKHLT 200 * 
1A19 1198 DISKIO EQUU # 1AB6 74 O08 DS 1266 ST DHLTE8(, X81} , ARE 
Wai9 C2 OF 4A19 4199 LA DISKIO, XR1 | 12BS 5C OG DB? ES 1267 RVC DEIVE (1,281) ,DSKDEV(, X31} SET OP HALT CODE ror 
WATS 7200 USING DISKIO,xB81 TABD C2 02 GCOS 1268 LB 5,XR2 DISK HOT READY OR 
1A1D 748 08 DY 4201 St DISK X@(, X81) ,ABR \ 12071 SE GO D7 OF - 4259 DSKE2 ALC DEIVE(1,Z281) ,DRIVE(,X84} ERHOS 
1A20 75 02 BS - 9202 t DISKX@{,XR1) ,XR2 1acS F2 20 63 1276 SNOL 5SKE? 
1A23 6C 00 76 OG 1203 HVC DSKFCT(1,XR1),0(, X82) SO¥E FUBCTION iac& 7a 01 D7 1271 SBH DRIVE({,XR1) ,X*O7* 
1204 « SET DISK DRIVE A OB B TACB 36 O2 1B78 4272 DSKH1 A PYFF,XR2 
1205 & SET DISK ADDR ABD 8 BITS TACF DO O07 AB 4273 BEZ DSKH2{,%R1) 
1A27 D2 02 FF 1206 LA QOTBL-1(,221) , X82 1aD2 D2 G2 DD 1274 LA HLETBL-X°18" (,xR1) , KHZ 
WA2A 36 02 OFSS 7207 DSKIC2 A TWO, X82 WADS 36 G2 1270 1275 a DRIVE, XB2 
WA2E 7a 02 FI 4206 st Q@PTR(,XR1) ,.XR2 i2DS 6C OC D1 Ud 3276 SVC = HLTCOD (1,281) .0(, X82) 
1A31 B5 02 00 1209 L 0(,XR2) ,X82 TADD CO 87 O21A 1277 B PRINT 
1A34 36 02 0250 1210 A ORE, XB2 WTAE? 87 IAE1 1278 pc XL7°875 
WA3E F42 Bi OD 4211 IZ DSKIO1 IREZ 36 WAE2 1279 DC IL7¢ 53¢ 
7238 BB FS O00 1242 SBF 0(,ER2),x%°P8* TAE3 BSE WAES 1286 pc BL2(DSKNSG) 
TA3JE SE 00 CO ES 4213 ALC 0(,XER2) ,DSKDRV(,XB1} 1RES CO 87 0222 1281 B HALT 
Yas2 75 02 F? 12148 L Q@PTE(,XR1) ,X82 iAES 0000 JAEA 2282 HLTCOD DC AL2*9¢ 
1A8S DG 87 41 1215” B DSK102 (,XR1) 1REB CO 87 9000 1283 B t—¢ 
7216 © JAEE 1284 DHLTX® EQU ¥-7 
4ANS 1217 DSKIO1 ZQu) WAEF 0000 1AFO 4285 DRIVE DC XL2* 08 - 
1aA4Se FCO OO DE 1218 AVX &TRKSEK4#¢2(,XR1) ,X* 00° UPPER TRACK WAF2 0006 WAF2 1286 DISKKXS oc AL2 (*-9) = 
TASB 7D 80 EB 7219 CLI DSKSEC(,E81),X*80" | 1AF3 1AF5 iAP4S 1287 TRKDCR pc AL2 (TEKSEK) 
TAGE PZ 82 Q3 1220 JL UPTRK . 1AFS 1288 TRKSEK EQU) # 
1451 7C 80 DE 4221 BVI TRKSEK4+2(,XB1) .X°80? LOWER TRACK 1AF5 00000000 IAFS& 1289 Dc XL4* 00000000* 
1A5& 1222 UPTRK - z£QU * TAFO 1aFB JAPA 1290 SEKDCR vc AL2(SEER) 
1a5& D1 00 97 1223 TI02 TIO DSKBSY(,XB1) ,0 1AFB 1291 SEEK EQo 
4a57 7C OA PS 1224 RETRY} MVXI DSKCRT(,XB1),10 1AFB OOO000FF VAFE 1292 pc XLS" OOGOOOFF® 
TASA 71 06 E1 1225 L107 LIO SEKDCR{(,XR1) ,%706° IAFF 0000 1800 1293 STATUS DC XL2*0° 
ia5D F3 00 00 1226 STIo1 SIO ‘ SEEK 1B01 1294 DSKDRY EQU #*& 
1460 70 02 BF 1227 Susi SNS  STATUS(,XR1),K*O2* SENSE BYTE v-1 1B01 a8 1B012 7295 DC xLi*ase DA & M BIT FOR DISK 
1a63 78 10 E7 1228 TBR STATUS (,ZR3},%°10° 1B02 00 1B02 1296 DSKFLG DC XL1¢ G8 STEESESSHSS SSHSETERSESSOES 
1866 DO 10 87 1229 Br SNS% (,XR1) 1503 00 1B03 1297 DSKCYL onc XL1°08 * DISK CONTROL FIELD * 
1269 78 40 E? 1230 TBR STATUS(,XR1),X*40* CHECK FOR CYL 0 , 1B04 09 1B04 1298 DSKSEC DC XLi* oe * * 
{A6C F2 16 OD 7231 JT CYLO 1B05 00 1805 1299 DSKNUM DC XL7°Q¢ FERESESESSVTE SESE T SSESEEDES 
1232 * ; 1B06 71B02 tBO07 13C0 DCR pc AL2 (DSKFLG) 
1A6F SP 00 F5 96 1233 SLC DSKCRT(,XR1) ,DKONE(,XB1) € 1B08 1F00 1B09 1301 DBUP@ pc AL2(DBUF) 
tA73 DO OF 41 1234 BNZ LI01(,X81) ; 4B09 2302 DAR EQU) *-1 
1A76 DO 87 9D 1235 B DSKHLT (,X81) 1303 * 
1A79 DO 87 3E 1236 B RETRY (, X81) 1BOA 7304 BLTTBL EQU * HALT CODE VOLUHE DEVICE ADDR. 
1237 * iBOA Fz TBOA 1305 DC XL1¢ F2e 2 ao 
1A7C 1238 CYLO EQU) ¢ 1BOB F1 1B0B 1306 Dc XL1°R7° 1 - Aas 
1A7C 71 06 DB 1239 LIoO¥ LIO TRKDCR(,XR1),x*°06" 1B0C F& 1BOC 1307 Dc ALi¢pae 8 BO 
1A7F F3 00 00 1240 SIO3 SIO ; TURE ON HEAD 1BOD F3 IBOD 1308 pc XL1¢P3e 3 88 
taA82 7C OA FS 1241 SVI  DSKCNT(,XR1),10 1309 * 
1A8S 7c 00 EC 1242 DRETRY MMVI DSKBOUB(,XR1),0 1BOE 00 IBOE 1310 DSKCNT DC XL1°O° 
1A388 77 O08 FO 1243 LI02 LIOo DAR (,XR1) -X*O4u* 1BOF 9000 1510 1311 Q@PTR DC AL2 (#-#) 
1A8B 71 06 EE 1244 L103 LIO DCR(,XR1),X*06° 1B11 1312 Q@TBL EQDo. 
WASP 12485 DSKFCT EQU #41 1B11 1a54 IBI2 1313 Dc AL2(TIO2} tae 
1A8E F3 00 00 1246 SIO02 SIO. 090, 0 READ OR WRITE 1B13 1A5A 1B 14 7314 pc AL2(LIO1) : ne 
191 Dt 02 78 1247 TIO1 TIO *(,XR1) ,X*02¢ 1B15 1A88 1B16 1315 pc AL2(LI02) 
1a94 70 O02 E7 1288 SHS2 SNS STATUS(,XR1),X*02* SENSE BYTE 0-1 1B17 14883 1B18 1316 DC AL2(L1I03) 
tao? 19. EP Eo 1249 TBP STATUS-1(,XR1) ,X'FE’ 1B19 4A5D IB1A 1317 DC =—-_- AL2 (SI011) 
ASA F210 OD 1250 oT BUD iB1B 1ASE IBiC 1318 DC AL2 (SIO2) 
1251 © " 1B1D 1A91 IBIE 2319 pc AL2(TIO1) 
fe as cee O1APR71 01AUG71 21JAN72 01SAR72 1230472 2430L72 PROG ID OFF7-7 DATE 30SEP70 O1APR71 01A0G71 213AN72 01MAR72 12JUN72 28JUL7F2 PROG ID OFF7-7 
- WO. 818948 818817 577007 818390 577050 577060 PAGE 12 EC WO. 816760 818948 818817 577007 818390 577050 577000 PAGE 12A 
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IBS BAINTENANCE DIAGHOSTIC PROGEAN PART NO. 2589745 ot IBM MAINTENANCE DIAGNOSTIC PROGRAS of: : PART 50. 2589785 gE 
PAGE 13 PaGE 13a z 
FF77 DISK ERROR RECORDIHG AWALYSIS PROGRAM - FFv7 DISK ERBOR RECORDIRG ANALYSIS PROCRAS gS 4 
Ce 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMZ SOURCE STATESERT 
WwiF 1460 1B20 1320 pc AL2 (SHS1) . 1BSF 1399 1B60 1329 I¥SDCa DC AL2 (IVSDC) ae 
1821 1A94 1622 132% DC AL2(SRS2} 1861 1208 1B62 1330 OBRST@ DC AL2 (DBUP-256¢8) tH 4 
1B23 4A7C 1B2% 1322 DC AL2{LIO8) 1363 1FF8 1B64 1331 OBRHD@ pC AL2 (DBUF #256-8) i 
4325 1a7F IB26 1323 Dc AL2(SI03) 1B65 1D21 1B66 1332 CBUF@ pc AL2 (CBUP) F 
1B27 FYFF 1B2E 1328 Dc AL2(*-*-1) 13867 1D79 1868 1333 CENDa pc AL2(CBUF¢88) f 
1829 4OC8C1D3E34060C6 1B5R 2325 Dc CLSO0* HALT -PX- X=1-8, VOL X IS NOT RiABY OB ERROR ON ¥* 1B69 1D81 1B6A 1334 PBUPAa pc AL2 (PBUF) i 
1B39 GBYOESDGD3Z40E7&O $325 1B6D 0008 IB6E 7336 EIGHT pc IL2°8¢ é 
1BU) C9E280D5 D6E34 0D9 4325 1BOF FPO 1B6F 1337 DZERO DC DL7* 0° &§ 
1B49 CSC 1C4E840OD6D940 4325 1870 Fi 1B70 1338 DONE DC DL4* 4% i 
1557 CSDYD9DS DISODEDS 4325 1B71 00060000 1B74 1339 ZERO DC AL Be Ot é 
1B59 SUES 1325 1B75 00 1B75 1340 CcET DC XL1¢Q° BOST FOLLOW ZEBO ee 
1B5B D6D380E7 1B5E 1326 DSKMSG pe CLOU*OL x: 1B76 0506 1377 2341 SIX BC IL2¢ 6# a 2 
0001 2327 DECP XR? 1B78 OCOE 1B79 1342 XO0E pc XL2*000E° ? oY 
1B7A FF TB7A 1383 PC YLV¢ PF? ee 
1B7B 1344 FFFF EQU eh 
1B7B FFF9 1B7C 1345 WEG7 Dc IL2?-7* é. ine 
1B7D 0008 1B7E 71346 OBRTYP DC 1L2'8* 4, Pes 
1B7F 0000 1880 1347 SYHC@ DC  XL2"0* tg? 
1348 * B29 IS AWAYS £*°OOXZK* 5 
1381 0000 1B82 1399 H24 DCs XL2* 08 : 
1B83 0000 7B84 1350 DSKOFS oC XL2¢9° Sah 4 
1385 0000 1B86 1351 C¥YTCEHT dC XL2* 0? COURT OF @ OF BIT TO BE COBS. g ..- 
1B87 0000 1B88 1352 CNTOFS DC XL2*0* COUBTER OFFSET PRON 3 {DBSF} #8. | 
ipey vooo 1B8A 1353 CRTLNS DC XL2°08 COUNTER LENGTH 18 BYTES te 
1B8B 0000 1BBC 1354 TABIDX DC XL2¢0* ne. ed 
ibeD 78 IBD 2355 1123 DC 8s IL1*423* Be 
13B8E 6B 1BSE 1356 1107 pc IL 1° 107? a ae 
1B8P 77 1BBP 1357 1719 DC —-«IL1.°9298 
1B90 7E 1B90 1358 1126 Dc IL1* 42€¢ as 
1B914 15 13891 1359 121 pc IL1*21° 
1B92 C9D5E5C1D3C9C4 1B98 1360 IRV pc CL7* INVALID? ; 
1B99 1361 IVSDC EQU) ot IND. VOL. STAT. DATA CARDS ee 
1399 POFSPIPSF2P7F3FP5 1BD5 1362 DC CL6 1° 051527353284 >0a<0004e2+--— 5444 INDIVIDUAL VOLUKE STATISTICS* 4 
1881 P37BP4PYGEFO7TCKUC 1362 ie i 
1BA9 FOFOPOPS4AF24 E60 1362 oe 
1BB1 GOGO4OPSFUFYPYSO 1362 “2 ahd 
1BB9 4SOC9DSC4HC9ESCOCH 17362 se 
1BC1 E¥C1D340E5 DOD3E4 1362 foie 
1BC9 D&CSSOE2ZE3C1E3C9 3362 
1BD1 E2E3C9C3E2 1362 : 
1BD6 SUS06060D0FISEGF 1€12 1363 DC CL61* --- 1470923) 709¢?2714COUBTERS?10* PERM. ERRORS * $86 * VOL “D* 
1BDE POF952F35DD06FFO 1363 
~ 1BE6 FOSCOFF IPSC 3D6ES 1363 
i p- Ye ee” 2 IBEE DSEICSDS E26FFIFO 1363 
1BF6 SC4YOD7CSD9DUGB4O 1363 2 
IBFE CSP 9D9Db DIE2Z805C 1363 % 
1C06 DOSAFSF6DUSC4 OES 1363 : 
: 1COE D6D340C9C4 1363 
@ 1€13 4OSC4OR3C5D4D740 IC4F 1364 DC CL61* * TESP ERRORS*WURITES & VERIFIES*READS & SCAWS*® CYL © SECTOR * 
1C1B C5D9D9D6 D9 E25CE6 1364 
1C23 DICIEICSEZ405040 1364 
1C2B ESCSDICICOC9IC5E2 1364 
1033 SCDSC5C1C4E24 050 1364 
1C3B 40E2C3C1D5E25C40 1364 
1043 C3E8D3I40SC4HOE2CS 1368 
1CUB C3E3D6D940 1364 
1C50 SCDOSAFYF6DOSCE6F 1CB82 1365 DC CL51** 146 *708 20821170) *705%208* &) BO1KOB<R7¢IG6 1eK° z 
1C58 FOP85C6FFO7TCSCOF 1365 
1C60 F1F 15COFFOSDSC6F 1365 
1co8 FOFSSC6FFOF8SCDO 1365 
1070 6C5DFSFOPISAFOFS 1365 
1C78 SCOCF7NESAF&F6DO 1365 
1c80 F14E6C 1365 fd 
Loe 1C83 1366 PDTDC EOO ¢ 4 
1C83 FOSESAF3F6DOFOF2 1CA9 1367 DC CL39*042136 023#84>2736970545 08% Brez26110 1488 
1CéB F37BFYFYGOEGPF3FS 1367 : 
1€93 SCoOFFOFSSC6FFOFS 1367 
DATE 30SEP70 O1APR71 O1A0G71 213AN72 01NAR72 123UN72 24IUL72 PROG ID OPF7-7 DATE Z0SEP7C O1APR71 O1AUG71 2134872 O1MART72 1230N72 24JUL72 PROG ID OFF7-7 
EC NO. 816760 818948 818817 577007 818390 577050 577060 PAGE 13 EC NO. 816760 810948 818817 577067 818390 577050 577060 PAGE 13a 











MB ee Ge te ec ‘ora ey ge" 
IBM SAIBTEWANCE DIAGNOSTIG PROGBAG = ee er Ae Ser es Ze 883 Gagepeeases sRaesesvec eecemee 2 tt—tisitsw ; Se eS eee PAST BO. 2599745 
a ere ee eo en a ee ee ee ee oe ee ar Base toa F 
F777) «=6DISK ERROR RECORDING ANALYSIS BREGERB eg oes ease ty LORE og SON BEE EGG  . . > Hy. SESE SONGR ERSSRSSES anenyees Paeszan 
ERR LOC OBJECT CODE ADDE STMT SOURCE STATEZRES® - = : CEOS S-BEPERRSCE 
1C9B SCDOGCF74EOFF 3F6 1367 a ae SYMBOL T LEB VALUE DEF REFERENCES 
1CA3 SAF IFODOFI&E6C 1367 ee 
ICAA 1368 SYNTBL £00 # : ADDS a 00S 0D33 0280 0275 
1CAA FOFOFOF1FOFO ICAP 1369 pC DL6* 000100" RINT SYNC PT CARD 7 COL 0 ALCL & 001 190B 1072 1060% 
1CB0 POF IFOF9FOFO 3135 1370 DC DL6*O10900" RTN2 SYB PT ARR Cc 001 0008 0006 O74 0763 0802 0987 1000 1019 1087 1703 1136 19160 417% 1201 
1CBH6 FOF 1FSP9POFO iCBB 1373 DC DL6°015900° RTH3 SYN PT 1266 
icsc IDOF 1372 DS 14xL6 CARD #, COL ¢ ASTER A 001 1762 0922 0902 
1D10 1373 TABTBL EQU + AST? & 003 1772 90928 0927 
1D10 3D20 4374 DS 17351 CNT ,TABY,TAB2,.0¢,TABI6 A107. «a OOS ODOE 0269 0261 0266 
1D21 1375 CBUF EQU) A119 A005 ODO 0267 6263 
1D21 IDSO 1376 DS 96XL1 CORTROL CARD BUFFER. BLAWK A 001 OEDF 9428 1078 
" 1D80 1377 CRDHHB EQ0 CBUF#95 BOTH A 00S ODUO 6288 0273 6279 6281 
1D81 1378 PBUF EQu.® CONTROL RECORD BUFFER BRe & 004 OB6Y 0140 0125+ 
IDB IDEO 1379 DS 96XL1 BETBL A 002 OFBB 0410 0054* 0056% 0058* 0122 
iy BR Gm me IDE1 1386 OBSES EQu. t BSFLG € 001 0002 07989 0510 6529 0531 
SR IDES 1381 DS XL4 BITES A 004 ODBB 0321 0319 
Pees. IDE6 1382 PENDa Ds AL2 BO & 003 OGAI8 0033 0639 
ipe? - IDES 1383 PSTRA DS AL2 CBUF &£ 001 1D21 14375 O$71* 1179 1332 1333 1377 
IDES IDEA 1384 CsTR@ DS AL2 CBUF@ A O02 3366 1332 0820 0972 
WEB FDEB 1385 DS 11 cCRE 2 001 14875 7389 0534* 0545 0552* 0555 9561© 0562 oe 
TDEC EDED 1386 PROG DS XL2 CEND@ A 002 1866 1333 0842 0910 Ge 
WEE IDEE 4387 PRYGT DS. XL1 CHKS¥Y A 001 1678 0843 14762 
IDEP IDF& 1388 PROGE DS XL6 CHKSH1 A 001 1747 0912 1175* 
IpFS IDP4& 1389 DEC DS ODL10 CLOL A 004 14FD 1068 106 1% 
ipPS IDP6 1390 TEMP DS X12 Cut 4001 IDF? 1391 C384¢ O391* 0471% 0476% 0477 O883 0493% OS71s oa 
1DF7 . IDPF 1391 CHT DS XLi CUTLSG A G02 BYR 1353 0554% 0890* 1049 1053 1058 1087 
IDPS IDF? 1392 CHTN DS OxL} CuTH & 001 %IDFF 1392 G60S* O612* 0684% 0687* 6688 GoS2 0694 06978 O705* 
1DFSs iDF9 1393 SVCSTR DS AL2 CHTOFS A 002 1888 17352 0732% 0133 0176* 0177% 6201 0216% 9222 0227% 0250% 0252 0317% 0322 
IDFA IDPB 71398 SDRIDX ODS AL2 OG73% O87K* 0537% O5S40* 0555* 0766* 0768 0776* 0889* 1021 1066 168T# 
iDFC TDPD 1395 OBRNT@ ODS AL2 1105 1138 11534 
IDFE 1396 EUD EQU) # CaTB & 001 16F3 0987 0852 
1E00 1397 ORG X*1E00* CONSOL A 007 OFIE 0443 0295 
1E00 1EFF 1398 DS XL256 CRDEHB &2 90027 1D80 1377 0817 0951* 0960 99684 0969 
1P00 1399 DBUF EQU ot CSTR@ &£ CO2 DEA 13588 0630 0659% 0702* 0729% 0821% 0839 08877 0842 0886 0865* 0878 O909% 
1F00 IPFF 1400 DS X1L256 0310 0916 0972s 
VEOOQ 1401 PTBUF EQU) DBUF-256 CVTBIN A 007 1991 1135 0138 06139 0180 6181 0212 0213 
1E00 1402 PCHBUF EQU  DBUF-256 CVTBi A 003 1986 1148 1146 ; 
1E80 1403 RDBUF EQU  DBUF-2564x*80* CVIBZ A 003 1949 17144 37150 
1FP 1 1408 ORG DBUF+¢241 CVICNT A 002 B86 1351 1052 1076 1143% 17492 
1FF1 IFFO 7805 MACE? DS OCLS CVTX aA S01 19CC 1155 1088 
FP? 1406 ORG DBUPF+2487 CvTx@ a 001 139D5 2158 1047% 7103% 1136¢ 
1FF7 IFF6 1407 STEDAT ODS OCL6 CVTX1 A001 i9C3 1151 1917 
1FFPD 1408 ORG DBUF+¢253 CYLPRT A 001 I2DP 0743 0696 0708 0710 
IFFD = TFFC 1409 NEWDAT DS OCL6 CYLX® A 001 12FC 6754 0744s 
1F00 1810 ORG DBUF . ; CYLO A001 1a7C 1238 1231 4255 
1F00 38 20 OA14 1411 OPEN TBN -CO-1,x*20° co A003 OA15 0632 wea 
1FO4 F2 90 OD 1412 JP OPNX c38 A 003 OA12 0031 < 
1FO7 CO 87 022A 1413 B LOAD LOAD &TE8 & FOR 5845 IY¥S DAR A 601 1BO0S 1302 1283 ; 
IPOB 04 1FOB 1418 DC XL1 "048 DBUF A 004 FOO 1399 0C69 0069* 0075 0080 CO80* 0081 0081* 0062 0082*% 9088* 0200 0221 
1FOC DFF3 1FOD 1815 DC XL2° DPF3*  & 0251 0321 0373* 0374 0374* 0378* 0650 0652 -0655 0682 0683 0767 
IFOE OC 01 10D7 1P1D 1416 MVC = =—«s- RT B343,X3000(2) SET LINKAGE FOR RTH &. 3020 1063) 7108 «1137 1301 1330 1337 1401 1802 1403 1404 1806 
1F14 3C 07 19F8 1417 OPHX NVI OPNF,X'C7® FORE A NO-OP BRANCH. t4CB 861410 
1F18 CO 87 19FB 14018 B SYNR DBUF@ A 002 1809 1301 0133 0177 
1F1C 2000 1F1D 1419 x3000 pc XL2* 2000* DCR A 002 18307 1306 1248 : 
PFFF 1420 END DD5% aA 001 10C9 0576 0564% : 
DEC A 010 IDPF4Y 1389 1066* 1071 1071 1075* 1078* 1081¢ 1086 ; 
DHLTX@ A O01 T4AEE 1288 1266* 
DISKIO A 001 1A19 1198 0375 0379 0890 0567 0618 0688 0677 0721 0880 1199 1200 
DISKX® A 002 4AF2 1286 1201* 1202 1258 
DIVEY4 A UO& OD1IB 0272 0268 0270 
DKONE A OO? IAAF 1260 1233 1252 
DND A 00% 1209 0692 0686 0689 
DONE <A 001 1870 1338 0968 1075 ; 
DRETRY A003 1A85 1242 1253 
: DRIVE A O02 1AFO 1285 1267* 1269 1269*% 1271¢ 1275 
DRV@ A O02 12DE 0735 0633* 0644 0664 0723* 
DRVC A 001 1584 0759 0663* 0664% . : 
DRYTBL A 001 12D9 0733 0683 
DATE 30SEP70 O1APR71 01AUG71 213AN72 O1MARV2 12J0N72 24JUL72 PROG ID OFF7-7 DATE 30SEP70 O7APR7i 01AUG71 213AN72 O1MABRT72 1230N72 24JUL72 PROG ID OFF?-7 
EC NO. 816760 818948 818817 577007 818390 577050 577060 PAGE 18 EC 40. 816760 618948 818817 577007 818390 577050 577060 PAGE TOA 
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Lf3 > hs ere Be gee Be aS ag ae 
IBA BAINTENANCE DIAGNOSTIC PROGBAS ce 40. oes cn IBA MAINTENANCE DIAGNOSTIC PROGBAS se aa 
Fri? DISK ERROR RECORDISG ANALYSIS PROGRAB PFT? DISK ERROR RECORDING AMALYSIS PROGRAR 
CROSS~ BEFERENCE CROSS—- REPERENCE 
SYMBOL T LEN VALUE DEFH SEFEREWCES SYMBOL T LEN VALUE DEFE REF ERERCES 
DSDR1 A006 OF6E 0478 0478 1126 A 0013 13890 1358 0282 
DSDR2 a 001 OFAS 0487 OF B& I21 A 001 189% 14359 0271 
DSDR3 A O06 CFB 0473 0486 is A 00% oOnpoi 0265 0278 
DSK A001 16D6 0877 6850 LEVEL A 001 1856 0992 0987 
DSKBSY A 001 %ABO 1262 1223 LIBE aA 001 1689 0888 0858 
DSKCHET A007 1B0B 1310 1224% 1233% 1281* 12528 LIK C 00% 0216 0012 0333 0573 0730 
DSKCYL a 001 1803 1297 L101 A003 ASA 4225 1234 1318 
BSKDRY £2 00% 1801 4298 0050* C&65* 06607* 0645* 1293 1267 Lr02 A 003 1888 1282 41315 
OSKFCT A 004 %WaABF 3245 {203% LIO3 a 003 A8B 1248 1316 
DSK?PLG A 001 1BC2Z 4296 1390 LIO4 A003 Wa7cC 4239 1322 
OSKHLT A OO TAB6 1265 4235 1258 1263 LNGTBL & 001 149512 1093 4088 
-BSKH1 A 004 12aCB 14272 41276 LOAD © 004 O22 06016 6954 0958 0963 1413 
DSKH2 A 008 4AC1 7269 1273 BACHE A 00S YFFO 1805 
DSKIO1 a 00% 488 4217 1274 BODEL C 001 9200 0010 0051 
DSKIO2 A 0O# 1A2A 1207 42%5 MODELD A GC1 OA53 0060 6052 
DSKSSG A O0& 141B5E 1326 47280 HOVID a& O08 OC77 6223 01893 
DSKBUB A 004 141805 1299 12826 SSG & 001 4707 9892 C883 
DSKOFS 4 602 4884 1350 08729 0673 0485% SSGCE BA GO4 172C 0906 0935 
DSKSEC A 0801 1804 1298 GO377% O0647% OB87S* 1219 MNSGY & 030 OF26 0O348 0358 
DUAP € 0041 2020 0019 ‘ ESG? & 0032 4716 o8sga 0368 
D¥YFLG a 002 GEBS 0395 O146* 0796% O0208% 0232% 0239 02438 0292% 0256* 0296% O3Gu% 0309% 03274 HSG2 AGO8 475A 06926 6842 
G385 0385* ' HYCL & 007 &93C 1085 16502 
DVTBL A 001 SEDS 0425 00532 0728 | BYCUSF & GOW OBBE 6170 0768 
DZERO A 001 1B6F 1337 0951 7066 ' BEPTR & 007 GDEA 6308 0302 
D51 A 003 O81B 0038 0862 oxi A QO8 GDB 9328 03714 0316 
EIGHT A O02 i1B6E 1336 0083 8286 0338 0366 dEG? & 802 iaBTC 743485 11474 
EMPTY aA 001 OEK& 03561 O18 EEWDAT A OC6& 4IFFC 74609 
EXD & 001 1IDFE 1396 | #EiT 4 001 165D 0837 0822 0875 0978 6927 
ENT? A 009 OfC12 0191 O01&8S* 0750% 61571 ; HFLG c¢ 001 6020 90795 C646 0657 0661 
ENT2 A 00S OCiB 06192 0168* 0188 i BOPDT A OO 131250 90772 0693 
EsaP A 00% Oa00 0003 , NOPDTM A O16 15385 0761 0718 
ERSSG A 00% OF39 0355 0078 ESD & COG 118F 0657 0651 
£1 A 00% 10CA 0577 O461% BSD A 023 1598 0760 0665 
errr A 001 2B7B 734% 0750 0805 1026 1107) «91272 ! NSLEV A 008 1829 0988 0967 
FFLG C 00% 60080 0793 C809 90833 90948 90973 NxT2 A 00% 4665 O86 0862 
FLGi8 A001 GAOE 0030 0248 0255 06459 | RXT2Z A 003 167E O847 Osag 
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CLI O04 XRD ACP ® JUMP OVER ANY COMMAS | 
BE CKBLK ; tet 
La 149 XR19 gXRI POINT AT. 2NO DIGIT 
8 NEXT 2 
cul OC oXR1D oCoee - IF NOT COMMENT CARD, BRANCH 
BNE CKCHN oe 
MVC 80 X* 20B* €882, INPUT 287 MOVE DATA TO PRINT DATA FIELD 
8 PRINT PRINT COMMENT 
8 NEXTR : GO, READ NEXT CARD 
cic 71 eXR1) eCHAIN SRANCH IF NOT CHAIN CONTROL CARD 
JE EEEE ae OF EITHER // CHAIN OR 
cic 6(1¢—XR1 3, CHAIN “7 CHAIN FORMAT 
BNE NEXTR MEANING. oS CARD, GO GET NEXT GONE 
MVE CTRe2 SET UP FOR 48 CHARACTRR CHAIN 
CLC 1203 9XR1) 90220 . IS IT UCS CHAIN? 
JE OoDDD OF EITHER 
CLC 10€3eXR1)¢ 0120 FORMAT 
JNE PTIMG IF NOT, GO LOAD THE TWO CARDS 
MVI 0 oCTR,S SET UP FOR UCS CHAIN 
MVC R2SAVI2Z }, 1MAD24 POINT AT FIRST 24 BYTES OF EMAGE 
8 COREAD . GO READ A CARO AND RETURN 
t R2SAV eXR2 POINT AT DESTINATION, IMAGE AREA 
LA INPUT #46, XR1 SOURCE ADODRESS-1, LINKAGE TO PACK 
’ MVI PKLEN,48 SPECIFY LENGTH OF 48 FOR PACK ROUTINE 
8 PACKIT GO PACK OATA INTO IMAGE 
ALC R2SAVC2 9 .N246 POINT AT NEXT 26 BYTES OF IMAGE 
SLC CTRILDs NL CONTINUE UNTIL IMAGE IS LOADED 
BH RDCD 
B NEXTAa _ CONTINUE LOADING ERAP 
oC AL2ULMAG4239 ae 
OC —._—«s EL 2° 248 
oc CLS *CHAIN® 
DC DL3*220° 
010CT70 O1LAPRTL O1LAUG71 PROG ID CERP-5 
816760 818945 818817 PAGE 1 


sa at ERE NRE 


IT 56625 AS entian  Se* * 


en a a 
; 
:* @ 
a 


ERPS 


CARD ERAP ~ ERROR RECORDING 


ERR LOC OBJECT CADE 


‘9000 
0000 
0004 
0008 
o00c 
0010 
0014 
ool7 
0018 
oo1F 
0023 
0027 
OO02A 
002€ 
0031 
0034 
6038 
6038 
003F 
0043 
0046 
OO4A 
004D 


0051. 


0057 
005 
0060 
0063 


0067 
OOGA 


CSE 


0076 
OOTA 
OOTE 
0082 
0085s 
0089 
oosc 
9090 


DATE 
EC NO. 


186 * THE FOLLOWING IS THE RESTART ROUTINE IN Low cons 
a87 n x*0000* 

CO 87 0380 188 ENT RESTART ERAP UPON SYSTEM RESET/START 

34 08 0013 189 TEST st BRBK+3,4 ARR PREPARE TO RETURN TO CALLER 

30 00 1007 190 SNS TEMP,X*00* CHECK TO SEE IF VALID ENTRY 

38 80 10D6 292 TBN TEMP~1,Xx*80° IN ROTARY SWITCHES 

Co 90 0000 192 BREXK «= BF tt IF NOT, RETURN TO CALLER 

FO 38 3C 193 HPL R934, xe3B8 HALT -- DISPLAY *HF® 

30 00 1007 19¢ SNSSW SNS  TEMP,x* Ou" SENSE THE SWITCHES 

38 80 1006 195 TBN «= TEMP=1,,.X 80° ARE SWITCHES SET TO ENTER OPTIONS? 

CO 90 0008 196 BF sé T +4 IF NOT, RETURN TO CALLER 

3D Fi 10D6 197 CLE = TEMP-1,°F 1° OPTION TO TURN ON A SWITCH? 

F2 81 0A | 196 SE SWON 

3D FO 1006 199 CLI TEMP=1,x*FO* OPTION TO TURN OFF A SWITCH? 

F2 81 CA 200 JE SWOFF 

F2 87 33 201 Jj HALTSW. 

30 3A OCSC 202 SWON MVE = SETIT»X*3A5 OP CODE FOR ON 

F2 87 04 203 J SWOFF 44 

3C- 38 00SC 204 SWOFF MVI  SETIT,Xx*3B° OF CODE FOR OFF 

3D 08 1007 205 CLI TEMP, x* 08° . 

f2 84 21 206 SH | HALTSW 

3D 00 1007 207 “CLE TEMP,Xx*00* FLAG REFERENCE TO SWLICH O AS ERROR 

F2 81 1A 208 JE HALTSH ; : 

C2 01 0060 209 LA MASKS-1,xR2 

OC 00 0058 1007 | 210 MVC = - SETET-1(19 TEMP 3g a 

1C 00 0050 00 211 - MVC  SETET¢1.*-(1,xXR19 = INSERT PROPER MASK 

3A 00 0€ED3 212 SETIT SBN SWITCH, *-* SET THE PROPER BIT ON OR OFF 

FO 3C 3¢ 213 ._ HPL X*3C*,x*3Ce 

CO 87 0017 ‘ 214 B SNSSH eC GO BACK AND CHECK FOR “OTHER OPTIONS 
215 oe 

FO 7f 76 226 HALTSW HPL = -.X*76%,x¢7C® HALT *€2* ERROR IN SWITCHES 

Co 87 0017. _ 217 . 8 “SNSSW a ; 3 

- QO6E 228 MASKS EQU * | WASKS FOR. SWITCHES. FOR INSTANCE» © 
0402000000000000 0075 219 © DC  xXL8*0402000000000000" SWITCHES 1 IS. BIT 5 
a -- 220 ; oo 
220. ti; ; 
221° SOCHEREESEESES8SESE 2550905025005090090005 0854 2900989058 25598 FONE EEEEE ES 
222 * MMDDYY * ON ENTRANCE: XR CONTAIN A PTR TO LOW @ BYTE OF START * 
223 Seeeeeesese | OR END DATE TO BE COMPARED AGAINST. * 
224 * * 
225 @ ON EXIT = THE CONDITION REG WILL BE3 : ¢ 
226 * LeHIGH +- THE DATE ON SIP CARD IS HIGH @ 
227 * 2eEQUAL-- THE OATE ON SIP CARD IS EQUAL? 
228 * 3.L0W -- THE DATE ON SIP CARD IS LOW * 
229 + * 
230_* * 
231 * 
232 ¢ * 
233 FECES SESE SEES ESSE SES SESLSE LESSEE SE SIEVE CESSES SELETESESSESERSEE SHES KESRERE 
0076 234 MMODYY £QU * 

34 08 0093 235 ST  § MMDOX3 ARR 

C2 02 025A 236 La INPUT 490 »XR2 LOW @ BYTE OF DATE ON SIP CARD 

6D 01 05 05 237 CLC 502 9XR19 950 eXR22 = VEAR 

f2 O01 OB 238 _ JME — MMDOX 

6D 01 01 01 239 CLC 102 XRD 911 XR2I MONTH 

F2 O1 0% 240 JNE § MMDDX 

6D 01 03 03 2-8 CLC =. 3312 yXRLD93CeXRZ9. DAY 

CO 87 0000 242 MMDDX = 8 —* 

0093 243 NMDDX2 EQU. #1 
28no0ve9 17APR7O 24SEP70 O10CT70 OLAPRTL O1AUGTI PROG ID _—OERP-5 
816559 816777 816760 . 818945 PAGE 


TOM MAINTENANCE DIAGROSTIC PROCRAN 


ADDR STMT 


816667 


ae gee ca eer oem datas jag. sn ee 


ANALYSIS PROGRAM 
SOURCE STATEMENT 


818817 


PARTY NO. 
PAGE 





250978 | 
ia 


1A 








1 NEN RMR ORI ETRE NE ET 


18M MAINTENANCE BEAGNOSTIC PROGRAN PART NO. 2589748 
a | Nae Sean ie | | PACE cet 
- €APS CARB ERAP ~ ERROR RECORDING ANALYSIS pRocaan : 
€RR LOC GBISECT CODE ADDR STAT. Sounce STATERENY 
> 245 096998 090944094065009999080000 640085944404 5069040250540444ES EES EEEEES 
an 246 © MFCUIO SUBROUTINE * GNTRY POLNTS * 
oe eee 2a] 00006900006490490860% * 
oo 248 * le MFCUPH + 
age Ot TEE 249 @ Ze MECURD eo 2 
‘ ches ae a: 250 s ; 
s 5G § 251 ¢ MFCUPH ~- READ»PUNCHePRINT FROM SEC. HOPPER INTO STACKER 3 > 
a a 252 ¢ * MFCURB IS CALLED IF - 
es 2 253 & & . NO CARD IN WAIT 2 * 
= . : ' ¢ a3 * 8 . CARO IN WAIT 2 IS NOT BLANK 
oe ves 255 © . 
ge 256.2%. * HALT ~E€0- If MFCU NOT READY OR ERROR, TO RETRY © 
‘fe . 257 @ RESET WALT * 
es 258 ¢ _  * 
Spgs _. 259 ©  MFCURD -~ READ FROM SEC. HOPPER INTO STACKER 2 2 
Cc 2 260 * * HALT - EO- IF MECU NOT READ OR ERROR, TO RETRY © 
ce eatn Z : 261 @ - RESET WALT * 
oe 262 © ¢ 
£ “ 263 Stress 4eSESeSeSt 4444549 UE CETOECCES DRESS SOR SSE SEE OSE ESSE SES TEERESSEEESEE 
cea 0094 264 MFCUPH EQU * 
oe es . 0098 265 USING MFCUIO, XR} 
é 0094 C2 08 0098 266 LA MECUIO,XPA 
6098 74 08 38° 267 st MPCHKAls XRD ¢ARR 
oe 2098 268 MFCUIO EQU — 
ae: 0098 269 MPCH3 = EQU : 
0098 7O F3 89 - | 270 SNS HSTATC MRA MORSE eee 
; OO9E 78 10 88 271 TEN «=-MSTAT-1¢ »XR13.eX 20° TEST FOR CARD IN WAIT STAT2 
2 OOAl £2.10 03 272 JT NPT HE bis “ae oo a ee 
os, - OOAS 273 MPTH2 equ e-; suse 
fe ‘9044 DO a7 39 ate - B+ MECURDE SXR29 ae 
38 OOAT 7C 60 15 | 275 MPCHS MVE -MFCNT( oXR1) 096 TEST FOR BLANK CARD | 
ae OOAA C2 02 OIFF 2% LA RDGUF-1 e XRZ —— Sao 
op DOAE BD 40 60 . - 297 mPCH. CLE OC» RZD eE* 8 
t 0080 276 MFCNT €QU 2 
‘ 0061 D0 01 oF . 279- BNE: MPCH2(,xR13 ue 
eee 0084 SF 00 15 3A 280 SLC —- MFCNTO.2 KR19 sRONEC 5 XRAY 
3. 0088 bo o1 33 _ 282 BNZ . MPCHIT,XR2? : ° ; 
~ "0088 D1 FB 53. 282. TIG MFCUNDE » XR29oX* FBe 
Q08E 72 Fe BY 263 LIQ  PTBUF AT, ARIS, XESS 
9. ~- 00C1 72 FS a3 284 LIO = RDBUF at, KR19,K* FSe 
. 00C4é Tl F6 85 285 L10 = PHBUF aq xR19 ,X* Fee 
~- - 0007 F3 FF a7 ; 286 SIO —-X*87* ox*FFS PRINT BUF 2, PUNCH, REAO FROM 
» Se _ 287% 3 | SEC HOPPER 
a eee ere 0OC9 288 PSTACK EQU 4: 
" @0CA DO 87 60 289 8 MFCUER(y XR STACKER 3 
2 00CD 00 87 00 290 B MPCH3{ eXR19 . 
. - 90DO0 CO 87 0000 . 208 B 2% 
oo Fe 0003 292 MPCHxXa EQU  ¢e-] . 
> i 0004 293 MFCURD equ. 
. ag 0005 294 MONE €QU0 Se, 
00D4 C2 01 0098 295 1A ss MFCUTO, XR1 
> - 0008 74 08 52. 296 st MROXA (> XR19 PARR 
| 0008 01 F8 53 - ‘297 MFRDL = =6TIO = MFCUND(. , XR19 X* F BE 
- OODE 72 F5 83 298 LIO =ROBUF AC» XR19_ X*F5® | . 
¥» -—-« QOEL F3 FO 06  2990— SIO =. X*06* »X* FOF STACKER 2 
ee. ea OOE3 300 RSTACK EQU #-} , 
Uy OOE* DO 87 60 301 8 MFCUER(» MRED. 
> OOE7 0G 87 40 302 8 MFRD1 ( yXR22 
OOEA CO 87 0000 303 8 to# 
on, & : OOED 304 MRDXa equ 8}, 
a... OOEE 305 MFCUND €QU <«  . 
, OOEE 74 08 TF - 306 - $f ERXAl » XR192ARR 
OOF1 SF O01 7F &1 307 SLC ERXAL» XR 199 THREEL » MRI} 
3 OOFS 75 02 7F 308 L ERX@( gXR1LI,XR2 . 
OOFs F2 87 18 309 - J MFERL - 
ae OOFB 310 MFCUER EQU *# . MFCU ERROR RECOVERY 
3.) © OOFB -74 08 TF 312 st ERXal 9XR1) g ARR 
OOFE 01 FF 63 312 TSTO TIG  TSTOCgxXR1D,X*FFE? 
2 DATE 28N0V69 LTAPR70 24SEPTO 010CTT0 OLAPRT1 01 AUG71 PROG ID OERP~5 | 
-  £C NO. 826559 816667 816777 816760. 818945 818817 
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Te EE EERE ap ee ee ERE EA a ea 


PAGE a 











, IBM MAENTENANCE DIAGNOSTIC PROGRAN PART NO. 2589748 
> Pee a : ae ; PAGE . 2a 
ERPS CARD ERAP - ERROR RECORDING ANALYSIS PROGRAM 
_ | : 
ERR LOC OBJECT CECE ADDR STMT SOURCE STATERENT 
» | | 01023 313 Tste eau Os te ok | | 
0101 70 F3 89 314 SN " 3 ‘ . 
0104 78 40 8é6 - 315 TBN MSTAT-10 eXR19 9 X* 40? PRINT BUF 2 BUSY 
2 0207 DO 10 66 316 BT ae e i as | 
OLOA 75 02 7F 317 t RXAEs ° 
010D 79 C& 89 318 TBF. MSTAT(,XR19,X*C6* FEED »PUNCH READ, HOPPER CHECK 
. % 0110 EO 10 63 319 ST 3¢oxh29 
yy a: 0113 320 MFER1 EQU 
Lage 321 2 MECU SEC; NOT READY OR ERROR ON MFCU SEC. 
iS 0113 FO 38 5D 322 HPL -X*50* x*35¢ HALT -HS— 
' es 0116 £0 87 00 . 323 8 Of _XR2) 
i: 0119 0000 O11A 324 ERXa oc XL2¢0# 
: g 0118 0003 011C 325 THREE oC t2e3e 
0110 0200 OLLE 326 ROBUFa OC AL2(RDBUFS 
: 011F 0280 0120 327 PHBUFa oC AL2 (PCHBUFS 
: 3 C121. 0200 0122 328 PTBUFa =60C° = AL 2(PTBUFD 
oe 0123 0000 0124 329 MSTAT DE xL2*°Q° 
0200 330 RDBUF equ x*200¢ 
i g 0280 331 PCHBUF EQU  x*26808 
i 0200 332 PTBUF €Qu = K* 200° 
; 0002 333 orop xRi | 
| @ 334 oh a ae 
‘ . - 0125 0164 335 CNTR DS CLées ‘ 6% COUNTER FOR PROG @ 
0165 O16A 334 STRDAT DS CLO 
3 O16B - 0170. 337 ENDDAT OS Ctd 
| rere 0171. , 0872 338 CNT DS cul 
oO $ ‘ 
| Pa - : 
all - 
Oo 
o. | S 
328s 
T7 o7 
ss 
g 
| i 
a 
DATE  28NDV69-«ATAPRTO. = 24SEP70. —-OLOCT70.—-_« OLAPRT1.—sOMAUGT -BROG 1D OERP-S 
—€C NO. 816559 (816667 816777 816760818945 8188? PA : 


SCCHCHCCHOSCSESOSOSSCOOSCOCOCOSC SOO CSEEOSSEEE®S 















@eeeeneo0eoeaenoenaenoneneneneneg ee eee eee eeoeoeee ee 8 6 eo 
| 
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{ 
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Or... 


ad 


TBM BAINTENANCE DIAGNOSTEC PROGRAM 


ERPS CARD ERAP — ERROR RECORDING 


ERR LOC OBJECT CODE ADDR STMT 


o37c 
O37C 


340 
341 
342 
343 
34% 
245 


Co 87 0860 
0380 CO &7 
0384 CO af 
0368 CO 87 
628C CO af 
0390 30 E2 
6394 38 08 


0296 F2 


on1ls 
0014 
ODi4 
o014 346 
1007 B47 
3006 BSE 
$0 GC Bes 
































O2¢8 BC Gi OC3B2 359 
SSF BO 8% OC22 351 
GO2A3 3C SS? OF5F 352 
ObbT 353 
FO Fo TC 254 
OF G2 CED4 GEDG 5 
CO 67 GoO04 ? 
30 40 G2FE 78 
OC 82 OfFE 5% 
Go SE OFCR 56 
OF G4 é2 
3S Gé aie 
Fe 90 3 
el 
ae 

3 

G 

a 

gS 

@ 
t : 
O4CTF B74 
Ce G2 467 S 
fre ce BP oOo4 & 
O40F £0 87 oon ST? 
378 
37& 
oc QEAO OPSF BTS 
Cz OE SES 
35 SE 38h 
F2 i 382 
oo HEAG Ofal 383 
@O Si OYSs3 SRS 
FO FO OS 385 
CO BP O8CF ZRE 
3D 4 Of mF 
CGO Gi 8407 1& 
289 
O435 BC if OFSY 339 
Cea, C2 G1 G2SR 29k 
O465 C2 OF Loot 392 
O449 €O SF OC9B 393 
230% 
0440 2C €0 GAPE 335 
O452 C2 OF 0225 396 
O*55 C2 G2 Lob? 397 


2998 
O459 AE OF 399 
C450 Fe 20 O8 456 
O460 7D FF O95 40% 
9663 Fe 61 05 #92 
C466 SE 09 G0 OFES O23 
O468 D2 01 O12 #& O04 
OeS5& GF OO 405 
0674 TO OL 408 


“rt 


DATE 
EC RO. 


2ENOWS9 
8165593 


LIAPR TG 
816667 








BWALYSIS PROGRAK 


SOURCE STATEMENT 


ENT 


TMeat 
okie 


£9 
wy 


ry 
nF ew 


mt 
iy 
Be 


URPXRT 


Z24S3EP7O 
816777 








G X* 380-4 
RECOVR 


SPACE 
SPACE 
SPACE 
SPACE 
$ TEMP,xXt Eve 
N FEMP-1_X' GR! 
P5203 
i LOOP Zi~ Sel 


aU T CTRX}be 132 


Flee] K's7® 


L KP TCR EKETCE 
GC  FLAGSEZE FLAGS 


im Pt 


awd OT} 


CARDESEE, £*Z5F3 
CARR DH 946 RR 1 
CERD-O5 ¢ Te wt 
ES 
CEEDESE Pe Carne] 


PCH 
XFO3* 
BS 
CHRG-1—eCe * 
BS 


eX 8 7C#® 


Bg E PRLEN,I& 
L& INPUT 49 SiegkRi 
La PUSTHP » XRZ 
é PACKET 
INCREMENT 
EVE CHT «6% 
Lh CNT R63 ae 
LA POSTRP sx 


OLOCT7O 
8LE7TE0 


ALC OCB eXR24,06 
JNO URPRL 

CLe GEekRI}, 255 
Je URPKL 

ALT Of gXRIP,OKE 
LA LEeXRDI,RRE 
Sic CAT pONE 

BRE URP K2 


OLAPRT 
618945 





eKRZ 


CL AUGTSE PAGS LG 
188i 


PART NG.W 2589748 
PAGE 3 


THES MUST REMAIN AT 
PARITY RECOVERY 
SPACE & LINES AFTER COMMENTS AND 


X®OZ7C® FOR BAD 


RESTART. 


LEZEN LIE 05, 







OF EP AP 
t 
f 





FLAGS 38 
START i 
TATE ; 
a 
S#EYCH GEFGRE REAGING CACH CARD ; 
t 
i 
HOVE CARD DATA TO *CaRot i 
LGAD ALGRESS OF ZND BYTE OF *CARDE : 
MAKE SURE CARD HAS ‘H#® IN COLUMN 2 : 
i 

USERS S JAS Bia Nis SEE if 

CARD EF §Q GO PUNCH ERB 
HALY OF FOR ILLIGAL CARD. : 
BG REAS ARG { 
SKIP YE i 
+ 
{ 
' 
ft ™ Be a4 "6"; pte = e i 
PROR 16 COLUANS 24 © LESAGE BYTES j 


SOURCE 1. 


DESTISET EON-+ TEMPORARY 





BOO CHE TG CHAR GK? 
TNCREMERT CHIR @ 
CHETH LOOP END 


PREC IECARP OPTI FI ALTE ORGS cre RE Te NN TE ma nem oe ee ne emer ee 


oe 


« 


. 
- 


va 


ae 


4 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


ERPS CARD ERAP ~ ERROR RECORDING 


ERR LOC GBJECT CODE ADDR STHT 


407 > 
G08 wee 
40¢ 
&09 


SEAS “£46 
O47E SC F? GEOF & 43 
















0482 30 FE 10D6 ale 
O486 F2 81 OF 413 
C489 32 FO 1Odé &1L& 
C480 Fez O1 04 415 
O490 BSB 2@ i906 &i1& $8 
C494 38 CO LOGS &h7 
S48 OC OL SESE Hi ala 
G49E C& O23 GESE LCbe &LG 
O4b4 Ge OF Cred Tone £28 
& 2k % 
Of OF GESL UFBE &22 
2D FO 1GDE s 
CO 684 0400 
Bo 3 2 
CM && Sek 
Gb o4Ane 


PTO TAN Oo 
Pee DTA OPED 





3,69 bh 
MeO OG 2 
OGEI £2 SNE 
O4FS OC ANE 
O4FA C2 Ld 
GFE CO = 
O802 F2 JN 
9505 of bts ave 
CSCE $46 MNDDZ EQU 
ose C2 ba 
OSGF 34 Ss} 
#OR Tk 
mR PREP 








be 


De 
£3 
wed 
oe 
he 
ro 
22 Ce 
26 30 
Zé Of 
ZO iC 
U5S35 OF 
CRAB. 20 
2S3F Co 
43 0:5 

3 

EF 

5 


WUT Un lp aoa 


Oo oe rt 
uf 


F2 


DATE 2ShO¥69 LTRPR IG ZESEP TG 
‘2 RO. 816559 2LGSET Rieti? 


oy 











PUT HONT 


MYC 
MYT 
Cle 
JE 
CLi 
JRE 
SBF 
SBE 
RYE 
RNA 
MNZ 
MON a. 


fit 
oe 
a) 





OLOCT TIO 


ELG7Ss 





ANALYSIS PROGRAM 


SOURCE STATEMENT 


He DAY, YEAR INTO 


POSTHP(35,CARD 
CARD-1,C?7t 
POSTNP=35X°FBS 
SBEEXP 
POSTMP~1,X"F 9 
SBFEX P+& 


POSTHP=1-.xX*382 


POSTMP~ 4. X'CO# 

ieee ehEGZ 
ARO 2yPOSTMP-} 

Cease on npei 


VAG uM: s 


pet PPT TS 


go LM EDLY 4 


DAT SykRE 


pany 





Gb gi NPUT+O5 


r pi 25, PINS aT 
oUEYE Legit @ KRG SD 
Cus PC LEOUE 
DUMYs ABE 

AB 

UPOP ea? 2s. CURT 
T2sSeBl 2), UP GTeS 
wet EEE gHEGE 


AB 


QLAPREE 
22965 


SRAU CTA 
248847 


PART WO. 2589748 
PAGE 3A 


CARD IN MMCDYY FORM FROM MDY FORMAT 


PUT ABY INTO SOSTHE TEMPORARILY 
YEAR TN 7OeSs 
GET °Fe° AND 


'FO® EXCEPTIONS 


TURN FB GR FO IRTO £0 OR EL 
MAKE LEFT HEX BDIGET G3 
PUY FeS INTO ZONES 

PULL SHITCHERRE 






tr 
m 
mud 


STARRY DATE 


w 
my 
wnat 
‘se 
= 
an 
os 
a 





25 PREAT POSITVICN > LBZ 
ZF SO, SREP THEY CRINT FOSTT ION 


£5 TRE COUNT = 2557 
TE SO, SOON®T PRORE MENT 


PROG ID 


OERP$S 
PAGE BA 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589748 I8M MAINTENANCE OIAGNOSTIC PROGRAM PART NG. 2589748 
PAGE & | PAGE aa 
ERPS CARO ERAP — ERROR RECORDING ANALYSIS PROGRAM < ERPS CARD ERAP — ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE AODR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
0558 OE 00 0000 OFBB 473 UPDT ALC =*(1),0NE ® O63E CO 01 0632 541 BNZ LOOP LOOP *TIL FLAG 1S ZERO 
O55E 36 O1 OFTA 4&74& AB A NEG 1, XR1 0642 0C 05 ODA8 0000 542 MVDV MVC LINE+6(69,%-* ° 
0562 OF OO OEBD OF8s 475 SLC CTRIL),ONE 543 
0568 CO 01 O52A 476 BNZ t00P13 2 54m 2 
4&77 545 * PUT O*S AND 1L°S INTO "LINE® FROM 2 SENSE BYTES 
478 * PUT IN DATE 546 % 
: 479 * g 0648 C2 02 ODC4e 547 LA LINE436,XR2 LOAD RIGHTMOST BYTE OF DESTINATION 
os 056C OC 05 OOFF OFAO 480 MVC LINE*93(63,CARD PUT DATE ENTO CARD FOR WORKING 064C CO 87 0048 548 8 BINARY 
0572 OC O01 OEF01 ODFF 482 MVC LINE+95(21,LINE+93 HOVE YEAR RIGHT 2 0650 38 80 OFEBC 549 JBN OQRSS-3_X" 808 BSCA P 
0578 OC 01 ODFE ODFD 482 MVC LENE¢92023,LINE4+91 MOVE DAY REGHT 2 3 0654 39 70 OFBC 550 TBF ORSS-3,X*708 
O5S7E 3C 61 ODFC 483 — MVI LINE€90,C%sF* PUT IN #°S 0658 F2 90 13 551 JE REGSNS 
8562 26 @) SOR 8% MYT LINE#+93 90° 4? 0658 3C 40 O0C4 552 MVE LINE4#34,C% ° YES» BLANK SNS 1 
’ 0586 38 C4 DEDZ 485 TEN SWITCH, NOPRNT BRANCH IF NO-PRINT SWITCH IS ON g O65F OC O7 ODC3 ODC4e 553 MVC LINE+33€8),LINES+34 
058A CO 10 OSDA &86 BT LoOoP1LO 0665 35 O1 SFI6 554 L RISAV,XR1 
O58E CO 87 OD1LS 487 B SPACE SKIP A LINE 0669 1C O1 ODCC 07 555 MVC |= LINE*# 300235 7€_ XRT) MOVE COMPLETION CODE 
$ 488 7 ¢ 066E OC 5F O2DB O£02 556 REGSNS MVC X*20B°1963,LINE+95 MOVE CONTENTS OF *LINE® TQ X*27C* ON 
489 * CONVERT TO DECIMAL AND PUT PRINT POSITIONS INTO *LENE® 0674 CO 8S? on1B 557 8 PRINT GO PRINT THE LINE 
490 * 554 
> 0592 €2 01 1007 491 LA POSTMPs, XRE LOAD SOURCE ADDRESS g 559 * BLANK GUT PRINT POSITIONS PART OF LINE 
+4 0596 C2 02 ODES 492 LA LINE+67 gXR2 LGAD DESTINATION a4 0678 3C 40 OFO1 560 MVE LINES+95_X*408 
; C598 3C 06 OEBD 493 MVI CTR SET COUNTER = 6 Scar O67C OC SE OEDO OFOL S61 MVC =—s- LENE4#96195},LINES95 
b O59E 8C 03 O1 1049 494 LOOP12 MVC 104,XR2),ZRSC PUT IN *,0008 & 0682 38 OL OEDS 562 ERP4 TBN FLAGS, TABFUL IS TABLE-FULL SWITCH GN?” 
0543 7D 00 00 495 CLI OlyXRi},X*008 IS SOURCE BYTE = 07 0686 CO 10 OT07 563 BT BB IF SO AVOID FILLING TABLE 
O5A6 F2 81 IL 496 JZ BLNK IF SO JURP OUT OF LOGP 564 
> OS5A9 86 20 O1 OFBE 497 LOOP1L AZ 1€3,XR2),NUMLCL) INCREMENT ZONED FIELD g 565 * FILL TASLE ~- STEP THRU, MATCH ORSS BYTES 
O5SAE 4F 00 00 OF 88 498 SLC  O€2—eXRLI,ONE DECREMENT SOURCE 566 * 
0583 CO 84% C5A9 499 - BH tooPil O68A C2 O01 1248 567 LA TAB eXR1 
5 500 * s O68E OC O1 LOD? OF8E 568 MVC = TEMP 2) sORSS 
OSB? F2 87 O7 501 3 CNT3 0696 OC O01 OFSF OFBD 569 MYC ORSS£23,QRSS—2 SHIFT Q & R RIGHT 2 BYTES 
O5B8A BC 40 O1 502 BLANK MVI Lt eXRZ2)~C* * BLANK OUT ZERO ENTRIES 069A 08 O2 OCFSC 1ODS 570 MNZ OQRSS<3,TENP-1 PUT IN 
e 0580 aC 02 O06 O1 503 MYCE OCB XRZ29—e 10g XRZ} | cc O6A0 O8 OL OFS8D 1005 571 MZN = QRSS—2, TEMP=1 SPECIAL 
C5CL OF 00 OEBD OF88 504 CNT3 SiC CTRt1),G0NE DECREMENT COUNTER Q6a6 O8 02 OCFBD 1007 572 NZ QRSS-2, TEMP FOR SUMMARIZING 
O5C7 F2 81 OC 505 JZ AC AND JUMP OUT TF ALL 6 DONE : ee O6AC O08 O1 OFBE LODT S73 MZN GRSS—1, TEMP : LATER 
$ O5CA 36 O1 GFTA 506 A NEGLeXRE MOVE POINTERS LEFT oe 06B2 4D 03 03 CFSE 574 LOOP6 CLE 364eXRiF,QRSS 
OSCE 36 02 OFBO 507 A HEG4_ XR2 06B7 CO 81 O6E9 575 BE ADDI 
05D2 CO 87 OS9E 508 5 LOoPL2 LOOP UNTIL 6 PRINT POSITIONS DONE : 0688 <0 03 03 1045 576 CLO =304,KR19,ZERO 
3 05D6 3C 40 ODCE 509 AC wVE LINE SS yX*® 408 BLANK OUT LEFTY MOST COMMA (9? : 06CO CO 81 CBFS 577 BE INSERT GO INSERT QRSS BYTES 
510 . ‘Le 06C4 D2 O01 05 578 LA 5¢,XR1} eXRL INCREMENT POINTER BY 5 
511 * PACK NEXT 8 BYTES OF *CARD® INTG *ORSS? ee 579 - 
a 512 * ee G6C7 34 O1 OFO8 580 St R2SAVeKRL 
OSDA 35 O01 OF 96 513 LOOPIO L RLSAVsXRI O6CB OO 01 OFSB 1029 561 CLC R2SAV(228 oe TABLIM TABLE FULL, CORE EXCEEDED? 
CS5DE D2 OL 06 514 LA 6E eg XRL) gXRL ALIGH ADDRESS ON RIGHTMOST-1 BYTE 6601 CO 82 66B2 582 BL Loore 
’ OSEL C2 02 OFSF 515 iA QRSS_gXRZ LOAD DESTINATION ADDRESS = 583 
; 516 *% 06D5 3A 91 OED4 584 SBN FLAGS» TABFUL SET TABLE-FULL-SWITCH ON 
. O5ES 3C OB OFS9 517 MVI PKLEN SS DEFINE #O0F BYTES C6D9 OC 27 0280 oF5B 585 MVC X%°2B0°L403,MSGCR 
s O5E9 CO 87 OCSB 518 B PACKIT GO PACK QsReSeS BYTES S O6DF CO 8TF ODLB 586 B PRINT GO PRINT MESSAGE 
OSED OD 03 OF BF 1045 519 ctc GRSS(4),Z7ERO ARE QeReSs & S BYTES = O7 06E3 FO 7C ST 587 HPL X*57* oX*7C# HALT DISPLAY *E3* FOR TOO MANY CARDS 
O5F3 CO 81 O7IA 520 BE BSCAEX IF SO, GO G“T A NEW CARD 7 OGE6 F2 87 1E 588 J 88 CONTINUE ON, DON’T FILL TABLE 
521. > 589 * 
O5F7 38 04 OFD3 522 TBN SWITCH, NOPRNT BRANCH TO AVIGD PRINTING IF NG-PRINT Paco it O6E9 70 FF 04 590 ADDL CLI 4&(pXREB,KSFFE 
CSFB CO 10 0682 523 at ERP4 SWETCH IS ONs TO PUT INTO TAB . oes O6EC CO 81 OTC? 591 BE BB 
524 *® PUT Q& R SYTES INTO LINE ; & G&FO CO BT O72 592 8 INCL 
OSFF 35 01 OF96 525 L RISAVeXRE a O6F4 4C 03 03 OFBE 593 ENSERT MVE 3€4eXRILB-QRSS 
0603 1C O1 ODAB OL 526 MVC =LINE*OC2Pe 10 eXR1} PUT 2 EBCOIC HEX (Q) INTO "LINE® 3 OSF9 4C 04 959 1045 594 MVC =. SESOXRLIL ZERO PUT 00000 IN NEXT TABLE ENTRY 
0608 1C Gl ODAE 03 527 MYC LINE] 2(2) 93 CeXRLE PUT 2 EBCDIC HEX {R? INTO *LINE® 8 O6FE 34 01 1027 595 ST TABEND, XR1 UPDATE ADDRESS OF LAST ENTRY 
7 060D 3C 5C cDCC 528 MVI LINE#42,C% ae PUT AN * INTO PRINT LINE j O702 SE 00 O04 OFES 596 INCL ALC 41 eXR1LE,GNE 
529 : O70F OF O1 OFS& CECS 597 BB ALC RiISAV(2)-EIGHT 
530 © PUY IN DEVICE NAME : 3 0700 OD 02 OF96 CECB 598 CLO RISAVE2),E8TH 
531 * 0713 F2 81 04 599 JE BSCAEX GO BACK ANDO READ ANOTHER CARD 
; 0611 08 O2 OEFD2 OFSC 532 MNZ FLAG, ORSS-3 MOVE DEVICE PART OF @ TO "FLAG? 0716 CO 87 O5DA 600 8 tocP1o 
0617 3D 08 OFD2 533 CLI FLAG, X* 08° BSCA? g OFLA 38 O02 OFDS 601 BSCAEX TBN FLAGS,ISBSCA BSCA ? 
0618 F2 01 04 534 JNE 47 O7TLE F2 90 OF 602 JF SPC 
; O61E 3A 02 OED4 535 SBN FLAGSsiSBSCA SET SSCA FLAG ON 0721 OC 39 O2CG oESE 603 MVC = X ° 270 * 4680583 -BSCAMG 
| 0622 OC OL O647 OEFCS 536 MVC MVDV4+502),DVADR a O727 38 02 OED4 604 SBF FLAGS »ISBSCA 
0628 OF 00 OFD2 1045 537 SLC FLAGELI,ZERO 0728 CO 87 OD1B 605 8 PRINT 
O62E CO B81 0642 538 Bz HVDV OTZ2F CO 87 C407 606 SPC 8 BS 
0532 OF O1 0647 OFOA 539 LOOP] ALC MVDV45023—-SIX ADD SIX TO ADDRESS o 607 
| 0638 OF OO OED2 oOFBS 540 SLC FLAG(1)I,ONE 608 @ PUNCH OUT ERROR RECORDING AREA 
@ 
DATE ? BNOV69 17APRT7O 24SEP70 GLOCT70 OLAPRTL OLAUG7TI PROG ID CERP-5 DATE 28K0V69 LTAPRTO 24SEPTO OiCCT7O OLAPRT2L @LAUGTL PROG ED OERP-5 
EC NG. 816559 816667 816777 816760 818945 818817 PAGE & | 8 EC NO. 816559 816667 BiGTW7T 816760 618945 81868137 PAGE &Aa 
4 ’ iyect 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589748 IBM MAINTENANCE CIAGNOSTIC PROGRAM cant NO. aneeis’ 
i PAGE 5 ® PAGE 
ERPS CARD ERAP ~ ERROR RECORDING ANALYSIS PROGRAM e ERPS CARD ERAP - ERROR RECORDING ANALYSIS PROGRAM 
6 ‘ 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
8 609 © , if 3 0811 08 01 0818 OLTA 676 MZN CDEORF41,X°17A° PREPARE TO PUT IN CyoDeEe OR F 
: 8 A 677 CDEORF SBN X*2DE*,#—* DO IT 
ce he . So oe oy a ioe etree Reteot Grea use. ee fi one 3 hs aise 678 cut xt78tKIESS MAKE SURE LESS THAN *FAS 
ENTSUM GO TO SUMMARY ; 2 O81F CO 84 0870 679 BH ENTSUM 
= ee — = cree oi LST ean FLAGS »LSTCRD | 0823 08 03 O2DE 0178 680 MNN. X*2DE%,X°17B° SET UP NUMERIC 
0742 3C 7C 0003 614 MVI =«—- X*003%,X*7C* TO PROVIDE SYS RES/START IN CASE BAD PARITY \ > eee ec a nate tae — tea dasa i oh ae sae 
@ 615 é 
0746 38 FO 0178 “618 TEN X®178°,X*FOF SEE IF COMMUNICATIONS AREA IS | 053i 3D £1 O2DE 683 EXCPTN CLI xX*2DE*,x*EL* IF E1 OR EO PUT IN FO OR FB 
074A 38 FO 0179 617 TEN X*179°,X*FO! VALID BY CHECKING FOR F IN Pg 0835 F2 84 0B 684 Jt GETYR | Beek 
€ O74E 38 FO O17A 618 TBN X*17A%,X*EOt LEFT HEX DICH OF EACH BYTE i bee 5 = a ae kp As 2X*EO 
*17B°,X* FOF OF THE DATE ; 
: cise se-f0 tre io Ten Rubrecsderos : | BeBe Sh $8 Bane cov Siw SEDE‘axtags runs 081 sn rages 
2 OT5A 38 FO O17D 621 IBN ¥* LTD , X* FOP ' 3 0843 OC OO O2DF OLTD ae SETYR VC X*2DF*,x*170* PUT IN ONE*S OIGIT GF YEAR 
O75E CO 90 6870 622 F14 BF ENTSUM | on Sie taceth eae 
623 
§ 624 * DECODE PRINT POSITIONS IN CORE TO ACTUAL PRINT POS FAILING oe 4 - ooee oo oe oe on oes Ses ueagse 
: 625 ‘ J < ? 
* *.XR 0853 3C 40 O2DF 693 MVI X*280'4+95,C® ® BLANK THE PRINT BUFFER 
e es 7 os a oy LcoP 29 ert etc eaar cece SKIP OVER IF OO 0857 OC SE O2DE O2DF 694 avC X*#280+94(95)_.X®280°+95 
: 0769 CO 81 O7A9 628 BE ERP 29 085D OF 31 0181 O1B2 695 SLC = X°181*(50) yxX*1B1° ZERO THE ERROR RECORDING AREA 
O76D 79 78 006 629 CLI Ol» XR1} ,X*° TBE OK IF GREATER THEN 78 08653 GF 05 O17D 0170 696 SLC KX*17D"(6),xX*L IDE ZERG THE BATE ca 
i : 97 B OD GO PROCESS THIS LAST® ENTRY 
> 0770 F2 84 07 630 JH ERPLI | 0869 CO 87 0413 6 f 
0773 7C FF OO 631 MVI OC y XRLD eX* FFP OTHERWISE ILLEGAL, SO SET 10 X*FF® eon : 
0776 CO 87 07A9 632 B ERP 29 
; ' * 699 *#* THESE THO INSTRUCTIONS ARE ENTERED FROM A BRANCH AT X*37C°. 
$ pile oS ne Ee os ee Shoes eit ie Feed Gaenis 1-4 INCLUSIVE, 700 *#* IF A PROCESS CHECK DUE TO BAD PARITY OCCURS WHILE PREPARING TO 
; 0782 F2 04 17 635 JNH  PLS116 ‘ THEN ADD 116 TO IT | 7OL ##* PUNCH THE E.ReAs, RECOVERY IS MADE WITH A FORCED BRANCH TO Xx*37C* 
3 0785 7B 08 CO 636 CLI OlsXRED sil IF S<il, ADD 104 086D 3C oO 0181 7O2 RECOVR MVE XtLAD'+4,X*008 ZERO THE ERROR RECORDING AREA 
6788 F2 04 19 637 JNH  PLS104 0871 OC 30 0180 0182 703 MVC = X® EAC *440493,X°1AD°44 FOR THE CASE GF BAD PARITY 
078B 72 10 00 638 CLI Of,-XR1),16 IF 1Z-16, ADD 116 O877 OC O5 0170 0145 704 MVC = - X* 1 7D*(6)_X" LAD® ZERO THE DATE 
, < ; iets 705 * THEN ENTER SUMMARY 
3 peer oe ae ee peo 7TOé6 SRA URKERA KAS ARKAALSLHERAARAKASAAKKARKL AAS SAKKALLHESS KEKE RSE SEAKEAERLESRRS 
0791 7D 18 00 640 CLI 0f,XR1}424 IF 17-24, ADD 104 oS oe — 
079% F2 04 OD 641 JNH  =PLS104 ? . A , 
; % O797 4E OG OO OECT £42 ALC Of ¢ XR1),0116 IF 25-132, SUBTRACT 24 (ADD 232) Lae SESHESESKESHREFERKSEERESKRSEREKESLERAESSRSESE SAKES RSEEKEREK SEL SE KCELSKS SEE KTEHEESSE 
O79C 4E 00 00 CECT 643 PLS216 ALC 0(,XR1},D116 ADD 116 ; 
O7Al F2 87 05 644 J ERP29 710 * ——— SEQUENCE THE TABLE —- sepia 
3 OTAG 4E 00 00 O€CE 645 PLS104 ALC Ot, XR1),D104 ADD 104 O87D 3C 80 0003 712 ENTSUM ue eog7t 20 pense AEStanr At 
O7A9 36 01 OF 8B 646 ERP29 A ONE» XR1 POINT TG NEXT PRINT POSTION he page o . ear ae es Prices care nue Ge ace 
: CTAD 34 01 OF96 647 ST RISAVeXR1 ’ ; 
; 0781 3D AQ OF96 648 CLI RISAV,X*A9" CONTINUE UNTIL ALL TEN DONE ee ie ae Oe ipgei oS pai ae Aa Re BEC ANNING 
4 . wy . 
ae ees ia6 i 0893 10 03 1045 08 716 CLO =. ZERDL 4)» 80 9 XR1) CHECK FOR ONLY ONE ENTRY 
’ 650 0898 F2 81 3B 717 JE SEQDUN IF SOQ OON'T SEQUENCE 
0789 OC 03 O1A% CLAD 651 MVC =—- X®LA9*®(4)_X*1A9944 = MOVE 4 USAGE BYTES OVER OB9B D2 02 05 718 SEQL LA 5(oXR1) -gXR2 pete < ear 
O78F OC 03 OLAD O1B2 652 MVC =—- X* 249 "§4+4(4),X*1A99+8 MOVE 4 USAGE BYTES OVER O89E 6D 03 03 03 719 SEQ2 CLC 344,XR19,30,XR29 ae 
| O7CS 3C 2E OEBD 653 MVI «CTR, 46 SET UNPACK CTR TO 46 rd did ae eens ae a ae Se ecrss Ceudenas z 4 
O7C9 C2 02 O1A0 654 LA X*LA9%*4,XR1 LOAD SOURCE ADDRESS 2 v s4ts 
O7CD C2 02 0208 655 LA X*2D3* €B,y XR2 LOAD DESTINATION ADDRESS-1 | Soe ec - oes ue ve SCS AOL NSA XZ} TRADE ENTRIES ' 
PA i ? e 
Deer gede ogee tee pane 08B4 E2 02 05 724 SEQ3. LA 5 (¢XR2)9XR2 NEXT ENTRY if 
0705 3C £6 0280 658 MVI X®280*,C' WE MOVE IN THE "W* FOR COLUMN 1 | O8B7 34 02 OFIB 725 ST R2SAVe_XR2 
659 * PREPARE TO PUNCH THE DATE | oaee _ a eee 1027 a oc ae aa 
6640 * PUT IN MONTH 
0709 OC 00 O20D 0179 66; MVC = K*2D0*(19,X*1798 MONTH i O8C5 D2 01 05 728 LA 5(,XR1) XR1 ON Ge a cnuee i 
O7DF 3D Fl 0178 662 CLI =-X*1789,x"F Le IS TENS COLUMN OF MONTH = 1 O8C8 34 01 OF96 729 st RESAV »XR1 N 
O7E3 CO 01 0803 663. BNE PC IF NOT, OON*T GO THRU CONVERSION ; O8cC OO 01 OF96 1027 730 CLC = RISAV(25» TABEND —-{ 
O7ET 3D FL 0179 664 CLE = X®179*,x*F le \ 08D2 CO 82 0898 ees BL SEQI IF NOT, LOOP BACK —~— 
O7EB F2 84 OA 665 JH DECA : 
| CT7EE F2 82 OE 666 Jt OCTA | 733 *  SELECT,CHECK, AND PRINT AN ENTRY 
| O7F1 3C 60 0200 667 MVI =—- X*20D*, x" 608 FOR NOV ' sb 
| O7FS F2 67 OB 668 Jj PC | 
200". x* Dor 08D6 CO 87 OD1S 735 SEQDUN B SPACE SKIP LINE BEFORE SUMMARY 
| OTFe 2 87 oa e70 Mee fh oe oe an Renae O8DA OF 01 10D4 10046 736 SLC CTRODEVE£2)eCTRDEV ZERO OUT THE TWO COUNTERS 
O7FF 3C FO 0200 671 OCTA MMVI X*20D*,Xx*FO® FOR OCT O8EO 3A 80 COEDS 737 SBN FLAGSsFIRST 
672 * SET UP DAY AND YEAR O8E4 C2 O1 1248 738 LA TAB »XR1 POINT AT TAB BEGINNING 
| 0803 OD 01 0178 OECD 673 PC CLC) = X° 178902), F3F1 IF DATE GREATER THEN 31, GET OUT. 139 © 
0809 CO 84 0870 614 BH ENTSUM O8E8 1C 01 1007 03 7&0 LGOCPZO MYC =TERP( 2) 034 XR) 
0800 3C CO O2DE 675 MVI = =-X*2DE*,x*Cot FORCE AT LEAST "CC® O8ED 18 00 10D6 00 41 MZZ  TEMP—1,O0C XRD) NOW QR IS IN TEMP 
RP- 
DATE 28NGV69 LTAPRT70 24SEP70 010CT70 OLAPRT2 OLAUGTI PROG ID OERP~5 | DATE 28NOV69 17APRTO 24SEP7O O1OCT7O oe eae Sree 1D OE Sex 
EC NO. 8)6559 816667 81677? 816760 818945 818817 PAGE 5 EC NO. G16559 816667 BL67TTT 816760 81896 
vig | 
a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART'NO. 2589748 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589748 
@ PAGE 6: : PAGE 6A 
ERPS CARD ERAP ~- ERROR RECOROING ANALYSIS PROGRAM Ly ERPS CARD ERAP ~ ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STHT SQURCE STATEMENT 
e 142 ¢ o SeSSeS « « * "0909 50 00 05 00 810 CLC 5€19XR1),00,XR1) COMPARE Q BYTES 
Be O8F2 SB O02 03 O02 743 MNZ 3€_XR19_20,XRi) a Se6Ss-.a-Se * SHIFT 2 SENSE O9DD CO 01 OATC 811 BNE DEVSUM 
OS6F6 58 01 03 O1 744 MZN Be eXRLPLTeXRLG o Seb ew 255% > BYTES OVER O9E1l 39 10 OED 812 T8F FLAGS,»NOCRD DON'T SPACE IF NO BIT DECODE 
OSFA SB O2 02 01 745 MNZ 20 ¢XRVP—914 sXRL? oe Se. we. SeSBe * 2 2/2 8YTES ; OSES CO 10 ODIs 813 BT SPACE 
O8FE 58 O1 02 00 746 MZN = 24g XRPFCOC XR} © 2 SSeSSe * 814 
0902 4C 01 O01 10D7 147 VC 1£2—XRLIeTEMP HOVE EN GR BYTES FROM TEMP 815 * ROUTINE TO DECODE SENSE BITS 
@ 0907 1C 63 OFSF 0 748 MVC = ORSS449— BL 5KR1I a 816 * 
O90C C2 02 CDA5 — 749 LA LEINE+3~ XR2 DEST-1 OSES 328 10 COEDS 817 BITMNG TBN  FLAGS,NOCRD * 
0910 3C 02 O€8D 750 MMVI = CTRe2 LENGTH OSED CO 10 OATS 818 BT ERPLS SKIP DECQDE OF BITS IF NG DATA FOUND 
€ 0914 34 O01 OF 96 751 ST RISAV,XRI SAVE XR1 OSfl OC 02 OA04 CE4SO 819 MVC §$143(2),BTBNAD MOVE IN ADDRESS OF FIRST (LEFT) BYTE 
0918 36 O01 OF88 752 A ONE - XR1 POINT AY SOURCE O9FT OC O1 OADE OFC3 820 MVC S$S24#5(2},SSTABA AND BIT MEANING-TABLE ADOR. 
Bere Co @eF CCDS 753 B UNPACK UNPACK Q ER O9FD 3C 93 OAODT 821 MVE S$S2+3 9X*93¢ AND FIRS EXFRY OF LINE 
€ 0920 OC O01 GDAT ODAG 754 MYC = LINE 45123 ,LINES PUT Q AND R INTO LENE ‘ OAO1 38 01 0000 822 SSL TBN = =-#-*,X*OL! 1S BIT ON? 
0926 3C 40 ODAS 755 VI LINE+3,Cc" ° OA0S CO 90 OAZ25 823 BF INC2 
156 OA09 OC 46 0293 0000 824 SS2 MVC X*27C 2423623) 9%—* MOVE IN TEXT 
€ 757 PUT IN OFS & 1°S OACF 3D D7 OAOT 825 CLI SS24+3 _¢X*D7* LINE FULL (4 ENTRIES)? 
758 % OA13 CO 04 O*1F 826 BNH  INC2-6 IF SO, PRINT IT 
0924 C2 02 ODBE 759 LA BITBGN+19,XR2 POINT YO END GF BINARY FIELD CAL7 CO 87 ODIB 827 8 PRINT 
€ 092E CO 87 0648 760 B BINARY PUT IN O'S AND 1°S OAIB 3C 7C OACT 828 MVI $5243 oX*7C! RESTORE LINE POINTER TO FIRST FIELD 
S 0932 38 80 OFBC 761 TBN ORSS-3,X*80O* fi OALF CE CO DAOC 103C 82S ALC S$S24¢3t1),THNTY3 * 
- 0936 39 70 OFSC 762 TBF QRSS-3,X"* 70! OA25 O£ O1 OAODE 103C 830 INC2 ALC $$245,TWNTY3(2) STEP TO NEXT SSTAB ENTRY 
€ 093A F2 90 1A 763 JF REGBIN CA2B OD O01 OAD4 OF 2A 831 CLC $$143,J31(2) END OF FIRST 4 BITS? 
093D 3C 40 ODBE 764 aVI BITBGN419,C° © 0A31 CO 81 OA56 832 BE TWICE 
0941 OC 07 ODBD ODBE 765 MVC BI TBGN¢18(8),BITBGNAL9 0A35 OD O1 CAC4 OFZE 833 CLC S$S1434J3(2) END OF THIRD 4 BITS? 
€ 0947 3C 01 OEBD 766 MVI CTRyel 0A3B CO Bl CASE 834 BE TWICE IF SO GG SPACE TWICE 
0948 C2 01 OF SF 767 LA QRSS»XR1 OA3F OD O1 OA0S OFZT 835 CLC $8$14+3,52(2} END OF SECOND 4 BITS? 
094F C2 02 CDBA 768 LA BITBGN¢15,XR2 0445 CO O01 OASC 836 BNE ONCE IF NOT THEN ONLY SPACE ONCE 
C 0953 CO 87 OCDS 769 8 UNPACK OASS 38 02 OCED4 837 TBN  FLAGS,ISBSCA 
0957 35 01 OF96 770 REGBIN L RISAVsXR1 OA4D F2 10 1C€ 838 JT PATTI 
2771 * SET REGISTER BACK 5 TO POINT TO PREVIOUS ENTRY OCA50 OF O01 OAD4 OFBS 839 ALC §$514+3(2),ONE MOVE POINTER RIGHT ONE BYTE 
c : CSS 7B OF CO 72 SBF O(sXRL}X*OF* LEAVE DEVICE ADDRESS ONLY IN Q BYTE OAS6 OE 01 CAOS OFBB $40 TWICE ALC $S$143(2),0NE MOVE POINTER RIGHT GNE BYTE 
OS5E 36 O01 OF 82 773 A NES5,XRL POINT AT PREVIOUS ENTRY Bens a UA5SC OF O01 OAO4S OF8B 841 ONCE ALC $S$143(23sQNE MOVE POINTER RIGHT ONE BYTE 
a 0962 38 80 OEDS TT4 TBN FLAGS «FIRST IF FIRST ENTRY ' OA62 OD O01 OAC4S OF3O B42 cLc $$14+3,J4(2) 
a 0966 CO 10 OAC2 775 BT ERDTB THEN BRANCH ‘3 GA68 CO 04 OADL 843 BNH SSI 
096A 5D 01 08 63 776 CLC = BL De XRLP SE e XRD COMPARE SENSE BYTES (THIS & PREVIGUS) 844 
996E CO 01 0909 777 BNE  SUMSNS $45 * PRINT SUMMARY 
Cc 0972 5D 00 05 00 778 CLC 5€19XR13,01,XR2) COMPARE Q BYTES & OA6C 3D 93 OAOT 846 PATTI CLI SS24+3 2X*93° 
0976 CO 0) 0909 719 BNE  SUMSNS OA7O CO 84 0D1B 847 BH PRINT PRINT ANY REMAINING COMMENTS 
780 OA74 CO 87 0014 848 ERP1L4 8B SPACE SKIP LINE 
€ 781 * @ 849 
782 * PRINT OAT8 CO 87 OSTA 850 B PRT 
OSTA D2 01 O5 783 PRT LA 5(oXR1L)sXR2 POINT AT PRESENT ENTRY AGAIN 851 
@ 784 * UPDATE COUNTERS 3 852 ERREREEEESEAA SRE REREEES CUSED SREEEALET LESS HEIELE ELE EEES EEE SEES EEETES 
097D 30 FF 10D4 785 CLI CTRDEV,X" FFP 853 
0981 F2 81 05 786 JE ERPS 854 * PRINT DEVICE SUMMARY 
0984 iE 00 1004 04 787 ALC CTRDEVs4E1,XR1) INCREMENT IF < 255 > OATC OC 10 O2A6 103A 855 DEVSUM HVC X*2A6°(17),TOTMSK PREPARE TO PRINT DEVICE ERROR TOTAL 
788 * PUT IN NUMBER OF OCCURANCES OA82 3B 02 COEDS 856 SBF FLAGS,ISBSCA 
ose9 OC 02 ODC8 1049 78S ERPS MYC LINE+3313),ZRSC PUT *O00® ENTO POSITION CA&6 06 20 O2A6 OF 86 857 LOOP23 AZ X*2A6* (3) sNUMLGL) CONVERT DEVICE ERROR 
€ OS8F 7D 00 04 790 CLI 4(_XR12_X*O8 OABC OF OO 1004 OF88 858 SLC CTRDEVt1},ONE COUNTER TO DECIMAL 
0992 F2 81 OF 791 JE EDT : OA92 CO 84 OAB6 859 BH Loop23 
0995 06 20 ODCS OF 86 792 LOOP15 AZ LINE4¢38(3},NUML(1} CONVERT TO ZONED DECIMAL OA96 OB O1 O2A4 OE04S 860 i7c X*2A4"*( 2) »BLANK BLANK LEADING ZEROS 
3 0998 4F 00 04 OF88 793 SLC 4&0 1_9XR1} eONE OASC CO 87 ODIB 861 8 PRINT PRINT THE SUMMARY 
09A0 CO 84 0995 794 BH LooPLs OAAO 3C 60 O2C1 862 MVE X*2C1L* »Ce—# CREATE AND PRINT LINE GF DASHES 
09A4 OB OL ONCE OED4 795 EDT LTC LINE#36(2) s BLANK BLANK LEADING ZEROS OAA4 OC 40 O2C9 O2C1 863 MVC 8=—- X*2CO# (65) eX*2EE° 
3 O9AA OC SF 0208 OEOL 796 MVC X*2DB°(96),LINE+95 MOVE "LINE® TO PRINT AREA OAAA CO 87 OD1B 864 8 PRINT 
09B0 CO 87 OD18 7$7 B PRINT PRINT IT 865 
0984 OC SF O£01 0208 798 MVC =LINE*95(96),X*27C°*495 BLANK LINE OAAE 38 20 OED4S 866 TBN FLAGSsLSTERR IF LAST ERRUR, GO TO PRINT SUMMARY 
9 O9BA D2 01 05 799 LA 5 (eXRLPXRE POINT AT NEXT ENTRY OAB2 CO 10 OCOT 867 BT SUMPOS 
O9BD 34 OF OF96 800 ST RLSAVsXRE TABEND? 868 
09C1 OD OL OF96 1027 801 CLC =RiISAVO2}, TABEND IF NOT, GO BACK OAB6 CO 87 O0D14 869 B SPACE SKIP 2 LINE BETWEEN DEVICES 
eS OSCT CO 04 O8E8 802 BNH LtooP2o OABA CO 87 0D14 876 B SPACE 
09CB 7C FF OS 803 MVI 50 eXR1) Xt FFE MAKE SURE THESE ARE NOT OABE CO 87 OBD4 871 8 comMPQ GO UPDATE THE 8:T MEANING TABLE 
O9CE 7C BB 00 804 MVE Oly XRLDgX*BBE EQUAL 872 
9 OS9D1 3A 20 OFD4 805 SBN FLAGSeLSTERR SET ON LAST-ERRGR BIT 873 KEES EEEEEESSS EESED SEEDS CESS TERE SHS EEETERESESERES ES GE FELEEE EERE ETEEES 
0905 CO 87 0909 806 8 SUMSNS BRANCH TO FENAL SUMMARY 874 
807 OAC2 3B 80 COEDS 875 ERDTB SBE FLAGSsFERST TURN OFF FIRST-CARD BIT 
a BOR CESSES SERS ESE SEESSS EETEEETS SEREE SES HEELERS EF RES SE LESER KER STE R ESSERE € OAC6 CO 87 OADB 876 8 CORD READ THE FIRST CONTROL CARD 
des 0909 809 SUMSNS EQU) *# OACA 3D 61 0200 877 cil X* 200% ¢C* FE eMAKE SURE THIS ES A CONTROL CARD 
3 
DATE 28NOV69 LTAPRT7O 24SEP 70 010CT70 OLAPRT1 OLAUG72 PROG 10 OERP-5 DATE 28NOV69 17APR70 24SEPT7O 010CT70 OLAPRTL @1AUG71 PROG ID OERP-5 
‘ EC NO. 816559 816667 816777 816760 618945 818817 PAGE 6 —EC NO. 816559 816667 Bl6777 816760 818945 618817 PAGE eA 
Le | 3 
9e-o7eoeeedegti@e@qe@eg@e7@eesd ee 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 25897648 IBH MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 2589748 
PAGE 7 @ PAGE TA 
ERPS CARD ERAP ~ ERROR RECORDING ANALYSIS PROGRAN . ERPS CARD ERAP - ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE _ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATENENT 
OACE F2 81 07 878 JE #410 ° @ OBB2 F2 87 06 946 J ERPI3+6 
OADL FO 70 5D 879 HPL X*SD* ,x*7Ce eHALT WITH *E5%, INVALID CONTROL CARD OBBS OC 44 0000 0248 947 ERP13 VC *~-* (69) »X* 200° 472 MOVE PART OF RECORD To TABLE 
OADS CO 87 OACS 880 8 ERDIB446 TRY AGAIN : OBBB OE 01 OB88 OF OC 948 ALC ERP 1343(29,SIXTY9 POINT TO NEXT TABLE ENTRY 
OAD8 F2 87 29 Bel J compa SET UP FIRST BIT MEANINGS 6 OBC1 CO 87 OB85 ote B Loor24 CONTINUE UNTIL 7 CARDS READ 
882 . 
863 * UPDATE BIT MEANING TABLE O8C5 OD 02 0203 OEAS 951 ERP23 CLC X*203*€3),CEND WAS LAST CARD READ THE LAST CONTROL 
884 @ OBCB F2 01 04 952 SNE 47 IF SO, SET ON LAST-CARD BIT 
; -885 * SUBROUTINE TO READ A CARD FROM PRIMARY OBCE 3A 40 GED*E 953 SBN FLAGS,2 SYCTL SET 17 ON 
OADB 3% 08 OB03 886 CORD. $7 LK43,ARR SET UP TO LINK BACK TO CALLER OB8D2 38 10 CFDS 954 TBN  FLAGS,NOCRD DID WE JUST LOAD THE RIGHT BIT 
OADF’ F2 87 03 887 J ROCTL e OBD6G CO 10 OBD4 955 BF ComPQ MEANINGS? 1F NOT, GO COMPARE OQ 
OAE2 FO 36 5D 888 MERR HPL H5 .HH ; HALT *HS¢ 956 
OAES Cl FO OAE2 889 RDCTL TIO MERR, X* FO? GO HALT EF ECU NOT READY OBDA CO 8&7 OD14 957 BPRY 8 SPATE SKIP 2 LINES AFTER DEVICE HEADING . 
OAEO 31 F5 OECE 890 LIQ 8 FSTIN,X*F5* LOAD READ IN AREA @ OBDE CO 87 OD1L4 958 8 SPACE 
OAED F3 F1 00 891 sIoO X*00* ,READ READ CARD OBE2 OC 2% O2A2 OFC? 959 MVC X*27D* +3737) »SMHD 
OQAFO Cl F1 OAFO 892 LOOP16 TIO LOOP16,Xx*F 1° ° OBES 38 02 OEDS 969 TBN FLAGS.IS8SCA 
OAF4S 30 F3 1002 893 SNS POSTMP-5_X*F3° GO HALT IF FEED OR READ CHECK © OBEC F2 90 COC . 961 JF REGHED 
CAFB 39 86 10D2 894 TBE POSTHP~5,X" 86° CBEF OC 04% 0284 OFS4 962 - MVC X*27D°*7(5) sRTYS 
OAFC CO 90 OAE2 895 BF MERR OBFS OC 08 0298 GEAD 963 MVC X*27D0°+2719) ,COMP 
0800 CO 87 0000 896 LK 8 Soe gS OBFB CO 8&7 OD018 964 REGHED 3B PRINT PRINT. THE HEADING 
897 O8SFF CO 87 GDL4G 965 ~- 8 SPACE SKIP A LINE : 
898 ; OCO3 CO 87 29€9 986 8 BITMNG GO PRENT SENSE SURRARY 
GBOs 38 40 GCED4 699 COMPQ TEN FLAGS LSTCTL . OONTT COMPARE O°S TF ALL CONTROL @ 967 : , : 
C808 CO i0 0B30 900 BT Qu ee CARDS HAVE. BEEN READ 968 CSTEOREROSSRNESESS SGEESEASILERERSESHEL SELES FES KEESES SEED GRE GEERGEERREERE 
OB80C O08 Gi 0200 0201 Sol MZN X® 2005 gX*202e &® SET uP 969 , ‘ 
OB1l2Z 3S FO G20 - $02 FBN “X*2014, x8 FOF *# TO COMPARE @ 970 * . PRINT POSITION SUHMARY 
CBL6 F2 iG G6 903 JT ERP - ® DEVICE ADDRESSES Soe , STi 
GOBi9 OF 00 0260 103F 904 ALC X*200°€15 9X90 % OCO? CG 87 GDIE 972 SUMPOS & SPACE. 
OBIF O68 030200 1045), 905 ERPL6 HNN = X*200", ZERO ‘* ; : : ® OcOB8 CO 87 0014 973 6 SPACE ‘SKEP A LINE 
6825 iD OC 90206 O58 906. CLC X* 200% sSEROXRIP COMPARE DEVICE CODES = i OCOF OC 1 O2A8 CEFI 974 av X*2A8°€ 299 »REDL ST PUT IN KEADING FOR PRINT POS SUMMARY 
. 907 : ‘ . Ae Sie 605 CO sf opis 975 *B- PRIRT : 
OB2A F2 81 23 908 JE QE . DEVICE ADDRESSES =? - : S OCl9 CO 87 ODi¢4 976 8 SPACE SKIP LENE - ; ; 
GB20 Fe 82 3c 909 Je Qu SUMP IF NEED TO READ MORE 7 OCiB €2 02 LOCE St? 2A POSTAB+1,XR2 POINY AT FERST TABLE ENTRY 
: 910 / : : : : : ; 0€21°3C 21 SE8D S78 CTRX KV] CTR<33 . ; : : 
9830 3A £0 OEFDS $21 OH SBN FLAGS -NOCRD NO CONTROL CARDS, SET BIT ON & . OC25 OC O2 1OD7. CESS SIO - AVG TEMPE 3} NUME INITIALIZE HAMNER NUMSER TO I 
OB34 79 FO OS 912 TBE 5€5XR29_X* FO" » -If DEWECE ADDRESS iS O. MCVE IN . ‘0C28 OC 02 9240 10495 989 &OOP25 MVE ° X*ZA0*C3h, Z2R2SC. INITEALIZE NUMBER TO 000 . 
| OB37 F2 96 69 933 JF e412 < CONSGLE HEADING TO PRINT. OC3i 3C 94 OEFBE 98h KVE . CTR4_4 SET UP TO HANOLE 4 PRIKT POSITIGNS 
GB83A OC OE OZAF GEBC 9L4S MVC X*27TCE¢SLELSE,CONSOL . 3 @ CC25 36 O2 OFTA S62 LGOPZ1 A NEGLeXRZ POINT TO NEXT YABLE ENTRY 
OB4060 F2 BT 06 : a° 915 3 #49 @< ; CC329 80 GO 696 . 983 Ciz GE sXR2} Xt O8 IF Gy IGNCRE IT 
0843 OC RF O2AL CFTS 916 MYC X8 ZAC 325 eNCOMSG SET UP TG PRINT NO-CARDS MESSAGE OC3C CO 8i OCSéE 284 BE ERP 26 . . . 
0849 CO 87 GCO18 Si? 8 PRENT PRINT YT & 6C49 C6 20 O2ZAG OF BS $85 LOOPIS az M*2A0* 6355 NUMLOL * TABULATE NUMBER 
084D ©2 87 BA 98 J BPRT GO PRINT HEADING AND RETURN TO PRT - OC46 30 FF G29E 9&6 CLE X°2GE%,C87® = OF GCCURENCES. 
C850 GC 4B 9200 0254 919 OC KAYC R*27C* +846 76 92,X° 200% 484 MOVE SATA CARD TO PRENT FEELO OC4A FZ 02 09 S37 . SRL ERP 26 * 
0856 30 80 C200 920 CLE X* 200°. X* BO" : @ OC4D 8F GO GO OF&B 988. sec O(1,XR23,0NE | * 
OBSA F2 O1 04 921 JNE a7 Bd OC52 CO 8% 040 _ 989 BH LooPi9 * . oe 
O85D 3A O02 OEDG 922 S8N° FLAGS. ISBSCA : :- OCS6 OF OO OEBE OFB2a 99S ERP2&6 SLE CTR4,0NE OG < POSITIONS FOR EACH HAMMER 
OB61 CO 87 9018 923 6 PRINT ANS PRENY DEVICE HEADING ® OcsC CO 84 OC35 931 BH LOOP22 
0865 38 10 OFD4 926 SBF FLAGS sNOCROD MAME SURE NO-CARD BIT ES OFF OC6o CC G2 9290 1907 932 MVE X8§ 290° (3) 5 7ERP PUT HAMMER NUMBER INTO LIne 
925 / ane OLCE66 OD OF 92AG-164¢9 993 cic X*2A0°( 3) 4 ZR2SC OONSY PRINT FF NUMBER 3S OGO 
926 * READ ¥ CARDS, PUT FERST 6 IN BET NEANEING TABLE : eS OCéC F2 BE OF , 994 “JE ERFILS : 
OB69 F2 87 04 927—Ct« J *e7 ALLOW CASE GF @ LOX Ta ENTER HERE OC&éF CO 87 ocisB OSE 5 PRENT PRINT LERE 
OB6C BA LO OF DS 928 Of SBN FLAGS -NCTRO FROM COMPS ABOVE CC73 66 20 ICD? OF&s $96 ERPLS AZ FEMP (33 sNUMLC IB INCREMENT HAMNER NUMBER 
: : 923 \ & OC7S CF 00 O£BO oFseE S97 SiC CTRL} ONE ; 
‘0870 3C 06 CEBD 930 AVI CTReX*O62 INI VEALIZE COUNTER ; OC7F CO a6 OC2B 992 BH L00P25. 
087% 30 80 0200 931 Ctr = X* 200", KF Boe : 999 
0878 F2 61 04 932 SNE #47 JE @ ; 999 
0878 3C 03 GEBD 933 MY E CYR,3 <A OC83 OD G2 0203 EAS id00 GETEND CLO X°203°¢3)-CEND FLUSH GUT 
OS8TF CC Ol OBBS OFCS 9346 MVC ERP134312) oSSTABE POINT AT 12ST SIT BEANENG IN SSTAS OC&S F2 81 OS , 1o0o1 JE FUINESH 
OB8S CO &T OADA 935 tGoPp24 8 coro GO READ ONE CARD AND COME BACK é GCB8C 1CO2 GETNDL EQU * 
0889 3D 61 0200 936 CcLi X*200",C°7e eMAKE SURE THIS IS & CONTROL CARE Oocsc CO 87 CADE 3003 B CORD MFCU ES 
C6BD F2 81 OF 937 JE #410 * : . : ocess CoO G7 oC 83 1604 B GETEND READY 
OB90 FO 7C SD 938 RPL X®*S5D°, x7? eHALT HITH ®E5%, INVALEO CONTROL CARD & O0C94% FO 7C 63 ROGS FINISH HPL X°63"%,x*7C° HALT *Eygs 
0893 CO 87 0885 939 8B LOOP24 oTRY AGAIN Oocg? CO 87 OC94 2006 8 FINESH 
0897 OF OO OEBD oF8s 940 SLC CTRCLS ONE DECREMENT COUNTER (READ 7 CARDS} 1007 SESERERESSERS FERS RLEEE SS ESEESEEEAREGEDLSRESS ER ESESERES EEREREE ERE ERE DEE 
OB9D CO 82 O8C5 941 BL ERP23 @ 1008 + “ee 
OBAl CO 01 0885 942 BNZ ERP13 TREAT 6TH CARD SPECEAL €1 ENTRY; 1oce 2s ROUTINES ed 
OBA5 38 O02 OED4 943 TBN FLAGS, ISBSCA 20190 +x : ee 
OBAS F2 10 O¢ 944 JT ERPL3 & 1031 CERESTESERSAE SERKERE HES SERL ERE ESSE SESLERERE SES ELEERE HE EHERTERN SESS $446404 
OBAC OC 16 12467 O21A 945 MVC £ SSTABEC 23) .X*200%+26 MOVE IN LAST BEY MEANING 4 1012 
DATE 28NOV69 LTAPRT7O 24SEP70 O1GCT70 OLAPRTE OLAUGTE PROG fd DERP-S : DATE 28NOVES LTAPRIO Z24SEP70 O1ocrt7a OIAPRT1 CLAUG7TL PROG 50 OERP-5 
EC NO. 816559 816667 Slé7T? 816760 818945 218817 PAGE 7 _ EC NQ. 816559 8i&666T BLOTTT 816760 818945 818817 PAGE TA 
é: > ,e 
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EBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589748 TBM MAINTENANCE BYAGNOSTIC PROGRAR PART NO. 2589748 
€ PAGE 8 @ PAGE 8A 
® ERPS CARD ERAP - ERROR RECORDING ANALYSIS PROGRAM é ERPS CARD ERAP ~ ERROR RECORDING ANALYSIS PROGRAM 

ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMERT 
g 1013 @ PACK ROUTINE $ 0875 38 80 0058 1081 BYTL TBN TOl+1,x*80° ONE SENSE BYTE DECODED? IF SO SPACE.. 

i014 * . 0079 F2 90 18 182 JF STEP2 eseTHICE AND STEP TO NEXT BYTE 
OC9B 34 08 OCDS 1015 PACKET ST ARRET+3 ARR SAVE RETURN ADDRESS OD7C 36 O2 OFTE 1083 A NEG3s XR2 
e OC9F BC 00 CO 1016 PK2 MVE Oe XR29 9X90" MAKE SURE PARITY GK ON DEST BYTE @ OD80 OF CO OE8D OF 88 1084 S:7C  CTRE1) 2 ONE DECREMENT COUNTER 
OCA2 98 03 00 O1 1017 MNN = OL pXRZF el OC eXRIP MOVE NUMFRIC BITS TO OUTPUT FIELD 0086 CO 61 0000 1085 BIRTN bé <7e : 
OCA6 78 FO OL 1013 TBN =: LC pXRUD 9 X*FOP BRANCH IF EBCDIC DIGIT IS 0-9 CO8A OF OL ODS5D OF 88 1086 SLC -¥0243(2 2, ONE 
@ OCA9 F2 10 05 1019 JST PK3 6 0D90 CO 87 0D56 1087 B BTi LOOP BACK AND POINT TO BIT 7 
oe OCAC 8E OC 00 OF 83 1020 ALC 0€14,XR2),NINE CORRECT NUMERIC SETS bibe 0094 36 O02 OFTA 1088 STEP2 A NEG1,XRZ NEXT BYTE IN °LENE® 
a O0CB1 98 01 00 00 1021 PK3 MZN Op XR209 00 e XR1B REPEAT FOR ZONE BITS 0098 OF 00 0D55 0D58 1089 ALC =6TOLFI(R Fy TOL41 MOVE POINTER LEFT 
€ ocBs 78 FO 00 1022 TBN Ole KRL9_X* FO? é OD9E CO 87 ODSA 1099 B TOR LOocPr BACK 
OCB8 F2 10 05 1023 JT PKS 109% 
OCBB 8E 00 00 103F 1024 ALC OC L—¢XR2)9X90 ADD 9 TO ZONE BITS LOQ2 €SREESSEEEKESESERESESEDAEE SEEEEEAERERGEREE SRS EEE ALS RETERSESERE SRK S ERE SAGREF 
@ OCCO 36 O01 OFTC 1025 PKS A —s— NEG2»XR1 DECREMENT POINTERS & (1093 ** STORAGE bans 
OCC4 36 O2 OFA 1026 A NEG1,XR2 1694 KESSSHEKESASESRESKSEASE ARES EEKRES KECAHKESESSRESKSSETLSESF ECHR SEK EERTSE FES CER SEE 
OCC8 OE 00 OFB9 OFTC 1027 ALC PKLEN(19,NEG2 ODA2 1095 LINE EQU) * 
t OCCE CO 84 OC9F 1028 8H PK2 @ ODA2 O£00 1096 DS ci95 
ocOd2 CO 87 0000 1029 ARRET 8B +-* RETURN QEOI 40 OEO1 1097 oc cuir * 
. 1030 O£02 OFBF O£03 1098 ADQRSS DC AL2(QRSS) 
€ 1031 * UNPACK ROUTINE ; @ OE04& 40 0£0% 1099 BLANK DC cLic * 
- 1032 * ee O£05 O5D6E3C540C&DEN9 OE28 1100 oc CL36"NOTE FOR BSCA- R SS NO. OF RETRIES: ° 
OCD6 34 08 0013 1033 UNPACK ST = RTN#3e¢ARR ' OED 40C2E 20301604009 1100,—Ct 
g OCDA 98 03 O1 00 1034 UNPK2 MNN = 1(,XR2090%>XR2} MOVE NUMERIC BITS é CELS SOC9E240D5D64840 1160 
OCDE 98 02 00 © 1035 MNZ  O€pXRZ29e00oXR1D MOVE ZONE BITS YO OUTPUT FIELD GELD DéCe4OD9C5 E39C9 1100 . 
OCEZ BA FO 00 © 1036 SBN OL py XRZF RFC? FORCE ZONE BETS TO HEX *F* FOR AGTH GE25 C5E26B40 LiLOO . | 
eit CCES BA FO OL 1037 SBN -1 Cs XR2BER*EO* 2 E29 E2CSCSEZC540F140 OEZE EIOL BSCAMG OC CL22*SENSE L IS COMP. CODE.’ ‘ 
OCE8 8D FA OO hO38 CLI OU,XR2) gK* FAP CESL CIEZ4NC 3D6D40 745 Lio? _ 
CCEB F2 82 05 _. 1039 Jt UNPKS BRANCH IF HEX DIGET 3S O-9 74 OES9 S0C3D6L 40548 1102 
f OCEE 8€ GO 90 1030 1040 ALC = OC LG XRAPOXCT DIGIT IS &eFe ADD X*C7Te | i 2 OE3F ODA O£29 21027 BYBNAD OC ALZ2¢B1TBGNE 
‘ OCFS BO FA O1 1042 UNPKS CLE Ll yXR20yxX¢F RE REPEAT FOR OTHER HEX DIGET f OES? CEAG i103 CARD BS od : : 
: OCFS FZ 82 GS 1042 dL CUNPK4 . : CEAL 40 BEAL LiO4 oc 80 cae FOR BLANK CARD TEST, MUST FOLLOW CARD 
g OCFS SE 60 O1 1030 L043 ‘ALC 8=- BE, XRZ9 XC? ° | 2 CEA2 C505¢4 SE&4 1105 CEND BC CL3°ENDS @ 
sex, OCFE 36 O2 CFIC 1944 UNPKS & NEG2oXR2 DECREMENT POLRTERS FOR NEXT BYTE DEAS C3DEDSOTSBC3DEC% DEAD E106 COMP DE = CLOFCORP.CODE® 
te ODG2 36 01 OFTA 1045 A NEGL,XRL 4 “¢ a OEFAD CS 1106 
. OL06 OF 00 CEBD GFSe © 1646 SLC CTRE L$, ONE ee ; 3 DEAE SCSCSC40C306D5E2 CEBC LECT CONSOL DC CLI5%S¢ CONSOLE *##° .. # ce 
ODOC CG C2. COCOA 1047 BNZ . UNPK2 CONTUNUE TIL FIELD ES FENESHED i SEBS DOD3CS5S405C5C5C Lio? : : 
' OD1LO CO 87 C900 1048 RIN. 8 ak : OBE OO GERD LLO& CTR DC KLL#06? 
% ze 2049 2 GEBE 06 QEBE L1GS CTR4 OC KLL@008 
oo ° 1050 # PRINTING ROUTINE es _ GEBF FOFOEL _ @E€C1 LLiO DTHEG OC cCL3°oos* 
: 1051 * | ; _ i QEC2 2000 "  GECB LELL DUMY OC Xiz*O8 
, 8 °— 0014 3€ EO aD3A . 2052 SPACE MVE PRSEO+L, KEG? - SET UP SIG FOR SPACE ONLY 13 GEC4 OFCE GECS 2ii2 OVADR OC ALZ(TABDEV5% 
OD18 F2 87 04 1053 J #47 i GEC6 66 QECS 2113 DIOS dE HLA LOSE 
\ OD1B 3¢ EZ 003A " «5054 PRINT MVE PRSTO+LeX*EZ® SET UP SiO FOR PRINT AND SPACE a OECT Te OECT Rit CL16 OC ILE®116° 
3 ODIF 34 08 OD47 1055 ST SELF3¢1 29 ARR STORE RETURN ADDRESS i 2 DECe OGOs OECY LE1S EIGHT oC tL2etsé 
B23 F2 87 03 1056 3 RDY : OECA OFB2 OECE LLL@ ESTH OC AL2ECARD-30} 
| ob26 FO 38 7D 1057 LPERR HPL H6,HH HALT, DISPLAY 8HSe OECC F3FI QECE ALF F3FE AC KLZ °F SE LS 
3 0029 C1 EO 0026 1058 ROY TIC LPERR,x*EOS GO HALY IF PRINTER NOT READY |g OECE 02000 UECE ARTS ESEIN. BE siete 
G02D 31 EO GEDL 1089 LID FL,K°EO? LOAD FORMS LENGTH OEDG 7O7E GEOL ELLS Ft oC AL2° 7070" 
: ODS 31 £4 OF 26 - 1060 £20 IMAD,X% E46? LOAC CHaIN IMAGE 2 GEBZ O89 OEDZ 21220 FLAS 5c XL Lt Oo? 
$ 6035 31 E6 OECE 1061 LIC  FSTENyx*ESS LOAD PRINTER DATA > & CED3 06 O£03 112i SWIYCH OC XL1 "G08 THIS MUST IMMEDIATELY PRECEDE *FLAGSS 
6039 F3 EZ O1 LO6Z2 PRSEG SIG X*OL*,X*EZe FRINT AND/OR SPACE 1 i OEDS 30 OED 2222 FLAGS OC XLEFOO® 
“s OD3C C1 E6 OD3C : 1063 SELF3 TIO SELF3,X*ESE WAIT TEE BUSY BROPS i SENDS C8CID4 0405094078 CEFL 1123 HEDLST DC CL29°HAMMER #@ HAMMER ECHO CHECKS® 
3 0D40 C1 EO C026 1064 ¥iG LPERR,X*EO® HALT IF PRENTER NOT READY ; = OEDD 404040C8C1D4D4C5 ik23 
6544 CO 87 0000 1065 5. kot RETURN ¢ OEES D94GOCSC3ICBDE40C3 L123 
1066 j QEED CECSC3D2E2 1223 
3 1067 * CONVERT TO EBCDIC FROM BINARY : & OEFZ CECSESCSC3CH40D3 OF25 2124 Oc CLSZ°OEVICE Q R STATUS BYTES 2 ANO LPRINT POSITIONSDAT* 
; 1068 * ‘ DEFA 4040D9404040E2E3 1124 
4 0D48 34 08 CDEC 1069 BINARY ST BERTN43 gARR i OFO2 CLEZE4E240C02E8E3 1iZz% 
4 OD4C OC OL 005D £03 1070 MVC = TOL #3. (25, ADORSS INSERT AGDR OF GRSS : @ OFOA C5E240F 240010504 1124 
0052 3C 02 CEBO 1071 MVE CTRs2 SEY COUNTER = 2 OFLZ 40F1D7D9C9D5 E34) 1L26 
6056 3C OL OD5B 1072 BTL MVE = TOl#1L, X°Q2° POINTER TO REIGHTMCST BIT OFLA DTD6EZCSESCSDECS Ri2é 
. 3 OD=A 38 80 0000 1073 T62 TBN Hat p FHS TEST PCINTER BIT AND INSERT C OR i gS OF22 E2C4CiE3 Lizé 
ODSE F2 10 06 1074 JT INI om OF 26 C5 OF26 1125 HEONG DC CLR Et 
- 0061 BC FO 00 LO75 HVI =—- OL XRZH2CHCE en OFZ27 0300 GFZ8 1126 IMAD DC AL2CEMAG} 
? 0064 F2 87 03 LOT6 J AA 3 OF29 ODAE OFZ& iL27 J DC ~“ALZ(BITBGN+3) 
Ode? SC Fi 00 1077 INL MVI = Ole XR2PACELE OF 2B O0DB3 OFZC 1128 J2 oc AL2 (BET BGN*B 5 
OD6A 38 08 ODSB 1078 AA TBN TOL#1,X*08* 4 BETS DONE? EF SO, SPACE ONE OF20 oDES OFZE 1229 J3 DC AL2(BITBEN4L4) 
3 QD6E F2 90 04 1079 SF BYTE | & OF2F ODBE OF30 1130 34 = OC AL2 (BETBGN4193 
OD71 36 02 OFTA 1080 A NEG1,XR2 ; OF31 C3G6D9CS540CSE7TC3 OF5& LE3i MSGCR OC CL40°CORE EXCEEDED, FOLLOKING NOT EN SUMMARYS 
_ 3 i ¢€ 
: DATE 28NOV69  LTAPRTO 24SEP70 OLOCT70  OLAPRT OLAUGT PROG ID OERP-5 DATE 2ANOVES LTAPRTO = 24SEP7O = OLOCT70=— «OLAPRTL = =—OLAUGTE PROG ED OERP~5S 
—  y EC NG. 86559 816667 816777 816760 818945 818al7 PAGE a | e = NG. 816559 816667 816777 816760 BLE9%5 825817 PAGE Sh 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOW 2589748 — 
PAGE 9 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOW 2589748 
: PAGE SA 
ERP5 CARD ERAP — ERROR RECORDING ANALYSIS PROGRAM . 
ERPS CARD ERAP — ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADDR STMY SOURCE STATEMENT 
: ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
an OF 39 CSC5C4C 5C 4684006 1131 
ae OF41 D603D306E6C9D5C7 1131 . O30C 61EZE3E4ESE6 9311 1177 oc XL6*61EZE3 EG ESE6* 
rn OF 49 40D5D6E340C 90540 1132 0312 E7E8E950686C 0317 1178 oc XL 6 *E TE BE9506B6C* 
® OF5L E2E4D404C 1D 9E 840 1131 0318 D1D20304D506 031D 1179 oc XL6°D1LD2D304D5D6* 
OF59 DSD640C3D6D5E309 OF78 1132 NCDMSG OC CL32*NO CONT°OL CARDS FOR THIS DEVICE® : 031E D7D8DS605B5C 0323 1180 DC XL6*D7D8D9605B5C* 
OF 61 06D340C3C 1D9C4E2 1132 0324 C1C2C3C4C5C6 0329 1181 oc XL6°C 1C2C3C4C SCP 
€ OF69 40CED60940E 3C8C9 1132 O32A CTC BC 94E4B7D O32F 1182 Dc XL6*C7C8C94E4B70# 
OFTL E24OC4CSESTCOC3ICS 11232 $ L183 SERRE KEKTSEKAETLS SCE RESES SEES SECLESKSKESEEKSEKSEK KES KS SEK ESES KES KEKKECKSE KES SESEKEE 
OF79 FFFF OF7A 1133 NEGLI 0C XL2*FFFFE 1184 #s EQUATES Sd 
€ OF78 FFFE OFTC 1134 NEG2 oc XL2°*FFFE* MUST FOLLOQW NEG1 L185 FRKSSE SEES SERRE ERES ES SKEKESHRES ESLSERE SOE ESS EEE KEE ESE EEETES ESEKE FOEKES 
OF TCD FFFD OFTE 1135 NEG3 0C XL2°FFFDE 3 1186 
QETF FFFC OF80 1136 NEG& OC XL2*FFFC 112A 1187 AINPUT EQU NEXTR#*3 
OF81 FFFEB OF82 1137 NEGS OC XL2°FFFBS 0008 1188 ARR EQqU 8B 
ae oF B83 09 OF83 1138 NINE OC IL1*9¢ é UDAB 1189 BITBGN EQU  LINE#9 
Pane OF84 FOFOFL OF 86 1139 NUM1 DC CL3*001* woe 1004 1190 CTRDEV EQU POSTMP-3 
& OF87 0001 OF88 1140 ONE oc 121° -— 10D3 1191 CTRSNS EQU POSTMP~4 
OF89 00 OFB89 1141 PKLEN OC XL1°008 3 0080 1192 FIRST EQU xX*80* FLAG BIT 0 
OF8A 10CD OF8B 1142 POSAD OC AL2(POSTAB) 003B 1193 HH FQU)x*3B8 
€ OF8C 00000000 OFBF 1143 ORSS DC XL6*O0# 0006 1194 HDQUES EQU = xX*06® MASK FOR SWITCHES WHICH INHIBIT 
OF90 DOC5E3D9EB OF94 1144 RTYS DC CLS*RETRY® > 005D 1195 H5 FQU)xX*5D¢ HEADING PRINT OUT 
OF95 0000 OF96 1145 RISAV DC XL2°008 OO7D 1196 He EQU = x*7DF 
€ OF97 0000 OF98 1146 R2SAV DC XL2°G08 : 0200 1197 INPUT EQU  x*2008 
OF99 0006 OF9A 1147 SIX DC IL2*6# 3 0040 1198 IPL EQU X*408 
OFSB 0045 OFSC 1148 SIXTY9 OC 1L2*698 10FD 1199 LDOWORK EQU CDREAD-3 
Cc. DFID 08404009404040460 OFC1 1149 SMHD DC CL37"*Q_ R SENSE 2 SENSE 1 COUNT ® 0008 1200 LSTCRD EQU x*O8* FLAG BIT 4 
OF AS E2C5D05E2C540F240 1149 3 0040 1201 LSTCTL EQU = xX*40# FLAG BIT 1 
OFAD 404040E2C5D5E2C5 1149 0020 1202 LSTERR EQU  xX*20° FLAG BIT 2 
@ OFB5 40F 1404040404040 1149 00:0 1203 NOCRD EQU xX*1O® FLAG BIT 3 
OFBD C3D6E4D5E3 1149 > 0004 1204 NOPRNT EQU X*O4? SWITCH BIT 5 
OFC2 10£E OFC3 1150 SSTABA DC AL2(SSTABE22) 11A2 1205 NI £EQU LPTONE+6 
Cc ofcs 111C_ Ct OFC5 1151 SSTABF OC AL2(SSTAB+68) OOF1 1206 READ £QU  X*FI® 
OFC6 1152 TABDEV EQU) * > 0002 1207 ISBSCA EQU  xXx*028 FLAG BIT 6 
. OFC6 C3D605E2D6D302C2 OFFS 1153 DC CL48* CONSOLKB/CIG-INVLOSIOC —INVLD14¢42 -INVLD-INVLD® Jaret 0001 1208 TABFUL EQU x*O1* FLAG BIT 7 
C OFCE 61C3C9D660C9D5E5 1153 AB es 1007 1209 TEMP EQU POSTNP 
OFD6 03C4E20: 906034040 1153 ; 0001 1210 xRi EQU) sol 
OFDE 60C9D5E503C4F1lF4 1153 | 0002 1211 xR2 EQU 2 
c OFES F4F2404060C905E5 1153 ' 0380 1212 END ENT 
OFEE 03C460C SD5E503C4 1153 i 9 
vee OFF6 C2E2C3C1404060C9 1025 1154 oc CL48"*BSCA -INVLODISK1] DISK2 -INVLD-INVLOLP MFCU of | 
C OFFE DS5E5D3CC4C9E2D2 1154 
109% F140C4C 9E2D2F 240 1154 > 
100E 60C9D5E403C460C9 1154 
Cc 1016 DSE5D3C4D3D 74040 1154 : 
101E 4040D4C6C3E44040 1154 f 3 
1026 0000 1027 1155 TABEND DC XL2*00° ae 
¢ 1028 1FFO 1029 1156 TABLIM DC XL2°LFFOS *+*#4* SET TABLE-LIMIT FOR 8X ASSUMED Saas 
102A C4CSESC9C3C540E3 103A 1157 TOTMSK DC CLIT"*DEVICE TOTAL= 000# $3 
1032 06E3C1037E40F OFO 1157 
C 103A FO 1157 
ake 1038 0017 103C 1158 Twt:TY3 DC IL2*23° f 
rere 103D C7 103D 1159 xC7 pc XLL°CT?® i 
C 103E 78 103E€ 1160 x78 oc xL1*7B¢ 
103F 90 103F 1161 x90 oc xL1*908 : 
1040 000000000000 1045 1162 ZERO OC xL6"0# } 
€ 1046 6BfOFOFO 1049 1163 ZRSC OC CL4*, 000° ; 
104A 10CD 1164 POSTAB DS CL132 pe 8 
; 10CE 10D7 1165 POSTMP OS CL10 
€ 1166 
1008 1167 SSTAB EQU # ’ 
1008 1133 1168 DS CL92 
: € 1134 L18F 1169 DS CL92 
1190 11E8 1170 os ctL92 ; > 
1L1EC 1247 1171 LSSTAB OS CL92 
¢ 1248 1172 TAB Eu *¢ 
0300 1173 ORG = x*300° > 
0300 1174 IMAG EQU) ® 
¢ 0300 FLF2F3F4F5F6 0305 1175 oc XLO*FLFE2F3F4F5F6* 
sik 0306 FTF8FOFOTBITC 030B 1176 oc XL6 °F 7F BFOFOTB7C* ’ 
e sake 
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ERPS CARD ERAP ~ ERROR RECORDING ANALYSIS PROGRAM ae ERP5 CARD ERAP - ERROR RECORDING ANALYSIS PROGRAM 
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CROSS-REF ERENCE : CROSS-REF ERENCE 
€ SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE OEFN REFERENCES 
$ ( 
Aa A 004% O06A 1078 1076 : | DECA A 004 O7F8 0669 0665 
@ AB A 60G@ O55F O47% 0466 0472 ; DEST A 002 1200 0147 01230 0135 0140 01486 
ABB A 906 1201 0148 0144. * DEVSUM A 006 OATC 0855 O81 
AC A 004 O05D6 05069 0505 —Cts DOLIO A O03 1107 0062 0070 
€ ADOL A 003 O6E9 0590 @575 a DTHED A 003 OECL 1110 
ADQRSS A 002 OFO3 10698 1970 eee DUMY & 002 O£C3 1121 0465* 0466%* 0467 0469 
AINPUT A 004 112A 1187 8063 ; DVADR A O02 OCS 1112 0536 
€ AJDEST A 003 11D0 0137 0:34 : 3 D104 A GOL OECé& 1113 0645 
ARR C 00) 0008 1188 $061 0189 0235 0267 0296 0306 0311 0886 1015 1033 1955 1069 0116 A OOL OECT 1324 © 0642 0643 
ARRET A 004 OCD2 106029 1015* : D120 A003 1296 0184 0166 0168 3 
€ 8B A 006 O707 0597 0563 ©0588 0591 ; 5 EDT A 006 O9A4 0795 O791 _ 
BINARY A 004 OD48 1069 0548 0760 : EEEE A 004 1245 06165 0162 
BIPTN A 004 OD86 1085 069% , EIGHT A 002 OECO 3115 0597 
€ BITBGN A 0OL ODAB 1189 O759 O764* 0765 0765* 0768 1102 1127 1328 %1129 1130 ; 3 ENDDAT A 006 0170 0337 0369 0369% 6442 0445* 
BITMNG A 004 O9E9 0817 0966 i ENT & 004 0380 0343 0109 0188 1212 
BLANK A OO1L OF04 1099 0795 0860 2 ENTSUM A 004 O87D O711 0612 0622 G&T4 0679 0682 
g BLANK A003 O58A 0502 0496 ; > ER AP A&A 0012 0000 90002 
BOOTi A 004 0000 o009 0007 0018 . ; ERDTB A O04 OAC2 O875 O775 o8ssod 
-, BOOTLA A 003 O00D 0013 0013 : ERP11L A O05 OT7A 0633 0630 
€ BOOTIE A 003 OO17 O017 6010 0014 : > ERP13 A COG OBBS 0947 0934* 09642 0944 0946 0948* 
BOOT11 A 002 OOLE 0020 e011 ERP14 A O04 OAT4 0848 0818 
BOOT2 A 004 0200 0030 0015 0029 6030 ERP16 A O06 OBIF C905 0903 
€ BOOT2A A 003 O20EF 0034 0032 0042 2 ERP18 A006 OC73 0996 09 94 
BOOT2B A 003 0217 0037 6037 oe Tate ERP20 A 006 O4DD 0435 0424 0434 
BOOT2E A 003 0208 0033 0034 0038 Be Gage ERP23 A 006 OBC5S O951 0941 
g BOOT 21 A 004 0205 0047 0041 b ERP26 A 006 OC56 0990 0984 0987 
BOOT22 A 001 0239 0048 0041+ : ERP29 A 004 OTAS 0646 0628 0632 0644 
BOOT23 A 002 0238 0049 0035 ERPS A 004 0682 0562 0523 
€ BPRT A 004 OB8DA 0957 0918 3 ERPS 4 006 0989 0789 0786 
BRBK A 004 0010 0192 0189% ERR A 003 111D 0069 0062 
2 BS A 004 0407 0375 0374 0375 0386 0388 0606 : ERXa A 002 OLILA 0324 0306* 0307% 0308 0311* 0317 
€ BSCAEX A 004 O71A O€01 0520 0599 > EXCPTN A 004 0831: 0683 
BSCAMG A 022 O€3E 1101 0603 ESTH A& 002 OECB 1116 0598 
BTBNAD A 002 OE40 1102 0819 FINISH A 003 OC94 1005 1001 1006 
g BT1 A 004 0056 1072 1067 > FIRST C 001 0080 1192 O737 O774 O875 
BT2 A 00& 0204 0031 6047 . FL A 002 OED1 1119 1059 
BUSY & 003 1110 OoOc65 0065 FLAG A O01 OE€D2 1120 0532* 0533 0537%* 0540% 
® BYTL A 004 OD75 1081 1079 i FLAGS A 001 OE€D4 1122 0355 0355% 0535* 0562 0584* 0601 0604* 0610 0613% 0712% O737% O774 
CARD A 096 OE€AO 1103 0379* 0380 0381 0383 0383 O387 0410 04611* 0418 0419" 0420* 04224 , O0805* 0812 0817 0837 O856* 0866 O875* 0899 0911* 0922* 0924* 0928* 
0428* 0430* 04324 0433%* 0435* 0436 0448 0480 1116 : 0943 0953* 0954 0960 
> CDEGRF A 004 0817 O677 06 76* i FSTIN A O0O2 OE€CF 1118 0890 1061 
COEXIT A 006 1119 06068 00614 F1l4 A004 O75E 0622 0352* 
CDRD & 004 OADB 0886 0676 6935 1003 F3F1 A 062 OECD 1117. 0673 
> CDOREAD A 004 1100 0060 0031 0059 0060 0066* 0067 OO77 O172 1199 GETEND A 006 OC83 1000 1004 
CEND A 003 OEA4 1105 0951 2000 GETNO1L A GOL OCcBC 1002 
CHAIN A 005 1293 0183 0161 0163 : GETYR A 006 0843 0688 0684 0686 
9 CKBLK A 003 1207 0149 0153 HALTSW A 003 0067 0216 0201 0206 0208 
CKCHN A OOS 1234 G161 0157 ; HDQUES C 001 0006 1194 0362 
CKCOM A003 121F 0156 0123 + HEDLST A 029 OEF1 1123 O974& 
3 CKREP A003 ILIAD 0122 0981 HEONG A OO1l OF26 1125 0364 0365 0366 
CMLODOP A 006 1158 0092 0097 HH C 001 0038 1193 0017 C033 0069 O888 1057 
CNT A001 O171 0338 0395* 0405% HS C 001 OO5D 1195 ool?Y 0033 0069 0888 
> CNTR A 064 0154 0335 0396 ; H6 C 001 0OO7D 1196 1057 
: CNT3 A006 O5C1l 0504 0501 : IMAD A 002 OF28 1126 1060 
COMP A GO9 OEAD 1106 0963 : IMAD2& A 002 1228C 0181 Ol71 
9 ComMPQ A 064 OB04 0899 9871 0881 0955 IMAG A 001 0300 1174 0181 1126 
CONSOL A O1S OEBC 1107 0914 INCL A 00S O702 0596 0592 
CTR A 001 OEBD 1108 0165* G6170* O178% 0463* 0475% 0493% 0504* 0653% 0750* 0766*% 0930* 0933 iINnC2 A 006 OA25 0830 0823 08626 
9 : 0940* O978* 0997* 1046* 1071* 10848 » INPUT C 001 6200 1197 0076 ©0090 O107 0129 0158 O17& O236 0392 0436* 0441 0445 
CTRDEV A O10 1004 1190 0736 O736* 0785 O787* O856e INSERT A 005 O6F4 0593 O577 
Soaps CTRSNS A 010 1003 1191 IN A 003 OD67 1077 1074 
3 CTRX A004 OCzZ1 0978 03518 IPL Cc 001 0040 1198 0012 0036 
CTR4 A 601 OEBE 1109 ossi* 09906 ISBSCA C 001 0002 1207 0535 0601 0604 O712 0837 0856 0922 0943 0960 
DO A006 0413 0379 0697 1Sx A 004 0435 0387 0382 
9 DODD A 004 1259 0170 0167 Jl A002 OF2ZA 1127 0831 
DEC A 004 0402 0432 06427 J2 A 002 OF2C 1128 0835 
® 
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@ PAGE il > PAGE LIA 
ERPS CARD ERAP —- ERROR RECORDING ANALYSIS PROGRAN ; ERPS CARD ERAP — ERRGR RECORDING ANALYSIS PROGRAM 
¢ 
CROSS-REFER ENCE CROSS-REF ERENCE 
€ SYMBOL T LEN VALUE ODEFN REFERENCES > SYMBOL T LEN VALUE ODEFN REFERENCES 
; i’ 44 
“+ SB & 002 OFZE 1129 0833 - 5: MEGS A 002 OF82 1137 0773 
€ 54 & 002 OF30 1130 0842 s NEXT & 004 L1IEO 0138 0155 
LOWORK A 004 10FD 1199 O086* OO87 0103* 0104 NEXTR A004 1127 O©O0T6 0045 ©0115 ©0150 0160 0164 0180 1187 
LENGTH A 004 1154 0091 0105 NINE AOOlL OF83 1138 1020 
€ LIne & 001 ODA2 1095 0360* 0373 O373% 0480* 0481 O481%* 0482 0482% 0483% 0484% 0692 0509¢ > NOCRD C 001 0010 1203 0812 O817 O91) 0924 0928 O954 
0526% 0527 0528% 0542% 0547 0552% 0553 0553% 0555* 0556 0560 0561 NOHD A 006 O3E7 0368 0363 
O561* O713% OF724 O714* 0749 0754 0754 0755 O789* O0792%* O795* O796 NOPRNT C 001 0004 1204 0485 0522 
€ 0798* 1189 8 nov A004 04€4 0428 
LK A 004 C800 0896 08 86*¢ NUM1 & 003 OF86 1139 0422 0497 0792 0857 0979 70985 0996 
Loop A003 1138 0082 ©079 Goss NUL A 002 LIFC 0145 0148 
€ LOOP1 A 006 0632 0539 0541 $ NL A 005 LIA2 1205 0095 0178 
L00P10 A 004 OSDA 0513 0486 0600 N24 A 002 128E 0182 0177 
Lace1l A005 0589 0497 0499 ocT A 004 04€8 0430 0426 
€ LOOP12 A 005 O59E 0494 0508 3 OCTA A004 OT7FF C671 0666 
LOOP13 A 006 052A 0464 0476 ONCE A 006 OA5SC 0841 C836 
LOOP15 A 006 0995 0792 0794 ONE A 002 OF88 1140 0370 0403 0405 0466 0473 0475 0498 0504 0540 0596 0646 0752 
€ LOOP16 A 064 OAFO 0892 0892 B 0793 0839 0840 0841 0858 0940 0988 0990 0997 1046 1084 1086 
LOOP19 A 006 O0C40 0985 0989 1, PACKIT A 004 OCSB 1015 0131 0142 0176 0393 0458 0518 
LOGP20 A005 O8E8 0740 0802 ; PATT? A004 OA6C 0846 0838 
€ LO0P21 A 004 0C35 0982 0350* 0991 a PC A 006 0803 0673 0663 0668 0670 
LOGP23 A 006 OAB86 C857 0859 PCH A 004 0733 0610 0384 
LOOP24 A 004 OR85 0935 0939 0949 PCHBUF C 001 C280 0331 0327 
€ LOOP25 A 006 0C2B 0980 0998 2p PHBUFa A 002 0120 0327 0285 
LOOP29 A 003 OF766 0627 0649 PKLEN A OOl OFS8S 1141 0128* 0139% 0175* 0390 0457* 0517* 1027% 
bre LOOP6 A 005 0682 O574 0582 PK2 A093 OC9F 1026 1028 
c LPERR A CO3 OD26 1057 1058 1064 | PK3 A 004 OCB1 1021 1019 
LPTONE A 005 2119C 0112 1205 PKS A004 OCCO 1025 1023 
LSSTAB A 092 1247 1171 0945* PLS104 A 005 O7TA4 0645 0637 0641 
€ LST A 004 O73E 0613 O6it > PLS116 A 005 O79C 0643 0635 0639 
LSTCRD C 001 0008 1200 0610 0613 ;, POSAD A 002 OF8B 1142 0464 
: LSTCTL C 001 0040 1201 0899 0953 ; Bes POSTAB A142 10CD 1164 0368 0368* O977 1142 
c LSTERR C 001 0020 1202 0805 0866 § POSTMP A O10 1007 1165 0392 0397 0410* 0412 0414 0416* 0417# 0419 0420 0423 0625 0635 
MASKS A OOL C26E 0218 0209 0456 0462 0491 0893* 0894 1190 1191 1209 
. MERR A OO3 OAE2 0888 0889 0895 : PRINT A& 004 ODIB 1054 0159 0367 O557 0586 0605 O797 O827 O847 0861 0864 0917 0923 
C MFCNT A OOl 0080 0278 0275* 0280% 3 0964 0975 0995 
_.,  FCUER A 00Ol OOFB 0210 0289 06301 PRSIG A 003 6D39 1062 1052* 1054 
et MFCUIO A001 6098 0268 0265 0266 0295 { PRT A 003 OSTA 0783 0850 
C HFCUND A OOL OOEE 0305 0282 0297 % PSTACK A 001 OOCS 0288 0371% 
MFCUPH A 001 0094 0264 0691 i PTBUF C 001 0200 0332 0328 
MFCURD A OOl O0D4 0293 0274 0377 1 PYTBUF@ A 002 0122 0328 0283 
C MFEPL A 001 0113 0320 0309 Pos PTIMG A 006 125D O171 0169 
MFF.O1 A003 OODB 0297 0302 ! PTl A 004 04D6 0433 0429 0432 
MMODX A 004 0090 0242 0238 0240 P5203 & OOl O3A7 0353 0349 
€ MMDDX@ A 001 0093 0243 0235* . QE A 006 O0B50 0919 0908 
MMODYY A O01 0076 0234 0439 0443 QH A004 0B30 0911 0900 
MMDDL A 004 O4FA 0442 0440 Qt A004 O86C 0928 0909 
€ MMDD2 A OOl OSCB 0446 0444 QRSS A O00& OFBF 1143 0515 0519 0532 0549 0550 0568 0569 0569% 0570* 0571% O572* 0573% 
MONE AOO1 OODS 0294 0280 0574 0593 O748* 0761 0762 O767 1098 
MOVE A OOS LAS O114 O11L1*® 01124 } RDBUF C 001 0200 0330 0276 0326 
¢ MPCHX@ A001 0003 0292 0267# RDBUF@ A 002 OLIE 0326 0284 0298 
MPCHL AOO3 OOAE 0277 0281 ROCO A 004 1263 0172 0179 
MPCH2 A 001 OOA% 0273 0279 RDOCTL A004 OES 0889 0887 
€ MPCH3 A001 0098 0269 0290 RDY A004 0D29 1058 1056 
MPCHS A003 OOAT 0275 0272 aa READ C GOl OOFL 1206 0012 0036 0064 0891 
vee MROX@ AOOl OOED 0304 0296* ‘  *" -RECOVR & 004 086D 0702 0341 
€ MSSCR A040 OFS8 1131 0585 REGBIN A 004 v957 0770 0763 
MSTAT A 002 0124 0329 0270* 0271 0314* 0315 0318 REGHED A 004 OBFB 0964 0961 
KVOV A006 0642 0542 0536* 0538 05398 5 REGSNS A 006 O66E 0556 055i 
¢€ NCOMSG A 032 OF78 1132 0916 RSTACK A001 OOEF3 0300 0372* 
NEGL A002 OF7A 1133 0471 0474 0506 0982 1026 1045 10980 1088 RIN A 004 OD10 1048 1033 
NEGIX A 002 LIFE 0146 0141 | RTYS AOCS OF96 1144 0962 
¢ NEG2 A 002 OFTC 1134 0418 1025 1027 1044 RISAV A 002 OF96 1145 0126* 0132 0138* 0143 0449* 0513 0525 0554 O597* 0598 O647* 0648 
NEG3 A002 OFTE 1135 1083 0729* 0730 O751* O770 0800* 0801 
NEG3X A O02 1124 OOT2 0101 | R2SAV A002 OF98 1146 OL27* O171% 0173 O177* 0580* 0581 0725* 0726 
¢ NEG A 002 OF8O 1136 0507 SBFEXP A 004 0490 04616 0413 0415 
| NEGX A002 1126 0073 0102 , SELF3 A 00% OD3C 1063 1055* 1063 
€ | 
DATE 28NOV69 LTAPRTO 24SEPTO 010CT70 OLAPRT1 O1AUGTIL PROG ID OERP-5S DATE 28NOV69 LTAPR70 24SEPTO O1QCT70 O1APR71 O1AUGTI PROG ID OERP-5 
e EC NO. 816559 816667 816777 816760 818945 818817 PAGE 11 | EC NO. 816559 816667 816777 816760 8189465 818817 PAGE LIA 
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PAGE 12 PAGE 12A 
ERPS CARD ERAP - ERROR RECORDING ANALYSIS PROGRAM ERP5 CARD ERAP — ERROR RECORDING ANALYSIS PROGRAM 
t 
CROSS-REFERENCE : CROSS-REFERENCE 
SYMBOL T, LEN VALUE DEFN = REFERENCES SYMBOL T LEN VALUE DEFN = REFERENCES 
| 
SEQDUN A 004 08D6 0735 717 1017 1018 1021 1022 1025* 1034 1035 1045 
SEQ A003 0898 0718 0731 ; XR2. C :OO“L ©0002 1211  0030* 0034 0035 0037 0038 0041 0041 0042 0043 0060* 0061 0062 
SEQ2 A 00% 089£ 0719 0727 0063 0065 0066 0067 0070 0086 0087 0088 0093 0093 00% 0094 
SEQ3. A 003 0884 0724 0720 : 0099 0102* 0127 0130 0140* 0173* 0236* 0237 0239 0241 0276* 0277 
SETIT A004 O005C 0212  0202% 0204" 0210* 0211 0308* 0317* 0319 0323 0375* 0392# 0397# 0399 0399 0456* 0492* 0494 
SIX A 002 OF9A 1147 0539 0497 0502 0503 0503 O5C7# 0515* 0547# 0655* O718* 0719 0722 0723 
SIXTY9 A 002 OFSC 1148 0948 0724 0724* 0725 0749* 0759 0768% O977* 0982* 0983 0988 1016 1017 
SMHD A037 OFC] 1149 0959 1020 1021 1024 1026* 1034 1035 1036 1037 1038 1040 1041 1043 
SRSSW A 004 OOIT 019% 021% 622? 1044 1075 1077 1080% 1083+ 1088 
SPACE A 004 OD1G 1052 0343 0344 0345 0346 0487 0735 6813 0848 0869 0870 0957 0958 X78 A 001 103E 1160 0633 
0965 0972 0973 0976 x90 A OOL 103F 1161 0904 1024 
SPC = A004 «=—«OT2F «(0606 (06 02 ZERO A 006 1045 1162 0519 0537 0576 059% 0716 0905 
SSTAB A OOL 1008 1167 1150 1152 ZRSC =A 00& «21049 «1163-0494 «0789 0980 0993. 
SSTABA A 002 OFC3 1150 0820 
SSTABF A 002 OFCS 1151 0934 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
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SF KKEKSEHKETCSES HKCEKKAKSSHESSEKRHE SSH HE Ce TKHSSCSSEEECESSEER SEE RAASSOCSTCS ESE HSEESESEHAKEE 0239 03 0234 a4 BOOT 22 pc Y1.2* 32 
19 * . 340-72 -ROUTZ3 DE ALZ (9 
12 ® THIS ONE CARD PROGRAM IS CORTAIRED I8 THE PIRST CARD OF THE e mean CONS ESS 5 ” 
12 © DIAGNOSTIC CONTROL PROGRAK. IT 1S READ INTO LOCATIONS 0-95 BY * 3 
913 © INITIAL PROGRAS LOAD. &HEY GIVEN CONTROL, THE BOOTSTRAE ROUTINE # - 
1@ © READS THE SECOND CARL OF TEE DCP OBJECT DECK INTO 572-607 AWD © 7 
15 © BRANCHES TO IT. a 73 
16 ® * n 
17 ® WNOTF - THF SECOND TIER OF THIS CARD CONTAINS THE PART NOMLER AND # ove 74 Onc r6or i 
36 8 EC LEVEL OF DCP. + Th OOO hGS SE OEE HEH HE OEE EET EG OTE SESE ENS TE AHS TARE ST ESAPSOSTESS STS GH SKSERSS 
19 © ; ‘76 @ PIRGEHGCETIC LOALFE * 
20 SHKOSCS SSE STES EC STKEHTRELELESTE SITE RRHTESET IGE SES SEEHERSHKSEHASHETCESHOHIASSEOSSHHSS 77 SSSESE SAH KLE SSE SEVISSS SEL CET HSA A SRL SSL ATE SHES SHEE TES SSE TAESHK ESET HEORSEVERS 
; OULD 21 USEING BOOTI, IRI ; JE CHRELAEE AHHH EEE SCE ATL ETU NS COSEASEEHSEENT EELS ETL EEEEE SLE SE OHEEODTE NOE 
3000 C2 01 OCOD 22 BUOT1 LA 0,XF1 LOAD BASE RYGISTEF : 79s * 
OVO DT FO 17 23 TIO BOOTIE (,2R1) ,X* FO* GO HALT YF PCO ERROE OF ROT READ? 80 © 2 OWE CARD BUOTSTTAL RAPS TLIS LORDFR INTC CORE AND BRANCHES TO ® 
0007 71 FS 1E 24 LTO = BOOT1T (,3R%) 1° FSS LOAD READ ADDRESS REGISIFR 81 ¢ IT. THE DIAGNOSTIC LOARLEA THE! LCAGS TAF CONTLOL PPOGRAK,. ° 
DOUA FI FI 80 25 STO IPL, READ READ A CAKD INTO LUCATIONS S¥Z-6U7 82 © INCLULILG JTS FLCTION REE FENCE TABLE. AFILE DCP IS LORDED, THIS * 
900D DI FI OD 26 BOUTIA TIO EBOOTIA(,XRI) xt FV LOOF UNTIL DONE 83 * HODUAE THEN TRANLIULES TISLDF ISTC PF SECTION LOPLPR EY ALTERING B © | 
OED ey cae 27 TI  BOOTIE(, ABT) OES EOS GO HALT IF EERUE fy @ PRANCL ADDRESS. CBOELT CARLS RECCONIZED £1 BOTH FEASES INCLUDE #  -: . 
0973 CC 87 02700 28 8 BOOT2 GO TG BUOTSIKAP RUUTINE a5 * * 
| 23 86 * TLXT . 
0017 FO 3B 5D 3C BOOTIE SEL 85,88 *sFCU NOT RFRBY OR LREOR | B87 * REPLACE * 
OOtA DO 87 CO 31 ib BOOT 1(, XL 1) GO TRY AGAIN 8B « COARI RT - 
37 . 69 * SEVSE S®I4t.8 : 
No1p c200 ooln 33 BOOT11 DC AL2(512) 90 * END i 
34 91 < 
DOTF HONTL' UOF2FSPSP9I CL35 35 DC CL29" PN 2589900 EC XXEXEX Le 92 © THE DCP LOADER PURTIGCR ALLO BECOCNIZES THE FCLLOR®ING CARDS-- & 
OC27 FIFIPYGOMOC SC 340 35 93 * SRT = 
OO2F KIEV VETEIVNIETSO 35 94 2 vot > 
9037 8OuCKEDaODs 35 . 95 * CHAIN IRACE COETEGT, AED IBACE CARDS on 
3t 96 * 
36 97 * OTHER CARDS ARE IG#OKED. ba 
36 } $8 2 z 
36 \ 99 8 
Zi} SHAPE TESS SSH ESH STE SES EOROETERTHE EE OTEAAOTE DESO EL TEESE EEE EL ESO 9858 2 LOO FUCA S SS SS OTHT SESE EL EREE ET BLASS CELT EL VEL SE AOS ETORESSSORS CES SSI ECTHSES 
38 4 POOTSTKAP ~ SECOND C3EL *: 101 
39 Se ee ae ee ee ae ere Re ene ne are ee ee eee se ee 102 2 
ao * 7 103 ** SOBRGUTINE TO READ CNE CRED. 
&1 % THYS ONE CARD PROGRAM IS CONTAINED IN TRE SESOND CARD OF THE *. 104 ¢ 
82 * DIAGNOSTIC CONTROL PROGRAMS. IT 1S PEFD IK1TG LOCATIONS S12-585 2 Cesc 105 USINC CDFEAD-8&,%F2 
43 * BY THE IPL CARD. THIS ROUTINE READS TH EF JIL FORMAT CALIG INT ®, 9069 C2 ©? OCSC 106 CDREAD LE CUREAD-(, ah2 LOZE B3SASE RDDEESS 
42 * LOW COKE TO BUILD ENOUGH OF THF DIAGNOSTIC LOALFE 10 HRNDIF 11X14 ‘ NOku C2 01 CRBO 107 Li INEUT, 2k SET 
45 * CPRDS. THEN THE BOOTSTRAP ROUTINE BARNCKEL® 106 THIS FOLTION OP ®; : COG7 108 AINEUT EQU *-1 
46 ® THE DIAGNOSTIC LUADER, WHICH LOADS THE BLAS. ADEA OF THE LCRDER ei Onte Be He DE 109 ST CDEYIT¢2(, 707) gE 0% SEY Ur RETWER ADDRESS 
a7 * AKL DCP. * ean (Pt F095 110 TIO ESR p Akay pF OUet GC PRLT IF RECU KOT BFEDY OR FRROR 
a “i COBF DT FS Ob 111 DOLIG LIG  AINEDI(, M4] SEP ESS LORD TS% TW SLART LCRDIEG AT O0UG 
QQ SCL THH ASL AEE ESA SAREE EREEC SHARE KEE OTA NCATE LLAL ATE RKE KSA eHTESHOBTE RE: 0071 P? FI 00 112 STO NORM, RETE RERb BA CLEL - NORF?L BODE 
0200 50 ORG = =512 COT’ £1 PT 18 113 DOSY TIO BUSY(, bz} -F TT! LOOL URI] EFAD DOWE 
O20¢ St USING POOT2,FF1 : 6°77 RO P03 tu SWE STATUS (,¥e2) A298 GO GALT 1F EEED Gk RERD CHECK 
02006 52 USING BOOT2Z,XRZ NO7TR 89 26 C3 735 Trp STELTOS(, kLa} gk! EG ; ne: 
0200 C2 0? 0200 S3 FOGT2 LA BOO12,XK2 - LC&D FASE KLGYSIENS 007 CO 40 OLVG 116 CDEXI7T 81 %-% PITT SULEGGITEE IF .NC ERSGES 
0204 DZ Ot 60 54 Bi2 LA 9G(,XRV XE N08 FO 3B SD 317 ERR USL Ad, BE RECO BOT READY GR ETLOR 
0207 F2 87 03 55 J BOOT2A cose FO EF 12 ie B DOLIO(, 3x35 GO TFY SrazkT 1/0 
C208 FO 38 SD 56 BOOTZE APL Hb, HH *hPCU NOT RERLY OR ERROR 119 
O2C0R EI FU OA S7 BOCTZAR TIO Boctze(,yh2) ,xeEC! GQ ELIT YF BECE ROT READY OR FREOK aca? Tern OCEB 120 NEG? vc XL2¢FPPD" 
0710 B1 FE 3B 58 L10 = BONT23.(, XKZ) gR* FSE LORE READ LER FOL ADDR OOOH noua FERC OCRR 121 KECe BC RLZ‘FFict 
C213 F3 FL ac 59 SIO. —- IPL, REAL RERD 2 CERE 122 
0216 Fi FT VE 6C BOUTZ2B TIO =BOOTZE(,AN2) AT FTE LOOP TRTIL DONE 723 
0219 F1 FC OA 61 TIO BOUCTZE(,XK2} ,X* FU! GU KALT IF ERROR over CO R7 COED 126 KEXiG F CDREAL GC PRAL B&B CRRP 
C21c 4c 3B 3B COIR 62 NVC 93 (60,%K1) 59 MOVE Déiad TO COKFP OORF Ip F3 06 125 ay Of WHY -CSS ERBKCE 12 THIS 15S TEXT CAD 
0221 2 Gt 3c 63 LA 60 (,XK1),kK1 INCKEREKT POIRIER POR WEXT CRED 009? F2 81 06 3 2€ dt LOUB 
DAT? COFEFETO O94ARTO 010cT70 OIAPET71 1SNO¥T71 TEJART2 O1MAR72 PROG ID OPFF-8 whee werearG GONARTO O1ncTIC ave: 7 WPoeTt TRIANIZ CIBAR72 PROG ID OFPF-8 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN: 


_ FPFB 


“ERP LOC OSJFCT CODE 


0095 7p 
N098 F2 
OO9R 7D 
OC9E F2 
OOAT FC - 
OOAY D? 
OOAT7 Ra 
JOAA RD 
MCAD EO 


OoRN 
 SOBa 
OORR 
JOBE 
90C2 3 
OCA 
NGCcc 
ooODO 


NOD& 


O0D8 
Nopc 
NOED 
OOE4 
OER 


CEC 
COFO 
OO P3 


OOF6 
OOPR 
0190 
0103 


0108 
cine 
0110 


co 
35 
D0 


01°83 


9108 
O%9L 
9112 
OTR 
OIE 
0122 


DATE 
FC NO. 


QO9FES7 
816649 


ik: 
ie 





DIAGNOSTIC CONTROL PROGRAS 


0(,XR1),C*E! 

CKREP 

1(,XR1) ,X"DO? 

46 
V(oXR1) ,X°2K° 
1(,XR1) ,XR1 
LDWORK (,XR2) ,XR1 
LD WORK (,XR2) ,X* DBE 
LOOP(,XR2) 


INPUT#¢87, X°038 
$14+1,0 

S241 (1) ,S1¢1 
1(*-*,XR2),1(,XR2) 
1(*-*,XxXR2) ,1(,XR2) 
St#1(1),81 

St#¢7,4 

CMLOOP 


1(3,XR1) ,0 (,XR2) 


NEG3,XR1 
NEGUS, XR2 
LDWORK,XR1 
LDWORK,X' 978 
LENGTH 


INPUT, X31 
O(,XR1) ,C*°E? 
CKREP 


MOVE43 (3) 525 (,XR1) 
MOV E+4( 1) ,23(,XR1) 
26(,XR1),XR1 

#-* (*~*),%-* (,XR1) 


NEXTR 
INPUT4+2,XR1 
0(,XR1) 


PART WO. 


2589903 
PAGE 2 


BRABCH IF NOT END CARD 


REPLACE ALL HEX *DO* BYTES WITH *2A* 


INITIALIZE POINTERS 
INITIALIZE LENGTH OF ADD PIELD 


SHIFT OPF RIGH-ORDER 2 BITS 
PREPARE TO OPERATE ON NEXT BYTE 
CONTINUE UNTIL & BYTES COMPRESSED 


MOVE 3 COMPRESSED BYTES TO TESPORARY 
FIELD 
PREPARE FOR NEXT & SYTES 


CONTINUE UNTIL CARD DOBE 
POINT XR1 AT READ-IN PIELD 
IF TAIS IS END CARD, GO ON 


SET UP TO MOVE TEXT DATA TO CORE 


INSTRUCTION TO MOVE TEXT DATA 


‘ 
(NOTE -- ADDRESS OF THYS INSTRUCTION 


IS THE SAM*® AS THA OP CKREP) 


THE ABOVE § INSTRUCTIONS ARE OVERLAYED DURING NORMAL DCP LOADING. 


PIRST THE CLEAR CORR ROUTINE OVERLAYS THEA. 


LOADER OVERLAYS THAT ROUTINE. 


IP THESE FIRST 5S CARDS ARE USED 


THEN THE REST OF THE 


AS A GENERAL LOADER, THESE LAST TWO 


INSTRUCTIONS CAUSE A BRANCH TO THE ENL CARD ADDRESS, WHEN END CARD 


ALL ABOVE INSTRUCTIONS ARE CONTAINED TN IPL FORMAT BOOTSTRAP 


CARDS AT THE BEGINNING OF THE DCP OBJECT DECK. 


THE CODE IS CAPRPLE 


OP HANDLING TEXT AND END CARDS AND IS USED TO GET THE REMAINDER OF 
THE DCP LOADER INTO CORE. 


BEGIN GPNEPATING TEXT CARDS 


*-14 


THE POLLOWING IS A ROUTINE TO CLEAR CORE FROM 8K DOWN TO ITSELF. 


AINED IN THE FIRST TEXT CARD OP DCP, 


AND IS EXECUTED 


AS SOON AS IT IS MOVED TO CORE. 


X*1PPP*,ce ¢ 

X" TFPE* (255) ,X" PPP? 
X*1EPP* (256) ,X°UPFF? 
ZRO*3 (2), NUN256 
ZRO#2,X*018 

ZRO 


19NOV71 
818823 


ADDR STST SOURCE STATEMENT 

00 127 CLI 
71 128 INE 
01 129 LOOP CLY 
03 130 INE 
01 131 AVI 
ro 132 LA 
01 133 ST 
01- 134 CLI 
3F 135 BL 

136 
ORN7 137 LA 
OOBF 438 LENGTH “VI 
COC? OOBP 139 CNLOOP YC 
01 01 140 $1 ALC 
07 01 1&1 S2 ALC 
OOBF OOFD 142 ALC 
COBF 143 CLI 
0088 164 BNE 

145 
01 00 146 4¥C 

Way * 
ooRs 148 A 
OO8A 149 A 
0osD 150 ST 
005D 151 CLI 
COBY 152 BH 

153 
0880 154 LA 
00 155 CLI 
16 156 JE 

157 
0106 19 158 SVC 
0107 17 159 LPTONE VC 
1A 160 LA 
0000 cA 161 MOVE "VC 

162 

16? 
008R 163 BO 
rBe? 164 L 
00 165 8 

166 

167 + 

168 * 

169 « 

170 * 

171 * 

172 * YS RPAD 

173 

174 

175 *¢ 

176 

177 ** 

178 ** 

179 

180 

181 2Cos 

182 ORG 

183 

184 * 

1385 * IT IS con? 

186 

187 
IPFP 188 CLRCOR YT 
TFFE TPFP 189 svc 
12PP PPP 199 729 “VC 
0115 01731 1914 SLC 
0114 192 Cri 
9112 193 BH 
0 098AR70 010CT70 O1APRT71 

816638 816760 818948 


T4JANT2 
818388 


CI.EAR UPPER 256 BYTES OF 
PIRST 8K WITH BLANKS 
CLEAR NEXT 256 RYTE SEGMENT 
POINT TO NEXT 256 BYTE SEGNENT DOWN 
CONTINUE UNTIL READY POR 100-1PF 


OIMART2 


PROG ID- OPFF-8 
818390 d 
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IRM SAINTENANCY DIAGNOSTIC PROGRAM Zp Ae ‘PART WO. 25489901 
7 PAGE 2a 

FFF&8  MTAGNOSTIC CONTROL PROGRAMA. 

EPP LOC OBJECT CODE ADDR STMT SOURCE STATENSENT peg oy 
126 OC CD OPP IPFP 194 "YC X*UFP* (X200-ENDCLR) ,X*UPPF* CLEAR BEETS THIS SEG RENT ne 
012c CO 87 008B 195. B  $NEXTR RE-ENTER LOADER eg eee 
0130 0100 — 0131 196 NUS256 DC XL2°0100°* os 

. C132 197 ENDCLR £OU * 
02090 198 ORG x*290° 
0200 199 x290 FOU Of 
200 
200 
200 
0108 201 ORG CLRCOR 
0108 CO 87 CORR 202 B NEXTR CONTINUE LOADING, GET WEXT RECORD 
010C 7P DS 00 203 CKREP CLI O(,XR1) ,C*R* BRANCH IF NOT REPLACE CARD 
O19F CO M7 CAOCD 20% CKCOM1 BNE CKCOMA 
205 .** NOTE - BRANCH ADDRESS OF PREVIOUS BRANCH IS ALTERED APTER DCP 
206 ** LOADING COMPLETE. THIS OVERLAY PREPARES THE LOADER FOR 
207 ** HAANDLING SECTIONS. 
0113 CO 87 0226 208 B PACK GO PACK ADDRESS 
0117 08 07117 209 Dc ILi*ge 
C4118 O8BS 0119 2T0 DC AL2 (INPUT¢5) 
OTA 0136 0715 211 DC AL2(DEST) 
Cl1c 7D CS 01 212 CLI 1(,XR1),C*E® BRANCH IP NOT PATCH 2XECUTE CARD 
OTP F2 01 06 213 JNE  AJDEST 
0122 BS 01 DA 214 L DEST (, XR2) ,XP1 BRANCH TO CARD ADDRESS IF IT IS 
0125 pO 87 00 215 8 O(,XR1) 
0128 D2 01 08 216 AJDEST LA 8(,X81),XR1 POINT AT PIRST BYTE 
N12R BU O01 DB 217 NEXT ST SRCE(,XR2) ,XR1 SET UP SOURCE ADDRESS 
CI2E CO B87 0276 218 3B PACK GO PACK THIS BYTE 
0132 02 0132 219 oC IL1#2¢ 
9133 7900 0134 220 SRCE pc AL2(*-*) 
017125 0°00 0136 221 DEST pc AL2 (*-*) 
C137 AE O1 DA At 222 ALC DEST (2, XR2),N1(,XR2) INCREMENT DESTINATION ADDRESS 
013B 7D &6O 01 223 CKBLK CLI 14,XR1),c* ¢ GO READ NEXT CARD IP BLANK POUND 
O13F FC B81 IP 228 8E NPXTR(,XR2) 
0141 D2 01 01 225 LA 1(,XR2) ,X81 INCREMENT TO NEXT COLDSN 
0184 7D 6B 00 226 Cli 0(,XR1),C*,?* JUMP OVER ANY COMSAS 
C147 £O 81 DP 227 BE CKBLK (,XR2) 
CUA D? 01 04 228 LA 1(,XR1) ,XR1 POINT AT 2ND DIGIT 
01ND EQ 87 CP 229 B NEXT (,XR2) GO PACK THIS BYTE ee 
230 
230 
230 
230 
230 
230 
231 ** THE FOLLOWING CODING COMPLETES THE SECTION LOADER. IT IS 
232 ** BYPASSED DURING DCP LCADING. ONCE THE CONTROL PROGRAM IS LOADED, 
23’ ** LINKAGES ARE SET UP SO THAT THIS ROUTINE WILL BE SUBSTI- 
234 %* TUTED POR THE DCP LOADER ROUTINE RESIDING AT HEY -A90-. 
235 
C150 7p SC 00 236 CKCOMN CLI O(,XR1),Ce#? BRANCH IF THIS IS NOT A COSMERT 
C153 F2 01 O° 237 JNE  CHKSSW CARD 
C156 38 01 0204 238 TBN SBYTEO ,SSWO7 BYPASS PRINTING IF SSWO7 IS OR 
015A BO 10 2F 239 BT NEXTR (,XR2) 
CISD CC 87 O21A 240 B PRINT PRINT CONTENTS OF THIS CARD 
0461 27 0161 281 DC XL1°21° 
A162 FO 87 2P 242 B NEXTR(,XR2) GO READ NEXT CARD 
243 
0165 4D 02 02 N5F1 244 CHKSSW CLC 2(3,XR1),SSW BRANCH IP NOT SENSE SWITCH CARD 
"16k CO 01 0196 Zus BNE CHKEND 
O16F OF 93 C20D O2CD 246 SLC SBYTE5S(4),SBYTES CLEAR SECTION SENSE SWITCHES 
0178 D2? 01 05 287 ISSSW LA 5(,XR1) ,XR1 POINT XR1 AT FIRST SSW NUM 
C17? 3 O01 CRI 248 CRKSSO ST SADDR,XR1 SET UP POINTER TO THIS NUMBER 
C17B CO B87 0226 249 B PACK GU PACK THIS NUMBER 
OIF 02 OV7F 255 pc IL1¢2¢ 
0120 00700 C181 251 SADDR DC AL 2 (*-*) 
“(132 9407 07183 252 pc AL2{DATSWS) 
0184 CO 87 040OB 253 B SETSSW® ; 
C188 7D 4B C1 254 CLI 1(,XP 1) ,C*,? CHECK POP SURE ENTRIES 

TATP. O9FERTO OIMARTO 010CT70 OVAPR71 1GNOVT1 TG JANT2 O1MART2 PROG ID OFPFP-8 
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IBS BAINTEWAHCE DIAGWOSTIC PROGRAM | PAST wo.  2589901| 9 TRS -AATNTEWARCE BIAGKOSTIC PROGRAR . PART HO. 2589901 
PAGE 3 | 3 PAGE SA 
5 : } : : . 
frre DIAGHOSTIC CORTRCL PROGRES ! FPFS BIAGHOSTIC CONTROL PROGRAA 
EPR LOC OBJECT CODE. ApDe STAT SOURCE Statenger ufoee, | ; | ERR LOC OBJECT CODE ©" ADDR STAT SOURCE STATENEET | 
O18F p2 "93 03 255 i LR 3p ERT) XBT POIRT TO WEXT KRONBER | OASS 3A BO 0208 323 aM igh ace a 
018E CO 871 0177 256 BE  CHKSSO CONTINUE UNTIL CARD DONE | OASC 7D C2 06 326 CLE & (, RI} CB 
0192 CM 87 COB 257 B KEXTR WHEN DOME, GO READ NEXT CARD | OAGP F2 62 Pe aie JL OPE oes 
0196 7D CS 00 258 CHKEND CLI 0(,XR1) ,C°E®* GO READ NEXT CARD IF MOT EXD l NAS2 Cee 26 CLI = (, XRi) CD 
0466.80.04 2P 256 ‘SHE WEXTR( ¢XR2) 0A5SS EO 0& 2P 327 BUH BEXTR(,XR2) YES, GO READ WEIT CARD 
Alac aa 0a see 260 TBH FLAG, BITS | 0aS& FO 3B 6F 328-CDERRO HPL HU, 8H *NO, CARD SET UP IHPROPERLY 
Dia0 90-90 87 264 BF 129 (, ZR1} BRABCE TO x*901¢ j OASB EO 87 2P a. B HE XTR (X82) GO READ NEXT CARD AFTER HALT RESET 
4A3 CO B 262 LDX = B ++ 
were ce Kane: Sea eita. oes eas | OASE 09 OASE 237 FS pC «XL "09" 
OCIA7 38 O8 OG 264 LpPT2 st LDX@, ARR CASF CO CASF 332 DEV DC IL 10° 
DIAB CO &7 0060 265 B CDR EAD 0260 7D F4& 00 333 CRUDT CLI 0{,2R1) ,C*U* BRANCH IP NOT UDT CARD 
O1AF 39 AC OIFD 266 TBF PFLAG, BITO¢BITZ¢BITS¢BITS | OAG3 P2 07 AA - 3348 - yer CES 
0183 £0 40 33 267 BT HEXTR¢G (, XB 2) i OR66 7D 80 03 335 CLI = 3(, 387) -C* ¢ USE THIS CARD AS A CONTINUATION YF 
0196 CO B7 O21E 268 B UNPACK 0269 F2 01 OA 336 JNE PTFDC COLUSE 4 IS NOT BLARK 
46ND O1BA 269 oC CL A*2° DA6C 3C CO 025P 337 AVI OUTAB¢&S,x°0" IP BLANK - CLEAR UDT TABLE POF ALL 
eed oles owe «(270 DCs AL2. (DTASLE#1) OA70 OC 2C 025E 025° 338 AVC -UTABCSS (45) ,UTEBCSS = =REH ESTRIES 
Bic6 61e8 o1se 271 DC —AL2. {DECO-4} OR76 DZ 01 05 339 PTPBC LA 5, X81) -¥R7 POINT AT FISST DEVICE CODE 
Bice tay COntPOLE pane CLC DECO~4¢3) , 90(-XR1) eines Ku CATS 34 01 0AB3 380 OLPY ST =—- UPT R, ERI SET UP DEVICE CODE POINTER 
(Aen 5 04h 973 Sue CHLTRD . | DA7D CO 87 0226 344 B PRCK PACK DEVICE CODE 
O1C7 1D C3 O1PG SP 2748 CLC DECO(4) ,95(,XR1) CHECK FOR CAED 0 OnGT. 02 BEST. son pC OTL7*2° 
: oas2 o0ce GBA3 303 UPTR DC AL2{*-*) 
eice P2 81 73 275 JE OK ae ee 
OICF 1D 03 O7F5 SF 276 CLC DEC1(4),95(,XR1) CEECK POR CARD 1 Ae ee OB . ie abe (oe) 
pana foo R oe 077 se COR : OAGG -C2 02 0227 38S LAR -UTAB-3,XR2 POLET &T DCP UNIT TABLE 
Cane Ae bECOTee 598 HLTED DTABLE* 1, ARR | OABR Ez 02 03 346 ULPZ LA 3(, %R2) -XR2 IBCKENENT OBIT TABLE POINTER 
ee ae 595 HPL uD, HE ORBD BB 10 01 387 TBY 1(,-2R2) -BIT3 BRANCH IP NOT LAST DCP ENTRY 
OIDE CO 87 O1AB 280 B LDPT2+8 oe ee ee ane we. EBT 
ee non haan Oe Gk can “FLAC cuere | 0493 FO 3B 6F 349 RPL #0,RH *RAN OUT ROOR IK UDT TABLE 
pisccee: 4606445 ae ak ane | 0k56 CO 87 O0BB 350 B KEETE GO READ BEXT CARD 
Sapa eae 8a 383 . NEXTR¢G (,XB2) OA°R 8D CO 00 OASF 351 DTA CLO 0(1,XR2} DEY ERARCE TO OFERLAY IF THIS IS SAHE &S 
arrears Clee. oan ne: ELReOs OASF F2 8&1 O07 352 JE LDUDT PREVIOUS ERTEY 
O1Fi FOFOFOFO O1fa 285 DECO DC DL4atOe DECO MUST START AT x°1F1° GRAZ ED. 00.20 237 CLE =O, ER2) 6X" 0° BS: THES AN EUSED ESTRt 
apes Sipe. ChE RECA. Whe Ceres . OARS CO 07 CASA 358 BRE  ULP2 IF HOT UNUSED, GO CRECK NEXT 
Sipe ROD OUOROOERE ASRR ORT Be ecHeeOr ORAD BC OG CO OASF 355 LDUDT MVC 6(1,X82) ,DEV SET UP THIS UDT ENTRY DEVICE CODE 
Aare GEO Olen. S88 DC «AL. (CDREAD) OAAE RA OF 01 356 SBF 1{, XR2) ,X*OF* CLEAR OPTION BITS 
QIFE 9187 O1FF 289 DC  —- AL2. (LDPT2) ORO ee oe aa nee eke the) ek ©: 
as CABS D2 01 07 258 La 1{,IR1) ,xH1 POINT AT FIRST OPTION NUSBER, ALLOW 
‘aux : OKB7 7D 60 00 355 CLI 0{,2R3),C°-* FOR DASH 
cane ae See | OABA F2 01 03 360 INE +6 ere 
292 * THESE INSTRUCTIONS AND CONSTANTS ARE USED ONLY BY THE JCP LOADER. * 2 
293 * THE URIQUE SECTIONS OF THE SECTION LOADER ARE LOADED INTO TRE <| QaED Ue. O04 361 Cire Ls V(, XR1) eXRI POLST AT NEXT OPTION WUBDER 
298 © LOADER AREA, X*000° - X°1FF*. *! OACO 7D &O 00 362 CLI 0(,1B1},C* ° IF BLANK ENCCUNTERED, CARD IS DONE 
Sue OaC3 CO 81 SOER 363 BE W&EITR 
506 OAC? 7D 65 90 368 CLI O{,%R1),C*,° IF COMMA EBCOUNTERED, GO TO HEXT 
CANO POFGFB OA02 297 DOS8 pC —dDL3 °04a8* GaeR F207 67 365 JKE = oDTB DEVICE CODE 
Scone OACD D2 01 02 366 LA 2(,XB1},xEt 
OA03 FIF2PO OAOS 298 D120 DC DL3*120 
DADE 18 OA06 299 W289 pc 8 «sIL1*2a° Uae ree oer 367 8 ULP tT eta” 
Bae seAee Rabe GIGS. “SOOUCHANGS De vepescunie® . CAD’ IN FO 00 368 UDTB CLI 6(,XR1) .X*FO CHANGE EBCDIC G-A TO BINARY 
OROC O00 OAOC 301 CRCTR DC  XL1°0" OR0T Fe 02.03 369 JuL = UDTC 
302 ORDA GE CO 00 ORSE 370 ALC 0 (1, ZR1) ,59 
OAOD 7D SC CO 303 CKCOMA CLI 0(,zR1),C°#® BRAKCH IP NOT COHHEST CARD DADE (23. -FS: 00 377 ODTC = SBF O(, IRV} ,E* FO 
Aan hea aaie 305 5 wrraae CAES 4F 90 0 OOF 373 DLP3 SLC) 0-0 (1, XR1) BE? SRIFT BIT TC PROPER POSITION TO 
OA17 38 07 0208 306 TBX SBYTEO,SSHO? SKIP PRINTING IPF SSWO7 IS ON ORe Dee eee 22° JL =U DTD 
OAIB EO 10 2F 307 BT #EXTR(,XR2) Meena atee te 7 ao dee cere 
1 87 021 308 B PRINT PRINT CONTENTS OF THIS CARD eee e Er 
a 5 as CAz2 309 me. aeasoae e CAPR OC CO ORO? OFAE 377 DDTD AVC USETI+1(1) ,SASK-7 LOAD MASK INTO SET BITS OF 
| 4 370 5 weve tee ie pep ebie awe 9800 OC CO CBOR OFRS 378 RYC  USET2¢1 {1} , SASK INSTRUCTIONS 
preeoe ore Aer 311 oe oer ORME RR AO 94 379 USET? SRE 1[,IR2),%-* TURW OF PRUPER OPTION BIT 
oe hEOG BR DO OF 380 USET2 SBE 2{,%R2} ,e-© 
6 12 CKCPU CLI 0(,XR1),C*C* A PU OD : ‘ 
Sis a o a6 oi INE Bene de SNE ee BOSD ena ene ete OBOC CO 87 GARE 38% B ULPS GO LOOK AT REXT GPTIOR WUABER 
OA2C 1c CO 0200 04 314 SVC SHOD(T) .9(,XR1) PUT SYSTEF MODEL INTG SRT es 362 . 
0A35 CO 87 0226 316 B PACK PACK CORE SIZE INTC SRT Cee Oe. ae JHE CKCEE 
0439 08 0439 (347 pc. CSL ORIB 3C 00 0208 385 RVI SBYTES,x°0°* CLEAR COMMNOE SENSE SUITTCHES 
OR3A O889 CAIB 218 DC AL2(INPUT¢9) OBIC 3C 89 O209 286 BYT SBYTE?,5° G* 
OA3C 0203 OaA3D «60319 DC AL2 (SIZE) 0B70 CO BF 0176 — B ISSSB GC SET PROPER SENSE SBITCHES 
OA3E 3B 80 0208 320 SBP cCPU,x*80° SET DUAL PGS FEATURE FLAG IF : 
1 c eye A CB24 8D 04 06 CADB 389 CRCHE CLC 6(5,XR?},CHAI® BRAWCH IF HOT CHAI¥ IBAGE CONTROL 
OAUN2 7D F1 OB 321 CLI 11(,XR1),C* COLURN 12 CONTAINS *% : : ; ; 
OANS F2 01 08 322 JME 867 ORZ° F2 RI 08 390 SE ISCHE CARD WITH *//CHAZE* OR °// CHAIE 
| | oe =o + BRRTE B CPFP-§ 
DATE  O9PEB70 O9RAR70 O10CT70 O1APRT1 I9NOW71 IWIAN7Z  01KA872 PROG ID Orep-g: PATE “ORETETD. “Oearys, «C20CR1U ~OIKERTY “72 8Ov? ee ee lel 
EC NO. 816680 8 166 38 816760 818988 818823 8183488 £18390 Pace 3 FC. AOa! YETSERO eiee3s ST £760 $5 8248 8 18823 e18388 paeene race ae 
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: : : wes 2 ; oo , , , 8 


PaGe ; ; . . , PAGE as 
FFFB OI AGKOSTIC CONTROL PROGRAR - : FPFS DIAGNOSTIC CONTROL PROGRAN 
“ERR LOC OFJECT CODE ADDR STST SOURCE STAT ERNEST ae _ ERP Loc ORJFCT CODE. ADDR STMT SOURCE STAT EREET we ete 
 OB2C #1: 08 O7 OADB 39% CLE 9(5, X81) CHATS | er. SS ass © 
0831 F2 01 3D 392 SNE CKEED 2 . ‘ 855 ee SRT DATA 
OB3&8 3C: 47 OER 393 ISCHH SSVI INGADR,23 IWITIALIZE IMAGE FIELD POISTER : a 856 * 
0838 %C 02 OAOC 398 AVI 4 CHCTR,2 SET UP POR 48 POSITION LINE - 2 CDS 0200 00 0200 857 SHOD pC KL1¢Q8 SYSTES MODEL 
083Cc 3c 00 0678 . 395 BYE LPYHAGS120,xX°6" SET FLAG POR 4&8 CHAR CHAIR 0201 00 0201 458 pc XL1°08 RESERVED 
CREO 8D 62. OA OAOS 396 CLC 10 (3, ZR 1) ,Di20 BRANCH IF ROT 120 POSITION PRIRTER 620? 0000 0203 a5S9 SIZE DC XL2*0° CORE SIZE In HEX 
OB4S P2849 If 397 JE 18120 0208 00 020% 4860 CPU oc XL7°9¢ CPU OPTIONAL FEATURES 
0888 8B O02 OB OADS 398 CLC =: 1113, ER 1), D120 a) 02¢5 CO 0205 #61 pc XLI°H* 
OBeD F2 81 16 399 Je 18720 HAKE SURE COBTROL CARD 0206 0000 O207F #62 — oc XL2*0° RESERVED 
6850 4). 02 OA 9a02 800 CLE 10 (3, ZR 1) ,D0u8 HAS EITHER 720 OR O8G IM IT i 0208 4&63 LBASE EQUD #@ 
0855 72 $1 16 801 JE HOCHG OTHERWISE WALT ' 0208 00 0208 8648 SBYTEZO DC XL17°08 CONNOB SENSE S@ITCHES 
6858 SD 02 O8 NAD _ 802 CLC 11. (3, XR15 ,BOaS C209 00 0209 &65 SBYTE1 DC XL1°08 
OBSD P2 BT OF 803 ae HOCEG 020aR 00 020A 466 SBYTE2 DC XL7*O* SECTION SENSE SWITCHES 
0860 FO 38 6F 808 HPL 8 #O,AH 0208 00 O20B &67 SBYTE3 DC XL1°0* . S oe 
OB63 EO 87 2P 805 B WEXTR (, ZB 2) 920c 00 _ 020 &68 SBITES DC XL1°0? a ~- 
PBE6 3C OS OAOT GO6 IS720 VY CHCTR,5 CHANGE TO 5 CARD COUSTER 020n 00 020D 469 SBYTES DC XL1°9¢ 
OB6A 30 FP 0878 8o7 AVI «=LPISAG¢320,x °FF® SET FLAG FOR %20 CHAR CHAIE 9202 conneDco 6271 870 RPFX DC KL@*0° CURRENT ROUTINE PREPIE 
OBGE .F2 8&7 2a 898 NOCHG 3 RDCD EXTER LOOP TO LOAD CHAIB CARDS. ' 874 
Sep ee 409 872 © . 
OB71 7D €5 00 S10 CKEXND CLI 0(,%R1),C°E* IP WOT END CARD; THEN IGNORE AND 473 *¢ ASSEABLED TRANSFER TABLE 
OB7& ED 01 2P att BNE SEXTR(,XR2) GO GET REXT CARD. | | a7y ¢ 
0877 €2 07 0150 412 La CKCOA,XR1 CONNECT REST OF LOADER 0212 35 10 0546 475 TEST L TRI,TAR LINKAGE TO READ CONSOLE SWITCHES 
OB7R 38 04 0172 413 ST CKCON1¢3,XR1 | 0276 35 10 O9FD 876 LINK L TR2,IAR LINKAGE TO CHAIN ROUTINE/SECTION 
OB7F CO 87 ODDS Bis B BEGIN GO BEGI# DCP | O21A 35 10 02D0 &77 PRINT L TR3,IAR LINKAGE TO PRINT MESSAGE 
445 ' 0212 35 10 068P 878 UNPACK L TRY TAR LINKAGE TO UNPACK DATA 
0883 CO 87 0226 816 OXCTR B PACK PACK THIS PRINT IMAGE DATA CARD | 0222 35 10 O9FP 479 HALT L TRS,TAR LINKAGE TO HALT 
CB87 30 OB87 417 pc ILI" age INTO PROPER LOCATION 0226 35 10 0231 980 PACK L TRO,IAR LINKAGE TO PACK DATA 
OBG8 CBAP OB89 8418 DC AL2 (INPOT*8&7) | 0220 35 10 0568 881 LOAD L TR7,IAR LISKAGE TO LOaD A NEW SECTION 
OBBA 0R00 CB8B 46419 INGADR DC XL2*800* 027F 05CS ~ O22F 4&82 LASG@ DC AL2 (LASG) 
OBBC OF OO OBBB OADE 820 ALC IMGADR(1),828 ADJUST POINTER FOP NEXT CARD 0230 O3BA 0231 4883 ITR6 DC AL2 (RPACK) 
OB92 OF 00 OAOC 039F 421 SLC CHCTR{1) ,ONE DECRESENT CARD COUNTER 284 * 
OB98 EO O& 2P 822 BYH NEXTR(,XR2) GO READ KEIT CARD IF ISAGE COMPLETE | 885 *s UNIT DEFINITION TABLE 
OB9B CO 87 0060 823 RDCD 8B CDREAD GO READ NEXT ISAGE CARD AND RETURN 486 * 
OBSF CO 87 0883 a24 B OKCTR GO BACK AND PROCESS THE CARD 0232 487 UTAB #200 *¢ 
CBA3 E2E2E6 | OBAS &25 SS#D  oDC CL3'ssw° 0232 Cf00G00N000N00TN 0261 488 DC ZL488* 1000° 
426 023A HCOCCOD0NNDNDNND 888 
426 ats 0282 0900009000000000 888 
- 426 ’ 026A 00000000029000000 888 = 
826 0252 €c00000090000000 888 
426 025A CCOCC0000079 1000 988 
&26 


Q27T Seeececease 
828 © EQUATES SF SSSSEHSEES SE TES HOST EEKEERTEES SH ESHSSESHEEE SEESEEEESSE SEEEEEEE 
429 eee ette Ese 

OOFD 430 N1 FOU LPTONE¢2 

0880 831 INPUT 200 x*aso°* 

COSPF 432 STATJS £OU CDREAD- 1 

005D 4&33 LDWORK E£OQU CDREAD-3 


' 


ee ee 


0249 438 UDTI Fou xx* 2498 LAST BYTE OP STH UDT ENTRY ' 
0261 4835 UDT2 Fou x*261° LAST BYTE OP 16TH UDT ENTRY 
00480 436 IPL ROU Os x*age APCU CONTROL CODE - IPL SODE 
9000 437 NORM E00 xeor MFCU CONTROL CODE - NOPSAL NODE 
OOF1 838 READ EQU. x*Pte MPCU READ Q CODE ; 
439 
0290 auo ORG  x*200° 
agai SASS SERSSTEE SELECTS ERSES ESE SESESS ES SESEE SS SRESS SEES ESEEEE TEESE ESESERE! 
. 642 * SECTION REFERENCE TABLE *; 
? . 4a3 tina ee cence ee eee eter e emer s MELE ee Ce eee ee Clee Stee SSeS eee) : 
i aog ¢ +! . 
{ 445 * THE DATA IN THIS TABLE PROVIDES THE DIAGNOSTIC SECTION/CONTROL * 
‘ 446 * PROGRAM INTERFACE. IT IS LOADED BY THESE POUR SETHODS-- *: 
: 4u7 * SRT OBJECT CARD +: 
84 © CONTROL PROGRAM EXECUTION . : 
aug * CONTROL PROGRAM ASSEMBLY *. 
j 450 © UDT CARDS * 
! a51 © e! 
= 452 SHTSSEHEHS SE SESE SOE SEEKS EH TESTE KERTH SHHSHEK AE SARKSE SEES SEREHEEEEERERESESEES, 
: 453 
* L 
i : 
i DATE OSFFB70 O9MART70 010CT70 OTVAPRT1 TSNOV71 VBJABTI2 OIMART2 PROG ID OPFF-8/ DATF O9FEB70 O9RARTO 010CT70 OTAPR71 19NOV71 1TAaJANI2 OVMART2 . PROG ID OPFF-8 
: EC WC. 816680 816638 816760 818998 818823 818388 818390 PAGE a EC XO. 816680 816638 816760 8718948 818823 818388 818390 PAGE @a 
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JBM AAYRTEWANCE DIAGHOSTIC PROGRASR PART KO. 2989902 .8% AATNTENABCE DIAGNOSTIC PROGRAG PART #O. 2589901 
PAGE S - - PAGE SA 
FFFR = DIAGROSTIC COSTROL PROGRAR FPFS DIAGNOSTIC CONTROL PROGRAN 
ZR LOC ORJECT CODE ADDR STAT SOURCE STATENERT : ERR LOC OBJFCT CODE ADDR STAT SOURCE STATEMENT 
890 Seee¢e48 : eeecessce O02C2 CO 10 O5ae 538 BT LAK TA 
BOW © LOAD *e reese recesses $O06S 6Hs CKCS SCORES ECOHSLO RES EESSESHOSSESERSEEESS LOAD © 02C6 BA 80 00 559 TBR SBYTEC (, X82) ,SSW50 LOOP ON SECTION IF SSHO0O SET 
92 tetceesas sesesese o02c9 co 10 6009 560 PTZERO BT 0 . 
493 8 . 02cP CO e7 0587 561 PTHSG 8 RP hi RT PRIWT SECTIOH TERHIWATE BSG 
894 ©  SURROUTINE TO LOAD PROGRAMS OR DATA RECORDS FROM THE LOADING s O2D0 S62 ITR3 EQU) *%-1 - 
895 © DEVICE. ENTRY TO THIS SUBROSTINE IS MADE AS POLLOUS-- * 02D1 C7 O2Dt 563 RLPLGS DC XL1°C7* 
0% © * 02D2 12 02D2 S68 pc IL1° 18° 
497 © B LOAD : WHERE LOAD IS EQUATED TO X* 22a° «| . 02D3 0586 O2D8 565 bc AL2 (TMSG) 
age ¢& *Dc XL1°FLAGS* | 62DS FPO O2D6 566 pc KL2* FFOO* 
299 * **epDC XL2 °DXXX® XXX - PROGRAS XD . ef O2D7 BS OF OC S67 TSE SBITEO (,XR2)} ~SSWOT BYPASS HALT IF SSWO07 OF 
sf 500 « * O2DA FP2 10 06 568 3T RLD2 
os 501 ¢ PLAG vIT ON ~ O2DD FO 3B 7C S69 RLTP HPL #E, HE HALT TO INDICATE SECTION COMPLETED 
a S02 * NONE - WORBAL TERSINATIORN | O2FO0 £0 87 OA S70 5 TEST (, XR2) GO CHECK DATA SWITCHES 
503 ¢« 0 - ME HALT,LOAD XXX, HA RAL? AND GIVE XXX s O2E3 BB &O 0% 571 RLDZ TBE SBYTE1 (,XR2) -SSHOS IF SSwO9 IS O8, 
508 « CORTROL e O2E6 F2 10 08 $72 JT LE1 THER DON’T CLE SECT. SWITCHES 
505 * 1 - ABNORMAL TERHINATION 5 0229 AP 03 05 05 573 SLC SBYTES (8, XR2) ,SBYTES(,XR2) CLEAR SECTION SSE 
506 * 2 - READ FIRST RECORD OF XXX INTO X°880* AND ©! O2FA S74 THREE F£QOo) *%-3 
507 « RETORK CONTROL | O2ED 78 80 00 575 LE TBH 0(,XR%) ,BITO FLAG BIT O OF 
506 @ 3 - READ WEXT SEQUENTIAL RECORD INTO K°S880" *; O2FO F2 10 &1 576 JT LE2 IF ON 
509 * AND RETORS CONTROL ® O2P3 C2 02 0208 577 XREF? LA LBASE,XR2 
510 * ry ~- LOAD XXX AND GIVE XXX COFTROL a! 02F7 EO 87 OA 578. B TEST (, X82) POR -HD- HALT 
S41 ¢ 5 - LOAD XXX AND RETURN CONTROL 2| O2FA C2 01 O1FD 579 Lx1 LA DTABLE- 1,81 
512 © 6 - SEEK TO VTOC AND RETUR® CO¥TROL «| . O2FD 580 PTR Zou 1 
513 * SHOTE FLAG BYTE, NOT MORE THAN ONE BIT CAN BE SET OW ©, O2FF 78 OF OV 581 TBN O(,XR1),BIT?7 FOR CARD SYS {J LE2} 
51a « A CALL TO THE LOAD ROUTINE 18 DCP e 0331 F2 90 OD 582 Lx2 JF CHKPS i 
515 « **NOTE PROGRAM YD IS ONLY INCLUDED IF BIT 0,2,4, OR S ® 0398 6£ 00 02 78 583 . ALC 2(1,XR1) , LOWE (, XR2) 
516 © IS O* . 0308 78 OF 02 584 T BN 2(¢XR1) -X*OF¢ 
$17 7 0308 F2 90 16 585 JP NOVID 
518 SCHRECE SEEKER ES SKEET ESET ESE CEES EERE TTES TESS CES SESERSESES ESE RE TES EEEESE 8302 78 OF 02 586 SBP 2{-XR1j),X*OF* 
0208 519 USING LBASE,IR2 0331 BD FI PS S87 CHKFS CLI PTR(,XR2) ,F& <a 
0262 0279 0263 520 APL pc AL2 (APL) 0218 P2 01 09 588 INE STEP 
: COFD 521 FO FOU X* Ppt 0317 FO 3B 6C 589 HLTC1 HPL HC, HE 
OOFA 522 F1 zou Y*Pat O3TA EO 87 OA 590 B TEST (, XR2} 
OOF? 523 F4& £QU i'r 31D BC FD F5 §91 avVI PTR (,ZR2),FC 
0268 34 02 029D 524 RLOAD Sf? LODES¢7, XR2 SAVE XR2 0320 avy CO FS £2 592 STEP SLC PTR(1,XR2) , THREE (,XR2) 
0268 C2 02 0208 525 LA LBASE,XR2 | 0328 RS OT FS $93 MOVID L PTR (, ¥R2) -XRt? 
026C B& 08 99 526 ST  § BLDA#3(,1R2) ARR SET UP RETURN ADDRESS 0327 6D 01 02 CA 394 CLC =. 2(2, XB 1) -PTZERO*3(,XR2) a 
O26P B& 01 91 527 ST LODEN¢3 (, IR2) ,XR1 SAVE XR1 | 032B CO 81 0317 595 BE ALTC1 peppy 
528 *THE POLLOWING THREE INSTRUCTIONS ARE TO FORCE THE \ O32F IC 02 OFF 02 596 AVC =—- DTABLE#1(3),.2{. X81) 
529 * 1. PROG LEVEL TO 1 0338 cO 87 O0DND $97 LE? 8B e-t 
530 * 2. TURN OFF DUAL PROG. FEAT. 0337 S98 ENTRY2 EQU) *-1 
0272 35 20 0263 531 i APLa,Xx*'20° LOAD IAR8-1 0338 CO 87 0296 5939 B LODES 
0276 F1 CO 00 532 APL 0,0 FORCE PROG LEV TO 1 
(279 F2 00 00 533 APL SIO 0,0 TURN OFF DUAL PROG FEAT | 
027¢c £O 87 OA 523 B TEST (, XR 2) 
027P BS 01 99 535 L RLDA¢3(,XR2) ,XR1 POINT AT FLAGS , 
0282 8E 01 29 039F 536 ALC = RLDA #3 (2, XR2) ,ONE ADJUST RETURN @ | 
0283 537 LONE ZOU) e-8 | 
0287 1C 02 O1FP 02 538 SVC DTABLE¢1(3),2(,XRt) MOVE FLAG, DXXX 
028C 78 10 00 539 TBN O(,XR1) ,BIT3 TEST FLAG BYTE 
028F F2 90 10 580 aP LD1 
0292 CO 87 0000 541 B e-% 
0295 542 ENTRY1 EQU *-1 
0296 C2 01 0000 583 LODES LA e-* XR RESTORE REGISTERS 
C29A C2 02 C009 585 LA *-*,XR2 
0?9F CO 87 OCOD 585 RLDA 38 -* 
O2A2 S&6 LDI rout 
O?A2 78 02 00 547 TBH 0(,XR1),BIT6 
O2A5 P2 10 8C 548 JT LE2 SEEK TO YTOC 
02A8 BE 01 99 0341 549 RLD1 ALC =RLDA*3(2,XR2) , TWO ADJUST RETURN @ 
C2AD 79 2C 00 550 TBF 0(,XR1),BIT2*¢BITS+RITS PLAG BIT 2,48,0R 5S ON? 
02R0 P2 90 81 551 JF LE2 YES 
‘552 . 
0283 BA 80 C9 553 SBN RLPLGS(,XR2) ,BITO SET ERROR BIT IP ABNORMAL 
02B6 78 40 00 558 TBN O(,XR1),BIT1 TERMINATION 
C2B9 F2 10 11 555 JT PTNSG 
02RC BR 80 C9 556 SBF RLFLGS(,XR2) ,BITO OTHERWISE, TURN IT OFF 
O2BF R8 4O 00 557 TBN SBYTEO (,XR2),SSWO1 LOOP ON ROUTINE IF SSW 01 IS OW 
DATP O9FFB70 O09HAR70 010CT70 O1APR71 V9NOV71 TUJANT72 O1MAR72 PROG ID OPFr-8 LATE OSPEB70 OSNART70 010CT70 OTAPRT71 19KOV7T IWWIAN72 O1NABR72 PROG ID OFPF-8 
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vase” a : a 2 ; : - . PAGE Ga 
= rere. prac#osttc couTRoL PROGRAR : : 2 —= : _FPPS _ DI AGHOSTTC CONTREL PROGRAT i oe ay 
ee ec OBJECT CODE. ADDR STET SOURCE STATPAEST ; . oe ey eS ms EPR. LOC OBJFCT CODE ADDR STAT SOURCE STATENEST e # . . eae 

a ae C000 601 AZZ zou. 80 ea i Ota 668 Seeseses seececes fix 

0001 602 RZER gos 01 | ye a 78 i a ; 669 * PACK SESCHCSREKSSHSSHHSEe ese SOs 0ee ee voreasereresoececesecesees se PACK «© ae 
0002 603 NR son 62 ee a . Be 670 *enese08 etebecas 

. 0003 60% ARH 2ou 03 _ : es : a 671 ¢ a 
633¢ 00 033C 605 CTR pe RL3° or . ' - 672. + SUBROUTINE TO CONVERT EBCDIC DIGITS O-F TO PACKED HEXADECIAAL 2 
O33D FFFF | | 633E 606 WEG? xc XL2°Prrr® ; 28 673 @ DATA. LINKAGE TO THIS SUBROUTINE IS AS FOLLOBS-- * 
033F CO “a 033P 607 oc RL 1°00¢ : SPARE BYTE NOT USED,SOST BE. 4 ts & Re 

0380 oroz 6381 608 THO BC TL2°2° LOCATED. HERE TO GEHERATE , Z 675 ©. B PACK s 
s ; oe 609 ¢ . THE CONSTAET FIVE : , 676 * pc XL1° LENGTH® * 
0387 34 08 0368 10 CHPK ST CHPKES, ARB 677 © bc AL2(FROH ADDRESS ~RIGHTHOST BYTE-) na # 
0386 CO 87 OBAG . 671 B SAVREG SAYE REGISTERS ; 676 ¢ DC AL2 (TO ADDRESS -RIGHTHOST BYTR-y pe ee ee 
~—6O3BA Bg o2 Ozrn . 6712 L ARRSAYV,AR2 i ’ PICK GP RQETURB a : 679 SCO OES SSENS OES EEEEES OEE OEE EAEERESS HOSES SVE EN KEN eeu cE S ~ weg" 
O38F C2 OF O33C | - 693 La CTR, ERI LOAD BASE @ O38A 38 O08 O3FD 680 RPACK ST ARRSAV, ARR 
033C 678 USING CTR, ER : ; | O3BE CO 87 6322 681 B CaPE a oe 
_ 0352 SE 07 €1 B2 698 ALC ARBRSAV(2,XR1} , FIVE (,XR1} AJUST RETURH @ 03C2 7c 03 98 682 PKI AVI AVX2(,XR1} M88 DO NUMERIC 
0356 6c 10 0000 | 616 avc «6 CTR(1,KR1) ,00(, ZR2) AOVE LENGTH BYTE 03C5 6C CO 7c 6 683 PK? avC TERP(,XR1),0¢1, XR2) PACK BYTE INTO HIGH HALP BYTE 
C35A 6c 01 SC O48) 617 MVC DEST (2, 28.1) 56 (,XR2} HOTZ TO 2B 63CS 7D FO 2c 688 CLI TEAP(,XR1),X*FO® CHECK FOR 0-9 
O35f 6C 07 9A OG. 618 AVC DEST2Z(2,XB1) ,8¢, X82) | SOvE TO @ 03CC F2 02 08 685 JuL = =PKS JOAP IP 0-3 
0362 BS 02 02 619 L 2{¢IR2Z) -XR2 PICK UP FROS & O3CF SE OC 2C Da 686 ALC TERP(1,XR1), RINE (,XR1) AJUST FOR A-F 
0365 CO 87 0000 620. 3B $-% 03D3 18 008 0000 2c 687 PK3 H¥X *-*(0),TEHP (,XR1) HOVE HALF BYTE TO @ 
ae 0368 627 CHPKX® EQU %1 : O3D8 688 SVX2 E£QDU) t-& ea ee 
0368 622 TESP E£QU *%-1. 03D6 689 DEST2 Z00 %-2 aca 
623 * 03D8 76 32 02 690 A NEG2(,XR1) -XR2 DECREMEXT FROE & 
626 Seescerens Seeceoeees O3C8 7D 01 98 6st CLI S¥E2(,XR1),825 CHECK FOR ZORE DONE age FB ee 
625 &@ GUNPACK KERETE EERE EE EED NES EEE SESE SEEEKEOOESEHESETESEREREEE EE BNPACK # O3D% F2 81 06 682 JE PKS JOSP IPF DOSE - 
626 tevesevese seseteess O3£1 7c 01 98 693 “VI HYX2(,ZR1} ,HZN DO ZONE 
627 * : ae 8 03F4 pO 87 89 694 5 PK2 (,XB1) 
628 * SUBROUTINE TO CONVERT PACKED HEXADECISAL DATA TO PRINTABLE s O3£7 SE 01 9A 02 695 PKe ALC DEST2(2,X81) ,WEG1(, XR 1) DECRGHENT TO B 
629 © EBCDIC. THO PRINT CHARACTERS, O-PF, RESULT FROG BACH SOURCE BYTE. s O3PR SP 00 00 05 696 SLC CTR(1,XB1) ,THO(,XR1) CHECK FOR END 
630 *® LINKAGE TO THIS SUBROUTINE IS AS FOLLOSS-- 6 O3EE 697 FIVE e800 e171 
631 ® ; s O3EP DC 8& 86 698 BP PK1(,XR1) IF NOT DO HEXT BITE 
632 © 8 GH PACK WHERE UNPACK IS EQUATED 70 x¢218° s 03F2 C2 01 0000 699 LOREG LA e-2,XR1 RESTORE XR? 
633 * pc XL1'LEXGTH OF HEX FIELD IN BYTES* * /03F6 C2 02 0000 700 SR2 La S-, ER2 min theroheatte.s 
638 © BC AL2({FROS ADDRESS -RIGHTNOST BYTE-) : © O3PA CO 87 0000 701 B e-2 RETURN TO SECTION ae 
635 * pc AL2 (TG ADDRESS -~RIGHTSOST SYTE-) : * O3FD 702 ARRSAV EQD *%-1 
636 © .. 
; 637 Seees ee coe CeERe HH Ndn eee See EsOS SS EE CSE EE SSE SEES EES eeETEsECeseRseeEssES . Sided ot 
0369.34 08 03FD 638 RUNPK ST ARRSAY, ABR a7 te ss . oe 
036D CO 87 0342 639 B CaPK ae 
0371 7¢ 03 39 640 ONPKY SY¥I AMYX14,XR1) Ne DO HUSERIC: — ; 
C378 68 00 &a 00 681 UBPK2 VK TEMP1(0, xR4) 20(4XR2) - : fp lameees 

7 0375 682 AVX? EQU #3 2, a . mee 
0378 7A FO aR 643. SBN TEMP1(,XR1),X*FO® SET FOR 0-98 
0378 7D FA GA 628 CLI TEHP1(,XR1),X°PA® - CRECK POR A-P 
O37E F2 82 08 685 JL UNPK 3 

0381 SF 00 4a $3 646 SLC TEMP1(1,XR1) ,X39(,XR1) SUBSTRACT X*39° IP A-F 

9385 3c 00 0000 687 ONPK3 NVI e-# 0 

0386 6868 TENP? EQUD) 3 

tit 0388 689 DEST1 £QO. %-1 

0389 SE 01 HC 02 650 ALC =DEST1(2,XR1) ,NEG1(,XR1) DECREMENT TO ADDRESS 

O38D 7D 02 39 651 CLI SVX1(,XR1),NNZ CHECK POR ZONE DOSE 

- O38F 652 X39 200 «S11 
039C F2 81 06 653 JE UNPKS 
0393 7¢ 02 39 658 SVI 4 8=«- MVX1(,XR1) ANZ DO ZONE 
0396 pO 87 38 - 655 8 ONPK2(,X81) 
0399 76 02 02 656 UNPKS A WEG1 (,XR1) ,XR2 -DECRENENT FROM @ = 
039¢c SE CO 00 01 657 ALC CTR(1,XR1),NEG1-1(,X51) | DECREMENT LENGTH 6& CHECK FOR O 

C39P 658 OE £QD0 «#1 

0300 NO 01 35 659 BNZ UNPK1(,XR1) sO 
03A3 DO. 87. Rb 660 B LDREG (,XR1) 23 Yes . 

661 ® . e. 
O35 24 08 0389 662 SAVREG ST  5SR14¢3,ARR | _ SAVE RETOUR @ | eae 
O3AA 3&6 Of OFFS. 663 ST LDREG+¢3,XR1 SAvVZ xe co 
O3AE 34 02 O3F9 668 st SR2¢3,XR2 xr2 
0382 CO 87 0439 665 B .. *RTEST CHECK. DATA SWITCHES: 

0386 CO 87 0000. 666 SRI B | woe 
667 
667 
DATE O9FER70 O9NAR70 010CT70 OTAPRTI 19N0V71 1933072 0 1HAR72 PROG ID OPPF-8 DATE O9FEB70 OOMAR7O 010CT70 OWVAPR7T1 19BOV72 WAJANIZ OTHAR72 PROG ID OFrF-8 
EC WO. 8166480 816638 816760 8169468 818823 8186388 818390 PAGE _— 6 EC NO. 816640 816638 816760 8189488 818823 876368 818390 PAGE 6a 











eeoeoeeoeeaeoeeeoeeoeseaeoeoeoeoeenoeoeneoeneeoeseened0 
eg - : : . . ; | | | a ; 7 . | | | | | “ 


IBA SAINTENAWCE DIAGNOSTIC PROGRAS 


‘ 
t 
5] 
t 


2589901:- 


PART WO. 
PAGE 7 
Frrs DIAGSOSTIC CONTROL PROGRAA 
: i 
ERR LOC ORJECT CODE ADDR STHT SOURCE STATENERT 
i 
704 seeneees ; Teeeteee! 
FOS © TEST £06666 8S OSES TEREKSES SERESE SE ESSE SEEEEES SEEKEEHRESCESSE ODES TEST #; 
706 *8e984¢96 seseceee! 
707 @ ; z *. 
708 SUBROUTINE USED TO READ CONSOLE SWITCHES AND TEST FOR VALIDITY * 
709 © POSITIONS. ONCE OSE OF THE POLLOWING VALIDITY CONDITIONS 1S * 
710 © ENCOUNTERED, ENTRIES ARE ACCEPTED UNTIL THE VALIDITY S¥ITCH IS * 
711 * CHANGED. * 
Fi2 * s 
713 ¢ PORK ~- TORA OFF SSB Xz. s 
71a @ PIXX ~ TORS Ob SSW XX. * 
TiS * P2XX - GO TO ROUTINE XxX. s 
. 716 © EEXX - TERAINATE SECTION. = 
Vi7y ¢ DxXx0 EXECUTE ALL PROGRARS FOR DEVICE XX -DISK-. * 
718 © DIXX - BXECUTE SECTION XZxz s 
71s * 
F290 FSEESHEEESCET TET HESCSTHEESRSESHESE SESE SSE OKKESSSHE SHS SHKERELSS ARS SEEESRECESEE 
CO3FF F271 TBASE EQU * 
O3PFE 60 O3FE F22 SETO pc XL 1° 80° 
O3FF 4602070080692 080g = 6723 bc XL6 *40201008080 2* 
0480S 01 0805 7248 pc XLi*O1* 
0806 OCOO 0807 725 DATSHWS DC XL2¢°O* READIN AREA FOR DATA SUITCHES 
O3FE 726 USING SETO,IR1 
0409 727 TONE F900 ee 1 
OS07 726 XREFS FOU DATSWS 
0808 729 XREF& EOD * 
0408 3a 01 0838 730 SETSSW ST VXR1¢3,2R17 
O80C C2 01 O3PE 731 LA SETO, X81 
04710 7&8 O08 3A 732 ST SETS X%3(,XR1) ,- ARR 
6813 58 63 1F 09 733 AWN CHKRSS1¢3(,X81),DATSHS (,KR1) FORM CORRECT BIT PATTERN 
: 0416 73% RINE £QU e- 1 
O817 FR PB IF 735 SBF CAKSS1¢3(,XE1),X°FS* TO SET A BRIT OF IN 
oota Sc 00 2D 00. 736 CHKSS1 “YC CHRSS2¢3(1,ZR81) .*-*(,XR1) SBYTEO THRO SBYTES 
OuTE SE O7 09 09 737 ALC DATSWS (,XR1) ,DATSWS ({, XR1) 
0822 58 02 2E 09 738 SNZ CHKSS2¢2(,X%8 1), DATSWS (, X81) 
0626 C2 07 0208 739 La SBYTEO,ZR1 
O82R 780 SODIFPY £QU * 
= O42 7A 00 00 791 CHKSS2 SBN *-#(, IR 1) ,*-* ' 
O82D 38 01 OG2~A 782 SBP SODIFY,x*oO1® 
0831 C2 01 0000 783 VXRi LA e-* ERI 
9435 CO 87 0000 74s B *-s 
0838 785 SETSX@ E£QU e- 4 
0001 7&6 DROP x81 
: 0806 747 USING DATSWS- 1, XE2 
0439 34 02 045D 7W8B RTEST ST TE ZIT1I¢3,XR2 SAVE INDEX REGS AND SET UP SASE 
OU3D C2 C2 0806 7a9 LA DATSWS- 1, ZR2 
08471 BH 01 53 750 ST TEXIT¢3 (, X82) ,XR1 
Caau Ba 08 58 751 ST TESTE+¢3 (, XR2) -ARR LOAD RETOURE BRANCH 
O487 F2 87 OC 752 TSTOVL J TEXIT ( SNS DATSWS(,%R2),0 ) READ SRITCA 
O44¥A BD ED 00 753 CLI DATS#@S~-1(,IR2),X*ED* 
Ob4D F2 B88 13 754 J TEST! 
0850 BB DO 00 755 TBH DATSWS-1(,XR2),X*DO* 
0453 F2 10 OD 756 Jf TEST! FOR CARD SYS ( JT O } 
0855 757 TSTDSK £QU -1 
0856 C2 01 C000 758 TEXIT La #-*,XR1 RESTORE INDEX REGS AND EXIT 
easa C2 02 0000 759 TEXIT? LA *-* , XE2 SUBROUTINE 
O4SE co 87 0000 760 TESTE B +-28 
O0U62 40 0462 761 pc XL1* 40? ABNORSAL TERMINATION 
0463 BC 00 86 762 TEST1 «AVI DJINP(,XR2) ,0 
O966 BC 3C 77 763 HLTA avi THLT¢2 (,X82) ,HP HALT TO NOTE VALID SW ENTRY 
0569 F2 87 OF 768 J THLT AHD FORCE 1ST ONE TO HP 
O46C BD 32 77 76S TEST2 CLI THLT¢2(,XR2) , HP FORCE ALTERNATING HALT CODES OP 
CU6P F2 81 06 766 JE TEST3 -HP- AND -HO- 
O&72 BC 3E 77 767 ALTB NVI THLT+¢ 2(,XR2) ,HP 
0475 FP2 87 03 768 J TAHLT 
O&77 769 T3 EQU e141 
0878 BC 6B 77 770 TEST3 VI TALT¢2(,XR2) ,HU 
OS 7B FO 38 00 771 THLT HPL *-t HA HALT -HP- OR -HU- FOR SWITCH ENTRY 
DATE O9FES70 O9MARTO 010CT70 OTAPR71 19 NOV71 VAJANTZ2 OS AR72 PROG ID OFFP-8 
EC NO. 816680 816638 816760 878988 818823 818388 818390 PAGE 7 


IBS SAINTERARCE DIAGWOSTIC PROG 248 


Ferre 
ERR LOC 
Oa7P 


0881 
04888 
0887 
OxBA 


Oasp 
6a 91 
orgs 
0899 
o4agc 
OaoP 


OSA3 
CBA6 
Oeas 
ozae 
O8 AF 


OsB3 © 
04 BE- 


OBS 


ogEc 
o4aco 
C8c3 
cac6 
Oscs 
C&CE 


oaDi 
oaDns 
O&D7 
OSDA 
oanD 
OSFO 
O8E3 
O8E6 
OaES 


OS EC 
OEP 
O4F2 
ORFs 
osre 
osrc 
0501 
0506 
0509 
050c 
o50r 
0513 
0516 
0519 
oSsi1c 
C521 
0524 
0527 
OS28k 
052D 
0532 
e535 
0538 
e53c 


DATE 


EC NO. 


DIAGHOSTIC CORTROL PROGRAS 


DATSHS (, X22) ,X° 0° 
*e2 
DATSWS-1{,XR2} ,T*DO? 
DATS &S-1(,ZR2) ,X*20° 
TEST? 

0 

FLAG-3,X£81 

PTR, FO 

02 (12,XR1) ,02(, X81) 
DADDR (, IR2) , ZF 1 


PART. #0. 


2589901 
PAGE ‘ 


7a 


READ DATA SWITCHES 


POR CARD SYS (3 TEST? . 


DINP{, XR2) , TESTSA-DISP- 1 


tt eXR1 

1 

DADDB (,-XIR2) , P&- 3 
TEST 

B2 ,88 

TEST? (,XIR2)} 
2(3,IR1) ,DATSWS (,XR2)} 
2(,%R1) ,X*OF* 
TESTOA 

O(,XR7} ,X*OTé 

& 


DADDR(1,1R2) ,T3 (,XR2} 
TEST2 (,XR2) 

DATSWS- 1(,XR2),X°EE® 
TEST7& 

TESTE*3 (2,82), ITR? 
TEST2(,XR2) 

= 


DATSWS- 1(,XE2} ,X*F1* 
TESTS 
DATSWS- 1(, IR 2), X°FO* 
TEST11 

MO DIPY (,XR2) ,X*018 
DATSWS(,XR2) ,X* 30° 
TESTS 

H2, 98 

TEST2(_1R2} 

s 


SETSSW(, XR 2) 

TEST2 (,XE2) 
DATS¥S- 1(, IR2),X°F2* 
TEXIT(,X£2) 
PRTN,XE1 
RNUB (1) ,0(,XR1) 
RNUA(1) ,0 (, X81) 
TEST16 

H3,HB 

TEST2 (, IR 2) 
DATSWS (1, X82} ,0(,XR1) 
TEST 16 

2(.XR1) .X'FF* 
TEST15 

RNUN (1) ,TOHE (,2R2) 
3(,XR1) ,XR1 
TEST12 (,XR2) 

H2, 8H 

TEST2(, 182) 
RPPY (4) ,3 (,XR1) 
8(,XR1) ,XB1 
TESTE¢3 (,XR2) ,XR1 


ORSJECT CODE ADDR STHT SODRCE STAT ERENT 
BO 00 01 772 SNS 
0883 773 TSTCRD £OD 
RB DO 00 77% TRE 
B9 20 00 775 TBP 
F2 90 39 776 JF 
P2 87 00 777 3 
ae os8c 778 DISP = B00 
C2 0% CIFAK 77S La 
3C PD O2PD 780 AVI 
SP OB 02 02 781 Sic 
B& 01 9C 782 ST 
BC 12 86 783 avI 
C2 01 S000 788 TESTSA LA 
O4A2 785 DADDR £00 
BD FE 9C 786 CLI 
F2 01 06 787 JUE 
FO 38 76 788 HLTC HPL 
£0 87 5B 789 B 
6C 02 02 01 790 TEST6 f#YC 
79 OF 02 731 TBF 
F2 10 03 792 ST 
7B 01 00 793 SBP 
OSBC 798 TEST6A HOD 
AP 00 9C 71 795 SLC 
EG 87 66 796 B 
BD FE 600 797 TEST? CLI 
F2 01 06 798 JE 
BC 01 SB 0568 795 NVC 
EO 87 66 sco B 
O8D1 801 TEST7A ZOU 
RD F1 00 802 CLi 
FP2 81 09 803 JE 
BD FO 00 808 CLI 
F2 01 15 805 JSE 
RA 01 28 806 SBN 
BD 30 01 807 TESTB CLI 
F2 8? 06 808 JL 
FO 38 76 80° ALTD 4#PL 
EC 87 66 810 B 
OSC 811 TESTS ZOU 
FO 87 02 812 B 
EO 87 66 813 B 
BD F2 00 818 TEST11 CLI 
EO 01 50 815 BNE 
35 01 OA07 816 L 
1C 00 OA03 00 817 AVC 
1D CO 0203 00 818 TEST12 CLC 
F2 81 06 819 JB 
FO 3B 57 820 TEST13 HPL 
EC 87 66 821 B 
9D 00 01 00 822 TESTIS CLC 
F?2 81 17 823 JE 
7D FP 02 828 CLI 
F2 81 OB 825 JE 
2E 00 0203 03 826 ALC 
75 01 03 827 L 
EO 87 FB 828 B 
PO 3B 76 829 TEST15 HPL 
EO 87 66 830 B 
1c 03 0211 03 831 TEST16 AVC 
D2 01 08 832 LA 
Ba 01 SB 833 ST 
34 01 OSAS 838 ST 
EO 87 66 835 B 
C002 836 DROP 
O9FEB7O OONARTO 0 10CT70 O1APRT1 
816680 816638 816760 818948 


LOAD DISK LOAD TABLE- POINTER 
CONTINUE IF TABLE ROT FULL 


SEER-MORE THAN & ZBWTRIES 

GO ALLOW RE-ERTRY 

HOVE DATA TO DISK LOAD TABLE 
CHECK FOR DIx0 


TORN BIT? OFF 


DECY. DISK LOAD TABLE POINTER 
GO ALLOW NEXT ERTRY 


GO ALLOW NEXT ENTRY 


CHANGE TO SET BITS OFF 
SAKE SURE SSW won IS 00-2F 


SEREOR-SSW@ € HIGHER THAB 1-2P- 
GO ALLOW HEXT ENTRY 


GO ALLOW NEXT ENTRY 


START CHECKING WITH FIRST ROUTINE 
LOAD CURRENT RTH WOM WITH FIRST OWE 
IS THIS RTW PREFIX CORRECT 
YES - BRANCH 
*RTS NUABER OUT OF SEQUENCE 
GO ALLOW ENTRY AGAIN 
BRANCH IF THIS IS SELECTED 
ROUTISE 
CHECK FOR LAST ROUTINE INDICATION 
YES, BRANCH TO ERROR BALT 
INCRENENT ROUTINE NUSBER 
LOAD ADDRESS OP NEXT RTM PREFIZ 
GO CRECK THIS RTN SUS 
*INVALID RTN SELECT OPTION 
GO ALLOW ANOTHER ENTRY 
SAVE ROUTINE PREFIX 
LOAD ADDRESS OF FIRST IBSTRUCTIO“ 
I8 SUBROUTINE EXIT 





LNK6¢3,XR1 SET UP LINK EXIT 18 CASE LOOPING 
TEST2 (, X82) GO ALLOW BEXT ENTRY 
Xh2 
19N0V71 WIANRTZ OURRET?Z PkKOG IDB Orrr-s 
818823 838385 StESS6 PAGE 7a 








7k SAYRTEWARCE DIAGHOSTIC PROGRAR ‘ | - ‘ as - hs . , ; SS ; 7 a HO. Aer YHA MAINTENANCE DIAGNOSTIC PROGRAA : , ‘ 3 . 7 Pakr 20. aeweens 
ee re Phi a ae Dy | : | | : : PAGE aa 
(res Pane Neat ee GOUNtee Peerage | FPS = DIAGHOSTTC CONTROL PROGEAR | 
- ERR LOC OBJECT CODE ADDR STHT SOMRCE STATERENT | | PPR LOC OBJECT CODF ADDR STAT SOURCE STAT ERENT ; 
| : . | O36 sececces 2 ane Pp dts ‘eeeeeece; 4 . | ; 
866 Seeeteots : SRSERESEE 
‘839 Serre ert ee erate eens LINK © BOT * PRINT *eoscreececeeeseee tee seeeeete ee easeceseesesseeeesaeness PRINT ¢ 
aa; i. eet * . pea = : BEA tese0eee¢ Seeesesoce 
‘ & 
42 * SUBROUTINE TO PROVIDE ROUTINE TO ROUTIBE AND SECTION TO SkeTION @ a SIBKAGE TO PRINT IS AS POLLOES-- : 
603 ¢ LINKAGE. THE CONTROL. PROGRAM USES THE ROOTINE PREFIX AS An. 200 el]: * 
See + INTERFACE BETWEEN DIRGNOSTIC SECTION AND CONTROL PROGEAE. = — © ah aoee MC Okeytazacg: MER PRINT IS EQUATED TO 1308 . we 
Be * 2 .° . ne 
Ba6 seeeeeseseuctaresnasconaccsenenscoss seess erouteetersconessenesessoaseee ac, : eta ieliseees cee oe Beata ecu : 
a4 867 : eo 
O53P 34 07 O5A0 | 888 PLINK ST  LEKS¢3, x3» SAVE Rt : : Sige TP CAMETREREAGE. TDRRTERIC ATION? : 
: ; Poss ass . } ‘~ 
OS63 co 87 0839 850 LuKi 8 RTEST GO CHECK BATA SuI?CHEsS ae ee Riis eiabOr aeaeice  Ecceie 0 eats 7 
? 0586 857 ITR1 BOD #7 | | ~f : 
0587 38 80 0208 B52 TSN | -SBYTEO,SSwo1 PROVIDE LOOP OM ROUTINE IF SSuO1 OW nhdeaied fret ee 2 
OS4B F2 90 DB 853 JF LNK2 | | Boars Stee eee eee? : 
CS8E 3D 07 DROZ 658 LUKIA CLI RMUB,Z*OT IF FIRST RTW BEING RUB, GO TO | aus Saree © aces Seeeee una euaaee ce : 
re + oe coe | ae " nuke PPCSRAN PESEART 203 © 6 - SPACES DESIRED. FOR A PRINT, -001- 
2 8 a | 508s ? - UST BE ENTERED TO PRINT AND SPACE TO # 
, | 905 « THE WEXT LINE. -O000- MAY BE ENTERED © 
0559 3D FP 0210 858 LEK2 CLI RPPE-1,X°PRe IS THIS LAST ROUTINE | | 
055D F2 07 OD. 859 SNE LNK3 HO, GO ON TO CHECK PoRTHER reese tae cask cee ee 
. 860 , ° 
| | ies 908 ¢ : * 
0560 38 80 C208 861 TBN «= SBYTEO,SS¥00 | TEST FOR LOOP om SECTIOE | ; : 
0564 CO 10 C000 | B62 BT oO : YES, GO RESTART PROGRAMS | sinc ie OLY OLEEATIGECE Ce eee 
0568 CO 87 02648 #63 B RLOAD NO, GO LOAD NEXT SECTION. 931 3 ° . 
056C 00 peer aes ere Ber XENSBS 912 © 2*NOTE - THE SESSAGE IDENTIFICATION IS INCLUDED * 
o ae . | | 913 ¢ ONLY FOR A PIRST LINE PRINTOUT. THE POUR * 
2 s. 
OS6B 35 04 0211. 867 LNK3 iL RPFX,XR1 _ . $8P UP TO GO TO NEXT ROUTINE | ota peas geet oriois ok cae Arete or 
0571 OF 00 OA03 039P 868 ALC - RNUS (1) ,ONE INCRESENT ROUTINE BURBER AND Bae gore = 
0577 1D 00 0R03 00 869 CLC = RNDS(1) ,0(,XR1) CHECK AGAINST RTM PREFIX Siz. -GETiOns<. Seeua'~Seepaes- bane paves : 
Sete ee eyo dls ve? SEEKS 918 © SSWO& - BYPASS NON-ERROR PRIST. * 
OS7F FO 38 57. S71 HLTE HPL 83,8 RTM NOM IW RTH PREFIX OUT OF ORDER care ee g05-2 bee Lk USEURA SE EEL aren se 
0582 CO 87 0543 872 B LNK1 GO CHECK POR DATA SWITCH VERIFICA- 5008 * 
: ae - TION : 927 SSVCSH SSS SSSA SSSSSSKLTKSKSES SKS SEKELKSEKSSS SHS SSKE KEES ERETERHAETE SHR EEEESREE 
0588 38 20 0208 876 TBN SBYTEO,SSwWO2 CHECK FOR BYPASS MANUAL INTERV RTWS Geib b3CSE0 DeCOnSE AES 355 
058F 78 80 01 877 TBN = -1(, XR1) , BITO CHK RTM PREFIX MANUAL INTERV FLAG Rene cece oo: 
0592 CO 10 0559 878 BT  LWK2 SKIP ROUTINE IP BOTH CONDITIONS raur 0587 F2CSC3EICIDEDSLO CSCS 920 LASG DC CLI8*SECTION LOADED® 
. , CSBP DID6CICECSCS 928 
Oo re 2a 0188 80 LA = S (eKR1) ,XR1 7 05CS 0880 OSC6 925 PR3 DC = AL2 (PLIME) 
0599 38 01 OSas 881 ST  LEK6¢3,XR1 LOAD ROUTINE STARTING ADDR OSC? 926 HDG] fo0 
pe7 > e7. O400E9 862 LHES = LA #9 XR EESTORE INDEX REGS O5C7 GOC9CO4DETETETE? OSE2 927 RDG DC CL28* ID XXXX. PROG DUXX-RR. SSwS* 
O5A1 CO 87 0000 883 LEK6 8B <0 «EXE? SUBROUTINE | DEG: AHLODTRUDECIAOEL 355 
» 4 | ee | 05D7 FUF7E760D9D94RGO 927 | wo 
OSDP E2E2E6 £2 927 be ae 
OSe1 928 SSH £00 *-2 | - : 
05©3 00 O5E3 929 NSPACE DC XL1*0° SPACE COUNTER § 
4 0SEa 0000 OSES 930 SHUR DC xXL2"0° 
0526 00 OSE6 931 PTAGS DC XLt#0° 3 
OSE7 3&4 02 O712 932 RPRINT ST  PRTE2#3,2R2 SAVE INDEX REGS AND SET UP BASE 
OSPB C2 02 056 933 LA  —- PR3,, XE2 7 . 
OSEF 34 O71 O7TA 934 RPONE ST  PRTE1¢3,XR1 
- 05P3 34 O08 0722 935 ST  PRINTEC3, ARR LOAD RETURN ADDRESS 
OSF7 35°01 0722 936 L PRINTES3,XR1 POINT AT PARAMETER LIST WITH XR1 
OSFB 3C 80 0900 937 AVI LPDATA+132,C* ° SET BLANK CRAR 
OSFP 9C CO 20 00 938 AVC PTAGS(1,XR2) .0(,XB1) 
0603 BC 80 01 939 AVI HDS1(,XR2),C°* ° PUT NON-ERR PRINT INDICATION IW HDHG 
; 0606 78 80 00 980 TBS 0(,%81),BITO BRANCH IF THIS IS HON-ERROR PRINT 
0609 F2 90 OA 981 JP PRT2 
060C BC SC 01 982 AVI #DG1(,XR2),C*** PUT ERROR * If PRINT LINE 
OF OF 39 10 0208 983 TBP SBYTEO,SS¥O3 
0613 F2 87 08 908 3 PRT2A 
0616 39 08 0208 985 PRT2 TBP SBYTEO,SS¥O8 EXIT IF SENSE S¥ TO BYPASS THIS TYPE 
061A F2 90 D7 996 PRT2A 3P  PREXIT PRINTOUT IS ON 
061D 9c 00 1D 09 987 BVC NSPACE(1,XR2),0(,XR1) LOAD SPACE COUNTER 
ee ae: eee sacean eieteae aurea oo ete tes ase | a ss DATE O9FFB70 OS8AR7G O10CT70 OTAPR72 39N0V7%  103AN72  O1MART2 PROG ID OPFF-8 
| : | EC NO. 816680 8166368 816760 8189488 818823 818388 818390 _ PAGE 8A 


=: ite 
@eeo@0@e006002@0e0@ee@eedectcfedeg@gee@edgeee@geeeqeaeqeoeoeeedg@e@edd.eesdse@ee8esd @ 





| _ . e. . ee . 8 : : t > ey, EE wy ac . si 
IBM HAINTENAHCE DIAGNOSTIC PROG RAR PART BO. 2589901! ISR AAINTERAWCE DIAGNOSTIC PROGRAR PART BO. 2589903 
| | PaGE 9 | ‘ Pace 9a 
_ PPPS DIAGHOSTIC CONTROL PROGRAR |  FPF8 DIAGNOSTIC CONTROL PROGRAR | 
| 
{ 


¥RF LOC OBJECT CODE ADDR STAT SOURCE STAT ENENT 





: 2 a, 
ERP LOC OBSECT CODE . ADDR STHT SOURCE STAT ESERT ices, Comat! 
0621 BH FB 1D 988 SBF NSPACE(, XR2) ,X° FS! LISIT TO SEVEN : O6PFE FOOT . O6FF 10196 SPAPRT DC XL2*£E001* 
0628 3C 60 06D8 9a9 NVI PRT 6+ 1, 96 = Set UP COURT FOR CONSOLE 1/0 O6P0 CO 87 O6E3 1037 B PRT? 
wg 950 as a: ; 1018 
0628 78 10 00 ; 951 ag pela Ta BRANCH IP THIS IS SPACE ONLY OP O6F8 OC 88 OSPF 0906 1019 PREXIT AYC LEDAT Re 137 (123) -LPDATE©132 CLEAR PRINT BOP DOWER TC 
0628 F2 10 R85 952 J j i 1020 © X*77B* FOR PTR SYSTES TEST 
062 78 20 00 953 TBE Spey serte SKIP SETUP IF DATA PIELD READY ; O6FA 35 03 0722 70214 L PRINTEC3,3°O 3° ADJUST EXIT ADDR TO BISS 
0631 *2 70 a9 958 aT P O6PE 78 80 00 1022 TBE O(, XR) BIT? PARAMETER LIST 
0634 CO 87 0723 ~~~. 955 B PRT DUAAY COMSAND TO SAKE SURE WO BUSY ,; 0701 F2 30 03 1022 aP Pers ) 
0638 BC00. 0639 956 DUACOB DC XL2* EOOO0® 0708 F2 02 O° = O28 La 2, X82) ,XR2 
063k OC 83 O8FF 0900 957 avC LPDAT A¢ 139(132) ,LPDATA¢132 BLABK PRIET BUP 0707 79 36 GS 4625 prRre TBY 0(,XR1) ,X*30* 
0640 78 8&0 00 958 TBN O(,XR1),8IT? SKIP HDG PRINT IP NOT CALLED FOR O7OR F2 90 63 1026 JF PRTS 
0683 F2 90 748 959 JF PRTS : O70D £2 02 63 1027 La 3(,XR2} -XR2 
0606 D2? 01 05 960 LA «= 3 (, X81) - XB SET UP TO ONPACK HESSAGE 0710 £2 02 01 1028 PRTS LA 7{,XR2) ,.XR2 
0689 Ba 0T BC 961 St IDADDR (, ZR2) ,XB1 IDENTIFIER 0713 38 02 0772 1029 st PRIWTE+3 , XR2 
O06uC CO 87 O21 $62 B UNPACK DONPACK IT FOR PRINTING 1030 
0650 02 Ces, 863 pc TLU"2° 0717 C2 67 COC” 1037 PRTE? La e-% X21 RESTORE INDEX REGS AMD EXIT 
0651 ¢c00 0652 $68 TDADDR DC XL2* 0° 1 O71IB C2 62 C000 7032 PRYTEZ LA &-¢,XR2 
0653 OSCF £456 $65 pc AL2 (HDG1¢7) O71F CO 87 0000 1033 PRIETE 8B t-2 
0655 CO 87 O21E : 966 a UNPACK PUT PROG IDEZT IN PRINTOUT . 1038 
065S 02 OcS9 967 bc ILi*2° : 1035 ee 
OS5A OR01 C65B 968 boc AL2 (PROGID) 1036 ** STANDARD INPUT/OUTPUT SUBROUTINE USED BY THE PRINT ROUTIBE. 
-065C 6SDS9 665D 969 pc AL 2 (HDG 1418) 1037 ** THIS SUBROUTINE SUPPORTS THE 5203 PRINTER AND TRE 5824 HPCT. 
OGSF CO BT O2ZTE 970 B UNPACK PUT ROUTINE NOM IN HEADING LINE 1038 ** THe LATTER IS UNDER CONTROL OF SENSE SWITCH 05. CODIEG FOE 
0662 01 0662 971 oc ILa¢9° 1039 ** ALTERNATE PRINTERS FOLLOWS THIS SUBROUTINE. THE LOADER SELECTS 
C663 ORO? 0668 972 pc AL2(RNUS} ' 1040 ** THE PROPER SUBROUTINE. 
C665 OSbC 0666 973 pC AL2 (HDG 1421) 1081 +¢ : 
0667 CO 8% C723 974 B PRTN SPACE BEFORE PRINTING HEADING 1082 
CEOR FOOY 066C 975 SPBFPHG DC XL2"E00 18 | . 0723 10%3 DOSING PRTN,X82 
O66 20 18 OSSB 1C 976 #vc PLINE+*27 (28) ,HDG(,XR2) NSOVE HEADER LIEBE TO PRINT FIELD | 0723 C2 02 0723 108% PRTE Le PRTN,XH2 SE™ DOP COBRHAED RED LOAD BASE 
977 0727 Ba OB 72 - 1085 st PRTWE¢3(,XR2) , ARB 
978 *® SET UP SERSE SHITCH PRINTOUT 0728 1086 ZONE £0u ee} 
0672 C2 01 089C 979 La PLINE+¢28,2R1 SET UP PRINT FIELD POINTER 072A BS Of 72 1087 L PRTWES 3(,XR2) ,XR1 
067%. BC 00 IF 980 VI SNUB (,XR2),0 SET SWITCH & 10 0 072D 9C 01 60 OF 1088 AVC PRSIO+2 (2,182), 1(,XR1} 
C679 GE 05 020D O20D 981 CHKS¥S ALC SBYTE5(6) ,SBYTES ADD SENSE BYTES 0731 BE OT 72 038% 1049 ALC = PRT WE*3(2, 182), THO ADJUST RETURE ADDRESS 
OF7P F2 20 16 982 JROL RNEXTSS TEST FOR NO OVERFLOW 0736 CO 87 0212 7050 PRTNI B TEST CHECK DATA SWITCHES 
OC82 322 014 020D 983 SBN SBYTES, X*O1* 073A 38 80 OSES 1051 TBE PTAGS, BITO GO EXIT IF SSW TO BYPASS THIS TYPE 
C686 72 61 03 98a LA 3(,XR1) -XR1 SET OP PRINT FIELD @ O73£ F2 90 OF 1052 JP PRTW2 * OF PRINTOUT IS TURNED ON 
- COBY EX 01 CE 985 ST SSDEST (,XR2) ,XR1 | 0781 39 10 0208 1053 TBF SBYTEO,SSHO3 ——— 
068C CO B87 0369 $86 B RUNPK UNPACK SSW @ INTO PRINT FIELD . O78S FP? 87 C8 1058 J PT90 
068F 987 ITRA £QU 4 07408 39 08 0208 1055 PRTNZ TBP SBYTEO,SSWO8 
0690 01 0690 988 XONE pc La*1* O74C CO 90 O6PFs 1056 PT90 BP PREXIT 
0691 OSES 0692 989 pc AL2 (SHUM) 1057 
0693 OO9A 069% 990 SSDEST DC XL2* 009A" 0750 38 08 0208 1058 TBE SBYTEO ,SS¥OS IF SS¥05 OB, GO USE SFCU 
0695 7c 6B 01 991 VI 1(,XR1) ,C*,* PLACE , ISTO PRINT FIELD 0758 F2 10 8S 1059 JT SECDRY 
0698 AE 00 YF CA 992 NEXTSS ALC SNUS (1,XR2) ,XONE(,XR2Z) GP SHITCH &@ 0757 P2 87 OF 21066 NOSEC J PRI BE 
069C BD 30 1P 993 CLI SNUA(, XR2),X*30° CHECK FOR LAST SS# 1061 
O69F FO 82 B3 994 BL CHKS&S (,XR2) BRANCH IF LOW O7SR NCOCEG 075B 1062 SSTAT DC XL2°0° 
O6A2 7C 80 01 995 AVI 1(,X81) ,c* ° CLEAR THE LAST COMMA - OOF& 1063 LPBOUSY £00 XK° Fo" . TIO Q CODE - 22LC BUSY 
O6A5 3C VF O6DB 996 AVI PRTGO*T,X°7TF! - PUT ACTUAL LENGTH OF LINE INTO CCEO 1066 LPNRDY EOD x*#Z0* TIO QO CODE - 22LC WOT RDY OR ERROR 
0629 2E £0 06D8 CE 997 ALC PRT641(1),SSDEST(,XR2) - PRT6¢1 FOR THE KEYBOARD PRINTER o75c 080c 075D 1065 PR! pc AL2 (LPISAG) 
COAE CO 87 0723 998 B PRTB GO PRINT THIS HEADING O7S5F 087C O7SP 1066 PR2 pc AL2(LPDATA) 
0682 £200 C6B3 999 PRTHG DC XL2* E200° 0760 7070 C761 1067 PRS pc XL2*7070° 
O6RP4 CO 87 0723 1000 B PRT® sauce 
0688 £001 06B9 1001 bc IL2* E001T* 0762 PO 3B 7D 1069 LPERR2 HPL 6 , HE *PRINTER NOT READY OR ERROR 
1002 0765 EO 87 13 1070 B PRTH1(, XR2) 
O6BA 1C CO O6D8 01 1003 PRTS AVC PRT6O+1 (4) -1(,XR1) SET UP BOVE WHICH WILL LOAD THE 0768 £1 £0 3P 1071 PRIME TIO LPERR2{,XR2),LPERDY GO HALT IP 22LC NOT READY OR ERROR 
O6RF OP 00 06D8 039PF 10048 SLC PRT64¢1( 1) ,OHE PRINTOUT POINTED TO BY PARAMETER 076B BY EO 3B 1072 LIO PRG (,XR2)/X* E0* LOAD FORHS LENGTH 
O6CS FP2 82 1B 1005 JL PRT? , SKIP PRISTING IF COURT IS ZERO C76E Bi BS 3A 1073 LIO PR1(,XR2) ,X*ES* LOAD PRINTER LSRS AND PRIBT 2 
06ce iC 01 OBDC 03 1006 AVC PRT645 (2), 3(,XF1) C771 B1 B6 3c 1078 LIO PR2 (,XR2) ,X* B6* LINE r 
O6CD 2C 01 O6DA 00 1007 AVC PRT6¢3(2) -PR3(,XR2) 0773 BB O08 SP 1075 SBF PRSIO¢1(,XR2) ,X*O8* SET UP TO PRINT OW LEFT CARRIAGE 
06D2 TF 00 O6DA 01 1¢08 ALC PRT6 43 (1) 57 (,XR1) 0777 38 80 0209 1076 TRH SBYTE1,SS808 IF SENSE SWITCH O8 IS OF 
06D7 Oc 00 000CG C000 1009 PRTS6 avec t-% (t- 8) , H~8 SET OP PRINT LIE C77B F2 90 03 1077 aF PRSIO CHANGE TO RIGHT CARRAIGE 
Q6DD CO 87 0723 1070 PRI6A 8B PRTW PRINT THE LINE C77E BA 08 SP 1078 SBN PRSIO¢1(,XER2),X*OB* 
O6E1 F200 ~O6E2 1011 oc XL 2° £200° 0781 F3 CO 00 1079 PRSIO SIO %-#,2-s 
1012 0788 F1 E6 61 1080 SSYLP TIO BSYLP(,XR2),LPEUSY WAIT FOR BUSY TO DROP 
O6E3 AP 00 4D 2A 1013 PRT? SLC WSPACE(1, X82) ,RPONF¢1(, X82) SPACE PRINTER DESIRED 0787 E1 EO 3F 1081 TIO LPERE2 (, X22) -LPSRDY GO HALT IF ASY ERROR 
O6P7 F2 82 OA 1018 JL PREXIT RONBER OF TIBES 078A C2 02 OSC6 19062 PRTEIT LA PR3,XR2 RESTORE XR2 
O6ER CO 87 0723 1015 B PRTS 0C7BE 35 01 0722 1083 L PRI NTE*3,XR1 RESTORE PARAMETER POINTER 
DATE O9PEBTO OOMARTO 010CT70 OTAPR71 19 NOV7 1? WIAKT2 OH AR72 PROG ID Orrr-8 DATE O9FEB70 O9NAR70 010CT70 O1APR71 19NOVT1 IBIATI2 O1BART2 PROG ID Orrr-8 
FC NO. 816640 8166 38 816760 818948 818823 818388 818390 PAGE 9 EC WO. 816680 816638 816760 818988 818823 818388 818390 PAGE oA 
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PaERt no. . 2589901 
PASE. 10 

STsST SOURCE STAT EAENT > * 

1088 PATHE B coat exer SUBROUTINE 

1065 — 

$086 MALT2 EPL aS, HR eHPCD WOT READY on ERRop 

1087 . 8 PRTW1(,KR2) ses 

1088 SECDRY CLXY PRSIO¢1(, 2R2),K*E0" GO Exit IP THIS GAS SPACE OPERATION 

1089 BE PRIEXT (,XR2) a ae 

1090 SHS MSTAT (,XR2) ,K*F3* RZAD AFCO sTaTEes . 

109% TBE NSTAT~1(, EB2) .X*10° IPF #0 CARD I8 SEC Bart STATION, 

1092, ae DOIT Issue PEED COMRARD he 

1993 TIC MNHLT2{,2R2),z%°PS* 

1098 SIO K°O*, xeFs? 

1095 BSYLPC TO BSYLPO (,ZR2) ,X° FT! 

1096 BOX?  TTO MRLT2¢(,XR2) .X°*F Se GO HALT IP PCH HOT REABY 

4097 LIO PR1(,ER2),R° Pa? LORD HPCU PRIBT ADDR REG. 

10¢8 SIO) X*Aw*, Ke PCE PRIST OH MFCU CaRD 

4099 BSTLP1 SHS ASTAT (,XR2) ,X*P3* BAIT FOR BUSY TO BROP 

3700 TBE SSTAT-1 (, 282) .¥° 808 . 

1108 BT BSYLP1(,XR 2) 

3702 TIO AHLT2 (,XR2),X°FB° GO HALT YP ANY ERRORS 

1103 ave LPDATAS1453( 132) « LPDATA¢?32 BLAWK PRIBT BOF 

7108 B PRTEXT (,XR2) RESTORE ER2 

1105 DROP 2 

1106 

1107 ORG x* 800° 

1108 LPIAAG EQU e 

1709 pe XL6°FIF2P3FUPSP6*: 

1170 pc XL6* F7FSPFSFOTBIC® 

9199 pc XL6 "6 1L2E3 LU ESF? 

V192 DC XL6* EVESESSO6R6C* 

1713 pc XL6 *DID2D3D&DSD6 ¢ 

1118 pc KL6* D7D8D9605B5C° 

9115 pe XYL6 *CIC2ZC3CKHCSC6FE 

1716 BC XKL6* C7ICSC9REUBID® 

1197 

7118 2 

1119 *# THE FOLLOWING INSTROCTIOWS COMPLETE THE SECTION LOADER 8Y 

1120 ** HANDLING END CARDS. IT IS IW AW AREA THAT IS READ INTO BY 

1121 ** THE DISK LOADER. 

4122 ORG O 

1123 x880 £00 **x°880" 

1128 ORG x*900° 

1225 USING 1880,XR1 

1126 pc CLi* * 

1127 EMDRTW HVC 8=LH|(2,XR1),LASGa 

2128 HVC =. 20 (21) , RESTRT#2 (,XR 2) PROGRAA RFSTART 

1129 TBR SPFLGS, BITO BRANCH IF NO. UDT ENTRIES 

1130 JT LDEED . 

4131 LA SPUDT, XR2 POINT XR2 AT SECTION PREFACE UDT 

1132 UFIND? LA OTAB,XR? POINT XR1 AT DCP UNIT TABLE 

1133 UPFIND2 CLC 0(1,XR1) ,0(,XR2) BRANCH IF WOT PROPER UDT 

1134 JNE UPINDS 

1135 NVC 2(1,XR2),2(,XR1) LOAD SECTION PREPACE OPTION 

1136 AND 1(,XR2) 61(,XR1) 

1137 SBN 1(,XR2) ,BIT2 SET ASSIGNED FLAG 

1238 OPIND3 TBH 1(,XR2) ,BIT3. 

1139 ’ LA 3(,XR2) ,XR2 INCRESENT SPUT POINTER 

7190 BF UPIND1 IF NOT LAST ENTRY, GO LOAD NEXT 

1181 J LDEND OTHERWISE - GO START SECTION 

11862 UPFINDS TBH 1(,XR1) ,BIT3 CHECK POR LAST DCP ENTRY 

11493 LA 3(,XR1) ,XR1 INCRENSENT TO WEIT ENTRY 

2188 BP UFIND2 CONTISUE IP NOT LAST ENTRY 

1185 TSF 1(-XR2) BIT! SKIP ERROR HALT IF REQUIRED FLAG . 

1186 3T *4+6 NOT ON 

1187 RPL H1, HA *UDT CANNOT BE SATISFIED 

1148 B UPIND3 BYPASS ERROR IF HALT RESET 

1169 LDEND 8 PRINT ‘PRINT DCP HEADING AND SKIP OP 

7150 pc XL1°a7* 

1151 pc IL?" 148 

010CT70 OVAPR71 T9NOV7I VaJaN72 O1MAK72 PROG ID OFFF-8 
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OBJECT CODE ADDR STaT 

oSca 0957 1152 Laa oc &L2 (LASS) 

‘FFOO 0eS9 1153 Bc ZL2* Frooe 

7158 ae 

39 07 O208 V185 TEr S8ETLO,SSk07 BYPASS HALT AFTER LOADING SECTIOS 

39 08 CIPD 1156 TBF PLA&G , BITS 

P2 30 63 3187 JF e006 : 

PO 28 UF 4758 EPL Ha,f8 HALT TOGO ALLOW DATA SHITCH ENTRY 
F159 ee . 
7760 *& THE POLLOGIRG FIVE INSTRUCTIONS ARE STORED AT LOCATIOB ZERO 
1161 *¢ (0000) AFTER LOADING OF EACH SECTION IS COMPLETED TO PROVIDE 
1162 © A PROGRAN RESTART (SYSTEH RESET/START). 

35 03 ORO? 1163 L FRTS,k*O3* SAVE FIRST ROUTINE PREFIZ AED 

3c 00 DAO3 O00 17168 ave RNUE (1) ,0¢,Xk1} LOAD CURREST ROUTIHE SUHBER 

¥ 03 0277 O3 9165 nyvCc RPPX(& ,3(, KR?) ; ; 

ce 87 o2t2 1166 8 TEST CHECK DATA SUITCRES 

DG 87 06 1167 RESTAT B &(,XR1) START PIEST ROUTINE 

690096 OS?7F 7768 a XL3*O* 
7169 «© SLKSeHEKSSESOE BALE MOST START AT eiha0 1 eeekeeeensenoees oe 
F170 eexscaces oe eke Ga oe 
VAT © RALT S86 etter ee ee GeelS HFS SHES SESE EAGEKSEHAELSOSORESERRESERESEE HALT & 
1172 e#eesess ; SASSER 
3173 # . s. 
117% == SUBROOTINE USED TO PROVIDE A CONSON HALT FUNCTION. ERTRY TO THIS *& 
47S @ ROUTINE IS ACCOSPLISHED BY BRAHC HING-- _ & 
1176 * : * 
1777 « B RALT WHERE HALT IS EQUATED TO 1372 s 
9178 % oc XL 2* UUKE?® BEX EEROR IDERTIPIER * 
1179 «® ae & 
T7180 * NORMALLY, ONLY A HALT WITH CODE °EX* GILL OCCUR. BUT WHER THE > 
T18i « SYSTES TEST IS RUNNING, HALT °UO*® WILL PRECEDE RALT *XE* TO & 
17182 * IDENTIPY THE DEVICE IW ERROR. : * 
7183 * * 
Vise 2 00 - UNIT IDEXNTIFICATIO“N & 
¥185 ® XX - INDEX NUSBER * 
1186 ¢ s 
1187 * IP TRE INDEX NUMBER IS 01-9F, THE HALT WILL OCCUR UNLESS SENSE s 
7188 «© SWITCH 06 IS ON. HALTS WITH ITNDICES AO-CP ARE PERFORMED ONLY * 
t489 «© WHEN WON~ERROR PRIYTOUTS ARE BEING BYPASSED -SS® O8-. HALTS * 
7190 2% DO-PP ARE ALWAYS PERFORRED. * 
F1GDY SSeo SS ETE CETESOEREKEE KESRES CHER THESE SHKEE TEKS SEEK AESAKSERETK ESSE TESRSSESSRSE 

0980 1192 OSING ALTTAB,XR2 
0980 1193 HLTTAS £00 ® 

6F037657785D 0985 1194 DC XL6 *6FO037657 1BSD* TABLE OF HALTS O-F 

TDOITESP3F79 ossB 1195 pec XL6* 7D077 FSF 3F 79° 

6C737C 3 O9SP 1196 pc XL& °6C737C3C° 
4197 

3&8 O8 O3FD 94798 RRALT ST ARRSAY,aRR SAVE RETORW ADDRESS 

CO &? O3A6. 1199 B SAYVREG GO SAVE REGISTERS 

C2? 02 0980 7260 LA HALTTAB, XR2 LOAD BASE 

35 OF O3FPD 9201 L ARRSAV,XR1 POINT XR1 AT PARRANETER LIST 

OF 0% O3FD 038% 4202 ALC ARRSAV(2) ,THO ADJUST RETURN ADDRESS 

7D AO 07 7203 CLI 1(,%81),X*ao* BRANCH IF THIS IS ERROR HALT PAIR 

F2 82 10 1208 JL AALT2 

7p cP OF 3205 CLI 1(,IR1) ,X*CF* DO HALT IF CODE *DO'~* Pre 

F2 84 17% 1206 J8 HALT3 

38 08 0208 1207 TBN SBYTEO ,SS808 EXIT IY NOT BYPASSING NON-EER PRIBT 

F2 90 38 3208 JP HEXIT 

P2 87 07 1209 J HALTS 

38 O02 0268 7210 HALT2 TBH SBYTEO, SS#06 EXIT IF BYPASS ERROR SALT SET 

F2 10 37 3271 JT HEXIT 
9212 

9R O02 67 00 ¥213 HALT3 HRNZ LALT1¢3 (,XR2),0(,XR1) SET UP TO LOAD CODES FOR IST HALT 

98 03 65 00 T2798 ANN LHLTIA63(,XBR2) -0¢(,XR1) 

98 02 6C 01 72158 ARZ LHLT2¢3'(,Z%R2),7(,XR1) SEP UP FOR SECOND HALT 

98 03 TO 0 1216 ANE LHLT2A¢3(,XR2},71(-XR1) ¢ 

3D FP OAOO 4217 CLI X*a00°, 2° Pr DO FIRST HALT ONLY IP RUNNING SYSTER 

39 DO OAD 1218 TBP X*a07* .x* DOF TEST 

F2 96 OB 12%9 Jc LELT2,X*9S6* 

OOSPFEB70 OSRARTO 010CT70 OTAPR71 19 8OV7 4 WIART2 OTMART72 PROG ID OFFP-8 
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ISA RAIWTEWAWCE DIAGNOSTIC PROTRAA «PART BO. «= - 2569901 IBN MAINTERARCE DIAGNOSTIC PROGRAH PART WO. 2589901 : 
; " | 5 x. eace 0 dH és | pase ita 
: FPF6 PIAGHOSTIC CONTROL PEROGEAE FFFG DIAGNOSTIC CONTROL PROGRAS , 
oe A . 
"| FRR LOC OBJECT CODE ADDR STAT SOURCE STATERENT PRP LOC OBJECT CODE ADDR STAT SOURCE STAT ENEUT 
' 99pE ac 00 67 00 47220 LHLT? SVC MALTA 17(1,Z82),%-%(,X82} LOAD PIRST MALT OCE7 20 87 67 1288 B PRIEZT (, XR 2) 
-0982 ac 09 68 OO 4221 LALTIA HVC 8 ALTAC2 (4,X82),% = ¢, 282) , oe 9289 
O9E6 FO 00 00 1222 WALTA APL t-6,9-0 | MALT TO INDICATE OEVICE 0758 1290 CIOSTS EQG #STAT 
O9F9 AC 00 72 00 4223 LHLT2 SVC) RALTB¢1(1,XR2),%-*(,XR2} LOAD SECOND SALT OCES 1291 LAST EQU *-1 HUST SE LAST STATENENT OF OVERLAY 
O9ED ac 00 73 00 1228 LHLT2A SVC HALTB*Z2(1,E¥R2),%-*(,XR2) O7CA 1292 CIOIA EOD HALT2+C1O1B-PRIWA 
oor? FO CO 00 9225 MALTB HPL e- 8, tt HALT TO DISPLAY INDEX BORSER 0796 1293 CIOHLT "00 AN LT2 : 
O9F&’ CO B87 0439 1226 HEXIT 8 RTEST ‘ GO CHECK POR SWITCH ENTRY O?7CD 129% CIOZ £00 SHLTZ¢CIO2ZK-PRTWA . 
09Fs CO 87 O3F2 4227 B LDREG GO RESTORE REGS & EXIT SUBROUTINE 1295 Tee. 
> V2ZZH FSCHSEKTESSH SS SESS SER SKE SSHE SSA SS $296 PHSSHSASHSSCSSHKKS HES KSGHS SKS SSKS SSE TTSKKSSSRSEKISES TOKE ST SS KEESESS SHRKEKSESHE SBE aad Siena 
41229 * TRARSPER TABLE CONSTARTS SSETKEHSH FSS CS ESSE SSSSESSSCESSESSSESSESHEE SEES GCER $297 PRINZ £00 = ; i 
1230 SES ekSSeSs SEEEKESESCSHE SESS SEE SE OCZA PO 78 38 ; 3298 poa1x HPL X* 34° x*7g8 
0246 1231 TRI Eou 0s ITR1 OCED EO 87 13 1299 B PRTR1(,XB2) 
OSFC OS3F OSFD 1232 TR2 pe AL2 (RLI WK) OCFO 7D 80 00 1300 PRS1 CLI 0 (, KR1) -X"a0° 
' 0280 1233 TR3 foo) 8=—s«ETR3 ocr3 £9 01 67 ~~ ; 4301 BNE PRTEXT(,XR2) 
O68F 1234 TR4 fou) «=6ITRG Ocf6 Et FO 73 1302 TIO 0081{,XR2),X°FO* 
OSTE 9999 OOPP 1235 TRS bc AL2(RHALT) ocr9 B81 FO 3c 7303 LIo PR2(,XR2) ,X* FO* 
0237 1236 TRO £90 ITR6 ocrc F3 F2 00 1308 SIO 0,X*P2* 
0568 1237 TRI £OU ITR? OCPF B1 P2 88 1305 S¥Stx TIO - BYS1¢,X82) .X*F2* 
12368 Sseerereeee Op02 £1 FO 73 7306 TIO DO081(,XR2) ,xX* FO? 
9239 * XREF SCESSKEEESESSKES SEK CSS SH SE SCSEKSESSEKKEASESEKSESK ESSEC SSESES CHKSEVSKISS opos oc 83 OSFF 0900 1307 ayC LPDATA¢%31 (132), LPDAT A¢ 132 
1280 “Seeseeeeere OpOB EO 87 67 13068 B PRTEXT (X82) 
1FPO & BP, 1281 ORG {*TFFO! FOR THE CE TO CBANGE ODT ARD CPU ODOE 1309 wD Fou Oe 
1PFO CO 87 ODDS 1242 B BEGIN IN CORE AT IPL TIME, AND THER START - 0028 1310 LwC&1 EOD ¥ND-DO4S1x 
. 1283 ¢ AT THIS ADDRESS TO GET A NEW PRINT 0796 13171 DOS1 EOQU MALT2¢ DOS 1TX—-PRTRX 
7248 & OUT OF THE SYSTES DATA. THIS ADDRESS O7AB 21332 BYS1 £00 HHLT2*¢BY8IE-PRTBK 
12485 © SHOULD NOT BE CHANGED, SINCE OTHER RELEASE 0002 1313 DROP xXR2Z 
1296 + DOCUMENTATION TELL THE CE TO USE THIS 
1287 * ADDRESS. 
VF P6 1248 ORG X*1PF6® 
IPFG 0407 IFP7 1269 pC AL2 (XREFS) LOCATION POR SSH VALUE 
IFF8 0408 1FF9 1250 DC AL2 (XREPS) SUBSRTN TO SET SS# e423 
VFFA ODDS 1FFB 1251 DC AL2(XREF 3) LOADER BRANCA @ WHEN DCP IS LOADED 
IFFC 1118 iFFD 1252 pc AL2 (XREP2) LOADER BRANCH @ WHEN LOADING DCP 
VEFFE 02P3 VEPP 1253 pc AL2(XREF1) LOADER RETURN IF BOT IN VTOC 
1258 
0c% 1255 ORG #SHLT2+x*500° 
1256 *€ PRINTER INPUT/OUTPOUT ROUTINE SUPPORTING THE 5203 AS PRIMARY OUTPOT 
_ 1257 ** DEVICE AND TRE 5871 PRINTER KEYBOARD AS SECONDARY. ONCE LOADED, —Sa 
1258 ** DCP SCANS THE ODT TABLE TO SEE IF THE 5871 IS ATTACHED. IF IT IS, 
1259 ** DCP REPLACES THE 54824 PORTION WITH THE 5471 OVERLAY. 
1260 *# 
0723 1261 USING PRTN,XR2 } 
0C96 1262 PRTHA £00 * i 
1263 i 
9C96 FO 3B 7D 1268 APL #6,HR *KEYBOARD PRINTER ERROR { 
0C99 FO 87 13 1265 B PRTN 1(, X82) t 
OC9C 2E 09 06DB 08 1266 PTCIO ALC PRT641(1),ZORE(,XR2) ADJUST LENGTH OF PRINT j 
OCA1 3B 80 06D8 1267 SBF PRT64¢1,X'80? LISIT NUMBER OF CRARACTERS TO 127 
OcAS BC 81 AC 1268 | HVI CIO2¢2(,XR2) -X* 8" SET UP TO DO PRINT i 
OCA8 BD EO SP 1269 CLI PRSIO¢1(,XR2),X EO! CHANGE TO CARRIAGE RETURM IF SPACE; 
OCAB F2 01 18 1270 JNE  CIO1 ONLY : 
OCAE BD 00 60 1271 CLI PRSIO¢2(,XR2),0 SKIP CARR RETURN IF SPACE 0 
OCB1 FO 81 67 1272 BE PRT EXT (,XR2) i 
OCBa 3D 02 0583 1273 CLI WSPACE,2 LIMIT NUS SPACES TO 2 ' 
OCBB F2 82 048 1274 JL £47 
OCBB 3C 02 0SE3 1275 HVI WNSPACE,2 
OCBF 3c 00 06D8 1276 “VI  PRT6+1,0 : 
occ3 BC 41 AC 1277 MVI  CIO2¢2(,XR2) -xX°at* 
OCC6 C2 01 0880 1278 CIO1 =A X*880*,XR1 POINT XR? AT PRINT PIELD : 
OCCA 71 18 01 1279 CIOIB LIO 1(,XR1),X*18* LOAD CHARACTER TO BE PRINTED : 
occD F3 18 00 1280 CIO2X SIO *%-#*,x*148" ISSUE COMMABD TO 5471 
OCDO BO 19 38 1281 S§S  CIOSTS (,XR2) .X* 19° HALT IF ERROR 
GCD3 BO 03 38 1282 TBF CIOSTS(,XR2) -X*03* 
OCD6 £0 90 73 1283 BF CIOBLT (, XE2) 
OCcD9 7c 40 00 1268 SV¥I O(,XR1),C* ° CLEAR OUT THIS CHARACTER 
OCDC D2 01 01 1285 La 1(,XR1) ,XR1 INCREMENT PRINT FIELD POINTER 
OCDP 2F CO O6Ds 08 1286 SLC = PRTO*1 (1), ZONE (, XR2) 
OCES FO 02 A? 1287 BUL CIO1A(, XR2) CONTINOR UNTIL WHOLE LINE PRINTED 
DATE O9PESTO OSBARTO 010CT70 OTAPR7I 19NOV7I VSIANT2 OIMAR72 PROG ID Orrr-8 DATE OSPEB70 O9RAR7O 070CT70 O1APR71 19NOVTI WJAH72 = 018AR72 PROG ID —s_—«OOF FF-8 
FC WO. 816690. 816638 816760 613948 818623 oi6s88 618390 PAGE " EC NO. 816640 816638 816760 818988 818823 818388 818390 PAGE 14a 
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3 : 2 23 i .t . 
BRR Lot. onseer cone ADDR STHT SOURCE STATERRET ' | FRR LOC OBIECT CODE ADDR STAT SOURCE STRTEREST 
0023 | 1345) ORG = PRTHeK*600° © a J OO£2 1375 CPBUSY EOD xe Eze * 
1316 ; a f.. es ; O0E0 1376 CPHERR FOU £E*EO® ° 
“U217 €s PRINTER IWPUT/OUTPUT. ROUTIAE | ODcr Of7C ODDO 1377 PR28 DC AL2 (LPDATA) * 
¥ on , U3 es ODD? H66B ODD2 1378 ASPFBH DC AL 2 (SPBPHG- 1) 
eee OP23 1319 - GSING PRTAH,2 | Opp? Off? ODD& 1379 PR3H DC AL2(PLI UE) 
2 ee rer 2 “he: 0723 ‘4320 PRTAM LA PRTW, £82 | . $380 
ee Bek poe’ 6027 ‘ga’ 08. ABD 1321 , ST: PRIWERS 3(, £82), age. | i “239i cevseeece|ece 
Tk B24 88-08 SB. 9322 st BSTATH (,XR2) ARB :382 © EQUATES SUR STSTCSESS SEE HOS CEE TOR NE ESESE SSC ESE ESSE TOO SEREH SESE SESE TER 
OCS @b2p BS OF BB 1323 L PRESEN? 3(, 222) ,XRY . | o | 1383 seeceescese 
OD20 HC 00 01 KSDE- 1328 | 99 2 (1, ER) PRTOST & * 4 | 0070 7388 Tar Zou 8 x¢t0° XYESTRUCTION ADDRESS REGISTER. 
'PO35. BE -89 AB 0384. 1325 ALC = PRYWEN¢3(2,282) “WO ADJUST RETURN ADDRESS oe ey 0008 1385 ARR ross xx* OG" ADDRESS RECALL REGISTER 
OD3A CO BT 0242 1326 PRTRIR BD Test CHECK BATA SUITCHES * 0608 1386 PSR £QU K*0G° PROGRAB STATUS REGISTER 
Soy: QDS 38 FO OSRS 1327 TBR - PTAGS, BITO GO EXIT IF SSW TO BYPASS THIS TrPEe | 0001 1367 xR1 eo IBDEX REGISTER 1 
os O82 P2 90 OF 1328 JP PRT E28 OF PRINTOUT IS TURBED OF e 0002 1388 xR2 BoD 2 INDEX REGISTER 2 
now | - 985 39 90'0208 | 43290 TBF SBYTEO,SSNO3 * CB7C 1389 LPDATA EOD x*e7C* 22LC PRINT DATA AREA 
5 QD49 F287 0% 9330 z pT908 * 0880 1390 PLINZ EOD x*8e80° START OF DCP PRIET LIBRE 
- - Opke 39 08 0208 1331 PRTNZH.TBP SBYTEO,SS#D4 s OA0G 1391 SPT EoU x*aove SECTIOH PREPACE TABLE 
 OD50 CO 90 CoFe 1332 PTOGR BF  # PREEIT - * OA01 7392 PROGID FOU xX*a078 SPT - 28D BYTE OF PGS IDENTIFICATION 
PEs |. -_ esd 1333 OA02 1393 SPPLGS EOU x*~A028® SPT - PLAGS 
onsa 3¢e 0% 0208 1338 TBE SBYTEO,SS¥OS TEST FOR ALTERWATE OUTPUT * 0a02 4392 REUN 8 FOU 3 xX*~a03° SPT - ROUTINE HUMBER ~CoRREST- 
OD58 P2 10. 8D” 1335 JT PRT DRC s OA07 1395 PRTH B2O0U K*ADTE SPT - ADDR OF 1ST RTN PREFIEZ 
wos 8 PSB £1 BT BE 1336 NOSECX TIO EOFST(,XR2) ,X°E1¢ . OA0A 1396 SPUDT EQU  Xx*ADA® SPT - UNIT DEFH TABLE 
cio ODSE F2 87 -Oa 1337, J PRNT3a oe) 1397 
Ese AP on ehh ee s 1338 1338 ** CONNON SENSE SWITCHES 
Soper 39 820039 1339 BORST LYIO ONE,K*E2® Sw ty 1399 
So 9D65-PO78 3a | 1340 CPERR2 APL X°348°,x°78° . | 0080 1800 Ss¥oO £00 x*B0° LOOP O#8 SECTION 
OI 9pe@ BO: BRIT 1381 Bs PRT W18(,KR2) | . 0040 190% SSH01 FOU x® S08 LOOP O®8 ROUTINE 
OD6B £1 BS 65 1382 PRNT3S TIO FLIWNE(,XR2),X°EG? | 0020 1802 ssw02 EOQU  x*208 FYPASS HAKUAL IETERV RTNS 
> OD6E 39 OF OSE3 1343 TBP WSPACE,XK*U7* 0070 1403 SSWO3 FOU xX* 10° BYZaSS ERROR PRINT 
(oo 3 ODI2- F290 06: 13485 JP RESTOR 0008 1808 Ss¥woS FOO x*06° BYPASS MGK-ERROR PRINT 
oo . OD7S BT. ge BT 1385 Lro PRIA (,XR2) -K°ES® COO& 7405 Ss#0S #00 zK°oge USE NPCO AS PRIWT DEVICE 
Set) ODI F2 87.15. 1386 3 FLINE¢S md eo 3 . 7s 0002 1406 Ss¥w06 £OU x*02* HALT ON ERROR 
oo. .  , OBFB. 2b 05 0000° 1387 RESTOR CLI %-#,2°05* CHECK FOR SPACE 000% 1807 SSWO? EQD xe ov LICKETY SPLIT 
fe ee , oe ODVE 1388 MSTATA EQU  *-1 0080 1808 Ss¥OB E£QU xX*80° USE 5203 RIGHT CARRIAGE 
oa OTF P2:81 06 1389 “If PLINE 0080 1809 ssZ09 200 Z*°gQ° IWHIBIT SECT. SS® CLEARING 
oe ODS2 BY B6 AP. 1350 LIO = ASPFBH(, XR2) ,X* 269 1810 
oe opsS F3 EO 00 1351 SIO x*O*,K* EO? 0080 1411 BITO Bou x*80°* 
aie OD8S HE CO 01 O3FE 1352 PLIRE ALC 1(1,XR1) FIVE 0080 1812 BIT1 e200 x*aO* 
Fes ODBD RY BO AD 1353 _LIO. PRIN(,XR2),X*ES9 * 0020 1813 BIT2 E00 x* 20° 
a on9@ B1 E6 58 13548, LIO 8 SSTATS (,XR2) ,X* 26° 0010 1818 BYT3 FOU xz°768 
8093 BI B2 75 3355 LIO - PRSION¢2 (,XR2) ,X! £2" 0008 1415 BITS E£QD x*08* 
O96. 73 FO 00 1356 PRSIOS SIO *-©,x* £08 * 000% 1816 BITS 200 KOR" 
OD99 EY £2 76 | 1357 BSYLPA TIO BSYLPM(,XR2) -CPBOSY * 0002 1817 BIT6é £00 xX*02* 
Doc £1 £0 42 1358 = 20 CPERR2(,%82),CPNERR - * 0001 1418 BIT7 £QU x*01°* 
ODoF F2 87 18 1359 3 PRIEKH ° 1819 
Ee a. 8 - 1360 caf O06P 1620 HO 200. x*6Pr* TABLE OF HALT CODES - 0-F & 8 
/-ODA2 FO 78 34 1361 DOCERN APL X°3e8°,x°78°. 2 O00C3 16272 fA} E0U x°Q3e ; 
 ODAS BO 87 17. 1362 B i$ PRTNIA(,XR2) * 0076 1822 H2 EQU x*7To* ae 
“--. 9DAS FD 4O. CO 1363 PRTDRC CLI O¢,XR1),2°H0° | TEST POR SPACE OBLY * 0057 1823 83 eou Os x° 578 oe 
CDAB F2 01° OF 1364 JWE PPTEXA * CO%B 1828 HG ZOU = K* 1B TEN 
 ) ODAR EL PO 7P 1365 TIO DOCERN (,XR2) ,X* FO* ° 005D 1825 #5 EQU) Ss X* SDP HALT DISPLAY CODE -5- 
“l..) ODBT Bt PO-aD 1366 LIO =PR2N{,XR2) ,X*FO?* * COM 1426 Ab Zou 3 x* 7p* 
hi 5 O8B8 3 F200 | 1367 SIO x*0*,x¢p2e C007 1827 H7 ZOU = K* O07" PR 1 lee tea 
27s. .ODB7 BL P2 9a" 1368 BSYDOC TIO BSYDUC(, XR2) .X*F2° * 0O7P 1828 AB Bou X* 7F® Fe a 
0) ORBA. E1° FO 7P 1369 TIO DOCERN(,XR2},X* FO* * OOSF 1829 H9 EQU xX*SPe aR PROS a a A 
ODP Oc 83 OBFF 0900 1370 PRTEXS NVC LPDATA41731(132) , LPDATA¢ 132 * CO3P 1430 HA FOU Os K* 3 Ft Na, SERRE OND oe teen 
" 0bC3 C2 02 O5c6 1371 LA PRB, XR2 « 0079 1437 HB FOU =o xe 798 oat nee 
Ata OBCT 35 01.0722 1372 L PRINTE¢3,x81 . 006C 1832 aC EouU 0K" 6c S 
“oy. ‘ODEB CO 87 0000 1373 PRTNEN B oe EXIT SUBROUTINE * 0073 1833 HD ZOD) «-xx*73° 
oe oso : 007C 1838 HE £00 x°7ce 
003c 19835 HP FOU _x*3C* 
0038 1436 HA £00 8 x* 35° 
C068 1837 HD “£00 x*6Bt HALT DISPLAY CODE -v- 
003 1838 AP zou = xK* 3g BALT DISPLAY CODE -P- 
1839 
ee vn Lie Ges O1FD 1880 PLAG FOu = x*1FD® 
Peri S tae vem ges OTFE 1881 DTABLE €QU) X*1PE® 
pee an eS . 1882 
pare: gorrere - OMSART7TO o10cT70 OTAPR71 1980¥71 WIAHT2 OIMART2 PROG ID Orrr-86 “DATE O9FERTO OSHARTO 0710CT70 OTAPR7I12 WINROVTI1I W8IJANT2 O18 AR72 PROG ID OFFF-8 
Be no. “B16680 816638 816760 818946 8 18823 818386 818390 PAGE 12 816690 816638 816760 818988 818823 818368 818390 PAGE 12a 
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IBA HALKTENARCE DIAGKROSTIC PROcRAL ; PART NO. 2989901 IBA SAYNTERANCE DIAGNOSTIC PROGRAS PART #0. 25869904 
i wees ot PAGE ¥3 PAGE 938 - 
FF?S8 DIAGHOSTIC CONTROL PROGRAR . FPrS DIAGNOSTIC COSTRCL PROGRAa 
ERR LOC OBJECT CODE = ADDR STAT SOURCE STATENENT ER LOC OBJECT CODE ADDR STAT SOURCE STATESEST 
1883 S¢¢ THE POLLOWIRG INSTRUCTIOWS ARE PERFORAED AFTER INITIAL DCP OFAS OF OO OPAA 039F 1577 . ALC ‘OPHUS(1) ,ONE 
1686 ¢¢ LOADING OLY. THEY ARE OVERLAID BY THE PROGRAN SECTIONS. OBAA 3D OC OFAR 1512 CLI oprus,z*oc? 
ODDS 1885 XREF3 EQU * te Ht OEA® CO 82 0E73 21513 BL ODTLPI CONTINDE ONTIL ALL OPTIONS CHECKED 
: ODDS 7446 BEGIN EOU *® OFB82 3D 01 OFAD 1518 CLI FLAGS, BRANCH IP HOT FIRST UDT ENTRI 
opps oc 10 C010 OFA 1aa7 avec 16 (17) ,GOLOAB+16 STORE A PROGRAM RESTART AT 0000 OFB6 P2 0% OC 15175 JRE CKPTR ‘i te 
ODDB CO 87 1118 4868 B FIXKOB : ; OFBS BC 05 09 OPC? 1516 AYC 9 (6, XR2),LDE INDICATE THAT THIS IS LOADING DEVICE 
ee a 1889 , : OFBR 3C 02 OPAP 1547 NYT FLAGS -2 INDICATE SECOND ODT ERTRY 
OMPDP CO B87 O2TA 7850  &B PRI RT SPACE PRIFTER Orc? F2 87 26 1546 3 PRODT ‘GO PRIST THIS ERTRY 
ODES 17 ODE3 1857 | pc XL7°19° OrcS 3D C2 OFED 7599 CKPTB® CLI FLAGS,2 BRANCH IF HOT SECOND UDT ERTRY 
ODES OC CO OFDI 0200 1852 uvC  8= LINE?-15(13) ,SOD PUT MODEL ID If PRINTOUT CECS F2 02 09 7520 SWE  PRUDT 
CDEA 3c CO 033C 1453 HVI CTR. xX*Ot OFCC 8C O06 OA OPCE 1521 avec 10 (7,282) ,PRUTR INDICATE THAT THIS IS PRIRTEF 
ODFE 3D FP 0202 1859 cLI SIZE-1,X°PrP* OfD? % OO OPAD 1522 avI FLAGS,0 FIRST 2 ENTRIES HAVE BEEB HANDLED 
OprP2 F2 01 07 2855 JBE 410 ; , OEDS OC 19 1036 O8S:k 9523 PRODT SVC LIWE3(26),PLINES26 SET UP AND PRINT LIBE 
CDPS 3¢ 10 033Cc 1856 AVI CTR, 16 OFPDB CO 87 02728 9528 8 PRIST ; 
ODF9 P2 &F 06. 1857 J *e9 ODF 01 OEDP 1525 pc XL7*O1° 
OpFe O08 O2 O33C 8202 7858 AEZ CTE ,SIZE-1 PUT CORE SIZE I8 PRIBTOUT OFEO 12 OEf0 7526 oc IL 17° 26¢ 
OFO2 028 10 OFDP OFAB 1859 ZAZ 2 LINEI-1 (2), DFOU R-1( 9) OFE? 1036 ORE2 1527 pc AL2 (LIBE3) : 
SESS- SG OF OPPP OFAC 1860 FINDSZ AZ LINE1-1( 2} ,DPOOUR (2) OFE3 78 10 01 7526 ROURIT TBE 1(, 28), x° 10% CHECK POR LaST ERTRY 
OFOE OF 00 033¢ 039F F461 SLC CTR (1) ,ONE OPES D2 01 03 7529 ~ La 3(, X81) .XR1 | 
OF18 CO 07 OF08 1862 BNZ FINDSZ . 4530 
0218 CO 87 C271TA 1863 8 PRIST PRINT OUT SYSTEH AODEL AND OFFS CO 90 OES? 1531 RF UDTLP 
OEIC 01 OEIC 1868 pC XL1°O%8 CORE Sizz 1532 
OEID 16 CEID 1865 pc IL1°22¢ OFED OC 01 0F72 0203 1933 AVC SOVIT#¢3(2) ,X*°203¢ ® PILL CORE FROB 8K OB UF 
OEIF OFEO OEIF 1866 pc AL2 (LIKE1) OEF> 3D FP 0202 1536 CLI X°202* X* PP % 
OF20 38 80 0208 1467 TSE cpu, x*80* . BRARCH IPF NO DUAL PROGRAMS PEATURE OEP? F2 01 08 9535 JE ROFOGE s 
O£2&4 F?2 90 08 1868 oP NOTDP CEPA C2 07 0006 1536 Li 0,XRi % 
0OF27 CO 87 O21TA 1469 B PRINT PRINT INDICATION OF DUAL PROGRAS CEFE 36 017 OPF12 1537 St HOVIT?*3,XEt * 
OF2B 01 OE28 1870 pc XL1*°OU8 FEATORE CFO2 OF OF CF12 033E 1538 NOT6&K ALC SOVIT+3 (2) ,NEG1 ® WITH BLANKS, X*80*. THE 
OF2C 09 OE2C 1971 Dc IL1*9¢ OFOS 3D 1P OFT? 1539 CLRLUP CLI HOVIT¢2 X* IPs ® PIRST 8K HAS SEEK FILLED 
O22D OFEeS9 OF2E 1872 pc AL2 (PEAT1) OFOC F2 08 10 1580 INH ALLCLE * AT LOAD TISE. HENSE, WE ‘ 
OE2F CO 87 O2Z1A 1473 HOTDP 8 PRINT OFOP OC PF COCO 1FFF 1581 ROVXT NYC e-@ ,X*TEPF® (256) ® SE THE TOP 256 BYTES OF 
O£33 01 0£33 1974 pc XL1°OR* OF15 OF 00 OF11 0338 1582 ALC HOVIT¢2(1) -HEGI * THE LOWER 8K AS THE SOURCE 
OF34 33 OE3&G 1875 « DC IL7*S7* PRINT ---*S | “ OFIR CO 87 OFOB 1583 B CLRLUP & 
0£35 10B9 0£36 1876 pc AL2 (DASH) | 2588 
OE37 CO 87 O2ZTA 7877 B PRINT PRINT ONIT DEFINITION TABLE HFADING OPIF CO B87 O212R 4585 ALLCLR B PRIET SPACE PRINTER 
CF3B 01 OF38 1878 pc XL1°O18® Or23 11 OF22 1536 pc XL 7° 19° 
OF3C 33 O£3C 1879 DC YLvestet OF28 3D ao 0232 1587 CLI OTAB,X*~AO® IP DISK SYSTES, 
OF3D 191C OE3E 1880 pc AL2(LINE2) OF28 F2 81 O8 1588 JE PRT25 THEN DO DISK PRIRTOUT ers Sr a 
OE3F CO 87 O21A 1981 5 PRINT OF2B CO 8&7 O21K 1589 B PRIvT 
OE43 01 OF83 1282 pc IL 1°07 OF2P 07 OP2P 1550 pc XL 1° O7¢ 
OESG 33 OE8& 1483 pc IL7°*51° PRIUT ---*S Or30 22 OF30 1551 pc IL1*a6* 
OF8S 1089 OES6 1684 pc AL 2 (DAS8) | OF31 1068 OP32 1552 pc AL2 (LINES) 
1685 | OF33 P2 87 2D 1553 a TSTO7 * 
OFS7 C2 OT 0232 1886 LA UTAB,ZR1 LOaD UDT POINTER | OP3% CO B87 OFIR 1558 PRTZ25 8B PRINT = 
O£4B 3C O01 OFAD 1887 s¥I PLAaGS,1 INDICATE SETUP FOR PIRST ENTRY OF3A 01 OF3AR 1555 pc XL7°01° s 
OESF 7D CO 00 1488 UDTLP CLI 0(. XR1) ,x*0* SKIP ENTRY IP WO DEVICE CODE | OF3B 1C OP3B 1556 pc IL1°28° 2 
OES2 P2 81 SE 1489 JE KOUMIT | OF3C 1052 OF3D 1557 pc AL 2 (LIN E8- 18) * 
0E5S 30 01 OESF 1490 Sst UADDR, X81 . \ OF3F CO BF 021K 1558 B PRIST * 
O0F59 CO 87 C21E 1491 8 UNPACK UMPACK DEVICE IDENTIFICATION i OPS2 07 OFS2 1559 pc XL2°078 Ps 
OZ5D 01 OESD 1892 oc Inve | OF&3 22 OF&3 3560 pc IL12°3a°? * 
OFSE 0000 OESP 1493 DADDR oDC AL2 (*-*) OFS8 1086 Oras 1561 pc AL 2 (LIBES) * 
O£60 0883 QF61 14948 pc AL2 (PLINE+3) OP&6 CO 87 12CA 1562 B CHKID 
OF62 C2 02 0884 1495 LA PLINE#&, XR2 POINT XR2 AT PRIWT LINE OFGA 70 OPGA 1563 pc XL 1* 708 
OE66 BC 60 00 1896 AVI 0(, X82) ,C*-* PUT DASH AFTER DEVICE ID { OPSR P2 01 15 15648 JHE TSTO7 
OE69 OC O01 OPAD O039F 13897 AYC SASK (2) ,ONE INITIALIZE DATA FIELDS i OPSE CO 87 10P5S 71565 x8 B PTR 
OFf6F 3c OO OFAA 1498 Ce SVI opHua,0 | OrS2 CO 87 O271A 1566 8 PRINT 
0E73 OC 00 OF80 OPAS 1499 UDTLP1 HVC CHK 14¢1(1) ,MASK-~1 SET UP BASKS TO CHECK OPTION BIT OFS6 01 OFS6 1567 pc XL 1°08 
OE79 OC 00 OF83 OFA 1500 ave CHK 2¢1(1) , SASK crs? 3c OFS7 1568 pc IL1*o0oO* 
O27F 79 00 01 1501 CHK1 TBP 1(,XR1) ,*-* CHECK THIS BIT : OFSS 10FS OFS9 1569 Dc AL2 (x81) 
OFB82 79 00 02 1502 CHK2 TBF 2(/XR1) ,*-* OFSA CO 87 10P5 1570 B PTX 
OF8S F2 10 16 4503 JT RE XTOP BRANCH IP OFF QPSE CO 87 O2TA 1871 B PRINT SPACE 7 
OF88 BC OO 01 OFAA 1508 AVC 1(1,XR2) ,OPNON PUT PRINTABLE OPTION NUABER ISTO 9P62 17 OF62 1572 pc ¥L1°17° 
OFBD RA PFO O01 1505 SBN 1(,XR2) .xX°PO* PRINT LIBE 0P63 3D C2 0200 1573 TSTO7 CLI SHOD,C® Be 
O£90 BD PA 01 1506 CLI 1(,XR2) .X*Pa* OF67 F2 81 25 1578 JE AFCO 
O£93 P2 82 05 1507 JL +48 OP6A 3D SI 0232 1575 CLI X*232* ,X°57° TEST FOR 1892 AS LOAD DEVICE 
OE96 SE OO O01 OFAI 1508 ALC 1(1,X82) ,xXC7 OF6E P2 81 TE 1576 JE BFCO JonP IF If IS 
OEQR £2 02 01 1509 LA 1(, XB2) ,XB2 POINT AT REXT PRINT SLOT OP71 3D SO 0232 1577 CLI X*232° ,.x°50°8 TEST FOR 1442 AS LOAD DEVICE 
OESE OF Ct OPAD OFAD 1510 BEXTOP ALC SASK(2) , MASK SET UP TO CHECK REXT OPTION BIT OF75 F2 81 17 1578 JE aFCU JusP IF IT Is 
DATE OSPEB70O O9S ARTO o10CT70 OTAPR71 9HOV71 IBJANT2 OIMART2 PROG ID orrr-8 DATE O9FEB70 O9SRRTIO 010CT70 O1APR77 19 8OV71 WBIAWI2 O1MART2 PROG ID OFFF-8 
EC RO. 816640 816638 816760 818988 818823 818388 818390 PAGE 13 
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PAST #0. (2589901 ss ren MATHTENARCE DIAGROSTIC PROGRAE PART HO, 2589901 
. PAGE 48 é | PAGE. 20a 
i : } ‘ : - 3 
‘PRFB8 8 PIAGHOSTIC CONTRCL pRocRan EFF& DIAGHOSTYC CORTROL PROGRAS 
ERR LOC OPJECT CODE ADDR STHT SOGRCE STATERERT | «BPP Loc oBsecT cope ADDR STHT SOURCE STATESEST | > 2 
pete co. — Or7c isso ac erates CHECK POR APCS ASSENT toot Cree ee be 
€ a 1022 C780C&Co E2D2 1616 
OF7D. F2 = Or acne Jf pe _o8 5810 1OEB8 SOCECICICTDSD6E2 10P8 1679 x1 pc CLi3* DIAGNOSTICS-* 
_OP80 CO 87 128 B CaK) : | 1OFPO B3C9C3E260 1679 
OFBS FT : ores ha oc eeele APL D? | 10rFS 38 068 1779 1620 PTX Sst PTXa¢ 3, RRR 
OF8S F2 81 0 1588 JB arco : 10%9 3C O02 T11A 1621 avi CkT,2 
 OFSR CD 87 O72~z. 1585 8 LOAD : 10PD 3C 60 08RC 1622 £21 avI X80 *460,C*%-8 
orec 08 Orec 1586 BC xLIos* | 1107 OC 3K COPS CBRC 41623 svc X¥° 880" ¢59 (59) .X°880%060 
OFBD DPEG. OFSE 1587 oe XL2'*DFEG* | 1107 CO 87 CriR E26 B PRI WT 
orar 38 01 9208 1588 APCD TSY SBYTEO,SSHUO? 170B 2% 110K 1625 pc XL1°21°¢ 
Ors3 ¥2 10 03 _ 9589 Jt GOLOGAD 130C OF 00 271A O39F. 1626 sic CeT ORE " 
OFS FO 38 3P aces oe eee re HA, an BCP LOADIHG COMPLETE. | 1712 CO 01 10FD 1627 BHZ xz1. = 
as 1196 CO 87 0000 . 1628 PTx® 8B So6 
Hed - 2 bore seca : ad CHECK BATA SUITCHES | TTA 00 V19R 1629 CRT DC IL1°O8 
D ¢ t : 7718 7630 EREF2 eQU @ 
: 0082 1598 DROP XR2 191B 38 08 12C6 1631 PIXKSOB ST TSTINS- 1, ARB 
eps . a Orat 2 KG? pc ey i T11P 3D SC 0880 ~ 1632 CLI x*880*,cess 
FA 8 96 J J EST7-TSTCRD-1- 1123 P2 81 08 1833 JE TSTUDT | 
OPaS FP2 87 33 1597 31 J LE2-LX2 1126 3p C5 0880 1634 CLI X*880*,C*E® 
OPAS 0000 OFAS 1598 MASK pC XL2*08 712A CO 0% 1203 1635 BRE LEXI? 
OPAA CO OPAA 1599 OPNOM DC EL Yo? | - 1128 CO 07 1289 1636 TSTUDT BC LY¥80B,X‘07* 
OFAB FOFG Orac 1600 DFouR pC DL2 ‘ue oe 1232 3C 87 112P 1637 AVI TSTUDT¢1,x3°B7+ 
OFAD 00 : OFAD 1601 FLAGS DC XLV¢o¢ | 1736 OC 01 6295 OtFD 1638 ave ENTRY?(2) ,X°1PD* 
CPAE 0008191820283938 OF85 1602 oc XLB *0008 10 18 2028 30 38° .  %93¢ OC 01 0337 O1FP 1639 HVC ENTRY2(2),X*i1FF® HOVE ENTRIES POINTS @ INTO LOAD RTH 
OFB6 &048595860687078 OFRD 7603 SBTAB DC ZL8* 60488505866687078* | 182 OF 05 OFF OIFP 1680 SLC DTABLE¢ 15) , DTABLE? 7 CLEAR DTABLE 
160G *eeeetetetass 1748 0 0232 169% CLI UTAB,X* AO® DISK SYS. ? 
1605 s PRIN TOOTS Serer genni ne reenter serene Tey ees 11ac _ e a 1682 JE DSKSYS 
1606 eteeeenresess 178P OC 02 0300 OFA? 1683 AVC LE2~-1(3),3142 
OFBE B3D6CIC&CSD9 OFC3 1607 LDR pc CL6* LOADER® | 7155 3c 00 0855 1684 AVI TSTDSK,0 
CFCO DIDICIDSEICSDS OFCA 1608 PRHTR DC CL? *PRINTER® | 1159 OC 02 6483 OFAa 1685 AVC ©6TSTCRD(3) ,J¢2 
CPCB DEDGCECSD3ROE78B OPEO 1609 LINE? nc CL22*MODEL XK. CORE SIZE XXK* ' TISP 1686 DSKSYS ZOU # 
OPD3 8OC3DEDICSSOEZCS 1609 115F 3D AO 0232 1687 CLI UOTAB,X*AO® 
OFDB E9CSSO0E7E7D2 1609 | 1163 P2 81 OB 1688 JE SESHOD 
oan SOCSEGCID38OD7C7 OPES 1610 FEAT? DC CLOS* DOAL PGH® 1166 3D C2 0200 1689 CLI S#OD,C°B* 
FEO Ds 1610 2168 F2 81 OF 1650 JE NODELB 
eres ae OFPF 1611, pc CL22*UNIT DEFINITION TABLE ° | 116D CO 87 1298 1651 B CKCIO 
PR DSCIEICIDEDS4O 3611 1177 30 A3 0807 1652 SUSHOD S¥S DATSHS,X*A3* _ 
OFFA E3C1C2D3C580 1611 { 1175 38 01 0806 1653 TBE DATSUS—1,1 TEST POR AODEL 6 
1000 SBUBGBSBYODSESEZ2 101C 1612 LIYWE2 DC CL29*.... MUST BE CORRECT -VERIFPY-? 1179 P2 90 63 1658 a? HO DELD 
1008 £340C2C580C 3D6D9 1612 117C 3C C2 0200 1655 HODELB AVI S#OD,C*B* 
1010 D9C5C3 E3406 0E5CS 1612 | 1180 3c 7C 0867 1656 NY¥YI HLTA¢?,xX*7C* 
1078 DICIC6EBED ) 1612 1188 3c 08 O4ED 1657 AVI TEST2¢7,xX°08* 
101D 4060898048080480480 1036 1613 LINE3 pC CL26* * es 1188 3C 08 0873 1558 SVI ALTB??, F° 98 
1025 40898080804806080 1613 718C 3C 7c 0879 1659 AVI TEST3¢2,xX*°7C* 
102D 20804080008 04080 1613 1190 3c 78 Oa7Cc 1660 avi THLT+1,K* 78° 
1035 soao 1613 _ 19794 3C 78 OBAR 1661 AVI ALTC+¢4,x°78° 
ae EocsD TAS Bouse Ice 106% 1618 LIHE’ pC CL46°DCP LOADED - SET COMAON SSWS AND/OR RESET HALT® ‘ 1198 3C 1&8 O&8AB 1662 AVI HLTC+2,x* 148 
O3F CSCU40608OE 2C5SE3 1618 119C 3C 78 0318 1663 AVI HLTC1¢21,xz°78° 
1087 40C3D6D48 DUDE DSNO 1618 1120 3C 68 0319 1668 AVI SLTC14¢2,x°69* 
108F E2E2E6E200C 1DSC4 1618 : TIA8 3C 78 OBET 1665 AVI RLTDO1,xX"78° 
1057 61D6D940D9CSE2C5 1618 ; 1148 3C 1&8 OSPF 1666 NVI HLTD¢2,x° 149 
105P E390C8C 1D383 1648 ' 17AC 3C 78 OSOA 1667 SVI TeSTI3¢1,x°78* 
mee Goer co pas oD 7B? 1086 1615 LINES pC CL3Q* ENTER PROGRAM SELECTIONS AND START® 11B0 3C 1C 0508 1668 AVI TEST13¢2,x*°1C* 
6D D6C7DIC1D4R0EICS 1615 11B4u 3c 78 0528 1669 NVI TEST15¢9,x°78" 
1075 D3CSC3E3CIDEDSE2 1615 1188 3C 14 0529 1670 AVI TEST15¢2,x°14° 
107D 40C1D5C460R 223C 1 1615 i 77BC 3c 78 0580 1671 AVI HLTE¢?,x°78* 
1085 D9E3 1615 ‘ 14#c0 3c ic 0581 1672 AVI HLTE+2,x°1C8 
we eeaneeeecaccrces 109C res pc ‘€L22¢ « :; 11C% 3C 78 02DE 1673 RVI HLTP*t,x*78* 
Sis 11C8 3C 74 O2DPF 1674 AVI BLTP¢2,x°79* 
1097 404C40408)80 1616 11CC 3C 78 OF9? 1675 NVI 8LTG+1,x°78* 
199D 60606960606(06060 1089 1617 DASH DC 29CL1*~¢ 17D0 3c 53 CF98 1676 NVI HLTG¢2,x°50° 
toro secrsosteseresss 1647 SE nS 
11DA F2 87 08 is 1678 YS J CAGTST 
10B5 6960606060. 1617 11DD 3C C& 0200 “1679 roped} avr S8OD,C*D* 
TOBA CUEUNUDTUOE3ICID? IOL7 1618 Dc CL46* DUMP TAPE ERROR STATISTICS BEFORE RUNEING DISK* 1TE1 30 CO 0807 "1680 CHGTST SNS  DaTS¥S,0 
__ 10C2 C5a0csp9papEp980 1618 . 17B5 3D £8 0807 1681 kr DATS¥HS ,X* Bae 
TOCA £2B3C1E3ICIE2ZE3C9 1618 hoes I3E9 F2 81 OF 1682 Jt: OVP 
10D2 C3E280C 2c Sc EDEDY 1618 14EC 3D EO 6407 1683 CLI), DATSUS, X*E0* 
‘DATE OSPEB70 09M AR70 010CT70 OTAPRT1 19NOVT7) TOIANT2 OTMART2 PROG ID OFFE-6. DATE O9FFB70 O9NARTO 0 10CT70 aaa 19NOV73 1GJANT2 O1HAR72 PROG ID OFFF-8 
2C HO. 8166480 816638 816760 818988 818823 818386 818390 PAGE 18 FC BO. 816680 816638... «816760  g18823 618388 818390 PAGE qua 
, : ee ae A se 


aw 
*, e 


~. 


oa 


é ; ‘ Se oy : \ . 
a ‘ és 
a ‘ : / : 7 : é ; : * = a 











- PPPS DIAGROSTIC CONTROL PROGRAS 


. JSS HAIHTERARCE DIAGWOSTIC PROGRAN. 


 BDDR STAT SOURCE STATESERT 


“PART #0; 
‘PAGE 


spo 


zsasaes IBS GATUTERANCE DIAGNOSTIC PROGEAG 
> 


FPFS DIAGROSTIC CONTPCL FROGRAS 


ERR LOC OBJECT CODE FRP LOC OBJECT CODE. ADDR STHT SOURCE STATEREST 
1170 F2 81 OF - 16 88 JB aOvP oo a a 127E6 1752 SID £09 =-*-2 
11F3 3D £1 0807 | 1685 CLI 4 =DATS¥S,X* BT" 1228 F2 81 OA 1753 JE£ CHKSRi 

- WIFT F2 01 06 1686 - Jf | OCKP 12E8 78 10 01 1758 TBN 8 =1(, ZR1) ,X°10° 
TtPFA OC CO 0235 0407 1687 #OvP avec X*235° (1), DATSES ; ¥2E2 D2 01 03 3755 LA 3(, X81) oxR1 
1200 3D B88 0235 1688 CKP CLI = X* 235°, x" EB" 12F1 CO 90 1225 1756 a XTCHKL 
1208 F201 39 1689 JSE TST44 12F5 C2 01 0000 1757 CHKSR1 LA e-s ,XR1 

= 1690 . ; ' 12P9 CO 87 0000 1758 CHKX® 8 2 

1207 3c. 00 0638 16 91 AVI DUACOA-1,2%°0* | ODDS 1759 2ND BEGIN 
120R 3c 00 O66C 1692 AVI SPBFHG, X*0* 
120P 3C 05 O668 1693 AVI SPBFHG-1,x°G5* « | 
1213 3C 80 0682 1698 AVI PRTHG-13,X°60* | 
1217 3c CO 06B8. $695 SV¥I  PRTHG*S ,XK*0* | 
1218 3c CO 0589 1696 AVI «= PRTAG#b, X" 0° % 

4277 3C 8&0 0621 - 4697 AVI PRTOACS, 1°80" | “ 

1223 3c 05 O6Fe 1698 AVI SPAPRT-1,x'05* | 

1227 3C CO O6EPF 1699 SVX SPAPRT,X*°O* | 

1228 CO 87 12CA 1700 B CHK ID IP DATA RECORDER IS NOT ATTACHED THER 

122F Fa 722F 1700 =. pc XLi¢re? BYPASS ALT. PRINT RTH.. | 

1230 F2 01 08 1702 JIE 47 | 
_ 1233 3c CO ODSA 1703 AYI WOSECZ-1,0 NO-OP SEC. PTR | . 

1237 OC B1 O7DS ODDS 17048 AVC «= PRTN¢PRIH-PRINH (PR3IN- PRTNNC1) , PRIA 

123D P2 87 79 — 1705 J LV#OB 

1240 3p @9 0235 1706 TST41 CLE XxX*235*,x*a0* | 

1244 F2 01 &D 1707 JHE  CKCIO 

1287 OC 23 C7B9 ODOD 1708 ay¥c HELT2¢LNGS1-3(LNGS1) ,ND-1 

120D 3c 8&0 0638 ‘ 1709 NVI DUNCON~-1,Z* 40 

1251 3C 80 C6ER 1710 NVI SPAPRT-1,2%°40° 

1255 3C 80 06685 1711 avy SP BFHG- 1,K"80* 

1259 3C 82 (0682 1712 avI PRTHG-01,X442! | 

125D 3C 30 0688 1743 VI PRTNG+OS, x! 480! 

1261 3C &2 0621 1714 AVI —s- PRTG AON, 1962" | 

1265 3C 78 0763 1715 A¥I LPERR2Z¢1,x°78" { 

1269 3C 38 0768 1716 AVI LPERR2¢2,x°308 

126D 3C 80 0769 1717 NVI PRINE+*O1,X°80* 

1271 3C 40 O76C 1718 HYI PRINE+O0%,x*@0* | 

1275 3c 8a O76F 1719 NVI PRINSE+*O7,x*4a" 

1279 3 8&6 0772 1720 AVI = PRI NE+10,x°46* 
127D 3C 86 0785 1721 SVI BSYLP¢1,x°46* 

1281 3C 80 0788 1722 NVI «- BSYLP#4,x°40* 

1285 CO 87 12CA 1723 B CHKID IF DATA RECORDER IS NOT ATTACHED THES 
1289 FS 1289 17240 pc XL1°*FB? BY PASS ALT. PRINT RTH. | 
128A F2 01 2C 1725 INE LYSOB 
128D 3c 00 0756 1726 N¥I ¥WOSEC-1,0 HO-OP SEC. PTR 
1291 F2 8&7 25 1727 3 LYNOB 
1294 30 01 1288 1728 CKCIO ST SAVE1¢3,XR1 SAVE XR1 
1298 CO 87 12CA 1729 B CHKID IF 5871 IS ATTACHED THEN REPLACE 58248 
129C 10 129C 1730 DC IL1°108 ALT. PRINT RTW. WITH 58371 MODULE 
129D FP2 81 OF 1731 Jz ISCIO 
1200 CO 87 12CA 1732 B CHKID | 
12A8 FO 12A4% 1733 pc XL1°PO° IF MPCU IS NOT ATTACHED THEN BYPASS 
12a5 F2 81 OD 1738 JE SAVE1 ALT. PRIWT RTH: 
12A8 3C 00 0756 1735 HVYI WOSEC-1,0 HO-OP SEC PTR i 
12aC F2 87 06 1736 J SAVE1 . | 
12aP OC 53 O79 OCE9 1737 ISCIO #¥C MHLT2*LAST-PRTNA (LAST-PRTNA¢1) , LAST : 
12B5 C2 01 0000 1738 SAVE! LA  ¢-#,xR1 RESTORE XR1 
12B9 OC 02 04489 12C9 1739 LYNOB SVC) 8 =«6TSTOVL¢2(3) , TSTINS¢2 | 
12BF CO 87 0212 1740 8 TEST } 
12C3 CO 87 0000 1781 LEXIT B *-* i 

0806 17382 USING DATSWS-1,XR2 \ 
12C7 BO OO C1 1793 TSTISS SES DATSWS(,XBR2) ,0 
12CA 1748 CHKID £00. * 
12CA 34 O08 12FC 1785 ST CHK X3+¢3,ARR i 
12CE 38 01 12F8 1786 St CHKSR1¢3,X81 
12D2 35 01 12FC - 1737 L CHK XO¢3,XR1 
12D6 OF 01 12FC 039F 1748 ALC CHKX@+3(2) ,ONE 
12DC 1C CO 1286 00 1789 avC) 8 =©SID(1),.0(,XR1) 
12£E1 C2 01 0232 1750 LA UTAB,XR1 SUBROUTINE TO CHECK IF A PASSED 
12E5 7D ©0 00 1751 XTCHKL CLI 0(,XR1),0 ID IS IN THE UDT TABLE. ON EXIT 
DATE OSFE870 O9MARTO 0 10CT70 OAPR71 T9NOVT71I TAJANT2 OTBSAR72 PROG ID OFFF-8. DATE O9FEB70 O9BAR?70 010C T70 O1APR714 19NOV71 
EC nO. 8166480 816638 816760 8189408 818823 818388 818390 PAGE 5 fC RO. 816680 816638 816760 818988 


cae 5 etree” SY 


818823 


. aos She Gite oot nO RRA iS ONE Gib ied ere sgt se Ee SPRY sie : fee we ee a ee Beebe a iat Sed ee 8 f ot sat, 2p te ce bleu ps ; _. oe ee 


PART 40. 
PAGE 


2589901 
358 


a « 


THE CONDITION CODE WILL BE SET 
TO EQUAL IF ID IS PRESET, NOT EQUAL 
IF ID IS HOT PRESENT. 


WIART2 
818388 


O1saR72 
818390 


PROG ID 
PAGE 


OFrFF-8 
5a 


IBM MAINTEWANCE DIAGNOSTIC PROGRAR = 3 ~ i PAST wO. 


PAGE 
FFG PIAGHOSTIC CONTROL PROGRAB 
CROSS-REFERERCE 

SYMBOL ? LEN VALUE DEFH# REPERESCES 

“AINPUT A 001 0067 0108 01919 
’ AIDEST A 003 0128 0216 02173 

ALLCLR A CO8 OFTPF 1585 1580 

“APL 4 003 0279 0533 0520 

APL@ A 002 0263 0520 053% 

ARP Cc 901 o008 1385 0708 0268 6278¢ 0526 0610 0638 9662 0680 0732 ©0751 90935 108 
Po a 4198 321 4322 1620 1637 1785 

ARPSAV 2 007 O3FD 0702 0612 0615% 0638 9680* 19198 120% 12024 

ASPYBH A 1G2 opp? 1378 1350 

BEGIN A 00% ONDS THR O8t8 1282 1759 

8Tro ¢ 007 0080 1871 0266 0553 0556 OS75 0877 0880 1057 4129 1327 

BIT? C 007 #0080 1412 0558 0958 1022 14185 - 

BIT? C 06% 0020 17813 0266 0281 0550 0953 4137 

BIT 3 C 00% O010 ta78 C347 0539 6951 19138 1462 

RIT’ C 001 0008 1815 0266 0550 1156 

BITS £0071 C008 1816 0260 0266 0550 

BIT6 ¢ 901 0002 4817 0547 

BIT? C 601 oOCOt 17818 0587 -~ 

ROOT? A 008 0000 0022 0022 0031 

ROOTTA A 0603 000D 0026 0026 

BOCTYE A 003 0017 0030 0023 0027 

BOOTTI A CO2 COTE 0033 00248 , 

BOOT2 A 008 0200 0053 0028 0051 0052 0053 

POOTZ2A A 003 O20D 0057 0055 0065 

FOOTZB A 003 0216 0060 0060 

BOOT2E A 003 0208 0056 0057 0061 

BOOT27 A 003 0205 0070 00648 

BOOT?22 A COT 0239 0071 0068 

FOOT23 A CO2 0238 0072 0058 

‘ BSYDOC A 003 ODBI 1368 4368 

BSYLP A 003 0788 1080 1080 1721% 17228 

RSYLPH A 003 0099 1357 1357 

BSYLPO A 003 07817 1095 1095 

BSYLP1 A 003 O7BD 1099 17109 

BT2 A 003 0208 0058 0070 

BUSY A 003 GO7Ta 0113 0113 

BY41 4003 O7AB 1312 1305 

RY“1X A O03 CCPF 9305 1312 

CDERRO A 003 0a58 0328 0325 

CDEXIT A 008 007D 0116 01094 

CDREAD A 008 0060 0106 0105 0106 0128 0265 0288 0823 0432 0833 

CHAIN A COS OADB 0300 0389 0391 

CHCTR A COT OAOC 0301 0378% 0806* 04212 

CHGTST A CO& 121 1680 1678 

CHKEND A 003 0196 0258 0285 

CHKPB aA CO3 031% 0587 0582 

CRKID A O01 22CR 7748 1562 1579 1582 1700 1723 1729 1732 
CHKSR1 A 008 1275 1757 1786% 1753 

CHKSSW A TC0S 0165 02408 0237 

CHKSSO A 008 0177 02488 0256 

CHKSS1 A 008 O81A 0736 0733% 0735 

CHKSS2 A 003 O82A 0781 0736* 0738 

_CRESWS A 006 0679 0981 09928 

CRHEX@ aA 008 12P9 1758 1745 1787 174g¢% 

CHK 1 A 003 OEF7F 1591 14998 

CHK2 aA CO3 OFB2. 1502 15008 

CIORLT A 003 0796 1293 1283 

CIOSTS A 902 O75B. 1290 71281% 1282 

cIo1 A 008 OCC6 1278 1270 

CIOIA A 03 OFCA 1292, 1287 

CIO1B A 003 OCCA 1279 1292 

Ccro2 A 003 O7CD 1298 1268* 1277 

Cro2x¥ A 003. OccCD 1280 1298 

CKBLK A 003. 013B 0223 0227 

CKCRS A005 0828 0389 0388 

CKCIO a& COS 129% 1728 1651 707 

DATE O9PEB70 OONART70 oOT0CT70 OTAPRT1 19 HOV7 1 T4IANI2 O1MAR72 PROG ID 

EC NO. 816640 816638 816760 818948 818823 818388 818390 PASE 


2589901 


46. 


Ste OE aN eR TN OGLE NT LORS ATIC R re ENN 


(naan an pe cer RE Sat a TIC re NE BOP eee te 


OFFP-8 


16 


TBA RAYHTERANCE DIAGHOSTIC PROGRAR 


PRFS 


SYRBOL 


CKcons 
CRCGHA 
CKCONn! 
CKCPU 
CKDCPS 
CREND 
CrP 
CRETR 
CRREP 
CKOoDT 
CLRCOR 
CLRLUP 
CALOOP 
CHPK 
CHPKXS 
CNxtT 
CPBUSY 
CPERR2 
CPRERR 
CPU 
CTR 
DADDR 


_ DASR 


LTaATswes 


DECO 
DECI 
DEST 
DEST 
DEST2 
DEV 
DrOUR 
DJIAP 
DOCERN 
DpoIT 
DOLIO 
DOL) 
DOS 1X 
DSKSYS 
DT ABLE 
DUACOR 
pogR 
Pi20 
ERDCLR 
ERDRTH 
ENTRY 1 
ENTRY2 
EO FST 
ERR 
FEAT1 
PINDSZ 
PIVE 
FIXoOB 
FLAG 
PLAGS 
PLINE 
PRT® 


De tee be oe oe By) Dw OY Be ww ow wo wow De we 
o 
° 
an 


DIAGNOSTIC CONTROL PROGRAR 


wf. 


LE 


003 
003 
008 
003 
005 
003 


002 


0a 
oof 
002 
601 
001 
001 
002 
001 
C03 
003 
003 
003 
003 
001 
001 
002 
003 
003 


SF wrrPArAAAAxsm Yr Oar Py Pee Pe we www PY ww yp Pw YP wp ww 
2 
° 
wd 


VALUE 


0150 
OaoD 
010P 
026 
ORO 
on 4 
12. 


SECS 
0710C 
OAGG 
$108 
oros 
oo0Bs 
0382 
0368 
TUTA 
COE2 
0D65 
0O0£0 
0208 
633¢ 
OSA2 
1089 
0807 


O1ra 
O1PS 
0136 
0388 
03D6 
OASF 
OFAC 
0asc 
ODA2 
0758 
0068 
0796 
OCEA 
119P 
O1FE 
0639 
OA02 
0A05S 
0132 
0901 
0295 
0337 
OD61 
0081 
OFE9 
0F08 
O3EE 
111B 
O1FD 
OFAD 
op88 
CA07 
OOFD 
OOPA 
OOF! 
OF99 
003P 
0222 
CIES 





DEFG 


0236 
0303 
0206 
0312 
0383 
o2i10 
1586 
1519 
0203 
0333 
67186 
1839 
0139 
0610 
0621 
1629 
1375 
1380 
1376 
8460 
0605 
0785 
1617 
0725 


0285 
0286 
0221 
0689 
C6Bs 
0332 
1600 
0778 
1361 
1096 
0171 
1311 
1298 
1686 
1684 
0956 
0297 
0298 
0197 
1127 
0582 
0598 
1339 
0117 
1610 
1460 
C697 
1631 
1840 
1601 
1352 
1395 
0527 
0522 
0523 
1591 
1830 
Oa7g 
1222 


3225 


A 


2589901 









re : PART go. : 
eS PAGE 16a 
- CROSS-R EPERERCE 
REFERENCES 
0812 
0208 
QO4813¢ 
030% 
0338 
0292 
7686. 
1515 
0128 6156 
0313 2 
0201 a5 
1583 
0194 | 
0639 0681 of eget 
06102 
162%% 1626¢ 
1357 
1358 
1358 
0320¢ 9323* 1867 
0673 0618 0616*% 0657% 0696 1453* 1656% 7458° 14618 
0782*% 0786 0795¢ 
1876 14684 - 
9252 0728 0732 0737 0737* 0738 O787 0769 0753 0755 0772 0778 
0775 0790 0797 O802 L804 0807 0818 0822 1652* 1653 1680° 1681 
1683 1685 1687 1782 17436 
0271 0272 0278 
0276 
0217 021% 02228 
0617% 0650* 
0618* 0695¢ 
0348 0351 0355 
1859 1860 
0762* 0783 0783% 
1365 1369 
1092 
0118 
1302 1306 
1310 «1391 
1682 
0270 0278 0538 0579 0596* 1680 1690¢ 
{691% 1709¢ 
04800 0802 
0396 0398 
0198 
1636% 
16398 
1336 
0710 
1872 
1962 
0615 1352 
0305 0315 1888 
0260 0266 0281 0779 1156 
TUB7% 1518 15178 1519 1522¢ 
1342 1386 1389 
0816 1163 
0591 0780 
0587 0786 
1847 1589 
AIRS 1590 
1220812218 
1223832298 
oe 
0106320 O1APRT72 19NOVT? TSIART72 OVHART2 PROG ID OFFF-8 
B1676C. 818988 818823 818 388 818390 PAGE 168 
ay 
Ny, x 
nS ‘Ys 


.S ; 
yy Ok 2 = : % 
3 \ a4 





PER cake 4, 


ALIEN ERINES MI APN AOE SITET 


T88 HAT NTEMABCE DIAGKCSTIC PROG RARA 


FFrrs 


SYHBOL 


RALT2 
AALT3 
AB 

ac 

aD 
HDG 
ADGT 
RE 
HEXIT 
FP 


. WA 


ALTA 
RLTRB 
ALTC 
ALTC4 
RLTS 
ALTE 
LTP 
RLTG 
ELTRD 
HLTTAB 


TAR 
TDADEDR 
IMGADR 
INPUT 
IPL 
ISCHR 
YSCTO 
ISSSe 
15 120 
TTR 
ITR3 
JTRS 
ITR6 
ITRT 

J 

a1 
LAST 
LBASE 
LDEND 
LDPT2 
LDR 
LDREG 
LDODT 
LD WORK 
LDX 
LDY@ 
LD1 
LENGTH 
LEXIT 
LE1 
LE2 
LALTI 


TATE 
EC WO. 


DIAGROSTIC CONTROL PROGKAS 


T 


As APF AADAD » 


ew EPS PSH PEP ee PH PSE E SEES wE PANT BANNAANANAANNA HS Bee wweee 


LFW VALUE 
00a c¢c9BC 
008 o9C3 
001 voO79 
001 o06Cc 
001 60073 
028 O5E2 
90% OSC7 
004 cOo7c 
00s OSF8& 
oot O0O3C 
007 0038 
003 866 
003 O872 
003 OGAG 
003 0317 
C03 C&E6 
003 OS7F 
003 O2DP 
003 cFrS96 
cos 01D7 
601 0980 
CO1 CO3E 
001 COOG6B 
001 OO6P 
NOt C003 
C01 0076 
00% 0057 
907 CcO1B 
0017 OO5D 
001 cO7D 
001 0007 
001 OO07F 
001 OOSF 
001 0010 
002 0652 
c02 CB8B 
COT O0BFD 
901 0080 
008 OB34 
006 12AP 
003 017% 
008 0866 
COT 0546 
001 oO2D0 
001 O068F 
002 0231 
COT OS6B 
003 OFA2 
003 OFAS 
001 OCE9 
001 0208 
008 0950 
0O& OTA7 
006 OFC3 
004 OQ3F2 
005 OAA9 
008 O05D 
004% OTA3 
001 OTA6 
00% O2A2 
008 OOBS 
008 12C3 
003 O2ZED 
008 0334 
008 O9DE 
OSPEB70 
816640 


DEFER 


4210 
1213 
WAT 
1832 
1433 
0927 
0926 
1838 
1226 
1435 
1436 


0763 
0767 
0788 
0589 
e809 
0871 
0569 
1590 
0278 
1193 
1938 
1837 
1220 
1821 
1422 
1423 
1828 
1425 
1426 
1427 
1428 
1429 
1384 
0964 
0419 
0931 
0536 
0393 
1737 
0247 
0806 
0851 
0562 
0987 
0483 
0864 
1596 
1597 
1291 
0463 
1149 
0264 
1607 
0699 
0355 
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0833 00 0A93 il 
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OACG GOFC GAOT 83 
QAO8 00CEB CAOd Re 
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DECK 4 
FFL START K*®A008 
SRS SKCSEE CHEK KTARERSE LK SKS SS SHKHERSEK SSK SESHESSELALG HE SSSSREKSIWSSe SS HL ASS REHKAKS 
2 : = 
® SYSTEM/3 SYSTEM TEST RELOCATING LOADER * 
% Bd 
SXF SESS SHSASASRERES SEAS EKA SSH ISR LES HSKST HELE CH GS A SHASESSt GSE EKAGEE ASSEEREESE 

oC XL2°FFL2¢ PROGRAN IDENTIFICATION AND LEVEL 

DC KLL B08 FLAGS - NO SPUDT 

oc TLLeos CURRENT ROUTINE NUMBER 

oC KL2¢08 RESERVES 

oc ALZURTNOLS ADDRESS OF FIRST ROUTINE PREFIX 

BC XLZ* 08 RESERVED 
SSESSRSEEK EARS SECS SKS SESLELS SEVERE SSA BASEHE THSVSVSES SESS SSS HCKSKETSERVeESKEEAKS 

Dc XL6%O? RESERVED FOR S¥STER TEST SUPERVISOR 
TABLE EQU ¢ TABLE CONTAINING CATALOG OF PROGRAM 
* MODULES IN CORE. PROVISIONS ARE © 
@ MASE FOR SUPERVISION OF UP TO 16 ¢ 
& MODULES. INFORMATION FS CONTAINED? 
% AS IN THE FOLLCWENG OLAGRAM. ® 
& 2 
& SSTCSESK SS SASH SESH SHH TST SPRSTGHTESTSISSSEHERAEEE s 
e # ARR i XRL i KR2 1 STARTING ¢ & 
* ® ! ! i ADDRESS ® e 
S SESTKSESSSESASSCHE CS IGARES GESTS SEESL LES ASSRERSEES = 
s 2 
* THIS RELOCATING LOADER INITIALIZES THIS TALE . @ 
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START OC XL2*OE00°® STARTING ADORESS CF NEXT MOSULE 
BASE 0C AL2(#-#) RELOCATION FACTOR FOR CURRENT “MODULE 
NPROGS DC ILL" 16° THIS COUNT IS CECREMENTED AFTER EACH 
® MCDULE LOADED - NO MCRE THAN le 
+ ALLOWED.» ® 
SKFLAG DC XL1L°O® . WHEN FF, LOADER IS SKIPPING MODULE 
* WHEN EE, LOADER HAS RUN OUT OF CORE® 
MSIZE DC XL2°O* 
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i LPTReXRE 
TBA O€@ eXRIE K8 208 
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BE 
cic 
INE 
cul 
JE 
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PACK 

IL Lae 
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31022 ¢XR1) e630, XRL) 
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94 CG3gKR1D pe G5 Ke KRID 
POINTR, XR] 
TESNeXRLIVASTART 
UNPACK . 
ile] 

AL 2¢(START) 

AL ZC ENPUT4 36) 
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LOAD THE MOOULE 


PACK DEVICE IOENTIFICATION 


GC AHEAD AND 


INITIALEZE POINTER TO COP UNIT TABLE 
BRANCH TF UNIT IS ATTACHED TO SYSTEM 


CHECK FIR LAST CCP ENTRY 
INCREMENT TO NEXT UDOT ENTRY 


CONTINUE UNLESS OCP UNIT TABLE DONE 


SET FLAS TO SKIP THIS MODULE 


RELOAD BASE REGISTER 
CLEAR SKIP FLAG 
PACK SIZE CF #MCDULE 


PUT STARTING ACORESS IN PROPER 


TABLE ENTRY 


UNPACK STARTING ACCRESS OF THES 


MODULE 


MODULE 


WORK( 29 XR2) op STARTC 9 XR2) 
WORK (29 XR2)MSIZECS XR2ZD 
BRANCH IF THIS MOCULE WILL FIT IN 


WORK(29XR2)9S1ZE 


OLAPRTL 
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PAGE 2: PAGE 2a 
© FF12 SYSTEM TEST RELOCATING LOADER ° FF12 SYSTEM TEST RELOCATING LOADER 
° ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ° ERR LOC GBSECT CODE ADDR STMT SOURCE STATEMENT 
OBT6 F2 04 16 124 JNH  PTITLE core OCSC D2 O62 55 192 LA 8569 XRLPEXR2 POINT XR2 AY TABLE OF RELOC BYTES 
t: CB79 BC EE 046 225 MVE = SKELAG(  XR29,X° EES SET FLAG TC INDICATE OUT OF CORE 2 OC5F GE OO 1? OC&E 193 ALC 23€1o¥RE De PTXRL OZ SET UP COMPARE LIMIT FOR RELOCATION 
OB7C CO &7 O23A 226 8 PRINT PRENT QVER CORFE INDICATION 194 © SEARCH 
0880 C6 0860 127 oc XLL*Cot CC64 7C OC 6 195 MVE =. 22 @ gp XRL DG X*OF 
€ 0881 22 oBsi 228 oC TLL°34! rs’ CC67 &E O1 17 OAAB 196 ALC 23¢2—XR12,SETUPS3 
OB862 ODDS OB83S 129 oc ALZ¢CEMSG) OC6C 02 O21 LA 1S9F PITXRL LA +26 —XRLI9XRI POINT XRL AY BEGIRNEING OF TEXT DATA 
CB84 FFOR CBES 130 oC XL2°FFOR® CC6F BD OG CS 23S LOOPS CLE O€ »XRZd—x*O? IF ZERO FEikL, OONE 
c OB86 CO &? 0222 131 B HALT KALT ON ERROR | OC72 F2 BL iG 199 +--+. SE MOVE : 
OBBA FFCL CB8B 132 ac ML2°FF OL? OC7TS 2C OO GCEIC 06 200 . MVC =—- RELGC #2619 ,0€_ XR2) SET UP DISPLACEMENT FOR RELGC ADJUST 
O58C EO 87 16 2133 8 SETUP Ey XR23 GO READ WEXT CARO | CL7TA FE Gi OO CA9G 201 RELOC ALC €-#42,xR1}, BASE ADD KRELICATICN FACTOR 
& CBSE CO 8? O21A 234 PYETLE 8 PRINT SAINT MODULE NAME £ STARTENG Fy UCTE 36 O2 COFF 202 & NEG Lp RR2 ADJUST TG LOOK AT NEXT RELOC BYTE 
CBS3 21 9893 135 oc XLL°232 4 CC8S 34 O2 Chas 203 ST WORK eXR2 
0894 38 80 O2C8 i36 TBR «©SBYTE3,SS¥LE SKI® HALT HE SENSE SWEICH 18 OFF CCB? CO BF OCSF 204% & LoCR3 
Cy C&S8 EO 90 46 137 BE SETUP Ey XRZE ; Q GC8B 1C OG -GODe 60 205 MOVE MYC #-#( 2-09, e-8( XREE MOVE TEXT CATA 10 CORE 
CB9R CO BT C2RA 138 & PRINT SKIP 6 LINES CC90 CO ST CARE 206 8 SETUP GO READ NEXT CARD 
-, CBOF 16 O89F 139 De xLittee 009% 76 8S GO 207 CKREP CLE Of pXR2P-CER® BRANCH IF NOT REPLACE CARD 
cs OfAO CO BT 0222 140 & HALT HALY TO ALLOW EVPASSING MODULE fn CC9? FZ OL 49 208 SNE CKCOM 
G844 FFEO CBAS 14} oc XL2°FFEOS . CC9A CO BT 0226 209 8 PACK PACK ADIRESS 
SES&6 80 OO 13 142 SNS  - HOR KE, XR2P eK? 08 READ CATA SWITCHES OCSE 64 OCS9F 215 oC ILE Ge 
Cc O8a9 BB OF 12 143 SBF WORK~20gXR 23, X* OFS as) CCSF 0665 CCAG 212 oc AL2CINPUT45} 
O8AC BD AO 12 2&% CLE WORK-1E,XRZ2}_X° AD? if LEFTMOST DATA SWIYCH IS -A~« OCAL OCES DCAZ 212 oC ALZ2€DEST) 
C&AF EO 81 OA 245 BE SE TSKE€»)XR2} SET FLAG TO BYPASS THIS MODULE OCS3 OE GL OCCS Oa94 243 ALC OESTE2$¢BASE ADD RELICATION FACTOR 
cS C832 €0 8? 18 146 8 SETUP ES XR2) GG READ NEXT CARD a CCAS 7B CS OL 214 CLE Lee XREDACEE? BRANCH IF NOY PATCH EXECUTE CARD 
ee CBB85 BD FF 64 LO? CKSKEP CLE SKFLAGOeXRZ5- KEEFE GO READ NEXT CARD FF SKI® FLAG GN cee F2 9 OF 225 SNE  AJDEST - . 
08388 EG al 16 248 BE SETUP Gp XR22 OCK&F 35 O1 OCCS 216 L DEST, XRE BRANCH TO CARD ACORESS FF iV IS 
co Q83B 7D £3 09 249 CLE Of eXREFSCPTS RANCH IF NOT TEXT CARD oe OC83 BO af co 2.7 B G4 5XR1E 
CB3E F2 OL D3 256 - JNE  CKREP CcCB6 D2 O1 O8 -218 AJDEST La Ble XRLBEXRE POINT AY FIRST PAIR OF HEX OIGITS 
C3C1 30 AO 0232 252 CLE UTAB,X® Ace BRANCH IF LOADING FROM OLSK CCSS 34 Gi OCCE 219 NEXY ST SRCEgXRL LOAD POINTER FCR THIS PAIR 
c. O8CS F2 SL 52 152 JE TEDONE ry ocBD CO aT 0226 220 8 PACK GO PACK THES BYTE 
oacs 70 DO OL 253 LOOP2 CLE Lb eXRRPyX* DCE REPLACE K®DO* BYTE WETH X®ZAS- ¥, cCli 02 OCCL 222 oc IERe2e 
OBCS F2 OL 02 154 SNE = 886 clC2 Occe 9CC3 222 SRCE 0c AL2( 8-8) 
m GacE TC 2A O28 255 MVE —«- Lf p XRAPoX* ZAP x cece c0c"G ‘SCCCS 223 DEST oC AL2( 4-2} bmg 
CaDkL O2 OL OL 156 LA LG gXRLPEXRY a OCCé OE OL OCCS ODFE 226 _ ALC DEST,CNE€2) INCREMENT CESTINATION POINTER 
$304 B4 O1 13 157 ST WORK (9XRZ2) 9 XR} Occc 7D 40 Ol 225 CKBLK CLE lle¥RLD-C® * DONE WHEN ELANK ERCOUNTERED 
c S€07 5D DB 13 158 CLE WORKO,XR2} 28098 a OCCF EO Bl 26 226 BE SETUP ( »XR21 ; 
% CEDA CO 82 O8CB 159 f&L. tooPr2 ae = CCD2 DZ Ol O1 227 LA LG eXKLP eg XRE INCREHENT TQ NEXT PCSITICN 
OBDE C2 03 CaD7 160 LA INPUT@87,X*03° INITEALEZE POIATERS CCDS 7D 68 00 223 CLE Ob p XRD PCF og? BYPASS ANY CCM¥AS 
c, CaE2 3C 30 CBED REL LENGTH MVE 8 S$141,0 INITIALIZE LENGTH OF ADD FEELS QO ccos CO al occe 229 BE CKBLK 
OBE® OC OO OBF1 OBED 162 CMLCOP MVC $241€13-S141 OCDC D2 Of O} 230 ta ACyXRLIOXR1- INCREMENT PCINTER TO RIGHT DIGIT 
OBEC AE GO O1 OL 163 Si ALC = L( #4 9 XR2) 910 yXR2?P SHIFT OFF HIGH CROER TWO BITS CCOF Cc 87 OCB9 - 232 B NEXT GC PACK ANCTHER BYTE 
CG OBFO AE GO 01 Ck 264 $2 ALC = 14 =p XR2) 910 XR2d Cc CCE3 70 SC CC 232 CKCGM CLI Of ,XR1)D,Ctee BRANCH IF THIS IS NOT COMMENT 
CBF& OF OO OBED ODFC 165 ALC = S1#1 41) 90KE PREPARE TO GPERATE ON NEXT BYTE OCE6 F2 O1 OF 233 JNE  CKEND CARD 
CBFA 30 04 OBED 166 CLI = S$ 14194 CONTINUE UNTIL & BYTES COMPRESSED OCES 38 O12 0208 234 TBN X®208%,K*OR? SWSC7T ON? 
O CEFE CO O1 OBEG 167 BNE CMLOOP , Q OCED £0 19 16 235 BT ‘SETUP (yXR2) 
OCO2 6C O2 O1 00 168 MVC =—s-1 3 XR1LV oC Oe XRZ} MOVE CCMPRESSEC BYTES TO TEMP FIELD . CCFO CO 87 O21A 236 8 PRINT PRINT CINTENTS CF THES CARD 
CCO6 36 Ol CAAI 169 A NEG3eXR1 PREPARE FOR NEXT & BYTES OCF® 21 OCF 237 DC MLAP2Re . 
oO OCIA 36 D2 CAA3 170 A NEG4 »XR2 0 OCFS EO 87 16 238 8 SETUP (9 XR2? GO READ NEXT CARD 
vee CCOE 34 O1 OAAS 17. ST WORK »XR1I CCFB8 7D CS OO 239 CKEND CLI Of eXRLIPC*E® BRANCH EF AOT END C&RO 
OC1l2 30 37 OAKS 172 CLE =WORK,X*978 OCFB EO O1 16 240 BNE  SETUP{,XR2) 
g OCl6 CO 84 OBE2 173 BH LENGTH CONTINUE UNTIL CARD OCKE oC OCFE 35 G1 OAQA 241 L POINTR,XRL LOAD MODULE TABLE POINTER 
CClA C2 O1 0886 174 TEDONE LA INPUT» XR2 POINT X21 AT READ-IN FIELO OC32 75 O1 OF 242 L Ty XRLDeXR1 POINT XR AT MCCULE SECTION PREFACE 
OClE 3D AO 0232 i75 CLI UTAB,xX* Ao BRANCH [EF LOADING FROM MFCU coos 78 80 02 243 TBN 265XR1)_xX* 80° BRANCH IF AO UCT ENTRIES 
o OC22 F2 O1 27 176 JNE  COSTP : OD08 F2 10 58 24% JT LDEND : , 
177 * DISK SETUP FOR RELOCATION, | AD : O00B C2 02 0232 245 UFINDL LA UTAB, XR2 POINT XR2 AT CCP UNIT TABLE 
0C25 1C O02 OCBE 03 178 MVC = MOVE #3. (3.930 XR13 SET UP DESTINATION ADORESS OJOF 9D 00 00 OA 246 UFIND2 CLC Of LeXR2091 00, XR1) BRANCH IF NOT PROPER UDT 
o OC2A GE OL OCBE CA9% 179 ALC MOVE4+3(2),BASE RELOCATE 6 GOl3 F2 O1 18 247 JNE  UFIND4 
CC30 1C OO OC8F 01 180 MVC = MOVE 44019510, XR1} SET UP SOURCE CISPLACEMENT CD16 6C OO OC 02 248 MVC —- 1262p AREY ZC yARIP LOAD SECTIGN PREFACE CPTION BITS 
O0C35 D2 02 FF 18% LA 2550 eXR1) 4 XR2 POINT XR2 AT LAST RELOCATION BYTE CDLA 68 03 CB OC} 249 MNN  =- L1G XRLDoL Oo XRZI 
gS CC38 7C 00 60 282 MVE = OC pXR1D— X* 08 SET UP LOWER LIMIT FOR RELOCATICN 0 OODLE 7A 20 OB 250 SBN L1G eXRI}—eX*208 SET ASSIGNED FLAG 
OC38 76 Ol Ol 183 A 1¢_XR2)yXR1 SEARCH 0021 78 10 O08 251 UFIND3 TBN Ll eXRLIX*108 - 
OC3E D2 O1 04 184 LA SC gXRLDg XRD Cl24 D2 01 63 252 LA 30,XR1).XR1 INCREMENT SPUT POINTER 
o 0C41 34 O1 0881 185 ST INPUT#19XR1 e O027 CO 90 ODDB 253 BF UF INDL IF NOT LAST ENTRY, GO LOAD NEXY 
CC45 C2 OL 0384 186 LA INPUT#4_XR1 POINT AT FIRST BYTE TEXT DATA OD28 Fz 8? 35 254 Jj LOEND OTHERWISE - GO ON WITH LOADING 
CC49 F2 87 23 187 J LOOP3 OOZE B8 10 O1 255 UFIND4 YBN 16,XR2)9X*108 TEST FGR LAST CCP UOT ENTRY - 
& 188 * CARD SETUP FOR RELOCATION 9 OC31 E2 02 03 256 LA 30 9XRZ2)yXR2 INCREMENT OCP UNIT TABLE POINTER 
1Y, OC4C 1C O2 OCBE 19 189 COSTP MVC) MOVE43(3),25(,xXR1)} SET UP DESTINATION ADDRESS CD34 CO 90 OCDOF 257 BF UF IND2 CONTINUS UNTIL ALL UDT CHECKED | 
O0C51 OE Ol CCB8E 0A% 190 ALC MOVE+3(2),59ASE RELOCATE 258 * MCOULE UDT REQUIREMENT COULD NOT BE FULFILLED. 
o OC57 1C OO OCSF 17 191 MVC =—- MOVE #4195230 -XR2) SET UP SOURCE CISPLACEMENT oO 0038 78 40 08 259 TON =. LLG XRED OX 7408 SKIP ERROR HALT TF REQUIRED FLAG NOT 
CG DATE 28JUL69 15SEP6S 14NOV69 20J5AN70 OLAPRT1 PROG ID OFFI-2 | g DATE 28IUL69 15SEP69 14NOV69 2 0JANTO CLAPRT1L PROG 10 OFF i-2 
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PAGE 3 PAGE 38 
© 6 
FF1Z SYSTEM TEST RELOCATENG LOADER FF12 SYSTEM TEST RELOCATING LOADER 
OQ ERR LOC GEJECT CODE ADOR STMT SOURCE STATEMENT o ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
CO03B CO 90 O02! 260 BF UF IND3 ON O£C8 CO 87 022A 320 8 LOAD 
oO OO3F D2 O1 OA 261 LA LOGeXR1L} gXRE PUT UNIT IDENTIFICATION IN PRINTOUT o ceoc 02 OEOC 321i oc XLL*O26 SEEK TO VTOC 
0D42 34 O1 OD4C 262 ST DEVIDeXRE CEOD 3C 10 CEB 322 MVE TCNT sl6 
CL46 CO BT O2LE 263 8 UNP ACK OElL C2 O21 OALt 323 t& TABLE @L eXRE 
C CO4A Ol OD4A 266 oc Weaeie & OE15 34 O1 CAAT 326 ST LPTRyXRL 
Sao CD4B OCcO 004C 265 BEVID oC BL2@e—35 see's CEL9 CO BT? O228 325 SEEK2 6 ‘LOAD 
0040 0099 CD4E 266 oc AL2UCEMSG1~29} QEID 10 OEIG 326 oC xLLe° Loe READ A TECORD 
C CD4F CO BF 021A 267 B PRINT PRENT ERRGR HESSAGE TO INDICATE ¢} OELE OD O2 0882 DESC 327 - CLC OBUFS2Z034 ACT CHECK FOR ACTIVE ENTRY . 
6553 Ch 6053 268 oc MLLSCye THAT UNIT NOT DEFINEO EN UDOT 0&2% CO OL OFGS 228 BRE VEND 
0054 26 9D54 269 oc fLLeBSe C£28 OD OZ O82T 3ES3 329 CLO OBUFOTE 3) »OLD CHECK FOR CLD ENTRY 
C COSS ODR6 ODS6° 276 oC ALZCEMSGE? S CEZE CO Bi CEST 336 BE NEXTS 
CCST FFO2 oD5@ 272 oc XLZ2°FFEOZE 0632 30 FF C884 33k CLE DBUFELO, XPFFE 
C053 €O af 0222 272 8 HALT *HALY £F SS#O6 IS OFF OE36 CO 81 OES? 332 BE NEXTS 
re 2060 FFC2 OOSE 273 pc XL2°FFG2* o OE3A 36 40 G8EA 333 cul DEUF*I0,c® * CHECK FOR SYSTEM TEST #00~ 
OCSF CG 87 OAAB 274 8 Se Tue GO TC READ NEXY MCOULE CEZE CO Bi CEST 33% BE NEXTS 
CD62 OF CL OAD? OCASB 275 LOEND ALC STARTE2N eMSEZE SET UP STARTENG ADDRESS FOR | O&S2 35 GL CART 335 b LPTReXRE 
& 276 ¥ NEXT MBODULE | cf OEL6 324 Of GEESE 336 $F TOBeXRI 
CD6F 35 OL DAIL 277 L POINTR XRG LOAD POINTER TC THES TABLE SLOT i CEGR 30 C4 C884 337 RV I DBUF 44.6 °O4 
cdep FC 00 06 278 MVE Ci eXR1 dD, X08 INCECATE THAT ENTRY HAS BEEN FieLeD | CESE CO Br C226 338 § PACK 
c COTS OF Ob OASA ODBS 279 ALG POINTRO2},EEGHT ENCREMENT FOR NEXT “ODULE o G&sSe OF GESZ 339 DC MLite® 
COT OF 2G CASS OCOFC Zao SLC NPROGS(LF, ONE SET FLAS TO TERMEIRATE LOADING IF CER QGat JESe 340 oc AL2¢DBUF E72 
CO7C Fz GL 04 281 SNZ 47 R& MODULES HAVE BEEN LOADED | CHES OCCO GES5S@é 342 ¥Oa oe AL2¢#-8} 
c OCTE 3C EE OAS 282 BYE SKFLAGe ATEE® , | & SES? GE Oi O887F OBE 242 ALC LPYR,EIGHT 
CC83 £O &T OAAB 233 8 SETUP GG READ NEXY CARD beets CkSe CF O9 CEBD ODFC 343 SiC TCNT pONE 
284 | SE63 CO BL CEES 34% BZ -VEND 
G 295 see eeeeganere ge OFG? 345 NEATS EQU * 
286 % CONSTANTS ©5644 9 52 BS ESEKSBILS LES TSSE SSS ESL OMSK SS OSS HS HSCS TIES SSR ES HE CES? CO Bt CELG 346 8 SEEK2Z 
ZaT S2S beet tH8ESS SE68 247 YENC EQU = 
C ons? 000s 9088 288 EIGHT pe XL2°08¢ ; a CESB CO BY O244 348 PRTHD 8B PRINT 
sot 0089 #0C7C2024CC7C2DC CDSQ 289 GSK oc XLB"*40C7C2ZD26CC7TC 200% HEADJER CARD COL 1-8 © GBK GBEe i CEGF 42 SEGF 349 oc xLE°42° 
a 2306 i CETG 24 SE70 350 oc 1L1*36* 
oO 29] Feseseee seeese - 2 heey CETL OEB? CET2 351 oc AL2¢HDG} 
292 * PRINTOUTS S28 SS sesh 9H 8 FS FEE THESEUS TIHIRE CIES SASTASES OT STSE ST SHVWSETH HSS cers FFOC CE7& 352 oc ML2°FF30* 
293 FES SEES SHEETS : cE7S C2 OL OALO 353 LA TABLES XRI 
C COIL C4CSESCIC3C5S4CE? 9086 294 EMSGL. OC CL38*DEVICE XX NOT ATTACHED-MIOULE BYPASSED® o CET9 34 OF OAGA 354 st POINTReXRI 
: C299 ET4005D6E340C1E3 234 ; 7 OETD CZ O1 OACS 355 LA TABLE-S8_XR1 
OCA E3CLC3C 8C5C46CD4 294 O£81 34 G1 OAAT 356 S¥ LPTReXRE 
C COAY D6C+E4L3C540C2E8 294 9X CE85 3C C5 0886 357 VI INPUT eC ES FORCE CCRRECT BRAACH FOR DISK 
CCO8L DICLEZE2ZC5SC% 294 . S O£89 CO 87 OAAB 358 8 SETUP WHILE LOADING MCOULES 
OCB? C30e99CS40D6E5C5 0008 295 EMSG oc CL34*CORE GVERFLOWED »LOAOING TERMINATEC® cceD 10 3€8D 359 TCNY OC TLR ho? 
€ CUBF D9CED3D6E6CSC4E8 295 : Q CEBE CIC3E3 GE9O 350 ACT Oc CL3*ACT® 
4 COCT O3LOCIC4SC9DSCT4C 295 CE91 D6C3C& 0£93 361i OLD DC CL3*OLD® 
SCCF E3CSD9C4COC5CLE3 295 CE94 D3ICIEZEZ4COECESO JEBT 362 HIG DC CL36"LIST SF MODULES & STARTING ADDRESSES® 
C CID? C5C4 295 oO CESC D4COCeE 4D3C5E24C 382 
COFB 296 ORG = X*E00*-5 CEAS SO040E2ZE3C109E3C9 362 
QD7 CSREES RE SETE EE EEEEE RESET EEE TTS EEE EETE THEE OEESESE OS OS TEESE AEST SD EAESEEES OEAC CSCT4CCIC4&C409C5 362 
c 298 * ROUTINE O1 — RELOCATING LOADER * e O€BS E2E2CSE2 362 
299 * e 3880 363 DBUF EQU = xx*g80e 
300 * THE FOLLOWING CODE LOAOS THE PROGRAM MJDULES» RELOCATING THE * 354 
: 301 * CONSECUTIVE PROGRAMS AND ALIGNING EACH ON A 2£6-BYTE BOUNDARY. * o 365 te stteee ee 
302 ¥ DCP LOADS THE SYSTEM TEST SUPERVISOR ANO BRANCHES TO THIS LOADER. * 366 * EQUATES See SEE RSER DES DESESEEERERDERESE ERED EOE ERED ESE RE EO FESS TEEHEDEES 
303 * CARDS RECOGNIZED BY THIS LOADER INCLUDE-- e 367 seesasesess 
o 204 # * re) N0CL 3€8 xR1 EQU- sit INDEX REGISTER 1 
305 * HEADER * OOC2 369 KR2 FQU) 2 INDEX REGISTER 2 
306 # TEXT & COCB 370 ARR EQUsx# 08° ADORESS RECALL REGISTER 
¢ 307 * REPLACE * g 0203 371 SIZE EQU- Xx*203° SRT - CIRE SIZE OF SYSTEM 
308 * COMMENT * 020B 372 SBYTE3 EQU X*208B8 _ SECOND 3YTE OF SECTION SENSE SWS 
309 * END s C21A 373 PRINT EGU KX®21A8 SRT -ENTRY TO PRINT 
c 51O 88849 54S FREE EEEESE ES EE OOS SEREES OEE ESE TEST AEE FESHSS EEE RESE TEES EES TS ESSE Q N21 374 UNPACK EQU X*21E8 SRY -ENTRY TO CCNVERT HEX TO EBCOIC 
EY. COFB 00 ODFB 3i1 oc XL1¢o# oO 2222 375 HALT EQU = _-X* 2228 . SRT -ENTRY TO FALT 
CCFC O1 COFC 312 RTNOL OC XLI°O1* CURRENT ROUTINE NUMBER 0226 376 PACK EQU- XK*226° SRY -ENTRY TO PACK EBCDIC TO HEX 
a OOFC 313 ONE equ) #] 8 Q 022A 377 LOAC EQU- X*22a° SRT -ENTRY TO CCAD 
COFD 00 ODFD 314 oc XL1¢O* FLAGS 3232 378 UTAB EQU = X*232* SRT -FIRST BYTE 
ODFE FFFF ODFF 315 oc XL2°FFFFe LAST ROUTINE PREFIX 3880 379 INPUT EQU- X*880° ADDRESS OF REACIN AREA : 
c COFF 316 NEG1 EQU) ¥=1 0 380 * SENSS SWITCH NUM3ER 
BL 7 EERSTE ES EEEERERESES ORE TES EE EEEEOEEE EERE SERTES OF OF OEEEEES OS OSES EEE SEEESES 9080 339i SSW18 EQU x*go° SSW TC 4ALT BEFGRE CCAQING MODULE 
CEUD 3D AO 0232 318 cul UTAB,X* AO® FFFF 382 END 
Cc CEC4 CO O01 OF6B 319 BNE PRTHO oO 
o DATE 28JUL69 15SEP69 14NOV69 20JANTO OLAPRT1 PROG ID OFF 1-2 9 DATE 2 BJUL69 15SEP693 14NOV69 29JANTO OLAPRTL PRGG 1D OFF1-2 
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PAGE & PAGE 43, 
© 8 
FFI2 SYSTEM TEST RELOCATENG LOADER FF1I2 SYSTEM TEST RELOCATING LOADER 
CROSS~RE FERENCE e CROSS-REFERENCE ; 
SYMBOL T LEN VALUE DEF & REF ERENCES SVMBOL FT LEN VALUE ODEFN REFERENCES 
© ACT A 0C3 OFS0 0366 O227 6 $2 A CCS OBFO 06164 016282 | 
AJDEST A OCS OCBS C218 Gz15 TABLE A COOL OALG 0018 0947 &323 6353 355 
fs ARR € OGL O0C8 0370 , @ TONT A CCl OfF8b 06359 0322¢ 0343¢ 
ia BASE &£ OC2 OAS9% 0040 OLASe OL26% GLTS C196 6291 $212 TEDCNE A O04 CCLA CiT4 ORS2 
COSTP A OCS CC4C 0189 0176 , toa A OC2 OFS6 C34: 0336% _ . 
C CHKEE A 003 OAFA CO8E Gost & UFINDL A 004 OD0B 6248 6253 
CKBLK A 003 OCCE C6225 0229 UFIND2 A OC& ODCF C24é C25? “ 
CKXCCH A OCB CCE3 C232 0268 i UFIANGS A CCA Of2t 6251 0266 = 3 
& CKEND & OCB CCFa 023¢ C233 : 8 UFIADS & OC3 OG2E C255 O24? 
ei CKREP & OCB 6CC94 0207 O19 UNPACK € CCL Czi& O374 CliS O263 
CKSKIP & OCS OG8BS Ci47 Q689 : UTAE €C OCk 232 C378 OOS? th OLS O75 02465 33168 
p § OO ' 1 & 1S Fs WVEND & O02 C£&&S €347 C328 344 
. cheoee ; oce Gace bie ale a ° WORK A O02 C#AS COS2 Gizi® Cli2e* OLZ2 BJ<a2* O143% 9024 OLS7e 9158 BiTLie Git2 202% 
5 Ae 3 : 4400 & O02 CASE O049 CR20 
Cc neUE : nol uae cses aoy O229 0332 G333 O3237% 9346 eS BRE C OCk GGGL OBE GO62*% C843 06465 0065 COS OO76* 0089 coes 0390 acs? CLiCO OLLG 
, DEST & C2 O0CCS 02223 O2if Gz18* O224 oO274s th.. O142 GEEZ OLES ORES OLL6% 0249 G155 6155 Gide ClS6* OI1SF 0168 
CEVIO A O02 GO4E C265 C2628 i Ol6S% GELVIL Clee GOL7R O180 Ji8i GrS2 ODLSS GhLAS* CLES 82846 CIBS 
f EIGHT a O0C2 OOSE 6288 O06 O279 0342 G OL86* CLES CLOE O192 O2893 O895 G196 O197 O197?% 201 C205 o267 
aoe ENSG A 03% oOpD8 0295 Ci2?2 GOERS GZiG* O2LF O418 O218% 0219 O725 See 0227% 0226 geo? OF 308 
EMSGE & C38 ODB&& 0294 2266 O276 O232 O2735 O741% 6242 O242* 0243 C246 0248 0249 C250 C25k 0252 
Cc FFL & OOk Gace efo3 & O252% C25 C26E O261% O262 3277% O27& O323% 032% 6335% 0336 03539 
7 FEZ & 03 Cass o0468 ooso0 { : 0354 ©3558 9356 a 5 
GBK A Of8 ons0 C289 Ooa8s. | BRZ % Sf€2 0902 036¢ cc7s2 OCB8O COS GOST OC96% 00ST 9099 0100 9200* O1C04 vies Cisz 
CG HALT "© 0032 0222 6375 CL32% 0140 0272 i 6 CliLS O1Z0 O126 Gl2t O12) 3422 ©0122 0123 0125 9233 C137 Cl4s 
MDG & 035 CEST C362 0352 : GCi43 O81646 O145 O8146 O1¢47 O1468 6157 O158. O163 OLE? 0164 O164 
INPUT € COL 0860 G379 COSS O07& 0094 2695 C108 OLLS O143 OL74 O285° 01686 C214 63578 I CiG& CAPO® OLSi® O192% CLOB 9200 O202% 0203 0226 G235 C238 0246 
c LOEND A OCS 0063 O275 024% 0254 : | 8 0245% 0246 C248 0249 6255 0256 0256¢ 
- &bsy A OCh OAF3 CC82 0067 g : f 
LENGTH A CC® OBE2 O61 OL73 : * / YOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = Cc 
c LOAC €& OCL O22A ° 0377 0o70 CO7S 0083 0320 0325 | o : : 
LCACC A CCl CADF COTe 0358 CCé460 | 
tGOPL A OC CB1B CCST. 0101 : | 
C LOCP2 A OCS O8CB C153 0159 : QO 
pois LOGP3 A CC3 CC6F 6198 C187? 0204 5 
LPTR A CC2 CAAT 0053 0061*® 0062 ©324* 9335 0342* 03568 L 
Cc. ROVE A oce ccssp 0205 O178* 0179* 0180* 0189*% 0190* 0191 0199 0 
MSIZE A OC2 CAGB CC46 cic9 0122 0275 ; : ' 
NEGL A GOL OOFF 0316 0202 
oC NEG3 A OC2 CAAL 0050 0169 = | 9 
NEG4 A 002 OAA3 CCS51 ci70 ede 
NEXT A 0C& OCB9 C219 0231 | : 
CG NEXTS A OC1L OEFGT C345 0330 0332 0334 oO 
NPROGS A OCh GA95S 0041 o280* : 
OLD & 0C3 CES3 0361 0329 | 
o GNE A OCl CDFC C313 CléS 0224 0280 0343 i g . 
PACK C CCl 0226 0376 0092 0106 0203 0220 0338 | ; 
PID A 0C2 OADB 0072 00694 ; 
€ POINTR A OC2 OASA CC4&7 C065 0113 0241 O27T7 0279 03548 oS 
PRINT C OCl C21A 0373 0126 ©134 0138 0236 0267 0348 
PRTHD A O0C4& OCE6B C348 0319 a 
C: PTITLE A 004 OBSF C134 01246 o 
OVS PTXRL A CC3 OC6C C197 193 z : 
ROC A 0Cl OADO OC68 0064 
e RELCC A 005. OC7A ©0201 02008 o 
RTNOL aA OCl COFC O312 0013 
SBYTE3 C CCL 0208 C372 C136 
CS SEEK2 A CO& O0£€19 06325 0346 ° 
SETSKP A 004 O082C 06102 0145 
SETUP A OOl CAAB 0056 0087 0103 0133 0137 O146 0148 0196 0206 0226 0235 0238 0240 
© 0274 0283 C358 . ea 
SIZE C 0Cl 02C3 C371 0123 s 
SKFL4&G A OCl OAS6 C044 0086 0102* 0105* 0125% O147 02824 
C SRCE A 002 cCCC3 0222 0219% Q 2 
eet. S$SW18 C O0Ci CO8O 0381 0136 : oat. 
START A OC2 OA92 0639 C037 0038 CO7T9 0104 O114 O117 O119 0121 02758 
o $1 A 0G@ OB8EC 0163 O161% 0162 0165* 0166 Oo 
oC DATE 28JULE9 1SSEP69 14NOV69 20JAN70 O1LAPRT1 PRCG 10 OF Fl-2 | Cc CATE 2 8JUL69 15SEP69 14NOV69 29J5ANTO OLAPR71 ace Io eee 
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FF12 SYSTEM TEST RELOCATING LOADER PPié.: SYSTEM TESS RECOCALENG LOADER 
© OBJECT CARD LISTING o OBJECT CARD LISTING 
: wee Ct 1 THROUGH 16 CL 17 TKROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 - 
© THE CHARACTER INDICATES A BLANK CCLUPN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 9 
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FE] - CPU MODULE FOR SYSTEM 
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2589909 
PAGE 1 
TEST 
SOURCE STATEMENT 
2 DECK 1 
3 FEL START C 
4 onG =x? ono? 
5 
s athe REEHEHEASEERERESERGERSEEEESESARS SHEE EEREEEEREEE ESSE DEERE REESE ESSER ES 
7* SYSTEM/3 CPU MODULE FOR SYSTEM TEST * 
R PEASE REEERSREDES EEE EASES ES RESET SERE SES ESESES BERENS RETS EE EEE AE FS SSSR S SS 
9 SECTION PREFACE * 
10 * * 
ii Dc XL2*FE13? PROGRAM ID * 
12 oC XLE*808 SECTION FLAGS * 
12 DC XLL‘O ROUTINE NO. * 
14% oc XL2 00! RESERVED * 
is oc AL2(TSTOL? ADDRESS OF FIRST ROUTINE PREFIX * 
16 oc XL2°FFFE® FILLER * 
i? * : 5 
BSB SEE ERRERDES EE EREES EA EEEEER EERE RENE EERE ERED EERE ERE EERE SESE SES SE ESSER SS 
i9 # ROUTINE PREFACE * 
26 # * 
21 TSTGL DC XL1L°OT ROUTINE NUMBER * 
22 Dc XL1*00° ROUTINE FLAGS * 
23 oc XL2°FEFFE * 
24 * x 


25 UeEREEEEEEEEEEREEE SESH EE SEREERES EASED NEE ERTESHERERS EE EE EEE EEE EEE EES ERS 
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.TEST FOR VALID DCP EWTRY IN DATA SW 
TEST FOR DUAL PROGRAM FEATURE 
BYPASS IF NOT PRESENT 

LOAD INTERRUPT YAR FOR ERROR 

SET BRANCH INST. TO NOP 

DISABLE DUAL .PGM. . 
LOAD PROGRAM LEVEL 1 IAR 
LOAD PROGRAM LEVEL 2 TAR 
LGAD PROGRAM LEVEL 2 IAR 
ADVANCE PROGRAM LEVEL 

TO NEXT TEST 


GO HALT -CC32- BFCAUSE APL INSTR 
CAUSED PROGRAM ADVANCE WHEN NOT 
ENABLED. 


ENABLE DUAL PGM. 

LOAD INTERRUPT LEVEL O TAR 
LOAD PROGRAM LEVEL 1 TAR 
LOAD PROGRAM LEVEL 1 IAR 
LOAD PROGRAM LEVEL 2 IAR 
LOAD PROGRAM LEVEL 2 IAR 
ADVANCE PROGRAM LEVEL 


GO TO HALT -OC31-. BECAUSE APL DID 
NOT CAUSE AN ADVANCE WHEN DUAL 
PROGRAM WAS ENABLED. 


SET BRANCH TO UNCONDITIONAL 


LOAD CORE SIZE IN XR1E XR2 

CHECK IF CPU HAS 64K OF CORE. 
IF NOT, CONTINUE NORMALLY. IF 
YES, ENTER x*0000' IN XRL & XR2 
-SUBTRACT 128 BY ADDING X*FF8O* 
.1F ALL CORE TESTED, END TEST. 
IF NOT, CHECK PARITY OF 128 
BYTES AND CHECK WITH SUPERVISOR 
BEFORE CHECKING NEXT 128 BYTES. 


SET TEST FIELD TO ZERC 

TEST ALL BITS FOR ON 

BYPASS HALT IF ALL OFF 

TO HALT IF ANY TEST ON 
HALT ID 


TEST ALL BITS FOR OFF 
BYPASS HALT TF ALL OFF 
TO HALT IF ANY ON 
HALT ID 


SET TEST FIELD TO ‘FF® 
TEST ALL BITS FOR OFF 
BYPASS HALT IF ALL ON 
TO HALT IF ANY TEST OFF 
HALT ID 


TEST ALL BITS FOR ON 
BYPASS HALT IF ALL ON 
TO HALT IF ANY TEST OFF 
HALT ID 


SET TEST FIELD TO ZERO 
SET ALL BITS ON 
TEST ALL BITS FOR ON 
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ADDR STMT 
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DAEE 
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ob1La 
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220CT6S 
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100 
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SOURCE STATEMENT 


MMVI 


MVI2 


20JAN70 
816576 


BT #410 

8B HALT 

oc XL2*FEOS® 

MVI TSTFLO, X°FF® 

SRE TSTFLO, X* FES 

TSF TSTFLOeX* FF? 

BY *410 

8 HALT 

oC XL2*°FEO6? 

MVI YSTFLO,O0 

S&N TSTFLDO.0 

CL TSTFLO.O 

JE 249 

8 HALT 

oc XL2°FEOTe 

MV TSTFLO, X' FFE 

SBF TSTFLO,6 

Ci? TSTFLOSX*FF® 

JE *49 

B HALT 

OC XL2°FEO8* 

8 EXIT 

ZAZ WORK4+9(3),UNITSiL) 
AZ WORK+903), DEONE(1} 
Sz WORK+ 9( 3) ,OEGNE¢1 3 
MV YORK, XFS? 

ZAZ WORK(2) sUNITS-7¢1) 
CLE WORK, XTERZE 

BE *410 

B HALT 

oc XL2*FEOSE 

MVY WORK4 8B, X*00* 

mMVC WORK+7(8},WORK+89 
AZ WORK*8 (9) LUNI TS-1(9} 
cic WORK+8(9) ,UNI TS-1 
JE #49 

8 HALT 

oc XL2*FEOA® 

L XFF XR 

L ZERO, XR] 

$T WORKE1LX:.2 

ST WORK4#3,XR2 

CLC WORK 4102),XFF 

JE *4+9 

B HALT 

DC XL2"°FEOB® 

cic WORK4#3(2),ZERO 
JE eeQ 

B HALT 

oc XL2"*FEOC® 

Lt . WORK5 sXR1 

MVI Ol, XR1VeX* FOE 
CLI WORK4+5_X*FD* 

JE *+9 

8 HALT 

oc xXL2"FEOD*® 

iL WORKS »XR2 

MVI Ol, XR2) »X*AAS 
cul WORK45,X*AA® 
010CT70 ISJUNT1I 
816756 818948 
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BYPASS HALT IF ALL ON 
TO HALT IF ANY TEST GFF 
HALT ID 


SET TEST FIELD TO ALL 3727S 
SET ALL BETS OFF 

TEST Att BITS FOR OFF 
BYPASS HALT TF ALL OFF 

TO HALT IF ANY TEST ON 
HALT ID 


SET TEST CIELD TO ZERC 
SET NO BITS ON 

TEST FOR NO CHANGE 

JUMP OVER HALT IF OX 

TO HALY IF ANY TEST ON 
HALT 10 

SET GN ALL BITS IN TEST FIELO 
SEY NO BITS OFF 

TEST FOR NG CHANGE 

JUMP OVER HALT IF OK 

TO HALT YF ANY TEST OFF 
HALT ID 

TG SUPERVISOR 


ZERG THE WORK AREA 
ADD DECIMAL ONE 
SUBTRACY DECIMAL ONE 


SET WORK AREA TO F6 Seas 


ZERG & ADD DEC. 3 

CHECK FOR DEC 3, 

BYPASS HALT IF 9K 

TO HALT IF NGT EQUAL TO F3 
HALT 10 


HALT ID 


SET XRi TO FF 

SET xR2 TO OO 

STORE BCTH 

IN WORK AREA 

CHECK VALUE FROM XRI 
JUMP OVER HALT IF OK 
TO HALT IF NOT OK 
HALT 1D 

CHECK VALUE FROM XR2 
JUMP CVER HALT IF OK 
TO HALT IF NOT OK 
HALT 10 


LOAD ADDRESS OF WORK*S IN XR 
MOVE IMEADATE WITH INDEXING 


CHECK RESULT 

JUMP OVER HALT IF OK 
YO HALT IF NOT OK 
HALT 10 


LCAD ADDRESS OF WORK45 IN ¥R2 
MOVE IMEADATE WETH INDEXING 


CHECK RESULT 


PROG ID OFEI-3 
PAGE 2 


5 
i 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


FEL3 


ERR LOC 


0883 
OBB6 
OBBA 


OBBC 
oBco 
OBC4 
OBCA 
oBCcD 
OBDI 


ORD3 
9BO7 
OBDA 
OBDE 
OBE4 


OBES 
OBEC 
OBEF 
cBF3 
ORFS 
OBFD 


cor 
3COS5 
oC 09 
JCOF 


oCrB f 


30176 
SCA 


Oocic 
9T22 
OC26 
9C€29 
oc2D 


QC 2F 
GC35 
0C39 
ec3c 
0c40 


0C42 
0C48 
OC4C 
OC4F 
0c53 
oC55 
oc 58 
O°.5F 
OvG2 
0C66 
OcéeCc 
OC6F 
OCT3 


oc7s 
CC78B 
Of TF 
CCc82 
OC 86 


CCcsc. 


cC8F 
0C93 


DATE 


EC 


NO. 


FE1 - CPU MODULE FOR SYSTEM 


OBJECT Cade 


F2 
co 


81 
87 


FEOE 


C2 
34 
oD 
F2 
co 


ol 
ou 
ol 
81 
87 


FEOF 


C2 
fhe 
34 
oD 
co 


C2 
E2 
34 
09 
co 
co 


3C 


ol 
ol 
01 
OL 
02 


02 
C2 
G2 
Oi 
0} 
87 


OF 
FO 
00 


FEL5S 


06 
0222 


co00 
0087 
OD87 
06 

0222 


6000 
02 

OBAS 
ODAY 
OBO? 


0000 
02 

ODAS 
ODAS 
OBEC 
9535 


ODRE 
ODE? 
ODBE 
ODRE 
06 

0222 


0DB6 
ODB6 
06 

0222 


ODBS 
ODR6 
06 

0222 


0DB6 
ODBS 
06 

0222 


ODA9 
ODB6 
00 

ODAS 
ODAS 
06 

0222 


ODA9 
ODRE 
00 

ODAY 
ODAS9 
06 

0222 


28JUL69 
816444 


0D94 


ODAS 


ODA5S 


ODB7 


ODB7 


OD87 


ODB7 


ODS6 


OD SF 


OoD96 


OD9F 


ADDR STMT 


OBBB 


OBD2 


OCiB 


OC 2E 


oc4l 


OC 54 


OC 74 


OC94 


220CT69 


816538 


163 
164 
165 
166 
167 
168 
1£9 
170 
117i 
1?2 
173 
174 
175 
176 
177 
178 
179 
180 
18st 
182 
183 
184 
185 
186 
187 
188 
189 
190 
i9l 
192 
193 
194 
195 
196 
is7 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
21 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 


TEST 


SOURCE STATEMENT 


LOABL 


LOAD2 


20JAN70 
816576 


816756 


JE *29 

8B HALT 

Oc XL2*FEOE® 

LA O,XR1 

ST WORK415 XRIE 
CLC WORK4#1(2), ZERO 
JE *4+9 

B HALT 

DC XL2°'FEOF? 

LA OeXRI 

LA 20-¢XR1} eXRI 
ST REGSAV, XR 
czc REGSAV(2), MINUS? 
BNE LOADIL 

LA O,yXR2 

LA 20 -XR2)_XRZ 
ST REGSAV, XR2 
CLC REGSAVE 2) »MINUS2 
BNE LOAD? 

8 EXIT 

MYT WORK, X* OF® 
“VI WORK+1, X*FO? 
AZZ WORK,» WORK 41 
CLI WORK» X* FFE 

JE *e9 

B HALT 

DC XL2°*FELO® 

KZN WORK , WORK+1 
CLI WORK ,X* OF * 

JE *49 

B HALT 

oC XL2°FELL® 

MAN WORK ,WORK+1 
CLI WORKsX*® O00" 

JE *49 

B HALT 

oc XL2°FEL2* 

MNZ WORK » WORK+1 
CLY WORK,X* OFF 

JE *49 

B HALT 

DC XL2*FEL3S 

MVC REGSAV(2)_XFF 
LA WORK e XRI 

LA OC gXR1} »XR2 
ST REGSAV:? XR2 
CLC REGSAV(2) sWORKO 
JE *49 

B HALT 

OC XL2*FE14* 

MYC REGSAV(2) »XFF 
LA WORK, XR2 

LA O(sXR2)_XR1 
ST REGSAV, xR1 
CLC REGSAV(2),WORKO 
JE *49 

8 HALT 

oc XL2°FE1L5* 
O10CT70 1I5JUN71 

818948 


PART NO. 2589909 
PAGE 2A 

JUMP OVER HALT IF OK 

TO HALT IF NOT OK 

HALT ID 

LOAD ZERO IN XR1 

STORE 

COMPARE 

JUMP OVER HALT IF OK 

YO HALT IF NOT OK 

HALT ID 

ZERO XR} 

STEP BY 2 

SAVE 

COMPARE 

LOOP TILL EQUAL TD OOGFE 

ZERO XR2 

STEP BY 2 

SAVE 

COMPARE 

LOOP TILL EQUAL TO OOFE 

SET WORK AREA 

MOVE ZONE TO ZONE 

CHECK MOVE 

JUMP OVER HALY IF OK 

TO HALT IF ERROR 

HALT 

MOVE NUMERIC: TO ZONE 

CHECK MOVE 

JUMP OVER HALT IF OK 

TG HALT IF ERROR 

HALT ID 

_ MOVE NUMERIC TO NUMERIC 

CHECK MOVE 

JUMP OVER HALT IF OK 

TO HALT IF ERROR 

HALT ID 

MOVE ZONE TO NUMERIC 

CHECK MOVE 

JUMP OVER HALT IF OK 

TO HALT IF ERROR 

HALT ID 

SET SAVE AREA 

LOAD ADDRESS OF WORK IN XR1i 

PUT XRL IN XR2 

SAVE XR2 

CHECK RESULT 

JUMP OVER HALT IF OK 

TG HALT IF ERROR 

HALT ID 

SET SAVE AREA 

LOAD ADDRESS OF WORK IN XR2 

PUT XR2 IN XR1 

SAVE XR1 

C4ECK RESULT 

JUMP GVER HALT IF OK 

TO HALT IF ERROR 

HALT ID 
PROG ID OFE1-3 
PAGE 2A 


ee 
\ 





IBM MAINTENANCE OIAGNOSTIC PROGRAM 


FEL3 


FEl - CPU MCDULE FOR SYSTEM TEST 


ERR LOC OBVECT CODE 


0ces 
ocee 
o¢ SC 
OCR2 
: OCAS 
OCAS 


CCAB 
OCAF 
CBS 
ocB? 
ocBD 


OceF 
occ3 
occ? 


9cca 
occe 
ocoo 


Oco2 
octs 
OCDE 
OcEe 
OCcE? 
ocee 


octet 
OCF E 
OCFS 
OCFB 
CTFF 
oD05 
ODOB 
QDOF 
oD15s 
op18 
Oo1LC 
ODIE 
faa 0024 

‘ On27 
0D 28 


on20 
on} 
0035 
0039 
00320 
9041 


0045 
0949 


9040 
oD51 
i On54 


ocss 
Onsc 


OO5SF 


0062 
0066 


NATE 
ec NO. 


F2 88 
2C OS 
O06 00 
F2 88 
co 87 
FEL6 


3C 09 
C6 90 
co 88 
co 87 
FEL? 


co 08 
co a7 
FEI8 


F2 08 
TO &T 
FELS 


oc OF 
GA O} 

a Ol 
F2 82 
co &7 
FCTA 


3c FO 
3C Oc 
OC YE 
3C FF 
oc 10 
OB LE 
24 08 
OD IE 
F2 81 
co eT 
FEC 

oD Ol 
Fo 81 
co 87 
FELE 

Co 87 
CoO a7 
324 08 
20 FE 
co O1 
co 87 


34 20 
24 40 


35 60 
Fl 09 
co 80 


CoO 87 
F2 87 


F3 00 


35 20 
35 40 


09 
ODBE 
ODBE 
06 
0222 


oDgB6é 
CDR6 
OCBF 
0222 


occ9 
0222 


06 
0222 


0087 
OodDa7 
OOBT 


0222 


obote 
opos 
ODDS 
ODFF 
COFE 
OODB6 
0008 
0004 
06 

0222 


oDDs 
06 
0222 


0035 
OA OE 
0044 
OAO0N 
OAOA 
0000 


oDe5 
0087 


0083 
oo 
oped 


ODSF 
OE 


06 


0085 
O087 


28JULE9 
816444 


ADDR STMT SOURCE STATEMENT 


oD97 
OCAL 
on97 
OC BE 
occa 
ocDl 
0090 
0099 
oper 
OcEC 
0005 
OOFF 
0096 
ODFF 
oD10 
ODA? 
op2c 
220CT69 
816538 


23i 
2322 
233 
234 
235 
236 
237 
238 
239 
249 
2&1 

242 
243 
2&4 
245 
246 
247 
248 
249 
250 
25% 
252 

253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 

266 
26T 

268 
269 
270 
271 

272 
273 
274 
275 
276 
277 
276 
279 
280 
281 

282 
283 
284 

285 
286 
287 
288 
289 
290 
291 

292 
293 
294 
295 
296 
297 

298 


EXIT 


BR 


INTOK 


noooP 


UNCNO 


NEWLD 


20J5AN70 
816576 


JGZ *e3 

MVE WORK, X* T9? 

Az WORKELIYX OSL) 
JOZ w49 

B HALT 

oc KL2*FEL6? 

MYT WORK ¢ X* 09% 

AZ POIRKEL DP oXCSCE SY 
BOZ #e10 

BR HALT 

oC XLZ2°FEL?T? 

BNOZ *#10 

a HALT 

oc XL2°FEIL8°® 

JNCZ *4+9 

B HALT 

DC XLZ'FEL9® 

eV WORK41L{(2},X202 
tM WORKS 1022, XELFO 
CLC WORKELEZ},XF LEC 
JE B49 

B HALT 

pc XL2°FELA® 

MYT HORK4322,0°%O?® 

MV I WORK431-0 

¥YC WORK4 30 (21) gHORKS31 
MVI WORK4+73,X*F FP 
HVC WORK472 (303 »pWORK +73 
Tc WORK (313¢_XFF 

ST RWORK434,ARR 

cic WORK430 0313 »KORK+73 
JE #49 

B HALT 

OC XLZ2'FEIC# 

CLC WORK434(2) ¢WORKSI 
JE *+9 

8 HALT 

oc XL2"FELE® 

8 EXIT 

B TSTOLA 

st BRE+3,ARR 

CL! X*OAOO*® X*FE® 
BNE ENTRY 

a k— 

ST PLSAV,X#20° 

ST P2SAV~X*408 

L BADINT, X* 60° 
APL. 0 

BC INTERR, X* B0® 

8 NEWLD 

J INTERR 

s1o0 6,0 

L PLSAVeX*20° 

t PZSAV_X "408 
O1OCcT70 1ISJUNTI 
816756 818948 


PART NO. 


2589909 
_PAGE 3 
RESET DECEMAL 7¥.“8F LOW 
SET woRK TO <7“U" DECIMAL 9 
ADO MINUS GEC. ¢ TO WORK 


SUMP OVER HALY 3° 
TG HALT TE ERRTR 
HALT ID 


DECIMAL OVER FLOW 


SET WORK TG AENUS DECIMAL 9 

ADG MINUS DEC. SF TO WORK 

BRANCH CVER HALT IF DECIMAL OVERFLOW 
¥O HALT EE ERROR 

HALT 10 


BRANCH OVER HALT IF NO OVERFLOW 
TO HALT TF ERROR 
HALT iD 


JUMP CVER HALT 
TO HALT IF ERROR 
HALT TD 


EF NO OVERFLOW 


SET WORK YQ HEX-2020- 

EDIT : 
CHECK RESULT tO 
JUMP OVER HALT IF OK 

TO HALT IF ERROR 

HALT ID 


SET A NUMERIC VALUE AT END OF FLD 
ZERO WORK 


COMPARE FIELD 

INSERT FF 

SAVE AR® bac: Be 
CHECK re 
JUMP GVER HALT IF OK 

TG HALT IF ERROR 

HALT 19 

CHECK ARR VALUE AFTER THE ITC 

JUMP OVER HALT IF SET CORRECTLY 

TO HALT IF NOT 

HALT 10 


TO SUPERVISOR 


SAVE EXIT ADDRESS 


SAVE PI-IAR 
SAVE P2-TAR 


LOAD P1 & P2 IARS TO ADDR OF SETARR 
TRY TO ADVANCE PROG LEVEL IN INT LEV 
NO-OP BRANCH TO TEST IAR/ARR SELECT 


UNCONDITIONAL BRANCH ~O TEST 
TAR/ARR SELECT 
ENABLE INTERRUPTS & DUAL PROG MODE 


FESTORE P1-IAR 
RESTORE P2-TAR 


proc 10 OFE1-3 oasis 
PAGE 3 | 


184 MAINTENANCE DIAGNOSTIC PROGRAM 


FE13 
ERR LOC 


OO6A 
oced 


ooT1 


ODT4 
oo7s8 


OOTA 
ODTE 
0080 
0082 
OD 84 
OD86 
0088 
o5s0 
ob92 
o093 
GDS5S 
oDS7T 
onse 
GDSA 
oDse 
SCSet 
ODAS 
ODA2 
ODRS 
ODA 
ODAB 
ODAA 
ODAC 
OBAE 
ooro 
ODB2 
CDB4 


0DB6 


DATE 
EC NO. 


FEL - CPU MOCULE FOR SYSTEM TEST 
GRJECT CODE ADDR STMT SOURCE 
F2 8T 04 299 
35 60 0083 300 INTERR 

301 * 
392 
F3 00 05 303 RESETT 
304 
CO 87 0222 205 SETARR 
FE89 GON79 306 
307 
C9 87 GDED 308 
oDn45 OD7TE 309 INTRPT 
OoDéD CDat B31lO ERRINT 
OD74& OCBS 311 BADINT 
0085 312 PLSAV 
OD87 313 P2SAV 
FLF2ZESF4E5FOF TES GODGE 314 UNITS 
Foro 314 
FE Op92 315 DEONE 
Ooe Oo094 316 ZERO 
EFF O0S6 Bit XFF 
D9 ons7 318 XD9 
ELFO ones 319 ¥ELFO 
ELFS 009B 320 XFIFO 
2020 oosD 321 *%2020 
OOBE ODSF 322 %ORKO 
ooBs ODAL 323 WORKS 
oDDs ODAS 324 WORK21 
COFE ODA5 325 MINUS2 
FFEO ODA? 326 NEG128 
0000 ODA 327 REGSAV 
9426 ODAB 328 ADRX 
OA2C ODAD 329 ADRY 
3a30 ODAF 330 ADRZ 
OA4F ODB1 331 ADRA 
OA60 ODB3 332 ADRB 
0A53 6DB5 333 ADRC 
ODB6 334 WORK 
ODFF 335 
0001 336 XRI 
002 337 XR2 
0CO8 338 ARR 
0080 339 YARO 
0020 340 PLIAR 
0040 341 P2TAR 
0203 342 CORSIZ 
0204 343 CPU 
OAOCA 344 ENTRY 
0222 345 HALT 
0212 346 TEST 
ODB6 347 TSTSLD 
OAQE 348 
28JUL69 220CT69 20JAN70 
816444 @16538 816576 


STATEMENT 

J RESETT 

L BADINT, X* 60% 
sid 5,0 

B HALT 

bc XL2°"FESSS 

B INTERR 

DC AL2CINTOK ) 
DC AL2CINTERS} 
LC AL2ESETARR) 
OS cL2 

DS CL2 

bc CL10*1234567896% 
oc CLEeLt 

oC XL2°o& 

oc XLZ2°FFFFE 

oC XLL*D9° 

oc XL2°ELFOFS 

bc XL2°*F1FO* 

c xL2*20208 
oc AL2 (WORK) 
oC AL2(WORK+5 3) 
DC AL2 (WORK+4+31) 
DC XL2"°OOFE® 
oc XL2‘°FE8O® 
pc xL2*o* 

DC AL2 (DPX) 
oC AL2(DPY?) 
oc AL2(0PZ) 
De AL2 (DPA) 
oc ALZ2¢(0PB) 
bc AL2¢OPCI 
EQU * 

OS CLT4 
EQU Ol 

EQU 02 
EQU 08 
EQU x*so0° 
EQU x*20* 

EQU x*40° 

EQU x*203° 
EQU X*204° 
EQU X*AOA® 
EQU xt222° 
EQU x*212° 
EQU WORK 
END TSTOLA 
o10CcT70 L15JUN71 
816756 818948 


PART NO. 2589909 
PAGE 3A 


GO RESET THE INTERRUPT. 

LOAD PI-IAR & P2-TAR WITH THE 
ADDRESS GF SETARR INSTRUCTION. 
RESET & DISABLE INTERRUPTS 


GO TO HALT -FEB89~ IF INT LEV O ERR 


RESETT FAYLEDs TRY AGAIN 


PROGRAM LEVEL 1 IAR 
PROGRAM LEVEL 2 TAR 


PROG ID 


OFE1-3 
PAGE 3A 


5, 


Yas 


ef 


; 
ae ON 





16M MAINTENANCE DIAGNOSTIC PROGRAM 


FEL3 FEL -— CPU MODULE FOR SYSTES TEST 
CROSS~REFERENCE 

SVMBOL T LEN VALUE DEEN REFERENCES 

A A 00O& OA64& 0060 

ADRA A002 ODB1 0331 0045 

AORB A cO2 0083 0332 O846 0048 

ADRe A C02 ODBS 03332 Oea7 

ADRX A 002 ODAB 0328 0035 

ADRY A 002 ODAD 0329 0033 

ADRZ A 002 ODAF 0330 0034 

ARR Cc 001 0098 0338 Q265 O277 

a & 006 OAT3 0064 0062 60068 

BADINT A 002 ©6083 O311 G28S5 630% 

BR & 004 OD4i 0286 O277s 

BRANCH A CO& OAS6 0050 0031+ 0056*% 

CORSTZ C GOL 0203 0342 Coé6éC G61 

ceu C 002 0204 0343 00248 

DEQNE A OC1 ON92 0315 OL21L 0122 

DPA A O64 OA4SF 0048 033% 

0PB A 004 0460 0056 0332 

DPC A&A 003 OA52 0049 0950 0333 

DPX A 004 OA36 0039 0328 

DPY A 004 OA2C 0035 0329 

DPZ 4 003 OA30 0036 0330 

De2 A 003 OA3C 0043 0037 

ENTRY C O01 OACa 0344 0279 

ERRINT A O02 O0D81 0310 6030 

EXTY A 0C4& 0935 0277 C067 0118 0185 0275 

FEL A 001 0069 0903 

HALT €C O01 0222 0345 0029 0052 0073 0078 0084 0089 0696 
O144 0148 0356 0164 0171 0193 0199 
0242 0245 0249 0256 0268 0272 0305 

i ARO Cc 001 0080 0339 OO3C* 0044s 

INTERR A 004 ODED 0300 O2R9 0292 0308 0310 

INTOK A 004 O00D45 0282 0309 

INTRPT A 002 OD7TF 0309 0044 

LOADL A 003 ORD? O175 0178 

LOAD2 A 003 OBEC 0181 0184 

MINUS2 A 002 ODA5S 0325 O1L77 0183 

MVI1 A 003 OR9B 0152 

MVI2 A 003 OBAC 0160 

NEG128 A 002 ODAT 0326 00646 7 

NEWLD A 003 ODSF 0294 e291 

NOOOP A 004 O0OD54 0289 

PITAR C€ 001 0020 0340 0033* 0045* 0046% 

PISAV A 002 O085 0312 0282* 0296 

P2TAR COOL O040 0341 0034* 0035* 0047* 0048# 

P2SAV A 002 OD87 0313 0283* 0297 

REGS AV A 002 ODAQ 0327. O176* O1L77T O182* 0183 0213* 0216* 0217 

RESETY A 003 OD71 0303 0299 

SETARR A 004 OD74 0305 O311 

TEsT COOL 9212 0346 0027 

TEST2 A OO1 OABE 0065 0965 

TSTFLO A 001 OCDB6 0347 OO70* OC71 O076 ©C081* 0082 0087 0092 
0106* 0107* 0108 G112* 0113* 0114 

TSTOL & 001 OAOA 0071 0015 

TSTOLA A 004 OAOE 0027 0276 0348 

TSTOIB A O0Ol OAG4 0058 0029 

UNCND A 004 ODS8 0291 

UNITS A110 OD91 0314 O120 0124 0132 0132 

WORK A 001 ODB6 0334 O120* 0121* 0122* 0123* 0124% 0125 0130% 
O141* 0142 0146 0154 0162 0168* 0169 
0196 0196* 0197 0202 0202* 0203 0208 
0233* 0238* 0239* 0252* 0253 0254 0259% 
0265* 0264* 0265* 0266 0266 0270 0322 

wORKO A 002 ODSF 0322 0217 0226 

WORK31 &£ 002 ODA3 0324 0270 

WORKS A 002 ODAL 0323 0151 0159 

xo9 A 001 OD97 0318 0233 0239 

DATE 28 5SUL69 220cte9 Z0JANTO O10CTTO IS5JUNT1L 

EC NO. 816446 816538 616576 816756 818948 





0103 
0205 


0222 


0093 


0131 
O188* 
0208* 
0260*% 
0323 


PART NO. 2589909 
PAGE & 


0110 ©6116 0127 0135 


O211 0219 0228 0235 
0225* 0226 
0094 0099* 0100* 0101 


0131* 0132* 0133 0140* 
0189* 0190 0190* 0191 
0209 0214 0223 0232 
0261 0261* 0262% 0262 
0324 0347 


PROG ID 
PAGE 4 


OFE1-3 


i 
: 
: 





TBM MAINTENANCE DIAGNOSTIC PROGRAM 


FE13 FEL - CPU MODULE FOR SYSTEM TEST 
sieiata CROSS-—REFERENCE 
‘ SYMBOL T LEN VALUE DEFN REFERENCES 
XELFO A O02 OD99 0319 0253 
XFF A 002 ODS6 0317 0138 O142 0213 0222 0264 
XFLIFO A 002 OD9B 0320 0254 
XRI C COL 0001 0336 0066 0138* 0140 0151* -0152 O0167* 0168 O0174* O175 
0215 0224* 0225 
XR2 C 001 0002 0327 C066 0139% 6141 O159* 0160 0180* 0181 0181i* 0182 
: 0224 
X2020 A 002 OD9D 0321 02 52 
ZERO A 002 OD94& 0316 0063 0139 0146 0169 
’ TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
; < 
1 a, 
ae 
= . 
| 
| 
{ Co 
a dé 
Sh gS. 
CATE 285UL69 220C T69 Z20JANTO O1O0CT70 1S JUN71 
EC NO. 816444 816538 816576 816756 818948 


om 
Ww 


PART NO. 
PAGE 
O175* O176 0214* 


O0215* 0216 0223* 


PROG ID 
PAGE 


2589909 
4A 


OFE1-3 
4A 


ee 


4 
' 





c. 
(+ dem MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589909 
( _PAGE 5 
FELIZ FEL - CPU MODULE FOR SYSTEM TEST . 
é i 
OBJECT CARD LISTING 
fc : 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. ; 
c CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 | 
TU YG"/+ & Boe *ROD MEM SOHKSH BAIHEK3O0 CQDa- Z Pav (K (yLN CEa SE 6,36 aY* .2% XHAOGIQHFE130001 
. TeOZVAZBG Se=<?7< ATO CRASH E1(K = (E3N C$M5E 6326 OH#HMaBG Se=<L2 GEV*5 OHCIE >1A4 RE JD( 4 JOFE130002 
c on -< ee —" = * ae e e e 
TCOD#POHCA-ODIE< (VCOCCE+2-£2)57° WOHFL(HBGRXCA 6 6130 _7HEATBG S. = LX"C$$2D 118 *F 415$ FE130003 
ceca TRO, EAPAG So= TR "CSQS*OEEO! H_7B 4G S.= 31" $820 $ JOHS"-Ea 66478 (_TT#CS$ D 1-KU #D-8HBY aF E130004 
ha 
TE-2CB_X /OHS"-M BNOGOFMAL_TX"CSS DO +2 C0H* BH? BF I (TY C$O" 66aYD FOH*BH78G BUVHI* LCOZA3LHFE 130005 
c e e locas, 
T.OL3Ilal_TZ C$Q ""O66AYDFOH*EH7S HoH#((EE-CSa(UEQ —CSa(U-*-C$a(UT3 60 $OD BEDHBESG/O QB0*C) ABFE130006 
£ ae e oe s e 7 e e e 
T.0_T 66COY*206 G6OHD.J7BG S.=BL3 ECSBCADGICSBFR & =CR (8 G=CRE2~E$ = /CHS B-WHS #F7Q <B &83/aFE13C007 
£ = e se 2 
Ly TREDNM=Y5 EED(EH (VCEACS*4 -69CED (_O6UBYDFOH*BH78 =» CED(>E6KAaYDFCHF BHPS<(ED BQUELM JCEUELE FEL30008 
pied 
TCOPICEES"E "EG #ABYDF OH*BH78( (EH (v$20 C6DC$72-E8 /OHS"-#B E CD {_O4ACS#(V 3<K4 #EE-AGEUFE 130009 i 
r 
1<-7aaYDFOH*BH?78 10-3 (HA TEACFU ( EGZCEP ETPO-H +HB TEBCEUL £6 ZCEP 67% CH>.B- IF StL JEEFE130010 
T<EO>OHF((LOICSQ aa 678 {(_-6T71-a (_2HAAZBG S.=D - ACSQI_341CS$2-6$ JOHS"/D HBESEJD [RO*CPLOFE130011 
T<ep-R <(_-671& (_7HAAZBG S.=0-- BCSOl_341CS$z-ES  /OHSM/<< GOZCRS B £664-H «2Z2GA- OBEMC3ZDFE130012 
T<EQK CEBCEUL 66 ZCRVZ-ES /OHS™/E << EEZCRSE --668-D  C DIDEGACEULX"H = AAZ RG SH TiS-UGJU PB--D*H-FE130013 
¢ ee eo e e e e e 
| YRRBEM/PZS BOLE GA- (_-EPaY-FOH® BH2BOI(UC_-O CSQ (VaBHC." /OHS"/~ = -3TOH*S BaVHsa $C-OHESOFE 130014 
C e o = e ° eee a 
Te 36H7B0a--FOH* BH7SRC DL_06)B-D (_O6RCED(_06$2YD FOH*BH28EI| (STO CIM<G- BBDGIT PEJD| 504FE130015 
€ eo e e e 
Te-GVCDELSL3"C3B <GET=C>A-E-66CRQ 48 TOCIELS T™AYD FOH*BH784CED(6 6 TAYD LBYJFL#LDES ~AOCKAS1<FE130016 
€ e e o ee (es ee o e ec ° e x. a 
TCOSRAZBG Se=GZR GCLP /OY4( -(JCT =B-C  EYHOH® CE -COM4E 6G6(0 (-"D <B CAT s0 1HSQ SD-8HMS*FE130017 
c 2 ; 
THEOCCN"2/0#3 0 SH 6E(M C/PHGACN -CQT3 PP /OHSNYX 705_CMM(SE54 BUXIK< OCOZADLUFE130018 
ee e e . eee oe e eeeoete 
TeEOSa~e38(PETMT GAID I""OsGOA+ —H GECSR(SECENS ¥6RSOH< ZIBR HMO SKZZ12M TELUP3DHFE130019 
( ees eee eo ee @e2eoe@ eee e ees eseeaeoneoe eee e@ 
EB-OFET#=0CMPHS ="7TMEFL OTC Fz asc RA SO Q 06540804710 809719$HFE130020 ee e 
. 2--- ------------- -------- ~--------------------- Csi pice SS ee eee 
A 
DATE 285UL69 220C 169 20JANTO O10CT70 15JUNTL PROG 1D OFE1-3 
4 EC NO. 816444 816538 816576 816756 818948 PAGE Ss 
L 


tia 





ae 





a ” 7 hes on ere 


_¢ ; 
"+: ¥8M MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 2589915 
C . ae PAGE i 
c EOF1L EOF - 5203 PRINTER SYSTEM TEST MODULE | 
vey ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
ene é : . 
—L. 2 DECK 1 
eae 0000 3 EOF ~ START O 
3H 0A00 4 ORG xX*AGO* 
‘ ® § EESCEESESE EEE SESEKESEEEKEEKES KEEEK OERKESSFESESESEERSEKASEESKEES SE SKS EVE SES FEVEKE 
Ye 6 * SECTION PREFACE + 
4 a < 7 ¥SEESEEOEEEERESESKESESESEES KE EEE TEE ELEKEKELRCEEKEESSESLEKEREAALAESE SFE SEESES 
tT 84 
- 9 * THIS AREA CONTAINS INFORMATION NECESSARY FOR SECTION OPERATION, ¢ 
10 @ THE PROGRAM IDENTIFICATION, FLAGS, FIRST ROUTINE ADDRESS AND + 
a '%, 11 ® ERROR RECORDING TABLE ADORESS ARE LOADED BY ASSEMBLED OATA. THE *# 
. : 12 * CURRENT ROUTINE NUMBER IS SUPPLIED BY THE CON. ROL PROGRAN. THE ¢ 
‘ 13 * UNIT DEFINITION TABLE, SPUT, IS NGT USED 8Y THIS SECTION. * 
(, 14 *# - ¢ 
% ; is SEKSS SESSEEEKESSE ESSE SEEK SS SECESECESE SE HEEE EA EFELSEEESEESEE CEES LERSET ELE SELES 
OA0O E0F1 OAOl 16 PROGID OC = XL2*EOFL* PROGRAN IDENTIFICATION 
c 0A02 00 OA02 17 SPFLGS DC  ~§ xXLL*0* FLAGS 
ee OA03 O21 0A03 18 RNUM = DC T.1¢1° CURRENT ROUTINE NUMBER 
Lane OA04 0000 - © 0AosS )=—_ 239 oc XL2°08 NOT USED 
te OA06 OA99 OAOT 20 FRIN OC AL2CRTNOLS ADDRESS OF FIRST ROUTINE PREFIX 
OAO8 OAOD © O0A09 21 TABADR DC AL2{(ERRTAB) ADDRESS OF ERROR RECORDING TABLE 
OAOA 22 SPUDT EQU * ; UNIT TABLE 
££ OAOA £05000 oaoc = 23—C«; oc XL3*°£05000° 
7 » 2~— 
Cc os ~ .*26 #@ ERROR RECORDING TABLE. 
. 3 . 271 | : 
OAOD 80 ; OAOD 26 ERRTAB DC xL1*so° 
Dy OAOE OC -  QAOE 29 -oc 1L1°12° 
Seay OACF F5F2FOF340D709C9 CAlA 30 DC CL12*5203 PRINTER®- 
Baae. OAL? 05E30509 30 
Cc . 0A1B 80 —  OA1B 328 oc XL1*86° * 
CALC OF. " " .Qa1C~ 32 oc 111°15¢ 
: OALD D3C1E2E340F3460C3 OA2B 33 pc CLIS*LAST 3 COMMANDS® 
-C 0A25 D6D4D4C105C4E2 . 33 . : . 
OA2C 40 OA2C 34 oc XL1*40° _ a 
oe eS OA2D 02.—=««. OA2D° «35 pc 1LL°28 
, € OA2ZE 0000 OA2F 36-C4D1 DC XL2*°0° 
: "+ QA30 40—Ci™ 0A300— 37 oc XL1*408 
0A31 02 0A31 = 38 OC 1L1*2° 
ae 0A32 0000 : 0A33. «39. CMD2)~— «OO XL2*° 08 
wet O0A34 40 -  ' QA34 40 - pe XL1*40* 
th GA35 02 e OA35 | G1 DC 1L1°2° 
Cc OA36 0000 -:. OA37 42 CMD3 DC xL2*08 
OA38 80 -0A38 43 oc xL1*°80° 
0A39 OD 0A39 4&4 oc IL1¢2138 
Cc OA3A D3C1EZ2E340F340C5 OAS46 845 oc CLI3"*LAST 3 ERRORS® 
"+ -  - QA&2 DSDIDEDIE2 45 
oe ‘ 5 ‘ ‘ 2 - 6 
Cc OA47 80 OAST 847 DC XLi°s0* 
‘0A48 19 OAS8 848 oc 1L2*25¢ 
0A49 40C3D6D4D4C1D5C4% 0A61 49 ECMDS OC CL25* COMMANDS XXXX XXXK XXXX* 
Cc. OA51 E24040E7E7TETETSO 49 
aiee OA5S9 ETETE TETS0E TE TET 49 
ance OA61 E7 &9 
Cc me Ma 50 
OA62 80 CA62_ ‘51 DC XL1*80* 
O0A63 19 O0A63 = 52 oc 1L2°25° 
C OA64 40C3D240EZE3C1E3 OATC 53 SNSOL1 OC CL25® CK STATUS XXXX XXXX XXXX* 
am OAGC E4E240E TEE TET“O 53 
ee OATS ETETETET4OETETE? 53 
Cc OATC ET 53 
54 
OA7D 80 OA7D = 55 oc xL1*s0* 
‘ GATE 19 OATE 56 pc =—s-«yune2se 
vest OATF 40D709C905E34007 CA97 57 SNS110 OC CL25* PRINT POS XXX XXX XXX* 
Aaed OA8T C6E24040E TE 7TET40 57 
C OASF S0ETETET4040E7ET7 | _ - §t- 
OA97 E7 -  .. ST 
he 
DATE 28JUL69 28NOV69 20JAN7TO PROG 1D OEOF-1 
a EC NO. 816444 816542 816548 PAGE. 1 
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sa IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589915 |. 18M MAINTENANCE DIAGNOSTIC PROGRAM a - PART NU. 2589915 - 
PAGE 2 i? PAGE 2A 
. EOF1 EOF ~ 5203 PRINTER SYSTEM TEST MODULE a EOFL EOF - 5203 PRINTER SYSTEM TEST MODULE 

. 1 i : 
_ { é 
~+ ERR LOC OBJECT CodE ADDR STMT SOURCE STATEMENT ‘ysee ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ; 
baa ery 
* OL FEREEEREEEEAESESEESEE ERS EE ES EHREEES SE EEBREEEEREEEERESESESSEEERDERSEORESESE | Oo 129 @ : 
62 * ROUTINE OL ~- 5203 SYSTEM TEST MODULE ¢ 130 #* THE FOLLOWING CODING DETERMINES WHICH FAILURE HAS OCCURRED ANO 
3 63 SESESEEEESEESERSERAE SHER SE ERSRSEARERERERESEESERETES £EEEEEEEEEEEEKSEEES SHROER EE ° er i SETS UP THE PROPER HALT CODE. 
64 : & * : 
65 * COMMANDS ARE ISSUED TO THE 5203 IN RANDOM ORDER FROM A COMMAND * | 123 +¢ 04 - CHAIN SYNC CHECK. 
; 66 * TABLE. SKIPS ARE TO THE NEXT LINE ONLY. e ! : 134 +s 05 ~ INCREMENTER SYNC OR SLIP CHECK. 
Bs 67 * * QO 135 #« 06 - INCREMENTER FAILURE CHECK. 
6B FESKSERERAEAEREEEEAEAES EERE EEAE SEES EREEEERERERESEEE £6 6S KE EEE FE 909404446 136 *¢ 09 ~ HAMMER ECHO CHECK. 
OA99 01 0A99 «69 RTNOL OC XL1*O1°8 ROUTINE PREFIX 137 ## OA ~ ANY HAMMER ON CHECK. 
OASA 00 ‘OASA =-‘70 DC XL1°0# ; O 138 #¢ O7 — THERMAL CHECK. 
: OAQB FFFF oasc S71 oc XL2°FEFES guia 139 *¢ O01 — CARRIAGE SYNC CHECK. 
va OA90 72 USING BEGINe2 - lanae . 140 ¢ 02 = CARRIAGE SPACE CHECK. 
ure 73 USING BEGIN,2 1 SA 141] ** 03 — FORMS CHECK JAN. 
OASD C2 02 Cao 74 BEGIN LA BEGIN» XR2 LOAD BASE REGISTER 142 #6 08 - NO OP STATUS BIT SET WITH NO OTHER ERROR. 
OAAL 3C 40 07 7 - MVI PFIELD4131,C8 * PUT BLANKS IN PRINT AREA : 143 *4# OC - UNPRINTABLE CHARACTER SKIPPED. 
OAAS 3C 40 U276 1% MMVI =s- PFIELD+130,-C* *¢ © 144 @ 
OAAD 30 E3 COCO 77° SNS PSTAT,X®E3® STORE PRINTER STATUS - 0882 C2 O01 OCDF 145 La SNSTAB—3,XR1 POINT AY TABLE OF SENSE /HALT INFO 
OAAD 38 04 O0C9 | 78 TBN  PSTATsK*04? oe OB&86 D2 O21 03 146 SNSLP LA 3¢_XR1)_,XR1 INCREMENT TO NEXT ENTRY 
OABL £2 SO OF 19 JF &D120 BRANCH IF NOT 48 CHARACTER CHAIN {3 0889 1€ 00 0894 00 147 MvC CHECK141(21320( oXR1i)} MOVE MASK TO CHECK NEXT ERROR BIT 
OAB4 OC 2F CDCS 082F - 80 MVC = PFIELD#129448) ¢LPIMAG¢47 SET UP FOR 48 CHARACTER CHAIN OBGE IC OO 0898 01 148 MVC =—- CHECK26203959105XR1) 
OABA OC 51 00°5 ODCT 81 MVC PFIELD4+81 (82) »PFIELOCL31 . 0893 39 00 ONCS 1469 CHECK1 TBF PSTAT-1,4-% CHECK TO SEE IF THIS IS ERROR BIT 
OACO F2 87 OC 82 J SETPRF G 0897 39 00 00C9 150 CHECK2 TBF PSTAT,#=# DETECTED 
OAC3 OC 77 ODCS 0877 83 LDL20 MYC = fFIELD#129(120)-4LPIMAG*119 SET UP FOR 120 CHARACTER CHAIN eae 0898 CO 10 0886 152 BT SNSLP CONTINUE IF NOT 
as OAC9 OC 09 CD4D ODCT 84 MVC = PF TELD49(10) ,PFIELD4131 pees OB9F 1C 00 OBAD 02 152 MVC =: PHALT(1?,20,XR1) FOUND IT — SET UP HALT 
OACF 3C 00 0878 85 SETPRF. MMVI  LPDATA=1,X*00" LOAD SYSTEM TEST FLAG INTO PRIAT FLO): OBA4 CO 87 0222 -153 OOHALT B HALT ERROR HALT 
OAD3 31 EO COCOA 86 LIQ WNLi2.XxX*EOF LOAD PRINTER LSRS | OBAS8 EC0O . OBA9 154 PHALT OC XL2* E000° 
OAD? 31 E4& OCDC 67 LIG x809,x' EK OBAA 3C OC 0878 155 MVI LPDATA—1,X*0® 
OADB -31 €6 OCDE se L108 = Xe7C,XF EGF — hrs tae Oo OBAE Co 87 OCcs . 156 -  B_. . GOUT Ww 4 EXIT MODULE 
OADF C2 01 OD01 89 FIRSTC LA CHOTAB—2_XR1 INITIALIZE POINTER TO COMMAND TABLE § _—s_ OBB2 Cl E6 0889 157 CKBUSY TIGQ ISBUSY,x*E6* BRANCH IF PRINTER . BUSY” 
OAE3 34 01 ONCE 90 st CMDPTReXR1 So : _O8B6 F2 87 14~—C«; 158. J CKCARR ' GO ISSUE COMMAND IF NOT BUSY 
OAE? 35 O1 ODCB Oh Loprr t CHDPTR,XR1 INCREMENT POINTER FOR NEXT COMMAND | Cc O0BB9 OF 01 ODDS OCDs 59 ISBUSY SLC TINOUT(2),CNE GO BACK TO SUPERVISOR IF NO TEMEOUT 
OAEB D2 01 02 92 “LA 2,XR1L)eXRL oS oBBF CO 01 OCCs 160 BNZ GOOUT : 
OAEE 7D 00 00 93 CLI OL, XR1LD 9 X "08° RE-INITIALIZE IF THIS IS LAST 3 e oec3 CO 8&7 0222 161 B ~ HALT *BUSY TOO.LONG 
OAF1-EO 81 42 . 94 BE FIRSTCOsXR2) COMMAND. i CBC7 E014 -  0BCB 162 . : OC XL2°E014* 
, OAF4 34 01 ODCB : 95 ST LMDPTReXRE a o8c9 Co 87 OCCSs - 163 -  B- GoouT EXIT SUBROUTINE 4 4 
s OAF8 Ci. EO OBOC 96 TEIG LPERR,X*EO? -BRANCH IF ANY PRINTER ERRORS/NOT Rov . oBCD 38 80 G209 1€4 CKCARR TBN SBYTE1» SS#O8 Ee SET UP TO CHECK LEFT OR RIGHT CARR. = 
' QAFC 30 €3.00C9 : 97 " SNS = PSTAT,X*®E3® STORE STATUS eS OBD1 F2:90 07 165 JE SLEFT LINE COUNTER DEPENDING ON SSWO8 
0800 39 E2 0DC9 98 TBF =PSTATsX*E2* coe : OBD4 30 EO oDCD 166 SNS LCIS»X*EO*: «ss RIGHT CARRIAGE 
0B04 39 F7 00C8 99 _. TSF PSTAT-1,X*F7* - . oa OBDS F2 87 04 167 J cKoCc? 
-0B08 CO 10 oBB82 100 8T CkBUSY BRANCH IF NO ERROR STATUS QQ °° + 0BD8 30 EO ODCE " 168 SLEFT SNS” LCIS+1_9X*E0* —LEFT CARRIAGE fe ae 
OBOC 30 €3 coOCS _ 101 LPERR SNS . PSTAT,X*E3* STORE STATUS Peace OBDF 3D FF OS7B 169 CKDCP CLI eC cateree= a BRANCH IF DCP OID NOT ‘PRINT 
0B10 39 E2 ODC9 102 TBF PSTAT,X*E2* - 1F NO CHECK CONDITIONS, GO EXIT ee OBES F2 81 OA 170 . SE CKLINE 
0B14 39 F7 ODCB + 103 TBF = PSTAT-1,X"F7? ee © OBE6 OC 00 ODCF oDCcD 171 MVC = LCSB¢199L CIS - NO OP LINE COUNTER CHECK 
0818 CO 10 occa 104 BT GCOUT — ok Lo: _OBEC 3C FF 0878 172. ss AVE UL PDATA-2,X°FF* PV 
‘OB1C 38 02 ODCS . . 105 TBN PSTAT»X*02* SKIP ERROR HALT IF UNPRINTABLE . : CBFO OD O00 ODCD ODCF 173 CKLINE CLC  &C1S¢1),-LCSB CHECK LINE COUNTER 
0820 38 80 ODD6 106 ' TBN > FLAGex*80* CHARACTER ERROR AND HAS ALREADY oO OBF6 F2 81 50 174 JE LOCMD 
1 0B24 CO 10 OCC8 107 BT GOOUT - BEEN INDICATED. - 5 8 OBF9 0% 20 0035 OCD7 175 ZAZ — LCERR-23 03), OZEROLI) 4 . 
4 0B28 3A 80 ODD6 * 308 - SBN FLAG »X*80* CBFF 04 20 0D4i OCD7 176 2a LCERR-1 (3) -DZERO(L) 
OB2C 30 £6 ODD3 109 SNS PSTAT2 2X*E6® STORE LPDAR 7 "> ecos OC 00 ODD1 ODCD 177 MVC WORK(1)2LCIS SET UP ACTUAL LINE COUNTER 
0830 OC 03 OAS? OASC 110 MVC ECMDS-10(41,ECMDS-5 PUT LAST COMMAND IN PUSHOOWN TABLE CCOB 06 20 0D35 OCD8 178 ISLOOP AZ LCERR-13(3),DONE(1) : 
0B36 OC 03 OASC OA61 | 111 MVC = ECMDS-5 (43, ECHDS OF ERROR COMMANDS 0C1l OF OG ODD1 OCD4 179 StC = WORK 0.1) ONE 
083C CO 87 O21E 112 8 UNPACK- ; Cc 0C17 CO 31 OCOs 180 BNZ ISLOOP 
OB40 02 0840 113 oc IL1*2¢ . ny 0C1B OC 00 ODD1 ODCF 181 MVC = WORK (1) » LCSB SET UP EXPECTED LINE COUNTER 
0B41 0A37 0B42 114 oC AL2(CMD3) - zt heey -0C21 06 20 0D41 OCDS 182 SBLOOP AZ LCERR-103) eDONE(1) 
0843 OA6] 0844 115 | DC AL2(ECMDS) Cc O0C27 OF 00 ODDL OCDs 183 SLC WORK(1),O0NE 
OB45 OC 03 OA72 OATT 216 MVC = SNSO11—10(4) »SNSO11—5 PUT CHECK STATUS IN PUSHDOWN TABLE 0C2D CO O01 0C21 184 BNZ SBLOOP 
0B4B OC 03 CA77 GATC 117 MVC =SNSO11-5(4), SNSO11 0C31 CO 87 021A 185 B PRINT PRINT LINE COUNTER ERROR 
C851 CO 87 O21€ 118 B UNP ACK PUT STATUS IN ERROR TABLE G cC35 C5 0C35 186 oc xLi*cs ME SSAGE 
° on55 02 OBS5 119 oC ruat2* 0C36 27 0C36 187 - pc ILie39e 
* OB56 ODC9 0B57 120 DC AL2(PSTAT) . t 0C37 0042 0c38 188 DC AL2(LCERR) 
OB58 OATC ob59 121 oc AL2(¢SNSO113 } 0C39 £033 . OC3A 189 DC XL2°EO033* 
OB5A OC 02 CARD Chet 122 MVC = SNS1 10-1003) gSNS110-5 PUT PRINT POSITION IN TABLE 0C3B CO 87 0222 190 8 HALT HALT ON ERROR Seehhe tes 
0B60 OC 02 CA92 0A97 123 MVC =—s- SNS 110-5(39_SNS110 OC3F E033 oc40 6191 oc XL2*E033° pak ce 
0B66 OF 0O ODD3 OE 124 SLC —- PSTAT2€19 9X78 Cc 0C41 3C 00 0878 — 192 MVZI LPDATA-1,X°0* SET UP TO SKIP NEXT LINE CTR CHECK 
OB6C 0% 26 OA9T OCDT 125 ZAZ  SNS11003) ,DZEROEL) ace 0C45 CO B87 OBB2 193 8 CKBUSY . om 
OB72 O6 20 CAST OCD8 126 PPLOOP AZ SNS110(3) pDONEC LE age 0C49 35 01 ODCB 194 LOCMD L CMOPTR, XR1I LOAD POINTER FOR THIS CONMAND 
0B78 OF 00 ODD3 0CDs 127 SLC PSTAT2(¢1) ,ONE Q 0C4D 1C 01 OCCi O2 195 MVC «s- STRT10#2023910eXR1). MOVE INTO COMMAND 
OB7E CO O1 0872 128 BNZ PPLOOP .  G€S52<FB 02 00 196 TBN O(,XR1) »x*02* - BRANCH IF NO PRINT 
. . Cc eee 
DATE 28JUL69 28NOV69 Z20JAN7TC 8 PROS: EB DATE: 28JUL69 28NOVE9 20JAN70 ; ee PROG ID OEOF=1 
EC NO. 816444 816542 816548 = PAGES: Fo CENBS. 816444 816542 816548 : PAGE 2a 
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~~. : aaa : ao ue = oe 2. : ~ 2 ae rg Bae Bee. we . 22 oe, es as 
ove. oa e 7 oes iw : 5. via 
‘ec 2 | 
ao : { 
e mG a : 
«TBM MAINTENANCE OLAGNOSTIC PROGRAM PART NO. 2589915 1B MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589915 | ‘ 
CC PAGE 3. PAGE 3a : 
EOFL OF - 5203 PRINTER SYSTEM TEST MQOULE EOFL EOF - 5202 PRINTER SYSTEM TEST RODULE 
< ERR LOC OBJECT CODE - ADOR STHT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT . 
Cc O0C55 F2 90 12 197 JF CKSKIP OD1C 03C9D5C540C3D6E4 0042 262 LCERR 0C CL39°LINE COUNTER ERROR. IS XXXe SHD BE XXX.* 
' 0C58 OC 00 0043 ODCT 198 MVC) 3=—s- PFIELO-101),PFIELD4131 RIPPLE PRINT FIELD 0024 05€3€50940C5D909 262 
OCSE OC 83 ODCT ODCé6 199 MVC) = PFI EL 041310132), PFIELD¢130 OD2C D6D094840C9E240ET | 262 
c 0C64 OC 83 O8FF CDC7 200 MVC) = LPOATA4#131(132) ,PFIELD¢131 MOVE TO PRINTOUT AREA ey 0034 ETET4B40E2C 80440 262 
Says OC6A 7D FF O1 201 CKSKIP CLI 10, XR19,X* FFP BRANCH IF NOT SKIP TO NEXT LINE Poe ia OD3C C2CS540E7ETETSS 262 — 
ee OC6D FZ 01 18 202° JNE SETLC e jasna 263 
: OC70 OF 00 CDCF OcDs 203 ALC LCSB8(1) ONE : : 0 264 SHESSSESSE SESE FEREEES 
CC76 OC OO OCC1 COCF 204 MVC) 80 STRT10¢201),LCS8 SET UP TO SKIP TO NEXT LINE i 265 * RESERVED STORAGE 469046494644 046 00000 608086460 60 O8¢ttest eee2s4 StEEEE 
: oc?7c 30 Yo ccc 205 — CLI = STRT1042,112 IS WE OVERFLOW LENGTH, SET UP - 266 FECES CESS SSS ESESES 
¢ OC80 F2 04 18 206 JNH LDETAB TO GO TO LINE 1 ~ 0D43 0043 267 oS cur - OUMMY BYTE FOR RIPPLE 
: 0C83 3C O1 OCCI 297 MVI «—s- STRTI0¢2,1 0044 268 PFIELD EQu ¢ PRINTER WORK FIELD 
0C87 3€ 00 ODCF 208 MVI = LCSB20 0044 ODC? 269 os C1132 . 
C OC8B CE OO ODCF OCC1 209 SETLC ALC LCSB(1),STRTIOe2 SET UP EXPECTED LINE COUNTER TO WHAT = © oocs OO0C9 270 PSTAT ODS ct2 PRINTER STATUS 
0C91 30 70 ODCF 210 CK1212 CLI LCSBe122 IT SHOULD BE AFTER THIS COMMAND ; OOCA ODCB 271 CMDPTR DS ci2 COMMAND TABLE POINTER 
OC9S F2 04 06 211 ; JNH LDETAB i opcc _ COCO 272 14CIS oS cL2 ACTUAL LINE COUNTER — 
¢ OC98 OF 00 ODCF 0c92 212 SLC = LCSB(1) pCK112¢1 TAKE CARE OF CROSSING LINE 112 1 OOCE OOCE 275 os cha | 
oe OC9E 38 80 0209 213 LOETAB TBN SBYTE1,SSWwOos PRINT USING RIGHT CARRIAGE IF Sswos of .¥y oocrF ti(i‘(C(<“ OOCF 274 1CSB OS cus - EXPECTED LINE COUNTER 
waaa OCA2 F2 90 04 214 JF +7 - 1S ON \ waee oDD0 ODD1 275 WORK ODS ct2 
c OCA5 3A 08 OCCO 215 SBN STRTIO+1,x*08* 1 © 0002 OD03 276 PSTAT2 OS cl2 
OCA® 38 80 ODDS 216 SBF FLAG,X* 80° : TURN OFF UPC FLAG { o0D04 OD05 277 TIMCUT DS. § CL2 
OCAD OC 01 OA2F 0A33 217 MVC = CMD1 (2s CMO2 PUT THIS COMMAND IN PUSH-DOWN TABLE | oDDe OD06 278 FLAG OS CLI 
¢f’ 0CB3 OC O1 0A33 OA37 218 MVC = CHD2 (29 .CHD3 PO 279 
' OCB9 OC O01 0A37 OCC1 219 MVC 3=—s- CMD 3.029 » START 1062 ote 280 seesetetese 
2 OCBF F3 00 OO 220 STRTIO SIQ) #~#,4-4# pO COMMAND oe 281 & EQUATES S99899808904444 5896S 64S9FSt8SSE SES SOSSESESESE ESET ESESESESESS | i 
es OCC2 OC 01 ODDS OCCEO - 222 _MVC  =—s-~ TIMOUT(2) , TIME SET UP BUSY TIMEOUT | 9 282 sseseesesee t 
; OCC8 30 EO OA0C 222 GCCUT CLI X*A00*,X* E08 CHECK TO SEE IF SECTION RELOCATED 0010 283 IAR equ x*10° INSTRUCTION ADDRESS REGISTER : 
- OCCC CO O01 OAODA 223 BNE ENTRY YES» GO TO SYSTEM TEST SUPERVISOR. 0008 284 ARR equ x*0Be ADDRESS RECALL REGISTER . fe 
Cf OCDO £0 87 4A 224 B LOPTR(,XR2) _ NO, REMAIN IN TEST o 0002 285 XR2 equ = x*o1° UNDEX REGISTER 2 
ore 225 ; 0002 286 XR2 Equ. x02 INDEX REGISTER 2- 
‘ges 226 FEEKEREAT SERS ; : 54 287 7 . : 
: 227 * CONSTANTS esas seeeesereereesaeceasencesecaesceceeesssecesecees essess 9° ‘ 0208 288 SBYTEO EQU XK*208* : FIRST BYTE OF COMMON SENSE SWITCHES 
4g 228 seeeeeeee4e28 : 0209 289 SEYTEl EQU x*2098 SECOND BYTE OF COMMCN SENSE SWITCHES 
0C0d3 0001 OCD4 229 ONE oc IL2*1° O20A. 290 SB8YTE2 EQU = xX*20A2 FIRST BYTE OF SECTION SSwS 
€ OCDS 0002 CCO6 -230 TWO oc IL2*2¢ . : | oO 0208 291 SBYTES EQU X*206* - SECOND SYTE OF SECTION SSS. 
OCD7 FO . OCD? 231 OZERO OC DLi*o* we . 4 geet 0212 292 TEST EGY Xx*212* 3 SRT ~- ENTRY TO CHECK CONSOLE S&S 
3 OCD8 Fl OCD8 232 DONE OC OLi* Le 4? i ; : : ‘wey 0216 293 LINK EQU = xX®2168® - © ENTRY TO CHAIN ROUTINE eee 
€ oco9 7070 OCDA 233 NIL2 DC XL2*7070° z ; CG O21A 294 PRINT EQU  xX®*22A8 - ENTRY TO PRINT 
OCDB 0800 - QOCDC. 234 x800 0 XL2* 800¢ we . : i O21E 295 UNPACK EQu xXxPF21E* - ENTRY TO CONVERT HEX TO ESCDIC 
2 ocDD os7c : OCDE 235 x87C OC XL2°87C* . cere i Lo 3 9222 296 HALT EQU = x*222¢ - ENTRY TO HALT 
C..  ocoF 1770 O(£0 236 TIME DC 1L2*6000° . oS ' e ED " 0226 297 PACK EQU = x*226* - ENTRY TO PACK ESCDIC. to HEX 
aceon” = OCEL “7B. OCE1 237 x78 oc XL1° 7B C232 298 UTAB EQU = x*2328 a: - DCP UNIT TABLE 
aava . i, Ss OCE2 238 SNSTAB EQU * : TABLE OF ERROR STATUS/HALTS- .t 0800 299 LPIMAG EQU . xK*800* . FIRST BYTE OF 52C3 PRINT IMAGE FIELD. 
a @ OCE2 0080040040051000 OCF& 239 oc XL21*00860400400510000604000902000002007800001 * QO 087C 300 LPDATA EQU = Xx*B87C FIRST BYTE OF 5203 PRINT DATA FIELD 
. OCEA 0604000902000A00 239 301 . 
ooo OCF2 2007800001 239 302 * 
Cc OCFT 400002200C030100_ OD02 240 pc XL12* 40000220000301000800020C" ' © 303 ¢# SENSE SWITCHES. — 
Ey OCFF 0800020C — 240 av 3 Stee 304 * 
a * 241 * adam C004 305 SSWOS EQU xX*04* “PRINT ON MECU 
_¢ 242 ** TABLE OF COMMANDS. - © 0080 ace SSwos EQU x*80° | USE 5203 RIGHT CARRIAGE 
243 ¢ : 30 
; 0003 244 CMDTAB EGU * | OAOA 308 ENTRY EQU- X®*®AOA® MULTIPROGRANMING ENTRY 
Cc 0003 €201 OD0% 245 oc. + xt2*€201° PRINT & SPACE 1 ‘oO OA9D 309 END SEGIN Px 
was 0p05 E202 OD06 246 oc XL2°E202¢ PRINT & SPACE 2 eo 
aees CD07 £201 OD08 247 oc XL2*E201° 3 
Cc 0D09 £203 ODOA 248 pc XL2*E203° PRINT & SPACE 3 © 
opos £201 . oD0c 249 oc XL2*E201° 
0D00. E000 OD0E 250 oc XL2*E000* SPACE 0 
C ODOF E201 0010 251 oc XLZ°E2OL® : Q 
0011 €001_ =. 0012 252 oc XL2*E0O1® SPACE 1 Sabu 
0013 £201 0014 253 pc XL2°E201° : feen 
c. OD15 ES6FF 0016 254 oc XL2°E6FF® : PRINT & SKIP TO LINE AX ° 
OD17 £201 0018 255 - oc XL2*"E201° 
0019 ESFF OD1A. 256 oc XL2°EQFFE SKIP TO LINE XX 
- 0018 00 0018 257 oc XL1¢0° o 
258 
: 259 $26¢54240644¢82 ' 
. C 260 * PRINTOUTS SESSEETLEEEGE EAES ESSE EEESESEEEESEERE SESEES FF EESESEES SEE SEEESS i QO 
261 £96464 444242 ; 
yes DATE 28JUL69 28NOV69 20JAN70 PROG 10 OEOF=1 evox DATE 28JUL69  $28NO0V69 203AN70 PROG 10 OEOF=-1 
“**" EC NO. 816444 816542 816548 ' PAGE 3 ina EC NO. 816464 816542 816548 PAGE 
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_ 18M MAINTENANCE DIAGNOSTIC PROGRAR — PART NO. 2589915 TBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 2589915 = 
Cc PAGE 4 Oo PAGE Py 
¢ EOF] EOF = 5203 PRINTER SYSTEM TEST MODULE ° EOFL EOF - 5203 PRINTER SYSTEM TEST MODULE - . 
‘de CROSS-REFERENCE: bye CROSS-REF ERENCE a Few 
ayagin art % : 
CC  - SVMBOL T LEN VALUE ODEFN REFERENT ES Ss © SYMBOL T LEN VALUE DEFN REFERENCES 
ARR C 0OL C008 0286 7 SPFLGS A 001 OQAO2 0017 
C BEGIN A 004 OA9D 0074 0072 0073 0074 0309 ©  SsPuDT A 001 OADA 0022 
_ CHECK1 A 004 0893 0149 014679 SSWOS C 001 0004 0305 . 
os CHECK2 A 004 C897 0156 0148¢ sswos C 001 0080 0306 0164 0213 . 
© CXBUSY A 004 OBB2 0157 0100 0193 CG STRTIO A003 OCBF 0220 01954 0204* 0205 ©6207% 0209 90225 6219 
' CKCARR A 004 O8CO 0164 0158 TABADR A C02 OA0D 0021 
CKDCP A 00% OB8DF 0169 0167 Test C€ 001 9212 0292 
C  CKLINE A 006 O8FO. 0173 0170 @ TIME A C02 OCEO 0236 0221 
iy.  CKSKIP & 003 OC6A 0201 0197 ages - TIMGUT A 002 OD05 0277 0159¢ 02216 
aaa CKI12 A 006 O0C91 0210 0212 {Ayes THO A002 OCD6 0230 
¢ ' CMDPTR A 002 ODCB O272 0090* 0091 0095* 0194 » -UNPACK C 001 O21E 0295 0112 0118 
_ CMDTAB A 001 0003 6244 0089 ; | | UTAB € COL 0232 0298 | 
CHOI A002 OA2F 0036 O2R7% { WORK A 002 OD0lL 0275 OlLT7#* 0179¢ 0181% 01836 . 
C  ¢mo2 A 002 0A33 0039 0217 02184 1 RY € 002 0001 0285 C089* 0090 0091* 0092 0092* 0093 0095. 0145* 01466 0146 0147 0148 
CHO3 A 002 OA37T 0062 0114 0218 0219¢ . : 0152 0194 0195 0196 0201 
-DOHALT A 004 O®8A4 0153 ' XR2 C 001 o0002 0286 OCT4* 0094 0224 
€  OONE AOC OCBS 0232 C126 0178 0182 1 Oo 7B A OOL OCEL 0237 0124 
 DZERO A OOL OCD? 0231 ©1258 0175 O178 x800 A 002 OCDC vz34 0087 
_ €CMDS A025 O61 0049 CLiG OLIO® OLLL O1L1® 0135 x87€ =A 002 OCDE 0235 0088 
C. ENTRY C 001 OADA 0308 0223 “8 1 © : 
ga, ERRTAB A 001 OAOD 0028 0021 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = _ & 
seq EOF A 001 0006 0003 
C  FIRSTC A 004 OADF 0089 Coss ~~. i © 
FLAG A OO1L OD06 0278 0106 0108* 0216* 
- «FRTN- =A 002 OA0T 0020 . re : . , 
C GoeuT A 004 OCCB8 0222 0106 O107 0156 0160 0163 | © 
"HALT € 001 0222 0296 0153 0161 0190 ah 
“JAR C 001 0010 0283 mn ave 
C  ISBUSY A 006 0889 0159 0157 QO. : , 
ISLOOP A 006 OCOB 0178 0180 re. ; | 
‘LCERR A 039 0042 0262 0175* 0176* <1 78% 0182% 0188 . ; . 
C. crs A002 ODCD o272 C166* 0168% Oi7i 0173 OTT © A Ses 1 O 
yog GCSB A OOL ODCF 0274 C171* O173 0181 6203* 020% 0208 0209% 0210. 0212% bam o 2 
47% LOCMD A 00% 0C469 0194 01746 eng ris ; 
C &DETAB A 004 OC9E 0213 0206 0212 20): : 
LDPTR A 004 OAE? 0091 © 0224 ~~ : é 
- &0120° A 006 OAC3 0083 0079 ey pe 
C LINK C 001 0216 0293 — ] 
LPDATA C 001 O87C 0300 0085* 0155% 0169 0172* 0192% 0200¢ ee 
‘> LPERR & 004 O80C 0101 0096 ; ahah - 
C  LPEMAG C 0021 0800 0299. 0080 0083 a ae : 
"112 A 002. OCDA (0233 0086 : ‘ : : - 
- (ONE A 002 O0CD& 0229 0127 0159 0179 0183 0203: ode 
C PACK C 001 0226. 0297 pe “ft ; = a, 
eey PFEELD A 001 0044 0268 OOTS* 0076* 0080% 0081 0081% 0083* 0084 0084+ 0198 0198* 6199 01998 a 
aea , 0200 : a ace Lots a ; * 
C  PMALT A 002 OBA9 0154 0152¢ 1 Q. 
PPLOOP A 006 OBT72 0126 0128 
PRINT C001 O21A 0294 0185 . . . 
C PROGID A 002 OAL 0016 oe om) 
-  PSTAT A 002 ODC9 0270 0077* 0078 0097* 0098 0099 0101* 0102 0103 0105 0120 0149 0150 beau 
PSTAT2 A 002 0003 0276 0109* 0124* 0127¢% és ‘ tt j week : 
™  RNUM A 001 CA03 0018 . i O 
RTNOlL A001 OA99 00969: 0020 . 
|. SBLOOP A 006 0C21 0282 0184 Tos sexe 
*  SBYTEO C 001 0208 0288 : 1 © - 
SBYTE1 C 001 0209 0289 016% 0213 i 
SB8YTE2 C 001 020A 0290. . 4 
c. SBYTE¢ C 001 0208 0293 ee 1 © 
SETLC A 006 CC8B 0209 0202 ° : Sb: ui 
- SETPRF A 004 CACF 0085 0082 
™ $LEFY A 004% CBDB 0168 0165 © 
‘ya SNSLP) A 003 CB86 0146 0151 wuvo 
‘+4 SNSTAB A OOL OCE2 0238 0145 oa a Rann 
~  $wSO11 A 025 OA?C 0053 0116 0116 0117 O117¢ 0121 © 
SNS110 A 025 OA9T 0057 0122 O822* 0123 0123* 0125** 01268 
a : | a ; ° 
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: IBM MAINTENANCE DIAGNOSTIC PROGRAN oe Me oa! i : s . PART NO. 2589917 6 
Cc PAGE 1 : ms ak 2 ae PAGE = =. QA) 
C rOF2 $424 mecU ‘SYSTEM TEST MODULE | FOF2 5424 MFCU SYSTEM TEST MODULE : 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT Le ERR LCC OBJECT CODE ADDR STMT SOURCE STATEMENT 
6 2 DECK 1 70 * SAVE COMMANDS . * 
9200 3 FOF2 START X*aagoe OASS OC 91 0858 OBSF 7 MYC SECTLT€2) »NXTLST SAVE SECOND TO LAST COMMAND : 
4 EAREEGESEESESERER THES CERES SSASERILASRFRSETALASE GHEE LGTLSES SHSEAGSKS SSELH SRS HSTSSH GAAC OC O02 OBSF 863 T2 W7C |= NXYLST(2),L ASTCM SAVE NEXT TO LAST COMMAND . 
Qo | 5 + * S OAS2 OC C1 0863 CAAS 73 YC LASTCME2) » SIGCMDE2 SAVE LAST COMMAND 
ees i & *# 5424 MFCU SYSTEM TEST. MODULE * 4 * EXIT TO SUPERVISOR % 
q 7 * & OABS 3D FO OADD 75 EXIT CLL X*A00*,xX* FOS , 
C ‘ GS FAEERESKETAASHE SR SS RAFAL ELESE SE SS SESH ERE EGRESS EES SERGEKESKS ELRSELHSHBS HRS a OABC CG O21 OACA % SNE ENTRY 
OAQO FOF2 ; 0401 9 oC XL2* FOF Z* PROGRAK IDENTIFECATIUN GACO CO 87 OAZF 77 5 START 
OAO2Z 00 ; CA02 106 oc ALB FLAGS 78 + CHECK FOR ERROR * 
CF? CAO3 G1 OAD3 il oC ALESRe CURRENT ROUTIKE NUMBER ; ° OACS 35 F3 ODD 72 KRRORER SNS SENSER SXF Be SENSE 5424 STATUS INDICATORS 
OAC4 GCOO CAOS 12 DC =—s_—s XL 2H RESERVED e OACE 329 FF ODD1 80 TRF SENSEL, X*° FFE ANY ERRORS 
QA0S 3A00 OAOT 23 Dc ALZ(URINOL} ADDRESS OF FIRST ROUTINE PREFIX OACC CO 10 Cob2 ; 8i BT NOTRDOY JUMP EF NO ERRORS 
C OAGS O83F OA0S 14 DC ALZCERCTRS) ADORESS OF ERROR RECORDING TABLE © CAGG SOC Gi OBFS OBA 82 “vc SENSE4(¢25 5 SENSES SAVE 
DAOA FOSOOG OAoc 15 DE¥VIG BC XL3 *FOSO00° SECTION PREFACE UDOT Cade CC 01 CBTA OB7E 83 BYE SENSE3€2),SENSEZ2 ERROK 
BG SRHEPDSAEKSALERE SAK HS SS RESERE HR SRSEHRAKRAKLERKL ELIIGCE EEESSSK ELK BERSELEG EE CADC OC C1 OBTE ODDL 84 MYC SENSEZE2), SENSEL STATUS 
CG iv * ROUTENE 2 * a) OAE2 SC O02 OAEB 85 HV I TE STBNe1 9 X* 02 * 
ene ; : LG F8SSSSSESSSS ERLE CEASKEHLALHLSSKARSSESESE AS HRS SKE SIRE SSHCESREHELKS SRG ESEHSE OAES& C2 O2 ODSO 6 LA TABLE, XR} - 
a GAOD O21 OA0D t9 RINOL OC XLEtL CURRENT ROUTINE NUMBER ; OAEA 38 G2 ODD1 67 TESTBN TBR SENSEEsxX*02# TEST FOR ; 
© OAOCE 80 : OAOE 20 DC XLEPOe FLAGS ei OAEE F2 10 Of 88 JT PRTERR ERROR 
OCACGF FFFF "Ok SALO 21 DC XL2°*FFFES LAST ROUTINE OAFL DZ O1 OE 89 La LEC gXREDAKRI INCREMENT 4149 HALT TABLE 
Z2 SRRKKEKKAERSLERS KES ESKRTEL RR SEK SEH SAASERSSH LATA RAKE SS SVVEFEORERHSRETES FSHKEE OQAF4 OF OO OAES GALER 20 ALC TESTBNC LCL) STESTBNSL 
G 23 % INITEALEZATION : = © OAFA CO OL OAEA Si BNZ TESTBN . 
OA11 CO BO OAZF 24 BEGIN 8C START »X*80! *NO~OP* BRANCH {pete OAFE 1C 00 OB1S OG 92 PRIERR MVC IDL€23,0€,XRL) ROVE ERROR ID 
OALS 30 87 OAiz 25 MVE BEGIN .X* 87° MODIFY TO UNCONDITIONAL BRARCH : 0803 1C O00 OBIE 00 93 mvc IDZG12 pO gXRLD YO HALT AND PRENT ; 
CC OA19 312 F4& OB3E - 26 LIG AvUPRT,X*FSG? LOAD PRINT ADDRESS REGISTER o _ OBCB 52 O2 OC 94 LA 23 eXREIAXR2 : MOVE MESSAGE \ 
: OAD 39 O21 Gacc 27. TBF DEVID sX*OR® TEST FOR KATAKANA PUNCH & PRINT OBGB 34 02 0816 95 St ID1—2 eXR2 ADDRESS TO PRINT - pak, h 
QOA21i CG 10 GOCé0 28 BT CKKATA OBGF CC 8T 0214 : $6 8 PRINT - PRINT. 
Cc OA25 CC SF OSSF OBOF Eee « a eee ne LOAD &-B8iT PATTERN on) 0813 Cé 0823 7 oC  Xea*tes ERRGR 
OA28 CO 87 0660 : > . 30 CKKATA . 0814 oD GB14 98 BC XLL*OD* : a, @ MESSAGE 
: Si * COMMAND GENERATION : ete. =~ * eo. 6815 coco - ©6816 $9 BC . AL2(#-25 ; 
Cc OAZF 35 01 9336 32 START Lb ACHOTI .XRi a be .. S O81L7 FOOO . ‘ OBi8 i100 §D0l° OC ~° xXtL2*FOOOr a. 
GCA33 1€ OF CAAS GO 33 : MVC S TOCMD42,0(2— 12 3 - oA OB1?9 CO 87 0222 102 - 8B HALT : HALT. 
OA38 7D FF 02 . sO 34 cul LCs] aX*FF* "te Ae” 5 ~ Boe I oe . OB1D. F000 OBIE 102 102. DC » XL2°*FOCQS : eee ee . 
C ~ OA3B F2 01 04 35 _ SNe AROUND : 73 : “e OBLF OC SF OBDF OD5F 103 = MVC READ1495(96) ePUNCH1495 FORCE EQUAL COMPARE ; “gs oe 
file, OA3E C2 01 O8DF .- 36 - LA CHOTBL-16,XR2- Bio fe Gee, 0825 39 EO ODD1 | - 104 TBF SENSEL,X* EO? READ» PUNCH OR PCH INVD CK? : 
ee - @OA42 02 01 62 . 37 AROUND LA 2{oXR1L9 oXR1 “, é bel . 0829 CO 10 OA2F . 105 BT START : ng. * 
é: OASS 34 O1 0838 38 -  $T  ACMDT 1, XR Be” oes ee a ae cast O82B OC 01 GAAS 0863 196 eYvC SIOCMD+2,LASTCMIZ} ie 
— ae: _ 39 * TEST. FOR BUSY», NOT READY oR ERROR ; ey a a TR 0833:° CO 87 OASB ; 107 8. PRTPCH Yes 
OAS9 Ci FF OABB a 40 . T1090 EXETsX*F7 TEST: 5424 BUSY 3 aot io 106 i : 
c CAa4D C1 FO OACe : 41 Tio NRORER gX* FOF TEST PRI NOTROY OR ERROR. , 1g 7 . ™ 109 ttasseesenectess seeceaetessetesesererexsseeaeneverscacasssteeassanenten 
. GASi C1 FR OMG 42 TIO NRORER,X*FS* TEST SEC NOTRDY GR ERRGR : | TT, -110 * CONSTANTS * 
43 * . SECONDARY FEED INITIALIZATION ° — . ~  4n2i th S999 99SSEATNEEES SESSA SSS SESHAESSES ESS STORES EAESES HES ESET ESSERE ES ASTON 
c OA55 30 F3 oODDE 44 PRNTT SNS SENSE1,X*F3* SENSE STATUS INDICATORS , | 3 0637 OBEL- CB328 22 ACMDTE BC AL2(C¥YDTBL~14} 
 GOA5S 38 10 ODDO 45 TBN - SENSE I~1,X*105 TEST FOR CARO EN SECONDARY WAIT 0839 O680 OB3A 123 ADDRED OC AL2CREADL) 
: OASD F290 37 - 46 «SSF PRTPCH—4 ; ‘ ; . an 0838 ODCO 'CB3C 124 ADCPCH OC ALZCPUNCHLID 
G ‘ . 47 COMPARE .. _ O ' @83D OCO90 OB3E 1215 ADDPRT OC AL 2¢PRINTLS 
wiphect ‘OAEO 39 01 OB62 = : 48 REDONY TBF: LASTCM—1)X°O1* - WAS PREVIOUS CMD READ tly aed - OB3F 380 , O83F 116 ERCTRS OC KL2*8O0* 
OA64 F210 34. 493 . JT PRTPCH 0840 09 OB4C6 117 oc  XLU*o9e 
Cc OA67 3D 40 O8DF - $0 cul READL4955x%*408 _1S COLUMN 96 BLANK | Bi 0841 F5F4F2F44004C6C3 0849 118 oC CL.9°5424 MFCUF 
OA6B FZ G1 05 ‘ $1 JNE COMPR | OB49 £4 118 
OAGE OD SE OBDE OBDF 52. cic READ1+94(95) sREADI495 ALL COLUNMS BLANK? OB4A, 80 CB4A 119 oc "= xXtL1*80* 
Cc OAT4 F2 Gl 24 *  §3 JE PRT PCH : 1 0848 OC ‘ OB48 120 BC - xXiLr*Oc* 
OATT OD SF OBDF ODSF 54 CCMPR. CLC READL+4+95(96)ePUNCHI1<+95 COMPARE ; OB4C DSCIEZEZ4OF34CC3 OBST 121 DC CLIZ*LAST 3 CMNDS* 
, OATD FZ 81 18 : 55 JE PRIPCH , 0B54 D405C4E2 - 121 
C OABO CO 87 O21A 56 8 PRINT PRINT s CB58 40 | cess 122 oC XL1*40° 
. GOA8& C6 - CA84 = 57. oc COXha*Cee, : COMPARE 0859 62 OBS9 123 oc XL 2°02" 
: 0as5s 00 OABSs 58 BC XLL*OD8 ‘ ERAGR OB5A 0000 OB58 124 SECTLT CC XL2°000068 
Cc OA86 OBFD OABT 59- oc AL2(MESSG9} G OB5C 40 OB5o 225 DC XL1°408 
Bo a ie OA8B FOSS _OA89 60 BC . ML2°F 0358 oB5D 02 OB5D 126 oc xLL S02" 
OA8A CO 87 0222 . 4 61 8 HALT ce OBSE C000 OBSF i227 NXTLST OC XL2*O00008 
€ OASE F035 | %& OA8F 62 oc XL2*FO35* : ~ 0860 40 OB66 128 oc XLit4oe o 
OA90 38 01 0862- 63 ' SBF LASTCM~1,X°O18 - 6B6l 02 086i 129 oc XL1*G2? 
O ~OA94 F2 87 21 - 64 3 EXIT .. 3 os 0862 0000 0863 230 LASTCM DC XL2*0000* 
: bie 3 65 * START 1/0 ROUTINE | * wa OB64 8&0 bed 0864 i3i BC XL2*BOS 
GA9T 30 FS OAAG. 66 MvI SIOCML+1,X*FE* FEED CARD TG SECONDARY WAET STATION ee -, OB65 OD OB65. 132 - oc XLi*oD* 
t C oag8 32 F6 083C ; 67 PRTPCH LID ADDPCHeX*FE° LOAD PCH ADDRESS REGISTER es CB66 D3CLEZE340F340C5 OB72 133 oc CLIB*LAST 3 ERRORS* 
: a OASF 31 FS OB3A- 68 Lic ADOREO,X*F5* : LOAD RED ABDORESS REGISTER OB6E D9D9D6ED9E2 133. 
~ OARS F3 os 660 is 69 Sidc#® Sic X*CO* eX*GO8 . - START 1/0 COMMAND 6873 40 : OBT3 134 oc XL2*408 
1,7, BATE 280uLe9 *zosanto sNevTe ae PG en PROG 10 eror-2 DATE 288169 205ANTO 15NBV70. ce ee PROG 10 OF eF—2 es 
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Ca ay ne PAGE 2 S$ PAGE 2a 
C FOF2 5424 MFCU SYSTEM TEST MODULE 6 FOF2 542% MFCU SYSTEM TEST MODULE : 
reer ERR LOC OBSECT CODE ADOR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ~ ADDR STMT SOURCE STATEMENT 
&: GB74 C2 OB74 135 BC XL2¢O2° iB OCFO 03C5C3€3C5C440E3 177 
08675 6000 OBT76 136 SENSE4 OC AL 2 *O000¢ OCE8 C8CIE2Z40E3L9NGC5 177 
0277 40 : OB77 1237 DC XL1 #407 ODCG LYS PUNCHL EQU * 
© O878 G2 O878 138 oc XL1*°O2° eS CD00 E3SCBEC9E2Z40D4060C4% ODOF 179 oc X1.16* E3C 8C 9E240D4D6C4E4D3C540£6DOC9ES* 
0879 0600 OB7A £39 SENSES DE XL2*O0006 ae ODO8 E4030 S40E4DSC9E3 179 . 
OB7B 40 CB7B 140 DC XLEP 408 GDLO E3C5D540C2E84009 ODIF 280 pc XL 16 %E 3C 5D $40C2E84009060540D9£4D703C5* 
G OB7C 02 OB7C 141 pc XL 1°62? & OD18 D6D540D9E49 703C5 180 
oB7D ocCcO OB7E 142 SENSE2 OC XL29060G0° CO2Z0 4A4B4C4D4E4F5054 0033 182 oc Ki20% 4A4B4C4N4E4F 505 A585CS DSESF4061L OBEC ODE EGE ® 
OS7F FF O87F 143 oc XLACFEE CD28 SBSCSDSE5F60616B 182 
Cc 0B86 1464 ORG = xX*880"° | & OD30 éCOD6EGF 181 
oS. CBBO 145 READL EQU * i 6D34 TATBICTDIETFDGO  OD3A i182 DC XL7* FATAICTOVETFDO* 
, CB80 ESCSCSEZ8OR4NECS OBSF 146 ac XLI6* ESC 8CSIE2Z8O0N4D6C4E4D3C SSCEEDSC SE 3° | CO3B CLOZC3C4C5CEC7TCA 9054 183 pc CL 26" ABCDEFGHI JEL MNOPOR STUYWXYE? 
C OB88 E4D3C S8CES6D9IC SES 146 @ 0042 C901D2D304D5D6D7 183 
0890 ESCSD5S80C2EB88009 CBSF 147 oc XL16°E3C50580C2E8800906D580D9E4D703C5" OD4B DSDIEZESESESEGET 93 
0898 D6DS5S80R9E 4D 703C5 147 t CD53 EBES 183 
Cc OBAG OCFFOLFESO2FDO3SFC CBAF 148 oc XLL6* COFFOL FEO2 FDO3FCO4FR05 FAGGFSOT FS @ | & 0DS55 FOFLFE2F3E4F5SSF? ODSE i846 Do CLUL*OL23456789 * 
OBAB O4FBOSFAD6FSOTES 148 ic OD5D F8F940 184 . 
OBBO OSF7O09F60AFS0BF4 OBBF 149 DC XL16* CBF7O9FSOAFSOBFSOCESODF2Z0CFILCFFO? OD60 12 C060 185 TABLE DC XLLY2L2° HALT ID 
Cc: CBBS OCFSZODF2GEF LOFFO 149 @ O061 CSC5C5C440C3C8C5 0D6D 186 oc CLAI3*FEED CHECK #4 
OBCO ICEFLIEELZEDL3EC OSCE 150 oc XL16* LOEFLIEELZEDIZECISEBISEALGESIZES? | 0069 £3024040460 186 
OBCS 14EBLSEALGESITES i150 ' ODSE 13 ODGE 187 oC MLEPLS® HALT ID 
Cc OBDO LSETISEGLAESI@®E* GROFF 252% o¢ XL16* LEETESEGLAESIBESICESIDEZ LEE LIFE OY | & OD6F C8D6D7E7C50940C3 CO7B 188 ; OC CLI3® HOPPER CHECK ¢ 
OBDS8 ICESLCE2ZLFELLFEO 3 | { CO7?T C8C5C30240 188 
OBEO FLOSFAOSFCOTFIOS OBEF 152 CMDOTBE OC XL 16°F LOSFACEFC CTF LOSFEB4F LOSFC 2 7FEAG? OD7C 14 OoD7c 189 ac. WLECLSGE - HALT ID 
C OBES FEBGF1OSFC2 TFEAS 152 ; | @ CD7D DTDSE340C303E4E3 0D89 190 ec CLUZ*PRT CLUTCH CK 
OBFO FF : OBFO i153 “pe XLisres | OD85 C3C84¢0C3D2. : 190 ; 
GBF C3060407C1D9C540 OBFD i54 MESSG9 DC CLL3"*COMPARE ERROR® OOBA 15 '  opsa 191 pC XLE"AS® HALT ID 
Cc. OBF9' C5D9D9DEES 154 : ; | & ODSB DIDSE3Z40C4C1E3CL ODST 192 oc CLEZ*PRT DATA CK °& 
 rseat 0coo 155 _ ORG x*CoGt “3 2 : : ; ae ODS3 4003024040 192 : 
OCCO 156 PRINTI EQU # 0098 16 - 0098 193 oc XLitgee ;  RALY ID 
Cc OCoo 4040596263644040 oco9s a5? oc XL 10° 49405962636440404060? | @ oDpe9 D7E4D5C3C840C9D5 ODAS 194 © DC ° CL13*®° PUNCH INVALED® : 
OCO8 4040 — AS? ee : | ODAL ESCED3C9C4 194 : - 
: OCOA DTD9C9D5E3C5C440 OCIF 158 “pC CL22*°PRENTED USING BUFFER 1° “3 ce oe CDAS 17 ODA6 195 - pO -xtnenze | HALT 1D 
iG OCIi2 EXE2CODSCT4OCZE4 158 : a Bee Se Fie ae " ODAT OTE405C3C840C3C8 ODB3 196 oc CL13° PUNCH CHECK * 
- OCIA C6CECSDS4OF 1 158 : : . ; ODAF C5C3D24040 - 19650 °° eS Se - 
_ 0020 40406566676869TO COZF 159 oc XL16* 404065666768697071 72737475 767778° | 00B4 18 ODB4 iS7 oc XLLERSe - WALT ED 
C OC28 TL7IZ73T47TS76/(TT8 °159 Pk Die ODB5 D9C5C1C440C3C8C5 ONC 198° pe. CLI3*READ CHECK 
‘ 0C30 S08A8BSC 8DSEBFSO OC3F 160 . OC XL16* EOBASBECBDEESFOOSABICODIESFADAAY. Le? ODBD €3D2404049 198 me . ; 
OC38 GAGBOCOLGES -ADAA 160 Oahu | ~0DC2 19 onc2 199 "ec XLLNEge "+ HALT ED, 
Cc 0C40 4040ABACADAEB4BO OC4F 2L6R DC. XL16! 4040ASACADAEB4B0AF 6162838505147" 9 ODC3 D5066006D7404040 ODCE 200 - pC CLi3* NO-OP é ee. 
ehale 0C48 AFBIB2B83B5E05147 161 ae es nee’ ODCB 4040404040 200 vs 
OC50 4849525357545556 OCSF 162 . oc XL16¢ 4849525357545556584243446546B6B7" oCDO ODD 201 SENSEL DS CL2 
Cc OC58 58424344454686B7 162 | @ -  OACA. 202 ENTRY EQU  xX®ADA® 
- OC6C 39 04 OANC "163 CKKATA TBF = DEVIDsxX*04° _ TEST FOR KATAKANA PRINT FEATURE bs O21A 203 PRINT EQU X®*2tae 
2 - 0C64 CO 90 ODRS 164 BF SETUPK . ‘ : | 0222 204 HALT EQuU xi222e 
Cc OC68 3C-SF ODF? 165 MVE SETUPK#L »X*5Fe PUT "96% IN MOVE INSTRUCTION i @ GOO1 205 XKL equ 
OC6C OC 01 ODFS OCC7OD 166 2s AVEC SETUP K434 ACKATAC2} PUT DESTINATION ADDRESS IN INSTRUCTE * 0002 206 ¥R2- EQU. 2 
: OC72 OC OL OOFB CC TE 167. HVC SETUPK+S 2 ALENE4 (2) PUT SQURCE ADDRESS IN INSTRUCTION | 207 
¢ CC78 CO 87 ODFO: ' 168 8B WIPE 1 @ 208 * CHECK FOR NOT READY 
OC7C OC7TFE OC7D 169 ACKATA DC AL2(ALINES) | OP02 Ci FO ODEO 209 NOTROY TIQ SECNDYsX*® FOr IS PRIMARY NOT READY 
OCTE OCFF OC7TF 170 ALINES DC AL2(L INES) ODD6 OC GE CAAS OBER 210° MYC STOCHD+2 (2) eC MOTBL-14 GENERATE PRE REAO 
_ © OC8O 71 WEPLIN EQU  * . ae ODDC CO 87 0A6O 211 B REDONY AND BRANCH 
ae OC80 ESCEC9SE240C3C1D9 OCSF 172 pc CL32*THIS CARD PRINTED USING BUFFER 2° - i ODEO Ci F8 OABS 212 SECNDY TIO EXIET,X*F8t 1S SECONDARY NOT READY 
OC88 C440D TDSC 9D5E3CS 172 . ODES 39 O21 OAAG 213 TBF STOCMO+1,Xx*01* GENERATE ND 
C 0690 C440E4E 2090 5C 746 172 S GDEB CO 10 CA55 214 BT PRNIT AND BRANCH 
OC98 C2E4C6CECSD940F2 | v2 ODEC CO 87 OAZF fo ES. _ Bg START 
. OCAO 4A4B4C4D4E4F505A OCB3 173 DC  —s—- XL 210° 4A4B4C4D4£4F505A5B5C505E 5F 6061 6B 6C GDGESF € 216 * INEITIALEZE FOR KATAKANA 
€ CCAB S585C5D5E5F 606168 i73 . oe ODFO OC 09 OCO9 OCEg 217 WIPE MVC  PRINTL49(101 pWIPLINGO 
OCBO 6CED6EGF - 173 © i ms ODF6 OC 1F OCTF OCFF . 218 SETUPK MVC ALINE4¢323,LINES 
OCB4 TATB7C7TD7ETFDO OCBA 174 DC XL7°7A7B7C7CVETFOO! ODFC CO 87 CA2F ~ 219 B START 
c OCBB C1C2C3C4C5C6C7C8 OCDS 175 oC CL 26° ABCDEFGHI JKLMNOPORSTUVUXYZ* Ee: -t@ FFFFE 220 END 
OCC3 C9D1D203040 5D6D7 175 
OCCB D8D9EZESESESEGET 175 
Cc 0CD3 E8E9 WS a 
at OCD5 FOFIF2F3F4F5F6FT OCOF 176 OC CLL1°0123456789 * ; 
OCDD F8F940 - 176 
Cc OCEO 03C9D5C 540C6D6E4 OCFF 177 LINE4 0C CL32*LINE FOUR WAS SELECTED THIS TIME® -. |g 
OCE8 D9GOE6GCLE240E2C5 177 ; 
DATE 28JUL69.°. 20JAN7O0. 1 SNOV70 a PROG 10 OF OF-2 -* pate 283UL69 20JANTC 15NOV70 ~ tet PROG ID 
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; LBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589923 ext IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 2589923 7 
bee Oo PAGE 2 I PAGE 1A 
moe eas | S/3 MASTER TIMING ANALYSIS PROGRAM (ATAP) | 5 FFS5 $/3 MASTER TIMING ANALYSIS PROGRAM (MTAP)? 
c ERR LOC OBJECT CODE ADOR STMT SGURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
a 2 DECK 4 ‘ TL FSRSERESE SESS CE SHESS HARASS ES ESSERE SSER ERE SELES ELE EREF ERE EER ERE RESEEESE i 
j OA00 3 FF4 START X®A0O0*® : ae. = 2 * CONTROL CARD & HODIFICATION OF PROGEAM : 
i 4 ELHRKERESLESES EES EEEEESAYSSS LE SESSERESELITESS LES ELI EHHASS FE SLESE SET SSS ae FQ SESCSEKAARSSERSK SESS ESE ESSESERESEALA FERER KES HEKAAEEEAKSESRLARS FKLLKHKE AE SERSLTE 
a 5 : ‘ GAS9 OC 55 1693 iF 57 74% MYC LINE2 sROFD+87 (86) INSERT SECGND LINE GF BIT NAMES 
6 # MASTER TIMING ANALYSIS PROGRAM OAQSF 3D CS FOL 75 NEVER Cit RDF D+*1,X*C5* : 
:. 7* = OAA3 F2 01 16 7% JNE CARDS 
0 3 ERESESEREHRERE RES SS ERSES ESSER ES EGRSETELSS SISERELE SR ERE TERE FES EEE EEE ELAS SE rae OAA6 CO BT 0214 77 8 ~° PRINT { 
9 * SECTION PREFACE OAAA 16 OAAR 78 oC . XLLf168 
i 10 EERERSSE KEE EE ESSE SSESSERSER FESS ES SELS SEL SLKES SET ESRERE LESH AL SS SEES LEAD DAAB 38 40 1506 79 CKFE TBN | FLAGSsFLAG? *CK FOR AND BRANCH IF 
C CA0O FESS OAOL Li oc XL2°FF4Se PROGRAM £0 AND REVISION LEVEL OAAF F2 90 06 86 JE CKO : *NG HALT AFTER LAST CONTROL CARD 
OQOAO2 OO oan2 lz oc XLi* 00° SECTION FLAGS OAB2 CO B87 O222 82 8 HALT 
OA03 00 GAOS 13 BC XL1i* 008 CURRENT ROUTINE NUMBER _ CAB6 FOFE GABT G2 oc XL2 *FOFE* 
‘ a OA06 2000 OAOS lé of XL2"O# : OABS CO 87 ODOF 8&3 CKO B LETSGO GO START THE PROGRAM Me 
OAC GAOD y OAOT 1S oc ALZERTOL ADDRESS OF FIRST ROUTINE ret Be SEKSSESEAEREREARE ES VERE SSEAESREREKHEE REESE LAKES KRESS ATRSEAALARST HSE ESEERAE 
; ormee oA0s 0000 ScA09. «kG DC XL2°O° - 85 * CORTRGL TARD 5 MODIFICATION GF PROGRAM 
e € OAOA £0100G oACL 1? oe XL3 °F O1000° UNIT OEFINITION TABLE i SG TERESA KLEE SSAA KL FERS CAGES SEAKERAGLSERSSSERS VEL ERESERS PHS GEESSA STSLESS 
a ; 23 SHKELSESERES ERE SS FUEEKSERE GSES ERS TEKST SST SESE SELF ESE HESS SEE HSE FH FS GE SBERE SE DABC 35 F5 1FOL 87 CARESS CLi ROFD+1,X*F5* 
4 19 * ROUTINE 1 PREFIX OACS CO G4 GA4F 8&8 BRE NEXTR 
v © 20 ESPREKERRSISLSSL SS KSE SER HOKSLSSRGELSS SERS GS SEL AKS RES KES E LI SELESE LG FIST SSE Ci Of£Z6 CO 8F 0226 89 8 PACK 
OAOD Ob CA0D 21 atol DC XLL*O1° ROUTINE NUMBER O4L3 54 CAT& 990 DC ILL *s4é 
OAQE GO OAOE 22 oc x22 °008 : OAC? LEST OACA 91 oc AL2(ROF D+¢87} 
g OAOF FFEF OALO 23 oc XL2°FFFFE : fa O4C8 .6BF cACC 92 oc ALQ2ELIMITS+413 
OALL CO 87 0222 24 ROCNTR 8 HALT OCACD CO 87 GA4SF 93 8 NEXTM 
GALS EFFE OAL6 25 pc XL2*FFFFE es QS SRKERLSSESALE AAAS SHESRBSKSALE EKA FSERESAERSS REELS EEEHES EES HKS SEE LEE FRSTERE 
@ OAL? 38 FF 2507 26 COW S8F FLAGS2 eX*FF®S TURN OFF FLAGS 10 THRU 17 fo 95 * TONTROL CARD 2 MODIFICATION OF PROGRAM 
OALB OC OL 163D 1587 27 HYC LINEL}2, BL ANK(2) Ate GG RSASEKKAELSPERSSEAKSERAESSEAERSSE KE KSSRARSERKERKESS SESEKFESRELES SEEK EASES 
wee GAZL OC O1 1695 1547 238 ave L INEZ 42, BLANKE2) GADI OC 03 LFTS 1F17 97 CARG2 HVC MULT » ROFD+2364} 
© OA27 3C 00 LCB6 29 MYI ORTAB*506,X*00° 0 GADT OC O1 143C 215C7 96 MVC = RAY0243 pDATAL(2) 
OA28 3C FF LEB 30 eYI ANDTABt*506 9 X*FF® OADD 38 O& 1507 39 SBF FLAGS2sFLAGL5S 
OAZF 30 OU 1509 31 SNS WORK, X*00* READ THE DATA SWITCHES OAEL 3D 40 1F57 106 cil RDF D#87 ¢ X*40° *UK FOR AND BRANCH IF 
- G OA33 30 AA 1506 32 cul WORK— 1» X®AA® *CK FOR AND BRANCH IF LOOP ON a OAES F2 81 OA . 1018 JE PACKIT *THIS AREA IS BLANK 
is OA37 F2 81 71 33—CO JE CKFE *RUNNING THE SAME TEST 1S WANTED OAES 3A 40 1507 102 SBN FLAGS2;,FLAGi1 TURN ON SYNC-SAMP WANTED : 
i OA3ZA 30 AO 0232 34 CLI 562~¢X*AO* *CK FOR AND BRANCH IF OAEC OC 01 1CB8 1F57 103 MVC 3=—_- SSg ROFD+87(2) MOVE COUNT IN FOR SYNC-SAMP a 
oe OA3E F2 O1 OE 35 JNE  NEXTM *NQT LOADING FROM DISK ©) OAF2 CO 87 0226 ~~ 1064 PACKIT B PACK * PACK 
\ GA41l 30 OG OASB 36 SNS DOA,O OAF6 58 OAF6 105 pC ILi*ss°* * i 
wt OASS CO 87 022A 3? 5 LGAaDd LOAD OAF7T 1F57 OAF8 106 oc AL2(RDFD+t87) * Giese Ds es cS aa Seta 
: C. OA49 20 OA29 38 OC xui*2o° *EIRST C OAFO 16E6 OAFA 107 oc AL2(DATFLD+43) * : 
to QASA 0060 OA4B 39 DA oc XALZ*O6 *RECORD CAFB 3D C5 1F04 108 Cli RDFD+4,X*C5°* *CK FOR AND BRANCH IF THIS , 
i gee OASC F2 87 35 40 Jj stop OAFF CO 81 1F8G 109 BE LOPRNT *I1S A PRINTER TAP 
4 5 OAGE CU PF B22A 4L NEXTM 8B Load *LOAD REST OF RECORDS 0 OBG3 OD C6 1F31 i5AT7 116 CLC ROFDt4S 5 BLANK(7} *CK FOR AND BRANCH IF THIS 
f OAS3 £0 OAS3 42 DC xLi*10¢ *ONE AF A TIME 0B09 CO O01 LEBA 2L1 BNE LODISK *IS A DISK TAP 
: QA5% OC SF LF5F O8DF 43 STOP MVC ROFD*95222711 96? O80D OC 00 OEZE 1602 112 LDTHEM HVC LET34¢101) ,-OATFLO+I8 LOAD 1/0 
} € OASA CO 87 0214 44 8 PRINT 0 0813 OC 00 OF4D 1603 113 MVC LET441(°2) ,DATFLO#19 LOAD i/0 
; OASE O1 OASE 45 oc xL1*oli¢ tac 0819 OC 00 OF51 1604 114 MVC LETS*#111),DATFLD*20 LOAD 1/0 
he, OASF 60 CASF 46 bc IL1*96* OB1F OD O1 1F4B LS5SA7 115 cic RDFO+75~.BLANK(2) *CK FOR AND BRANCH IF 
t € OA6O iF SF CA6L 47 oc AL2(ROFD+95) 0 0825 F2 61 18 116 JE CK42 , #NO THIRD SYNC 
0402 30 Fl 1FO1 4&8 CLI =—s- RDFO41_X*F1* *CK FOR AND BRANCH IF THIS IS NOT 0828 OC 03 15E5 1F55 117 MVC DELAY3,ROFD+8514) *MAKE SYNC 3 INSTRUCTION 
OAGE F2 O1 12 49 JNE CARD FIRST CONTROL CARD OB2ZE OC O02 OCFOB 16E8& 118 MY¥C SYNC 342 gDATFLDt+40(3) *MODIFICATIONS 
CE 50 RROKKEKASEREE SEAS SEEE AEE EEREEEE KER RERERDESERES HES SESECESERES SESE LER SE FHTESE 9 0834 OC OO OFO? 16ES 119 VC SENSE341(1} sDATFLD+4+37 * 
trae 51 * CONTROL CARD 1 MODIFICATION OF PROGRAM OB3A OC 01 OEFE OFOF 120 MvC WAY+3 pBACK34+3(2) . 
52 SEEKERS CREE ESEES SASSER ESE SS ESETEREREE SESE FEE TERE SE EHTS EEE STE ELISE ES OB40 F2 BT OF 121 J SETUP2 
. © OAG9 CO 87 0226 63 8 PACK *PACK COMMANDS 5 122 * 
ig oaed 20 OA6D 54 DC kelL*32* #AND DELAYS OB43 OD 01 1F3F 15A7 123 CK42 cic RDFD463, BLANK (2 } *CK FOR AND BRANCH 
QAGE 1LF23 OAGF 55 oc AL2(RDFD4+35) *INTO CMNO CB49 F2 81 16 124 JE CK412 *IF NO SECOND SYNC 
‘ C: OATO LF6F OAT1 56 oc AL2 (CMNDS415) *TABLE § OB4C OC O01 OEFE OF2ZF i25 MVC WAY4+3 »BACK24312)5 
: OAT2 OC OD 151A 1F 32 57 mvc CHND yROFD449 (14) MOVE CMND NAME INTO MSG ce 0652 OC 03 I5Ei 1F49 126 SETUP2 MVC DELAY 2¢RDFO+73(4) *AAKE SYNC 2 INSTRUCTION 
OATS F2 87 24 58 J NEVER GO READ ANGTHER CARD 0858 OC O2 OF2B 16E2 127 MvC SYNC242 y DATFLD+34(3) ¥*MODIF ECATIONS 
C: OA7B 30 F2 1FO01 59 CARD Ctl ROF D4] »X*F2° *CK FOR AND BRANCH IF THIS IS eo OBSE SC 00 OF27 160F 128 MVC SENSE2?41013,DATFLDO+31 * 
OATE &2 BL SF 60 JE CARD2 *THE SECOND CONTROL CARD OBS4 F2 87 iC 129 J PACK] 
OAB2 3D F3 1FOL 61 cLI RDFD+1,X* F3° #CK FOR AND BRANCH IF THIS IS NOT i320 * 
: e, OAS86 F2 O1 OF 62 JNE CARDS STHE THIRD CONTROL CARD 5 0867 3D E3 LF32 231 CK421 CLi RDFD+5G,X*E3° *CK FOR SYNC GN TIO Co 
aed 63 FSEESES ES EESEEESEEREEEEE OS EKES EE SESESTE HES EES EERIES ETE EHEL EE BETS ESLESEE OB6B F2 O1 OF 132 JNE CK41 *AND BRANCH IF NGT 
, 64 * CCNIRCL CARD 3 MODIFICATICN OF PROGRAM OB6E OC OO GFOO 16DA 133 HVC TIGCND41(1)¢DATFLDF26 
Cc 65 SHEEEEHESHES SEES SESE ESEEEESESESEESEHELELES EEEEE ETSESES $44 ESS SEEERATSETE EE 9 OB74 OC O1 OEFE 15C2 134 ; MYC WAY43,ATIO(2) 
'  QA89 OC 55 1638 LFS? 66 mvc LINE 1,RDFD487(86) INSERT FIRST LINE OF BIT NAMES OSTA F2 87 18 135 £ CLEAR , 
‘ OAGF F2 87 OD 67 J NEVER GO READ ANGTHER CARD . 136 * 
€: OAS2 30 Fe 1F01 68 CARDe CLI RDFD4+1,X*F 4! *CK FOR AND BRANCH IF THIS IS NOT O OB7D OC O1 OEFE OF4F 137 CK4i Mv¥C WAY?3 »BACK143(2) 
Oase F2 61 06 693 JNE NEVER *THE FOURTH CONTROL CARD a iano 0883 OC 03 15DD 1F30 138 PACKi MVC DELAY1,RDFD#61(4) *MAKE SYNC 1 INSTRUCTION 
f er 8 
OS 
; DATE 25AUG69 O3NOVES 10FEBT70 16MARTO 14APRT70 29 JUNTO O1GCT7O PROG ID OF F4-5 DATE 25AUG6S O3NOV6E9 LOFEBTC L6MARTO 214APR706 29 JUNTO O10CT70 PROG ID OFF4-5 
EC NO. 816485 816523 816592 816651 816678 816704 816760 PAGE i 0 EC NO. 816485 816523 8165S2 816651 816678 816704 816760 PAGE 1A 
oS 
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°o * 
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a. BP OP gs aa = ‘ aie ’ : : at ca * Se ee a ah ha gs 
ts aeee i ; 
* a { x > bgt { 
: he Be Ee y 
>) ' #-O Ww Set z 
i . veh! t : 
IBM MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 2589923 16M MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 2589923 | 
© , : PAGE 2 1 0 PAGE 2a | 
: : : eras 2 
6 FF45 S/3 MASTER TIMING ANALYSIS PROGRAM (MTAP? ist FF45 573 MASTER TIMING ANALYSIS PROGRAM (MTAP) 
. i 
. ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ° ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
o ooee med ee pees too 7 ave ge reh cole eOece ce). *HODIFICATIONS . 5 aces . ec OFSD 207 MVC. NOWAE T43,WHERE*3(3) SETUP TO BR IMMEDIATELY TG SAMPLE 
. 3 + ° ; 268 J GETON . 
OB95 OC 04 1539 i5A7 141 CLEAR MVC HESTRY—-22- BL ANK(5} CLEAR COUNTER | 209 # i oe 
9 ee 06 31 1530 15 8F 142 SETSES AZ HISTRY~22 05} 9D50(2)5 *ADD 350 FOR EACH ' OCN2 3C 80 OFS ; 210 CRIGIN MVE NOWAELT*1-¢X*802 NG-OP THE BRANCH COMMAND ' “he ‘. 
OBAi OF O02 LFIT 1596 343 Sz RDFD42313),0605 43? *MICROSEC ocOe 08 O3 OFES iF 5B 222 GETON MAN DD142 ¢ROFD492 * : , 
a GBA7T CO O01 089B 144 ENZ SETSEG # INCREMENT OcoOC CC OG OFEE IFQ3 2i2 MYC AAL41°13-RDFDO3 * 
we OBAB Gf O00 OFDA lLect2 145 MYC SNSA*E (3) pOATELO42 *SETUP OCE2 OC 90 1005 iFOS 2i3 HVC AAZ4142 2 eRDFDC3 + 
aan 0881 OC GO OF6F 1éC2 146 RYC SNS3t1i Ci} sDATFL OC? #F IRST fat ey OCES& OC OO 103£ iFO3 234 MYT AAS@1 013 oROEDSS s 
CBB OC OO OFAS 16C2 147 “VC SNSS4¢1€1}) pDATFLOG2 ¥SENSE OCEE OC OO 21035 1FO3 245 MYC AA441 €2 5 yROFDt3 ¢ 
# OBBD 08 00 O£59 26C2 348 Miz TEOONES 2 gDATFLG+2 SETUP TiG FOR EACH DEVICE i OCF4 OC GO 104C LF 03 226 MYC &AS41 01 § sROFEDOS *aMOVE SNS IN FOR SOMIC SAMPLE 
O8fC3 OC O03 LFID LFE29 A&9 HYC TIMES eROFD+32 (4? LOAD NUMBER OF CHNDS TG BE SAMPLED i OCFA OC OD i064 iF O3 2u7 MYC AAGT1ELD SRDFOS3 * 
OBC GO O01 FOR LSAT is6 fee ROFNGLZS eBLANKEZ? #0 FOR AND BRANCH - : 0000 Of 00 207B iF 63 228 RYC 4A7T42€15—-ROF D3 * 
© ete Of at face coo HEE MME BNE Gesyzenorey “I THO SENSE Commnos | Sear $5 dose ieee = ore MASA CL nara 
: & ® ; ° MYC AAGF4L(2), RDFOS. & 
es Oba OC OO 16CE& 16C2 2S3 VC DATFLO@6E1) ,ZDATFLO+2 OBl2 Cl 90 1608S 1FO3 223 RYC garGel 11, RorbeS = 7 
iy QadDE OF OO OFHD 166 154 UNDERS MYC SNS24+102) pOATFLE+S6 sSETUP OD1B O08 32 OFFA LFSB 222 ANZ BBLit4 ,RDFOSS) * a 
: OBE4 OC 00 GF?2 ié6C6 4155 RVC SHS4+1013 pOATFLOCE *SECOND ODiE O& O2 1008 LFS5e 223 HNZ BB2¢+4,RDF O49) * - 
(OBEA OC 06 OFAE 16C6 156 eC SNS6410 1} -DATFLDt6 SENSE OG24 08 O2 1024 iFSE 224 MNZ BE2+4 pROFDS94 = 
® OBFO OC 00 LF7O 1404 iST MYC MASKE(E 3s DATELDI4 Ob2A 08 O62 10358 FSB 225 MNZ BB444eRDOF OSS] + 
wis Bane a ae ie pees ae pee Enea Gateen a Sock 0020 ce 62 aa LFSC 226 BNZ 58544 ,RDF D491 =SSETUP FO SAVE PROPER SYTE 
s } + 0036 G8 OZ LOGS iFSB £27 ANZ BEGt4 RDF D4S > 
© GCG2 OC OO GFFC i603 160 MVC OVER3¢4(1} sDATFLD43 epsc oe 02 1G8i LF58 228 MNZ Bay ea ROEDGSL % 
0cos oc OS i613 16€3 i6] ¥YC COMP 3441) -DATFLDES ; O42 G8 C2 LOSS 1F5B 223 MinZ §B2+4¢ ,ROFG492 * 
OCCE O& OO LEC? OCAF 162 ALC DATFLO4 Ti by FiXSh &40B 2 TO OFSPLACEMENT 0048 08 O02 LOAA LFS 230 MNZ 889%4 RDF D491 + 
go GCi& OC OO LEFT 16C8 263 4YC MASK2¢1) sDATFLDSS ODSE C8 O2 1OBB 1FSB 221i — ANZ BHL044,RDFOH492 
OCIA OC OO 24E4% 15C7 364 avC OVER2Z24401 } »DATFLBS? O05 O8 Gl 1F33 iSdAéT 232 cic RDF DS 51 pBLANK EZ) 
é OC20 OC OG 14FO Lac? 165 MYC COMP2244%13 pDATFL OC? 905& F2 OL 06 - 233 JNE SETi ° 
Le OC26 Of 00 1033 16C7 166 M¥C OVERS3+4¢013 .DATFLDO? Oo S050 OC OL OSFE 15¢5 234 BYE WAV43 oANDHTE2 3 
Oc2C OC OO 104A LECT 167 HYC CONP3S34¢4E23, DAT FLOS? i G6D63 34 46 1506 235 SET SBN FLAGS sFLAGi TURN GON HALT KANTEG FLAG 
a nes er 1594 roe Ge iNccR ee Soe Sree S eeRe aun pees THAN 566 = ODé7 35 C@ iF2z2 236 Cig ROFOtZ4,X*Cee =CK FOR AND BRANCH TF NO HALT 
~ , . #MiCR &E AP a 3 * ae 0066 F2 61 O& 237 JE LATER *AFTER CAST CONTROL CARD £3 WANTED 
bea OC38 OC O21 OF 6D LOCA ajo. MVC WHERE4+3,TAB143423 SETUP TO SAVE DATA AS SENSED | ODS= 3B 46 1566 238 : SBF FLAGS sFLAGI TURN OFF HALT WANTED FLAG : 
oe ape la i587 nee . ORE Sao CK oa AND BRANCH EF THIS is te ODT2 Of. OL 1456 L587 239 LATER. MYC CTAL,ALZNEL(Z3 ze *PRINTOUT AREA : 
ee : BYTE TG SOMIC SAMPLE INTO f : 0078 OC -OL 149E& 1589 249 KYC CTZ2,A4L INE ZE2Z) * ADDRESSES 
: GC4A GO OL LFI3 LSAT 143 - €Le RDF D*1S sBLANK(2} *CK FOR AND BRANCH IF THIS {S$ ODTE BC CO 1494. 241 ; MY I CTisx*008 *INETIACEZE 
sae O0C50 F2 OL 28 . : 174 SNE FIFTY2 — *BYTE TO SOMIC SAMPLE INTO ‘ 2 0082 3C 06 149C - 242 MVE CT2sx*o0® +ASG PRINT — a. GRE ei 
toe GC53 OC 00 1FO3 16.2 175 MYC ROFD4+3(01) eCATFLOF2 FINITIALIZE TO IGNORE DATA WHICH a} OCE&6& 3C OC L4A4 , 243 AVE CT3,k*O0* LENGTHS : : by 
Been 3c C& 1F58 176 AYE RDFD+92 «X*CBe *WELE BE SAMPLED EVERY SOMIC eh Rok OB8Aa OC OL 093 1L5BF 244 <: MVC FHESE 43 sAMASK2Z{(2) ; : 
: C50 F2 B87 4E ? 17? J FAX 0090 38 61 OC00 245 THESE TBN #-%_eK*GLe : : *CK FCR AND BRANCH IF THIS . 
© ‘ 178 * : o 0094 FZ 90 24 246 JF SHIFT *BIT IS NOT TO BE CHECKED 
C60 OC O00 1LFO3 16C2 L179 FEFTYL MVC RDFO+3013,50ATFLOS2 MOVE FERST SNS CNND EN FOR -S5OMIC—- ODS? OF C1 1496 159C 247 ALC CTLI,ELEVEN(2Z? . 
OC&66 3D 01 1éC3 360 CLI DATFLO+3,X*O1® | _ CK FOR AND BRANCH IF LOW ADORESS OD9D CE O1 L4SE 15SC 248 ALC CT¥22,ELEVEN(23 
. @- OC6A Fe 61 oF _ 182i JNE LEFT. : sB8YTE IS TO BE -GRED- INTO 5 ODA3 OF OO 1494 159C 249 ALC CTLOR} ELEVEN 
bead eae 3c 2 1F5B 182 MVE ROFD#91,X*°D5* SETUP TO -OR- INTO HIGH ADDRESS &8YTE ODAS GSE 00 149C 159€ 259 ALC C¥2€1),EL EVEN 
eg L F2 87 3A. a re J FAX : 5 ODAF OE 00 1444 1596 251 ALC CT3(1),EL EVEN 
5 ; : ; ODBS OF O1 143C 159C 252 $tc RAYO243 sELEVENCZ) ; 
ns ets 3C C% if 58 i85 LEFEL MVE RDF D491 pX*CeF SETUP TO ~OR- INTG LOW ADORESS BYTE ODBB O& OO CDS1 ODS1 253 SHIFT ALC THE SE+1€15 5 THESECL *SHIFT MASK BIT ONE POSITION LEFT 
C78 F2 87 33 186 J FIX . : 0o0C1 CO 01 0090 254 BNZ THESE #ANO BR IF MASK DOES NOT GO TG O 
© 187 + t)} ODC5 3C O1 OD9i 255 MVE =- THE SE4219X*01* INITIALIZE MASK TO -O1-— ~ 
oC 78 oc 00 IFO3 1éCé6 188 FIFTY2 MVC ROF O43 C15» DATFL O46 MOVE SECOND SNS CMND IN FOR -50MiIC- OOCS 38 O04 1507 256 TEN FLAGS2,FLAGLS *CK FOR ANG BRANCH If BOTH 
a OC8i- 3D 03 16CT 139 CLI DATFLD4 7, X* C3* =CK FOR AND BRANCH IF LOW ADDRESS OOCcm CO 10 OA4F 257 BT NEXT#H *BYTES HAVE BEEN CHECKED 
See CC85 F2 01 QT 190 JNE LEFT2 *BYTE IS TO BE —CRED- INTO a ODD1 3A 04 1507 258 SBN FLAGS2 eFLAGIS : 
OC8B 3C DOF 1F58 191i VI RDFO*92 »X* O7* SETUP TO -OR-— INTG HIGH ADDRESS 8YTE oDoS CC Oi ODES 1580 259 YC THESE 43 yAMASK1€ 2) 
0 OC&C F2 B87 1F 192 J Fix 0O0DB CCG 87 O0D90 260 B . THESE 
' . 193 € ea . : a. 261 EFEMSHEKSSEKESSSAIRAKESEKESHIEAG SERSHKSE SE SERS SIFRSEKAKSEKERSE SR ASLSESIAESS 
sane eer 3C C6 1F5E 194 LEFT2 MMVI ROFD4S1 9 X*C6® SETUP TO -OGR- INTO LOW ADDRESS BYTE ‘ 262 * BEGIN EXECUTICN OF COMMANDOS 
c: OC93 F2 87 18 195 J FEX : 263 FRKFRAEKSESSESHSRAERELESK GS AHEFHLE GREAT SSE FSH AS STLE SAE LARS AKSEKAST HLS GRSECHSR 
-i hese ps + a LEDE a? UNDER ete OEE Dray ONE(e) *CK bon AND BRANCH ie amy | 2) ODOF 38 1B 1506 264 LETSGO SBF FLAGS»X*1B° TURN OFF FLAGS 39 4s 65 7 
: . . *50 ROSEC SAMPLE TIME : CDE3 OC 03 1508 i5A7 265 MVC PANY» BLANK €43 CLEAR CARDS CHECKED COUNTER © 
c BEL OC O21 OFED OF D4 198 MVC =- WHERE 439 TAB543( 2} SETUP TO DELAY BETWEEN SAMPLE TIMES a COED OC O3 1F7S LFTD 266 MVC = PASSES» TI MESES) - LUAD NUMBER GF CMNOS TO BE SAMPLED 
aa! F2 87 06 eG, ‘ J FIX | Oi GDEF 38 FO OF47 267 TBN SENSELEL ge X* FOS *CK FOR AND BRANCH IF 
eee OOF3 F2 10 OD 268 JS ESMFCU *MFCU SENSE COMMAND 
es OCAB OC Oi OF 6D OF 60 201 JUMPIT HVC WHERE 43 7 A8343(2) SETUP TO SAMPLE EVERY 50 MICROSEC GDF6 3C 8? OED7T 269 MMVI ONLY341,X°87° SETUP TQ SAMPLE IMMEDIATELY 
i ecaa ee ee aes iris oas FIX tee NOREER BOLD Loutae SETUP SAMPLE COUNT CONSTANT o) SOFA OC O02 SES7 LEE2 270 KAYSE MVC TICTWOt3 gNOT2 #3 (45 NO-OP FIRST MFCU TIO BUSY 
9 + G@EOO F2 87 18 27) J vs 
rR OCBA 06 02 15C0 1EE7 204 AZ NUMBERC3) »D002 (3). . 32 * = 
fo bece s i 1500 1595 205 CLC DELAY1,.D001-1(4) *CK FOR AND BRANCH IF THERE IS n CEO3 38 10 0200 273 ISMFCU TBN SBYTES »SNSH2B *CK FOR AND BRANCH IF 
1 09 206 JNE CRIGIN *#A DELAY AFTER THE FINAL SYNC | OQEO7 F2 10 OF 274 JT BYPASS *FILL COMMAND 'S NOT WANTED 
: a 
cera Sicece: O3NOV69 10OFEB70 L6MARTO 14APRTO 29 JUNTO OLOCTTO PROS 1D OF F4-~-5 DATE 25AUG69 O3N0 ¥69 10FEBT70 16MARTO L4APRTGC 29 JUNTO C1sccTTo PROG ID OF F4-5 
e 816523 316592 816651 816678 816704 816766 PAGE 2 2 EC NG. 816485 816523 816592 21665i 816678 816704 816760 PAGE 2A : 
bean . ‘. 
© ey 
: . d ; 2 / : ; a _¢ 
wa te 0. okt : : 2 : % 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM 


FF45 
ERR LOC 


GEOA 
GEOE 


OE1L 
O£15 
OE18 
O£16 
oOc2t 
E27 
OE20 
G£3a 
O37 
GE3D 
GE41 
OES 
OE438 


OESC 


OE50 
GE54 
GE58 
CESC 
OE62 
CE6S 
GE6T 
CEGA 
GEGF 
QET3 
GET 
Of7S 
OcTs 
OEVE 
OE84 
OEB8 
OEBC 
.OE96 
O£94 
OEGA 
OEQE 
GEA 


OEAS 
CEAA 
’ OEAF 
GEBS 
OERS. 
OEBB 


OEBF 
OECS 
GECS 
CeEcr 
OED2 
OED6 
OEDS 
OECD 


OEE] 
CEET 
CEES 
OEEF 
QEF2 
GEFS5 
OEFE 


CEFF 
OFO3 


OATE 
EC NC. 


S/3 MASTER TIMING ANALYSIS 


PROGRAK (NTAP) 


PART NO. 


2589923 
PAGE 3 


OBJECT CODE ADDR STMT SOURCE STATEMENT 
3C 10 CED? 275 HVE CNLY1¢1,X*108 SETUP TO PRIME MFCU 
F2 87 64 276 J INLT2 
277 * 
3C 97 OED? 278 BYPASS MVE  ONLY241,.X°975 SETUP TG SAMPLE IMMEDIATELY 
F3 FO 00 279 INIT2 SEQ X*00%—xX*FO® PRIM PRIMARY 
F3 FB 00 286 SIG X*OO%,xX*FSs PRIM SECONDARY 
OC FE LCBS 1086 281 LETS MVC ORTEB4+505,0RTAR2506(255} *INITEALEZE -OR- TABLE 
OC FB 1887 1888 262 MVC ORT AB 4252, 0RTAB42524252} *TO ALL ZEROS 
OC FE 1£B82 1£83 283 MYC = ANDTAS+S05 gANDTAB#506(255} *ENITIALIZE -AND- TABLE 
OC FB 1084 1D85 286 BVC = ANDTAS4251,ANDTAB42524252) *TO ALL ONES 
C2 021 21F60 285 NEXTCD LA CHNDS 5XRL GAD AGOR OF CMNDS INTO XR1 
CC 03 1562 1LF7S 286 HVC  SETPRTgMULTC4} LOAD SAMPLE TIME COUNT CONSTANT 
31 F& 1585 267 LETS LIC LORD,x* Fae 
3D F& OE3E. 288° CRE LET3¢1ex9F Se *2K FOR AND BRANCH IF THES IS NGT A 
F2 O01 04 289 JHE LETS #MFCU PRINT LIO 
3C FS OE3E 290 MVE LET341_,K*ES¢ SETUP FOR READ LEG INSTEAD OF PRINT 
31 FS 1585 291 LETS Llu LORD, X*FS* 
32 F6 1585 292 LETS LIQ LORD X* FES 
Ck FS 1OFL 293 YIOTWO TIG DIAG, FS" BRANCH EE ERROR OR NOT READY 
Ci FO LOFL 294 TIGONE TEG DFAG,X*FOR BRANCH IF ERROR GR NOT READY 
4D 01 03 1EDD 295 LET2 CLO 362yXK12,ZERO *CX FOR AND BRANCH IF THIS IS THE 
F2 81 5B 296 JE SAMP *COMMAND TO BE SAMPLED 
79 FG CG 297 TBF Gl eXR1)_X*FO? *CK FGR AND BRANCH IF THIS IS NOT 
F2 90 38 298 JE NGDLAY #A TIME DELAY BETWEEN COMMANDS 
1€ 01 1509 O1 239 HVC WORK» 242_XR13 LOAD DELAY COUNT 
CO 87 O21E 300 B ~ UNPACK 
02 OE73 301 De ILis2¢ 
15D3 QET5 302 OC ALZ(WORK} 
1595 OET7 303 DC’ ALZ2CWORK-4) 
CE 02 LEEC 1LEDE 304 BELAY? ALC ODELAYsONEC3? 
07 20 15D5 1596 305 SZ  WORK-403) -DO01 41) 
CO 02 OE78 , 306 BNZ | DELAY. 
35 02 LS59E 307 RELGAD & D6579eXR2 *DELAY : ; 
36 C2 1EDB 308 DLYL A FFFF XR2 #100 . 
CO 84 CEBC 309 BH OLY]  *4SEC 
OF 02 LEEC 1EDE 310 SLC DELAY€32,GNE *CK FOR AND BRANCH BACK iF : 
CO 0) O&88 332 BRZ  RELCAOD ~ _=DELAY FACTOR HAS NOT GONE TO ZERO 
D2 01 92 312 ba 2 eXR1}_XRE 
CO 8&7 OE54 313 B TIOTWS 
314 * . 
1C OL OEB7 O1 315 NODLAY MVC XCUTE#2_1425XR13 MOVE CHND IN FOR EXECUTION 
1C 02 L5AE 01 316 MVC =- TIME 9 (2 eXR1) 
OC 00 1£B6 1E89 317 MVC = DISK—1 OPI S1161) 
F3 00 00 318 XCUTE SIO 020 
D2 01 02 319 - £A = 209XRLD gXR1 
CO 87 GE3D 320 8 LET3 BR BACK TO CK NEXT CAND 
321 + 
1C 02 OEDL O1 322 SAMP MVC xXCUTE2¢29162¢eXR1) MOVE CHND IN FOR EXECUTION 
1C OL i5AE OL 323 MVC =- TIME 9 1 42 eXR2) 
Oc OO 1EBE 1E88 324 MVC = DESK, BACK(1) 
F3 00 00 325 XCUTE2 SIQ 050 EXECUTE CMND TO BE SANPLED 
38 10 1506 326 TBN FLAGS»FLAG3 
F2 10 08 327 CNLYL JT START 
3A 10 1506 328 SBN FLAGS s FLAS3 
CO 87 0E33 329 8 NEXTCO 
330 * 
OC 02 1583 15CD 331 START MVC CHECK1,NUMBER(3) LOAD SAMPLE COUNT 
C2 01 16C0 332 LA DATFLD, XR1 LGAD DATA FIELD ADORESS 
C2 02 1ABC 333 LA ORTABs XR2 
7C OO OA 334 MVi. 100 »XR1}_.X*00* 
7C 00 OF 335 KVI =: 140g XR1) 9 X*008 
06 30 1508 i590 336 AZ MANY (4),0001(1) ADD GNE TO CMNOS CHECKED COUNT 
CO 87 GEFF 237 WAY B #44 BRANCH 10 FIRST SENSE REQUIRED 
338 SESEHEFSSETISSSTSSSESESHSEKESE SE KEES FEKSEKKH SE EKESKKCTLSEEKSESSESES CEGKSES SERRE KIS |ESHKKES 
: 339 * SYNC ON TIO CONDITION GOING OFF 
340 SIKEKSESCKSESERE TKS FESSEESHHESVSE ETEK EKERSESESGESEEKSESS EEEEETE ES HEEEKEEKSESESERE 
Cl 00 CEFF 341 TICCND TIQ ¥%,8-* 
F2 87 64 342 J WHERE 
25AUG6S O3NOV69 LOFEBTO L6MARTO 14APR70 29. JUN70 ©10CTT0 PROG 1D OF F4-5 
616485 816523 816592 816651 816678 816704 816760 PAGE 3 
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184 MAINTENAKCE DIAGNOSTIC PROGRAN 


FF45 


ERR LOC OBJECT CODE 


OFO6 
OFC? 
CFOC 
OFLO 
OF16 
OFLE 
OF22 


CF26 
‘ OF29 
OF2C 
OF30 
OF 3& 
OFSC 
OFS2 


GF 46 
OFSS 
OF ac 
OF50 
OF 54 
GFSA 
OFEéO 
OF 66 
‘OF6A 


OF6E 
OF Ti 
OFT4 
OF 77 
OF 70 

 OF81 
OF 85 
OFs9 
OF SF 
oFS3 
OF96 
OF9C 
OFAO 


OF AS 
OFAT 
CFAA 
OFBO 
OFB3 
CFBS& 
OFBE 
OFC2 
orcs 
CFCB 
OFDI 
CFDS 


70 
73 


oc 
oT 
ac 
co 


7o 
78 
£0 
oc 
o? 
oc 
co 


76 
78 
co 
co 
oc 
C7 
oc 
co 


es 


790 


a 
ad 


02 
o7 
co 


c2 
oc 
co 
D2 
o7 


co 


70 
70 
O7 
F2 
1c 
o7 
ca 
B2 


o7 
co 
co 


oo 


90 
03 
36 
05 
84 


oo 
Oo 
$6 
03 
30 
85 
84 


oc 
OCG 
90 
87 
03 
3¢ 
O5 


840 


87 


00 
oo 
01 
C4 
01 
O12 
Oz 
G2 
87 
03 
21 
Oi 
87 


co 
oc 
36 
87 
06 
2c 
84 
Q1 
oi 
30 
01 
87 


Oi 

00 

OF C6 
i5D9 
15DS 
i505 
OF 36 


oi 


“90 


OF 26 
1509 
15D3 
£5D5 
OF 26 


02 

oo 

OF46 
OF 54 
1509 
1509 
4585 
OFSA 
OF6E 


05 
Co? 
9% 
1583 
OF SE 
16C0 
1ABC 
1583 
14BA 
C& 
1562 
OF SE 
10CE 


os 
O? 
i561 


e 
~ 


2508 
2561 
OFB3 
Q«4 


1561 


1583 
OF AS 
OFS&1 


25AUG69 
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$43 MASTER TIMING ANALYSIS 


PART NOW 
PAGE 


2589923 
3a 


PROGRAM (RTAP) 


ADDR STMT SOURCE STATEMENT 
34Q ESSSCEEETSSSSESSSETESSAS RF SH SERY SESHAS ES OASASESES SEES SVS SKSERSERKSEKESE SATS SE SSESSETSD 
245 * “START HERE IF 3 SYNCS 
346 FESSRESIRSSES SEPSESEKASSTRSES SES SSERESH SSS FTA GSS SF SAKINA SHES SS SESSESSASVS SHSEBESH 
347 SCNSES SNS 16 9XR1) »#-* STORE OLSIRED DATA 
348 SYNC3 TSN #-#49XRi}9%-2 *CK FCR AND BR4NCH IF SYNC BIT 2S 
349 BACK3 BE SENSE3 #NOV IN THE CONDITION SPECIFIED 

15E5 350 MYC —- WORK. g DELAYAd4} LOAD A DELAY COUNT 

1596 351 SUB3 $2 #CRK(4?,DOGLE2) DECREMENT THE DELAY COUNT 

1505 352 MVE —- WGRK-4 eWORK-4 (63 DELAY 18 MACHINE CYCLES 
353 BP = $uB3 LOCP IF COUNT ES NOT G BUT IS PLUS 
S54 HESESSHESSE SSE SSSEES FE FIES IE SAKESHKGARSKKELSE SRREKVLKRSE KSESSSKS GES ST HE SHS SAKHVTS 
355 ¢ START HERE IF 2 SYNCS 
358 GEERESS SHLEHSE HRS HS SPKEALSEE ST AREHLLSES FF EKE OLE SHLSES GH OIEHSLS OHS ELS § OES OSE 
357 SENSE2 SNS 1 €yXRL3 y#-# STORE DESERED DATA 
258 SYNC2 YBN #-#45XR13_9-*8 #CK FOR AND BRANCH IF SYNC BIT ES 
359 BACK2 BF SENSE2 *NOT IN THE CONDITION SPECIFIES 

1561 360 HVC «WOK, DELAY204} LOAD A DELAY COUNT 

1596 36h SUBZ SZ wORK(4),0001(33 DECREMENT THE DELAY COUNT 

15D5 362 MVC - WORK~4,WORK-4 (6 } DELAY 18 MACHINE CYCLES 
363 BP SLB2 LECP TF CCUNT IS NOT O BUT IS PLUS 
36S SVSESSSSSREKS ARS LE SCKSRGSHERCESVELR SI SEASS FIRES ESERELS KEKSEKES KE REERARESIOSSH 
365 % START HERE IE 2 SYNC 
366 SHSSSSSERASSFASSRSERESSS SK SVK BARRIS SS SHIRES SHI SS SSSEKAZ FRESE CKERRVESLE SLAERA 
36? SENSEL SNS 1M eXREP 2t-# STORE DESIRED DATA 
368 SYNCL ISN #-*€yXR1},¢-4# SCK-FCR AND BRANCH If SYNC GIT ES 
369 BACKL BF SENSE *NOT IN THE CONDITION SPECIFIED 
370 NOWAIT B to BR 10 SJART SAMPLES IF NO DELAY 

15D 37k MVC - WORK, JELAYI E42? iGAD & GELAY COURT 

18968 37Z SUBL SZ WORK(4) ,DOO10}) DECREKENT THE DELAY COUNT 

1505 373 MYC WORK—4,WURK-4(6} DELAY 18 MACHINE CYCLES 
374 SP SUI LOOP EF COUNT IS ‘NOT 6 BUT IS PLUS 
375 WHERE B +44 
376. S9eesanseseaestess Castes aeeeseteseseseeseresees sates sea ceseete sss seoses 
377 * START SAMPLING 
378 HEROES ATES ELDEST ESTE TERSS TENSE EEAE SELLER TEAS EAAR ENE SOE SSE EE SE SBS SEES 
379 * SENSE EVERY 50 MICRO-SEC ONLY 
280 seedoseseseseessstasensseseseaeseebadseaeeeatanseacstscesesee ses casect 
381 SNS3 SNS 5S€eXR1}e*-e . a Me 
382 SNS& SNS  TésXRliy*-* 
383 LA = - Uo XRUD eXAD ; 

1596 384 SZ - CHECK 153, D00165) *DECREMENT SAMPLE COUAT AND LOOP 
385 TAB3 BNZ SNS3 +BACK IF IT IS NOT TO ZERO — 
386 NOWDO LA ODATFLD+0,XR1 LCAD DATA FIELO ADDRESS 
287 LA: GRTAB40 gXR2 LGAD THE ADDRESS OF THE -OR- TASLE 

15CO 388 MYC CHECK1,NUMBER(3? 
389 SAVEIT 8 SETUP 1 GO SAVE DATA 
390 LA = Lp XR199XRI 

1596 391 SZ. CHECK1(4},D001 €23 : 
3S2 BNZ  SAVEIT 
393 Cul2 B ERRCR 
394 C9ESSSERERSERS GOST TE SETTLE ETTT OSE OES EES OOS FESEEEEERTEEESEREREC TES 9998 $E 
3$5 * SENSE EVERY 100-450 MICRO-SEC 
396 HHSSEEESCEKES SKAGLSESE SHEARS SYS SVE SK EEO THES SF HS HELE SOFT SRSE CRS EKKETHELSLE ESEKSE 
3S7 SNSS SNS  50sXR1)59*-* 
398 SNS6 SNS 7eXR1354-* 

1596 395 \ SZ SETPRI(4) 9D001(1) LL DECREMERT SAMPLE TIME COUNT BY & 
400 J. WAITSO | 3 

co 401 WAITIS MVC = WORK—190(7,XR1) 19 DELAY 19 MACHINE CYCLES 

1596 402 WAIT50 SZ SETPRTE3)2D001€1) 10 DECREMENT SAMPLE TIME COUNT BY i 
403 BH WAITI5 4 
404 LA = -@@_p XRLD YXR1 3 

1675 405 MVC |= SETPRT,HULT(2) 10 LGAD SAMPLE TEME COUNT 

1596 406 SZ CHECK1(4),0001(1) 12 *0ECREMENT SAMPLE COUNT ANO CCNTINUE 
407 TABS BNZ SNSS 4 1G SAMPLE IF COUNT IS NGT TO ZERO 
408 B NOWDG 

O3NOV6S 10FEB70  16MAR7O 14APR7TQ 295UN7G O10CTIC PROG ID OF F4-S 

816523 £16592 816651 816678 816764 16TEO PAGE 3A 


= 


renee ae ate ewer rons men ee 














ee eee 


‘ 


- 


e 


& Oo oO 


* _ s 
c y . 


oe 
© 
6 
IBM MAINTENANCE DIAGNCSTIC PROGRAM PART NO. 2589923 
o PAGE 4 
eo ab 
0 FF45 $/3 MASTER TIMING ANALYSIS PROGRAM (UMTAP) 
ERR LOC OBJECT CODE ADDR STMT SQURCE STATEMENT 
oO 410 SEVAISSEES SASH SHAPE SS SS SSSHARSHIKS KSAHSESKE KEES KSKSESSTS HKG ELH HKE KS RAKALK KER 
4&1 © SENSE EVERY 50 MICRO-SEC WHILE SAVING THE LAST STATUS 
412 Se ee Te ee ee er eee Meee eee te CeCe SSCS ORT CSS SESE SCESIRE SS 
©} OFD9 70 OC O05 413 SNSL SNS 5 €eXR1},%—-% 
OFDC 70 00 07 414 SNS2 SNS = 7€ o XR) pt -* 
OFDF 1C OO OFES OA 415 MVC 0D161,10¢R_e XR} #~OR- ACCUMULATED DATA INTO REGULAR 
© OFE% 7A 00 00 416 DDL SER -#€,XR1),%-% *STATUS AREA BEFORE SAVING JT 
ai OFET OC 03 1561 1F7S 417 MYC SETPRI¢MULTL4) LGAD SAMPLE TEME COUNT CONSTANT 
OFED 70 00 OD 418 AAL SNS  13€9XRL Ag *-# *SENSE AND —OR~ GNE 
© CFFO 1C 00 CFFS 00 419 B51 MVC = CCL 44 g*-201gXRE? *BYTE SPECIFIED EVERY 
OFFS 7A 00 OE 420 CCl SBN 140 5XRL},%-# *50 MICRG~SECONDS 
OFF8 1C 00 OFFE 00 421 CVERZ HVC CO+l,y4-%(29xXRL2 MOVE BYTE OF DATA INTO MASK 
© OFFO BA CO 00 422 CO SBN Clg XR22 eX* 008 -OR- DATA INTO ALL ZERO TABLE 
1000 36 02 LETF 423 A D509_XR2 ADD 509 TO XR2 
1604 70 00 08 424 AR2 SNS 83 ¢ eXRL Ay #—* SSENSE ANG -OR- GRE 
© 1007 1¢€ GO 1000 900 425 8B2 MVC = CC 242 gp H—- #6 2-XR2) *#BYTE SPECIFEED EVERY 
LOOC 7A 0G OE 426 CC2 SBN 14€9XRL5,%-* #50 MICRO-SECONDS 
LOOF if 00 1580 00 427 COMP3 SLC SAVEF,#-*{1,XRi} COMPLEMENT DATA 
© 1014 GC CO 1029 15a0 428 MVC = ADD #1 (1) pe SAVEF MOVE COMPLEMENTED DATA INTO MASK 
ne LOLA F2 87 06 429 J %43 DELAY 3 MACHINE CYCLES 
1010 70 00 op 430 AA3 SNS 1365XR1),¢~*. SSENSE AND —GR-~ ONE 
So 1020 1C 00 1026 90 431 BB3 MVC =—- CC 342 gp F-80149 XR1} *BYTE SPECIFIED EVERY 
1025 7A 00 0& 432 CC3 SBN 140g XR1} _#-2 *50 MICRO-SECONDS 
1028 88 00 00 433 ADD SBF O€—XR2}),X*008 ~AND- DATA INTO ALL GNES TABLE 
S 102B 36 O62 1E€E4 434 La D508,_XR2 SUBTRACT 508 FOR NEXT -OR- TABLE #DD 
102F 1C 00 10460 06 425 OVER33 MVC OR3341e%—*£1,xR13 MOVE BYTE OF DATA INTO MASK 
1034 7¢ CO OD 436 BAS SNS =: 13 6-XR1 9, 4-2 *SENSE AND -OR-~ ONE 
1037 1€ 00 1630 00 43? BBS HVC CC44E 9 t—* G1 gXRED BYTE SPECIFIED EVERY 
103C 7A 00 OE 438 CC4 SBR  144_XRL9,4-% *50 MICRO-SECONDS 
103F BA 00 CO 39 OR33 SBN 0€9XR2),x*008 —OR- DATA INTO ALL ZERO TABLE 
€ 1042 36 G2 1F7F 440 | A ° D509,xR2 ADD 509 TO XR2. 
we 1046 1F 00 159F 96 _ 441 COMP33 SLC SAVEF-1,49-#01,XR2} COMPLEMENT. DATA 
; 104B 76 GO OD 442 AAs SNS 130 9XR1L},%-# #SENSE AND -OR~ ONE 
CG LOSE 1C 00 2054 00 443 BBS MVC =- CC 5435 4-401,XR2E) “BYTE SPECIFIED EVERY 
1053 7A 00 GE ; 444 CC5 SBN 14€5XK1),%-# #50 MICRO-SECONDS: 
1056 OC 00 1050 259F 445 MVC” =AND3341013 » SAVEF-1 MOVE COMPLEMENTED DATA INTG MASK 
C 1C5C. 8B 00 06 - 446 AND33 SBF 0 9XR2) 9x°?008 -AND- DATA INTO ALK ONES TABLE. 
_105F 3C FF 15A0 447 - MVE SAVER »X*FF® RE-ENITIALIZE eo 
1063 70 00 OD. 448 AAG SNS 134 9XR1),#-2 *SENSE AND -OR- GNE~ 
o 1066 1C 00 106C 00 449 BB6 MVC = CC 641 9 #4 (19 XR) “*BYTE SPECIFIED EVERY 
1068 7A OO OE 450 CC6 SBN > - 140g XR1 944-2 ' #50 MICRG-SECONDS _ 
106E 3C FF 159F 451 MVE = SAVEF-1 4X *FFe RE-ENITIALIZE 
C 1072 36 02 1EE4 452 A- D508, XR2 SUBTRACT 508 FOR NEXT -OR—- TABLE ADD - 
os 1076 CO 87 107A 453 B $46 
1C7A 70 00 CD 454 AAT. SNS  134—eXR1),*-% *SENSE AND —OR-. ONE 
Ga 107D 1C 00 1083 00 455 BB? MVC CCT¢1,#—-%¢2,XR2) *BYTE SPECIFIED EVERY 
1082 7A OC OE 456 CCT SBN 144—XR1),#-* . *50 MICRO-SECONDS 
1085 OF 21 1561 1598 457 SZ SETPRT(4) oF1FO(2) 12 DECREMENT SAMPLE TIME COUNT BY 10 - 
Cc 108B F2 8T 1k 458 J FINSH1 3 
108E 7¢ 00 oD 459 AAB SNS  1369XR1L}_*-* *SENSE AND -OR- ONE . 
1091 1C€ OO 1097 090 46C BE8 MVC 9 CC B41 y#-4#(1,XR1) *BYTE SPECIFIED EVERY 
CG 1096 7A OO OE. 461 CC8 SBN 14(,XR1),4#-* #50 MICRO-SECONDS 
1099 07 12 1562 1596 462 $2 SETPRT(4),0001¢3) 13 DECREMENT SAMPLE TIME COUNT BY 1 
LOOF CO 84& 1O8E 463 FINSHL 8H AA8 4 
© 10A3 70 06 CD 464 AAS SNS 130—XR1},%-« *SENSE AND -OR- ONE 
1046 1C 00 10AC CO _ 465 BBY MVC = CC 94. 1 9 ¥—# (19 XR1} *BYTE SPECIFIED EVERY 
1LOAB 7A 00 OF 466 CC9 SBN 140,XR1),%-# #50 MICRO-SECONDS 
Cc LOAE 07 O03 15B3 2596 467 $2 CHECK1 (4) ,D001 (4) DECREMENT SAMPLE COUNT 
1084 70 00 oD 468 AA1O SNS 13_9XR1),#-* *SENSE AND -OR- ONE 
| 1057 1C GO 1CBD co 469 BB1O MVC CC1LOL,*-#(1,XR}) *BYTE SPECIFIED EVERY 
C 106C 7A OC OF 470 CC1O SBN _ 140g XR1} 4 #-* *50 MICRO-SECONDS 
is 1LOBF 02 O1 04 471 LA 4(pXR15_XR1 
10C2 4C 01 OF 1LEDD 472 MVC =: 140g XR1), ZERG(2) 9 CLEAR AREA TO -OR-— 50 MICROSEC SAP 
Cc 10C7 CO 01 OFDS9 473 TABL BNZ ~~ SNS1 BR IF ALL SAMPLES NOT TAKEN YET 
10€B 38 80 O20D 474 ERROR TEN SBYTE5,SNSW28 *CK FOR AND BRANCH IF PRINT 
ROCF CO 106 0O£18 4175 BT LETS *ON ERROR GR NGT RDY ONLY 
Cc: 10D3 38 40 1507 476 TEN FLAGS2,FLAGI1L *CK FOR AND BRANCH IF NG 
10D7 F2 96 OA 47? JF ALLIN *SYNC-SAMP IS WANTED 
: DATE ; 
“ 25AUG69 O3NOV6S9 10F E870 16MARTO 14APR70 295UN70 010CT70e PR - 
a EC NO. 816485 816523 816592 816651 816678 816704 816760 pace pee 
ar ary 





IBM MAINTENANCE DIAGNOSTIC PROGRAN 


FF45 


ERR LOC 
LODA 
10€0 
1OE4 
LOEA 
1OED 


peas 1OF2 
Vs LOFS 
i0F9 
: LOFF 


1203 

1109 

1106€ 

1175 

i1liB 

LLLE 

1122 

4124 

1128 

212¢ 

1120 

il2é 

113i 

L137 

4135 

2141 

t LL47 
1148 

1i4F 

1153 

1159 

*5 1150 
t 1161 
: 1165 


1169 
Oo Li6F 
1173 
1174 
C 1175 
1177 
ee 1179 
Cs L17F 
1185 
; 1189 
t 118F 
1195 


1199 
1190 
LEA 
11LA4 
Liae 
Liac 
£186 
1164 
1188 
1189 
ilBF 
21¢5 
11€8 
4 1101 

1107 


DATE 
EC NO. 


eein 


@eeeoeoeo0ee8eeeee8e008800 


GBJECT CODE 


o7 
co 
oT 
F2 
co 


38 
co 
oc 
co 


oc 
6c 
oc 
oo 
F2 
co 


io 
Ql 
30 
al 
87 


80 
90 
01 
87? 


aL 
oO} 
G2 
03 
Oo: 
87 


FFFO 


co 
co 
02 


8&7 
87 


iS5AE 
1556 


oc 


OF 


co 
oc 
aC 
C2 
C2 
oc 
38 
co 
38 
co 


oc 
co 
43 
4&F 


oi 
Ol 
ol 
06 
ce 
Ot 
02 
02 
0& 
id 
40 
$0 


601 
87 


1556 
FFFF 


oc 
oc 


oc 
oc 
3¢ 


C2 
C2 
F2 
C2 
C2 
33 
co 
co 
12 
oc 
oc 
oc 
oc 
oc 
OF 


QO] 
01 
40 
56 
o7 
66 


Q1 
02 
87 
02 
02 
01 
90 
87 


02 
06 
06 
0&8 
08 
ol 


1cees 
OEE] 
LF7S 


1c 


QE33 


O20D 
iLes 


OF AZ 


OFS! 


CFAZ 
LABE 
icac 
1508 
DA 

0222 


OAL? 
GZ 


iS5Cc9 
i503 
i337 
iSAaE 
LékA 
LABE 
ices 
1583 
i507 
1365 
0208 
4365 


i1AF 
O21A 


ioe 
1106 
17g 
1716 
M717 
17067 


1ABE 
1C6B 
os 

1ABO 
1cBA 
occo 
12CE 
V2lA 


iSe3 
15AE 
1706 
LéES 
16F4 
1106 


25AUG69 
816485 


S43. MASTER TIMING ANALYSIS 


PROGRAM (MTAP) 





PART NO. 
' PAGE 


2589923 
4A 





ADDR STMT SOURCE STATEMENT 
1596 478 $2 $8¢€2),D00141) DECREMENT SYNC-SAMP COUNT 
479 BNZ START LCOoP IF NOT TO ZERO 
1596 480 ALLIN $2 PASSES€4}) sDOOL( 13 SUBTRACT 1 FGR NO. OF REQ SAMPLINGS 
481 JZ ALLOUT 
482 8 NEXICOD 
483 # 
48% DIAG TBN SBYTE5, SNSW28 *CK FOR AND GO PRIMT NORMAL DATA 
485 BF ALLOUT iF PRINT ONLY GN ERROR IS GFF 
1588 486 MVC OUT2¢3,AHOW( 2? 
487 8 NGKOG 
488 # 
15¢3 489 HOW MVC OUT 243, AERRORI23 
LACE £90 ALLOUT MVC ORTAS43 pORTAB CS (2) *EINITIALIZE FIRST 2 BYTES OF GRTIAS 
LCBE &92 MVC ANDYAB+ 3, ANDTAB+4+5(2) *AND ANOTAB FOR PRINTING 
LSAT? 492 CLC MANY 5 ELANK C4} *BRANCK TG CAT EF DATA HAS 
£93 JRE cat *BEEN TAKEN 
494 . 8B HALT 
Li23 495 oc XL2°F FEO? 
496 & cou 
437 CAT B UNP ACK 
112C 4496 oc -EL2e26 
LizE 499 DC ALZETIME} 
41136 500 oc ALZ€LASTI 
1EES 501 MYC WORK, THOS 8023 
LEDE 502 WAIT SLC WORK ,»GNEC2} 
503. BNZ RAET 
iss9s 504 SCOPE MVC TIME,DO01I~1473 CLEAR TIME PRINTOUT 
505 : PYE  LINECT,X*008 INITIALIZE CEMETS CINE COUNT 
506 LA ORTAS42,XR} ; . 
507 LA ANDT AG42—_XKR2 
15CA 508 MYC CHECKLsSARPLE(3} LOAD SAMPLE COUNT 
509 TAN © FLAGSZsFLAGI14S *CK. FOR AND BRANCH TO PRINT GRAPH 
510 BY - OCNEXT *ifF SELECTED AFTER YTASULAR OUTPUT 
Sli TBN SB8YTES,SNSK2Z9 . *C«x FOR AND BRANCH TO SETUP AND PRT- 
512 BE DGNEXT *QUT IF NOY.RDY AND PRINT MODE Aas 
S13 SSeeesee Se Sere s tees sESSe HRs Sette eSESS AT? HOS SESRASSOSRASSSESSS £944054453 4H ; 5 
514 * START HERE FOR TABULAR PRINTOUT as 
SL SKS SSEHRSESR STATS SASS SES SS SS SHSSFRVSEHKSOGSS SSKS FERRE SSFRSFRECBVKSE SSE SKS KS VSR ETH 
1586 516 MVC NOW*3sAHASK2(2) * 
; $17 8 PRINT . 
2172 518 oC XL1°43° . 
1lL7& 519 oc “FLit7Tgse 
1176 §20 oc AL2ZELAST) © 
1178 521 DC XL2°FFFFE ot 
1496 S22 MVC FIRST#5,CTILE2) *INITIALIZE TO MGVE LEFT MOST BET 
14SE -§23- MVC. SECD1LESsCT22¢2) *NAME INTO TABULAR PRINTOUT 
524 MVI DATA, X*40* . 
i717? 525 MVC §=DATA-1, CATA(87) CLEAR DATA FIELO — > 
1539 526 MVC EXPAND se HISTRY~13(8} MOVE IN ~-MICROSEC- 
527 MMVI = EXPAND-16,X"*60° MOVE IN DASH 
52S FEHERKRGKESKHERSKERAAAKE SKE ue dihbwdese do 06000 40000 0e0nekoebb esas seises 
529 # RETURN HERE AFTER EACH LINE IS FINISHED 
SZ SHHRESSESSE SES HSE SS AKER ESS SAAS A BKSS EATHSSERSSSASSSERSHSCKSESHESEKTHERSEY 4H SUVKSEHE SES 
S531 NOWCK LA GRTAB+Z »XR1 
532 LA ANDTAB42,XR2 
533 J NGW 
534 NEXT) LA ORTAB+1,xR1 
535 LA ANDTAB4+1,_XR2 
536 KGW TEN —* X*O1* *CK FCR AND BRANCH IF 
537 : BF MOD 1 *THIS BIT IS NOT TO BSE CHECKED 
538 8 PRENT *SPACE 
116e€ 539 oc XLICLZ¢ ONLY 
ESCA 540 MVC CHECK 1» SAMPLE(3) LGAD SAMPLE COUNT 
1595 541 MVC TIME ,D001-1(7) CLEAR TIME FRINTOUT 
ISAE 542 MYC EXPAND-17eT 1ME( 7) 
ococ 543 FIRST MVC EXPAND -46(9)_4-% #MOVE BOTH HALVES OF BIT NAME 
0000 544 SECD1L MVC EXPAND-35(S} »#-* INTC TABULAR PRINTOUT 
is9C 545 SLC FIRST#¢5,ELEVEN(2) *PECKEMENT BY 11 TO PGINT AT 
O3NOVS&9 LOFEBT70 16MARTO 14APR70 29 JUNTO ClOCT7O PROG ID OFF 4-5 
816523 816592 816651 816678 816764 E1LE766 PAGE 4A 
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6 a veel | — | 
+ bead tea . : 
os 0 : 
- JBM MAINTENANCE DIAGNOSTIC PROGRAK PART NO. 2589923 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. #2589923 | 
a PAGE 5 Q PAGE 5a 
t 
° FF45 $/3 WASTER TIMING ANALYSIS PROGRAM (MTAP) C FF45 $/3 MASTER TIMING ANALYSIS PROGRAM (MTAP) i 
} 
_ ERR LOC CBJECT CODE ADOR SYMT SOURCE STATEMENT ERR LOC CBJECT CODE ADDR STMT SOURCE STATENENT 
6 11DD OF 01 1106 159C 546 SLC SECDI45,ELEVEN(2) *NEXT BIT NAME TO THE LEFT 12€6 OE OC 120D 1200 614 ALC = NGW44142),NOWS41 * 
5 ee 11€3 78 01 03 547 NOWL TBN 3€¢XR1)_X*OL* *CK FOR AND BRANCH IF cauate 12EC OE OO LIEA 11EA 615 ALC NOW541(1),NOKS41 *SHIFT ALL MASKS 1 POSITION LEFT 
11E6 F2 10 23 548 JT NOWS *B81T IS ON _ 12F2 OF 00 1259 1259 616 ALC NOW64101} »NGH64) * 
© 11£9 78 01 02 549 NOWS TEN 1(¢XR1)eX*O1* *CK FCR AND SKANCH IF } 12F8 OF OO 1271 i271 617 ALC =NGW741¢2) eNOW742 * 
L1EC F2 90 98 550 JF TRYNXT *THES BIT WAS ON BEFORE 12FE O£ 00 1225 1225 618 ALC NOW9410 1) ,NOK9E1 
LIEF 38 08 1506 552 TBN FLAGS oFLAG4S *CK FOR ANO BRANCH IF 1304 F2 81 OC 613 J3Z INIT 
Le 113 F2 10 OD 552 JT SECO SFIRST TIME ENTERED 1307 38 10 1507 620 TBN FLAGS2sFLAGI3 
: 11F6 38 01 1506 553 TIN FLAGS »FLAGT 1308 CO 10 11A4 621 8T NEXT1 
LIFA F2 90 30 554 JF DOWN) 130F CO 87 1159 622 8 NOWCK 
CG 1iFD OC 08 16FE 158D 555 MVC = EXPAND-25e VARY(9) 1313 3C€ 01 1L1A0 622 INIT MVE NGWl,x*O1° * 
1203 OC 06 LIGE 15AE 556 SECO MYC EXPAND-99TIME(T) MOVE SECOND TIME INTO MSG 1317 3C O28 11E4 624 MVI «=- NGW141L ,X*O1* * 
1209 F2 87 20 $57 J LOGIT ; 131B 3C GL 1253 625 MMVI NGW241,Xx*O1* * 
© 120C 78 O1 O1 558 NOW TEN 1€—yXRibyX*O1* *CK FOR AND BRANCH IF 131F 3C 01 122° 626 MMVI «=-NOW341,X*OL® *INIT ALL MASKS TC -01- 
ee 120F F2 10 40 559 JT NOW2 *BIT WAS ON BEFORE 2322 3C 01 1200 627 MVE 4=—- NOW441 2X*01* + 
reo 1212 CC OB LOFE 1568 560 MVC = EXPAND-25,UP{9} MOVE ~WENT DONN- INTO &SG 1327 3C OL LEA 628 MVE NOWK5S+25X*O1* * 
CG . 1218 OC O06 1706 iSAE 56k MYC = EXPAND-17 9 TIBET} MOVE FIRST TIME INTO HSG 1328 3C 01 1289 629 M¥1 NGW642,xX"O1* % 
121€ B8 O1 03 562 NOW3 TBN 344XR2)_X°OL* *CK FCR AND BRANCH IF 132F 3C Gl 127i 630 MVI 4 =—-_ NOW741 2X*019 & 
1221 F2 10 i5 563 JT LEGIT _*THE -AND- 81T IS ON 1333 3C OL 2225 631 MVI «=—- NGW94# 1, X9018 , 
Cc 1224 78 61 05 564 NOW9 TBN 50,XR1)_9X*O1* *CK FCR AND BRANCH IF 4337 38 10 1507 632 TBN FLAGS2¢FLAGI3 *CK FOR AND SRANCH IF BOTH 
1227 F2 96 OF 565 JF LOGIT #-OR- AFTER NEXT ES GN 1338 F2 16 CE 633 JT SETUP *BYTES HAVE BEEN CHECKED 
122A F2 87 5A 566 J TRYNXT 133E 3A 10 1507 634 SBN FLAGS2eFLAG13 TURN ON BOTH BYTES CHECKED FLAG 
C 4220 OC 08 1oFE 1574 567 DOWN] MYC EXPAND~Z5,D0hWN(92 MOVE -WENT UP - INTO MSG 2242 OC O1 P1AF 1580 635 MVC =ROW43 pAMASKLO2Z) * 
1233 OC 06 1706 1I5AE 568 MYC =EXPAND-17-TIME(7) MOVE FIRST TIME INTO MSG 1348 CO a7 L1A4 636 8 NEXTI 
1239 CO 87 O21A 569 LOGIY 8 PRINT 134C CO 87 O21A 637 SETUP 8&8 PRINT *SPACE 
© 123D 01 12308 570 oc XLIEOLE s 2350 16 1350 63€ oc XL1*16* *ONLY 
ick 123£ 37- 123& 571 oc iLi*sse 1351 3C 00 15D¢ 639 SNS  WORK,x*00* 
123F 1717 1240 572 oc AL2CEXPANDD 1355 3D FF 1509 640 CLE WORKeX*FFS 
6 2241 3A 02 2506 573 SBN FLAGS eF LAGE TURN GN LENE OF CATA PRINTED FLAG OQ 435¢ CG O12 OAL 641 BNE RDCNIR *GRAPHIC PRENTGUY NOT DESIRED 
. 1245 3B 09 1506 574 SBF FLAGS,x*O9* TURN GFF FLAGS 4 AND 7 235B 3A O08 1567 642 SBN FLAGS2,FLAGIS TURN CN GRAPHIC DESIRED FLAG 
1249 OC 06 L7OE 15AT7. 575 MVC = EXPAND-9¢ BLANKE 7) CLEAR SECOND TIME AREA 1363 CG 87 2141 643 SCOPE 
Cc 1246F F2 87 35 576 J TRYNXT . f. 644 ssavaneusauseasenseaneeoseeeshes $4 EGEEHH STE SHOT SHS ESES TOTES TETESS 
1252 B& 01 03 “57? NOWZ2 TBN 3€¢XR2)_xX*OL* *CK FCR AND BRANCH IF nee 645 *@ SETUP TO PRINT DATA 
: 1258 F2 90 18 S78 JF NOW? *THE —-AND- BIT IS ON ; Pa 646 sstecesesteuesasesneussanseseseeseaataressesesesees soeeeeaesanesesetses 
G 1258 BS O1 O1 579 NOWG TEN 10¢XR24—,x*Oi8 - *CK FGR AND BRANCH IF fs 1365 GC O21 1410 i4A6 647 DONEXT MVC MOVEIT43,ACATA(2} SINITIALIZE DATA : 
125B F2 10 29 580 JP TRYNXT *THE PREVIOUS —AND- BIT WAS GN 21368 OC OL 137% 15B8F 648 _ MVC THIS14+3,AMASK2(2} 
a 125€ CO 87 1203 581 B SECD 1371 38 O01 0CCO 649 TRIS) TBN ¥*€-*,X*G615 *CK FCR AND BRANCH IF THIS IS - pc Visste satis Jes 
¢ 1262 38 08 1506 582. NOW1i0. TBN FLAGSsFLAGS *CK FCR AND BRANCH IF FIRST i} -4375 F2 10 50 £50 _ Jt CKORS1 #ONE GF THE BITS TO BE CHECKED 
eae 1266 F2 10 1E 583 37 TRYNXT , 1378 OF GO 1372 1372- 651 MODIFY ALC THI S141 (1) pTHIS1¢2 *SHIFT ALL 
; i269 3A 01 1506 . 584 SBN. FLAGSsFLAG7. A37E CE 06 130C 130C 652 ALC CKGRS411(19,CKCRS41 *MASK BITS 
© 1260 F2 87 17 585 J TRYNXT CG 1384 OF OO 13E2 13E2 653 ALC = B44141) 5844) ‘#ONE POSITION 
1270 88 01 01 | 586 NOW? TBN  1eXR2)eX*C1* *CK FOR AND BRANCH IF 138A CE OO 13EF 13EF 654 ALC CKB44101)-CKB441 *T0 THE 
: 1273 CO 90 1262 587 BF NOW1O *THE PREVIOUS -AND- BIT WAS DOWN ; 1390 CE 00 13F5S 13F5 655. ALC CKAND41 (1) 9CKAND#2 -*LEFT 
G 127% OC O8 1L6FE 1574 588 MVC =—- EXPAND-25- DOWN(9} MOVE -WENT UP - INTO MSG O 1396 OE OO 13F8 13FB 656 ALC ANDCK#1(1),ANDCKE2 
1270 OC 06 1706 i15AE 589 MYC EXPANO-17sTIMECT) MOVE FIRST TIME ENTO MESSAGE eine 139C CO 01 1371 657 BNZ THIS? : 
1283 3A 08 3506 590 SBN  FLAGSsFLAGS . TURN ON FIRST TIME ENTERED FLAG tes 13A0 3C O1 1372 658 MVI  THISI141,x*Gl* * INITIALIZE ; ‘ 
© 1287 D2 O1 02 591 TRYNXT LA 202XR19_eXRL G 23A4 3C O01 130C 659 MVI =—s- CKORS42,X*O1® | FALE 
1284 E2 02 02 592 LA 2(9XR2) eXR2 m 13A8 3C O02 13E2 660 MVE B4+1,X*0O1* *MASKS 
h28D 06 24 1L5AE 1530 593 Al TIMECT) gHISTRY-22(5} ADD SAMPLE TIME TO COUNTER 13AC 3C O1 13F5 663 MMVI  CKAND4#i,X*OL® *1G 
Cc 1293 07 30 15B3 1596 594% $Z  CHECKL(4),eD001(¢1) SUBTRACT 1 FROM SAMPLE COURT mm 1360 3C O1 13EF 662 MVE CKB4+1~eX*O1* #ONE 7 
1299 CO O1 11€3 595 BNZ NOW1 13B4 3C 01 13F8 663 MVI ANDCK41 ¢X*01* et 
1290 38 02 1506 596 ‘TBN FLAGS sFLAGE6 *CK FCR AND BRANCH IF LINE 13B8 38 80 1507 664 IBN FLAGSZeFLAGLO *CK FOR AND BRANCH IF BOTH “ 
Ce . 1ZA1 F2 90 O7 597 JF WILL *OF DATA HAS NOT BEEN PRINTED ty 13B8C F2 10 SE 665 JT OGNEE - S®BYTES HAVE BEEN CHECKED 
12A4 3B 02 1506 598 SBF FLAGS,»FLAGE TURN OFF LINE OF DATA PRINTED FLAG 138F 3A 80 1507 666 SBN FLAGS2sFLAGLO TURN CN BOTH BYTES CHECKED FLAG 
1248 F2 87 23 599 J MOD1L - 13C3 CC Ol 1374 15BD 667 MVC THIS143,AMASKi(€2) 
Cc 12A8 OC O1 1263 1L1EB 606 WILL MVC NOW84+2,NKOW54+2(2) *#NC CHANGE OF LINE LEVEL HAS a 13C9 36 O1 1&D8 668 A FFFF,XR1 
Sis 1281 78 01 06 601 NOWB TEN *-*(,XRLD9X°O1* *BEEN PRINTED, SO CK FOR AND vies 13CD 36 02 1EDB 663 A FFFF pXR2 
1284 F2 90 09 602 | JF DOWN2 *BRANCH IF LINE WAS UP 13D) CO 87 1371 676 - 8B THIS) GO CHECK BYTE 1 
© 1267 OC O7 16FO 157C 603 MVC =EXPANC-26,WASUP(8} on 1305 OF. OA 1562 1562 671 CKORSL MVC SETPRTeSETPRI*1¢i1) CLEAR PRINT SETUP AREA 
; 1280 F2 87 06 ' 60% yg COND 1308 78 O01 03 672 CKGRS TSN 3,XR1),xX*01° #CK FOR AND BRANCH IF -OR- 
12CO OC O7 L6FD 1584 605 DOWNZ MVC EXPAND-26,hASON(8) 13DE F2 10 OD 673 JT CKBS *B1T IS ON 
Cc 12C6@ CO 8F O21A 606 COND B PRINT *INDICATE THAT THE LINE = 13E1 78 O01 O1 674 84 TEN «1€eXR1bexX*O21* *CK FCK AND BRANCH IF PREVIGUS 
12CA OL 12CA 607 pc xLi*cne *WAS EITHER UP OR 13€4 F2 10 20 675 JT TIMEUP * -—GR- BIT WAS ON 
12ce 10 12CB 608 oc IL2*29° *DOWN FOR THE 13€7 3C Fl i55F 676 AVE SETPRI-22X*FL® SETUP DGKN CONDITION PRINTOUT 
C 12CC 16FD 12CD 609 _ oC AL2 (EXPAND-26) *WHOLE SAMPLE PERIOD 7 13EB F2 87 1F 677 J MOVEIT 
12CE O€ OO LIAD 11AD 610 MODL ALC NOW41(1) sNOWe] * 13EE 78 O1 O1 678 CKB4 TBN = LeXRL)—X*OL® *CK FCR AND BRANCH IF PREVIOUS 
1204 OE 00 LIES 1164 611 ALC NOW141(1),NOW1¢1 * 13F2 F2 90 13 67S JF TIMEUP *B11 FS OFF 
Cc 12DA OE 00 1253 1253 612 ALC NOW241(1),NOW24) * ™“ 13F4 B8 O1 03 680 CKAND TSN 3€9XR2)_X*O1* *#CK FOR AND BRANCH 
Cnet 12EO GE OO 121F 121F 613 ALC NOW3¢1(13 »NOW341 * ei 137 F2 90 OD 681 JF TIMEUP *1f NOT ALWAYS UP 
- OO 7 . 
DATE 25AUG69 O2NOV69 10FEB70 16MARTO 14APRITG 29JUN7O O10CT70 PROG ID OF F4-5 DATE 25AUG69 O3NOV69 1OFEB70 16MAR7O 14APRTO 29JUN70 OLGCTTO PROG ID OF F4-5 
é EC NG. 816485 816523 816592 816651 816678 816704 816760 PAGE 5 EC NO. 816485 816523 816592 816651 ' 816678 816704 616766 PAGE SA 
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FF4S 
ERR LOC 


13FA 
L3FO 
2400 
1404 
1407 
1400 
4413 
21419 
2420 
B42k 
2424 
2427 
2420 
£432 
L425 
2439 
£430 
2446 
£443 
1446 
2449 
244E 
1451 
2GS56 
3459 
245€ 
1456 
2462 
1465 
£468 
£46C 
21470 
1474 
L47A 
L47E 
L48l 
1485 
2489 
148A 
2488 
248C 
2 48F 
2493 
1494 


. 


o 


2495 ° 


1497 
1498 
249C 
2149D 
149F 
24A3 
L4&A4 
24A5 
L4A7 
E4AD 
3481 
2485 
14B6 


o 


” 


L4BA 
i4BE 
14C3 
14C6 
24CA 


DATE 
EC NO. 
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18M MAINTENANCE DIAGNCSTIC PROGRAA 


S/3 MASTER TIMING ANALYSIS 


PROGRAM (HTAP) 


SOURCE STATEMENT 


TBN 
JSF 
RVI 
J 
YC 
MYC 
Stic 


TEN 
JT 
SBN 
8 
oc 
oc 
oc 
oc 
8 
oc 
oc 
oc 
B 
BC 
boc 
oc 
8 
oc 
DC 
DC 
$2 
BNZ 
8 
oC 
8 


1 —¢XR2) yX*G1 
TIMEUP 
SETPRI-@,X*FL 2 
MOVELT 
SETPRI-25TIMECT) 
#-# -SETPRICLL? 
POVEETESsELEVENC2 3 
MOOLEY 
FLAGS2,FLAGiO 
3£eXR1} oXR1 
3OeXR2}6xXR2 
LINECTILI,ONE 
WORK g XR1 

WORK~25 XR2 
LEMITSsXRi 
DATA4#10,.4R2 

OC LAR1) pX® FEF 
RAY20 

OC sXRG} oX* FES 
RAV39 

OC eXR1L) gLINECT( 2) 
RAYID 

LE gKXRLP sLENECT CES 
RAY1i0 

O%eXRZ) gXI5C* 
2t_—XR1i) eXRi 

RAY 25 

LE,XRL} »XR1L 

LEG gXR23_9XR2 
RAYO5 

WORK ¢ KR 

WORK~24 XR2 
TIMECT) eHISTRY-22€5) 
FLAGS2,FLAG12 
LINE . 
FLAGS2,FLAGI2 
PRENT 

XLL*43° 

IL1°799 

AL2 (LAST) 
XL2*FFFFFE 

PRINT 

XiL1*01° 


“IL1*88* 


ALZ(LINEL) 
PRINT 
XL1*O02¢ 
IL1*8s8¢ 
AL2EQLINE2}$ 
PRINT 
XL1°OR! 
IL1l*6e¢ 
AL2 (DATA) 
CHECK1( 4) 2D001(2) 
CONEXT - 
PRINT 

XL1* 16° 
ROCNTR 


PART NO. 2589923 
PAGE 6 


*CK FOR AND GRANCH IF 
*PREVIOUS ~—AND- BIT NOT ON 
SETUP UP CONDITION PRINTOUT 


MOVE TIME FAARTOUT INTO PRINT AREA 
MGVE THIS BIT INFO ENYG PRINT AREA 
BDECREMENT PRINT AREA ADDRESS 


TURN OFF FLAG 10 


INCREMENT LIMITS LINE COUNT 

SAVE XR1 

SAVE XR2 

LOAD ADDRESS OF LIMITS YABLE 
PRINT AREA FOR ASTERISK 

LOOK FOR SENSE SIT SEPARATOR 

GG TO NEXT BEIT INFO 

iCOK FOR END OF INFO 

GO TO END 

SEE IF LINE ES KITHIN LOWER LEMIT 
GO ON EF NOT 

SEE IF LINE IS WITHIN UPPER LIMIT 
GO ON IF NOT 

PUT ASTERISK IN PRINT AREA 
ENCREMENT LEIMET TABLE ADORESS 
JUMP TO BRANCH BACK 

INCREMENT LIMIT TABLE ADDRESS 


EINCRERENT PRINT ADDRESS 


RELOCP 

RESTORE XRi 

RESTORE XR2 

ADD SAMPLE TIME TO COUNTER 
*CK FOR AND BRANCH IF HEADING 
*HAS BEEN PRINTED 


TURN GN HEADING PRINTED FLAG 
*PRINT 


‘S*HEADING 
* . 


5d 
* f 
#PRINT FIRST 
*LINE OF 
*LINE 
*NAMES 


#PRINT SECGND 


*LINE OF 
. SLINE 
*NAMES 
PRINT 
*& LINE 
*OF 
*DATA 


*SPACE 
*ONLY 


KECSIEKKREAAY SERS SAVER SHE SHSS AH KETKEKERSKAKHKSAKKE SEK SSRSEAAE ES HKFE ASHES FAKESY 


SETUP 


REAAREEPK SARA KAG SELES S EEK ET EH EES SETHE S OS FREE EHSEE SESE SEED EE ETSESAESE FERRED 


SUBROUTINE TO SAVE TRE SENSE DATA 
GREECE REREERAERRERKER SSS CEE SLESESES EKG UE ESEEEG ETERS SHS TATES ESEKESDERARS 


OBJECT CODE ADDR STMT 
88 O1 O1 682 ANOCK 
2 90 07 683 
3C Fl 1559 684 
F2 87 06 685 
OC 06 155F LSA 686 TIMEUP 
OC OA 0000 156i 687 MOVEIT 
OF O1 1410 159¢ 688 
CO 87 1378 589 
3B 8C 1507 690 OGNEL 
D2 01 03 691 
E2 62 03 692 
OE 00 L71A 1EDE 693 
34 O1 1509 694 
34 02 L507. 695 
C2 01 1696 696 
C2 02 1721 697 RAYOZ 
7D FE 0G, 698 RAYOS 
F2 3i 1F 699 
7D FE 00 700 
F2 81 23 70x 
4D 00 00 1T1A 762 
F2 84 0B 703 
4D OO O1 L71A 7204 
F2 82 03 75 
BC SC 90 7o 
DZ 01 02 707 RAY10 
F2 87 06 _ 708 
D2 OL O1 7O9 RAY20 
E2 02 OB TLO 
CO 87 1430 Til RAY2S 
35 O01 1509 Fiz RAY3C 
35 02 1507 713 
06 24 15AE 2530° 714 
38 20 157 715 
F2 10-16 716 
34 20 1507 TiT 
CO 87 021A 718 
43 1489 719 
4F 148A 720 
1556 148C 721 
FFFF 148E 722 
CO 87 O21A 723 
ol 1493 724 - 
58 1494 725 CTl 
1638 1496 726 CTL 
CO 87 O21A 727 
02 1498 728 
58 149C 729 CT2 
1693 149E 730 CT22 
CO 87 O21A 731 LENE 
OL (1443 732 
58 14A4 733 CT3 
1717 1446 734 ADATA 
07 21 1583 1596 735 
CO 01 1365 736 
CO 87 O21A 737 
16 1485 738 
CO 87 OAl1 739 

740 

741 * 

742 

743 * 

744 
34 08 1505 745 SETUP 
iC OO 14C4 oo 746 CVER 
BA 00 00 147 CR 
36 02 LFTF 748 
1F 00 1540 00 749 COMP 
25AUGES O3NCV69 LOFEBT70 
816485 816523 816592 


ST GETCUT4¢3 ARR SAVE THE ARR FOR SUBROUTINE EXIT 

HVC OR41 9 F-*(1 oXRiB MOVE BYTE OF DATA INTO MASK 

SBN O eXR2) eX*008 ~OR~ CATA INTO ALi ZERO TABLE 

A D509—XR2 ADD 509 TO XR2 

SLC SAVEF 9*-# (1 eXR1) COMPLEMENT DATA 

16MART7O 14APRT70O 29. JUNTC cicct7G PROG ID OFF4-5 
816651 816678 816704 816760 PAGE 6 
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ry 
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oO 
1 
; O : 
' _—s«¥BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589923 
i QO PAGE 6A 
fe a 
- FF45 S$/3 MASTER TIMING ANALYSIS PROGRAM (MTAP) 
ERR &OC CBYECT CODE ADDR STMT SOURCE STATEMENT 
L4CF OC 0G £406 15A0 750 MVC AND#1 (1), SAVEF MOVE COMPLEHENTED DATA INTO MASK 
1405 BB 00 00 751 AND SEF O0%_9XR2),X*06" ~ANG- DATA INYO ALL ONES TABLE 
| 1408 3C FF 15A0 752 RYE SAVEF »X*FF* RE-ENITEALIZE 
pod 14DC 36 02 LEES 753 A D508_XR2 SUBTRACT 508 FOR NEXY -GR- TABLE ADD 
E L4EO iC 00 14£6 02 754 OVERZ2 MYC GR2241,141_XR1} MOVE BYTE OF DATA INTO MASK 
14E5 BA 6O 0G 755 GR22 SBN Gb eXRZ2},xX*00* —GR- OATA INTO ALL ZERO TABLE 
i L4E8 36 O2 LFTF 756 A 5509 ¢ XRZ ADD 569 TG xXR2 
ESEC 1F OG ISAC GL 757 COMPZ2 SLC SAVEF el (ieXR1) COMPLEMENT DATA 
| 24F1 OC OO 14Fa 15a6 758 HYC AND2241423 pSAVEF MOVE COMPLEMENTEGS DATA INTO MASK 
14F7 BB CO 90 759 ANDZ2 SBF O€,XR2},x*G08 ~AND~ DATA INTO ALL GNES TABLE 
L4FA 30 FF 1580 760 “VE SAVEF sX°FE* RE-ENITEALEZE 
14FE 36 02 LEES 7él & O508_ XR2 SUBTRACT 508 FOR NEXT ~GR~- TABLE aDo 
15G2 CO 87 OCcG 762 GETOUT B e—% 
Suis 763 * 
Teen FER SERERSSHERSHESSSLLSSSSERSEKS VSEGCHS AEST CHSHSSSRLKYEKEKSE CRE CARESTSSSERSEVK GS VKLRILES KS 
: 765 % PROGRAM INDICATGR FLAGS 
; FOG, SEREDEISELSESSESHGHS ALS EDEDSSISSE EERO LSSLSEL EAS SH EEEVELSS SHE ESSN EFF FHOSAG 
{ 2506 00 2506 767 FLAGS OC XLEtoe 
Ho ots 76E * FLAGC BIT O- 
: 769 ¢ FLAGL BiT I-HALT AFTER LAST CONTRGL CARD 
i T7G * FLAG2 BIT 2- 
\ 777i * FLAGS BET 3~FIRST SAMPLE CMND EXECUTED FOR PRIME 
! 772 * FLAGS BIT 4-FIRST TIME HAS BEER ENTERED IN TASULAR TABLE 
{ 773 * FLAGS BEY 5- 
= ls 774 + FLAGS BIT 6-A LINE OF DATA HAS BEEN PRENTED 
eee T75 * FLAGT 817i 7 
i 776 © wy wy 
oo 2507 90 150% 777 FLAGS2 DC xXLLeo? 
i Tle * FLAGIO BIT O-BYTES 2 AND 2 HAVE BEEN CHECKED 
a TIS * FLAGiE BIT 1-SYNC-SAMP RANTES 
CG: ‘ 780 * FLAGI2 BIT 2-HEADING HAS BEEN PRINTED 
78i * FLAGL3 B1T 3- 
és 782 * FLAGL4 BIT 4- : 
{3 783 * FLAGIS BIT 5- a 
764 * FLAGIE BIT 6- . 
785 * FLAGI? BIT 7 - 
C) * Wee SEEERSSERES ERESEEAEOEE NEES ESEREOESS EC ETEETEE SEEEER RES REE ESTE SEE TET E ES 
Seu). 787 * MESSAGES 
: Tae SEESEESS SEES ESTEE OSES HS SESE SHE REE TEES ERATE FEDESS SEE EEEE SESS EEE EEEREE 
oO 1598 40404040 '350B 789 MANY OC CL46* e 
150C 4040404C4C404040 151A 790 CHND OC cLis* ® 
1514 40404040404040 | 79¢ 
C. 1516 40C3D4D5C4E240E2 2546 791 HISTRY OC CL44* CMNDS: SAMPLED -— OCOPC MICROSEC SAMPLE TIME. ® 
2523 C1D4D7D3C 5C 44060 79} : 
152B 4OFOFCFOFCFO4CD4 793 
C 1533 C€9C3D9D6E2C5C340 791 
2538 E2C1D4D 703C 540E2 791 
/ 1543 CSD4C548 -792L. 
e. 1547 404003C1E2E340C3 1556 792 LAST OC CL16* CAST CMND e 
beg ao 254F D4D5C440640404040 792 
- 2557 4040404040404640 2561 793 SETPRT OC cLil® e AREA IN WHICH TO SETUP PRINT INFO 
Cs 155F 4C4046 793 
1562 40 1562 794 oc czie 8 
1563 E6C5D05E340C4D6E6 1568 795 UP pc CLOSHWENT DGWN® 
™ | 356B 05 735 
156C E6C5D5E3404CE407 1574 756 DOWN OC CLO*WENT UP ® 
1574 46 796 
1575 E6C1E240C4D6E6D5 157C 797 wASUP OC CLE*wWAS OCHNE 
157D E6C1LEZ4040E4D740 1584 798 WASON DC CLE*wAS uP & 
7 1585 4CE5C1D9C9C1C2D03 158D 799 VARY OC CLO*® VAREABLE® 
‘ 258D C5 739 
Serre sco KKEAREAHKHERKSKESKTS SSSVSSESSSSFAKESEKSS SSSI HE HE SHES THS SHREK KPETEE SHH S HAS SSKETE 
sol * COKSTANTS 
ry 892 SERKSSSKLESSHESSESITSHS ASE SA SSHKKTSE SESE KESN LEST £NTISESERSS HEFHEVS SHEERS HKSE ELA ATEE 
158E F5FO 158F 803 DS50 DC pL2*s50! 
1590 FOFOFOFOFOFOFI 1596 804 D001 OC OL 7*ccocool* 
s 1597 FIFO 1598 805 FIFO odC ptL2*10° 
1599 000A 1594 806 TEN oc XL2*O0O0A® 
DATE 25AUG69 O3NGV69 LOFEB70 16MARTG  1L4APRT0 Z29SUNTC C1OCT70 PROG ID OF F4-5 
EC NO. 816485 816523 816592 816651 816678 816704 8LE7T60 PAGE 6A 
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© dele See porte eB. : ge eae 
WE eg o & eek eeteec er nee, Matera etn te oun) Ceaae Pin Bok ha Bog e's: 
_ BM MAINTENANCE DIAGNOSTIC PROGRAM | PART NO. 2589923 I6M MAINTENANCE OLAGNOSTIC PROGRAM. PART NO. 2589923 
ez: e eRe | PAGE eae GS OO Bg eee “ | cn | PAGE Ta 
: o FF4S S/3 MASTER TIMING ANALYSIS PROGRAM (MTAP? . a FF4S S/3 MASTER TIMING ANALYSIS PROGRAM CLATAP? 
. ERR L0C GBJECT CODE ABBR STMT SOURCE STATEMENT “ ERR LOC OBJECT CODE AOOR STMT SOURCE STATEMENT 
© 159B coos 159C 807 ELEVEN DOC xL2*9008* : 1F00 873—t CRG xX*LFOO* | 
chee 1590 1983 4A59E 808 06579 OAC IL2*6579* 1FO0 874 RDFD EQU + 
ret 159F FFFF 15A0 809 SAVEF OC XL2°FFFFS s. 1FcO 1f5F BTS os CLO 5 
© 15A1 40404040404040 15A7 810 BLANK DC CcL7* _@ te if60 876 CMNDS EQU @ . *COMMAND AND/OR 
ASAB 40404040404640 ASAE 812 TEME oc cL7e _ LF6é0 LF6F 877 os CLié *DELAY TABLE i 
. L5AF 4040404049 26B2 812 CHECK DC evs , NUMBER OF SAMPLES bo, LF7O aF7C 876 MASKE DS CLI i 
& B13 FEREEEEKESS SEEKS EH LEESERELSES ES EY SESE SSELES CHES ILE S SSEAREKE EERE SHAS HAH ae RFT? 1F71 «6879 MASK2 DS cur i 
814 @ ADDRESS CONSTANTS / egacace LFET2 1F7S 880 FULT OS CLs i 
BLS FHERERSELEEESSRSALSR ASE SERSLHE HS SRASLHSSERSR ESE SBA SLES ASEELARELT GFA MAHRAG jee LF76 1F7S 6882 PASSES BS CLS SPECIFIED NUMBER DF SAMPLINGS © 
@ 1584 1F00 1585 816 LORD OC ALZCRDFD} Ss LFTA 1F7D 882 TEMES ODS CLée 
LSB6 1L5E5 1587 8k7 ALINEL DC ALZELINEL-36} AFVE GiFo LE7TF 6883 0509 8 DC IL2*5C698 
1588 1630 1589 818 ALINE2 OC ALZILINES-865 : BES SESSHASESSERLESHSESESSESSSESE SEEKS SCRERSESE ARES HE DAAERSS SEEK GHADS EE SREBERE 
© LSBA 2103 1586 819 AHOW oC AL2 (HOW? : 885 * THIS AREA CONTAINS DATA WHICH WILL ONLY BE USED WETH PRINTER TAP 
458C 1F70 i5BD 820 ANASKL BC ALZ&MASKi} B86 FREREAERERS RES GSE SK EERE RES SA GREASE SR CES TA EAA KE SENS EFEEAG S$ HERS SETS SERED 
ee LOBE LFTL ‘ASBE 821 AHASK2 OC “ALZUMASK2) ; LF@S OC O1 GESO LEAL 887 LOPRNT MYC LET3¢3eFORME2) MUST BE AY ADOR -1LFSO- 
@ 215CO OEFF 325Ci 6622 ATIO OC AL2UTIOCNDS ; TFa8é CC G1 CE4F FAS 886 MYC LET4¢3¢ IMACE(2) 
. i5C2 10CB8 15C3 823 AERRCR OC AL2 {ERRORS AFSC OC O1 GES3 LFAS 8893 MVC LET5S4+35PTAREAC2) 
15C4 OF50 L505 824 ANOWT DC ALZiNOWAET) i aF92 OC C3 OEST IFAD eso MVC TICTWO* 3 ePRTBSY*3( 4) 
o 2506 1721 ESC7 825 DATAL oC AL 24 DATA410} ‘ 2°93 3C OD COFA 891 . AVE MAYBE, xX?#008 
- B26 FFREEER ET EERE SESSLER SSESHTEE SE EEHS ASSESSES SHAE SHSLER ELS HEE S ERS ERE SHEETEH (as ; FSG CO 87 onCD 892 8 LOTHEM 
827 * RESERVED STGRAGE AREA LFAO 1581 LFAL 893 FORM DBC ALZ2(WASON~3) 
@ ies 828 SSSSSSEESIAEGESS SHESS ELIS EG IHISSSASSESSESSALES TSE SEARHCES FF AACKSL ESCH AEALER EAE LFA2 LFEAG 1FA3 894 PTAREA DC” ALZGATETC3 
15¢c86 15CA 829 SAMPLE DS cla : NUMBER OF SAMPLES TG BE TAKEN LEAS IFAS 2FAS 895 IMAGE BC. ALZQATECOS 
25CB iSCD 830 NUMBER DS cL3 ’ , 3 LFAS O87C SEAT 896 ATETC DC Xi2*s7cer = 
© iSceE 1509 631 WORK os Chia j _ EFAS C806 LFAG 897 ATEQG OC XL2*806*% 
Las ESDA 1506 832 DELAY1 OS Ct4 i ifAA CL EG OES4 ‘898 PRIBSY TIO TiOTWOyX*ES® 
z LSDE .L5E1 833 CELAY2 DS Cle / ‘ g c : 899 SESESSESERE VERSE SS SESS SSECEKESSAESESES4SSEFERSE ERE SHETEKESSSE GSES ARAGABESH 
Q- iSE2 i5—€5 .834 DELAY3 DS  CL4_ . Se é { w 900 & EQUATES . os 
: 2SE6 1636 835 LINEL DS CL86 ‘ ; . ; 7 ‘ $02 SEES EESASE ERS SES GSEESKES $4 04 9F £9 OFFS FEES LAEES HEESEESERESCEESE &F 549544495 
: 163C 163D 836 Os Cu2 . ba’ : : , ag O00 902 xRi EQuU i ‘ 
7 o 163€. 1693 837 LINE2 DBS cise : Le G0C2 903 xXR2 equ 2 
1694 1695 838 oS = C2 ’ ue is sit, 47 ‘ 0008 904 ARR EQU = X* G8" Zo 
* “ 4 1696 839 LEMETS EQU - ee eS O29D 905 SBYTES EQU x*20D8 ms g 5 »” 
C ' 1696 . a : 163F . 840 DS Ct42 } G21A 906 PRINT EQU K*2zAe ~~ » 
- tO 16CO 841 CATFLO EQU * O22E 907 UNPACK EQU - X*21E¢ , : 
Ey 16co " - QABB) 842- bos 4Ci255 °-. . : : _ : im 0222 908 HALT EQU - X*2228 oe tes 
: ty 1ABC 843 ORTAB EQU ‘© - : a ee S . et un 0226 909 PACK EQU° xX*2268 - 
SZABC “1CB5 844 ~ ~~ OS 2Ci253 ; ; : ; ; O22A 910 LOAD EQU xX*22A* 
1CB86 iCBé 845 |. os cil SS . . ~~ . (0086 911 SNSW28 EQU = x*80* 
"©... 1687 1CB8 846 SS os... ct2 f _SYNC-SAMP COUNT AREA Pst © s 0046 912 SNSW2S EQU xX*#4g8 
1CBS 6847 ANOTAS EQU * i 7 , fe ‘ 0010 913 SNSW28 EQU X*10# 
oS 1ca9 1EB2 848 DS 2CL 253 0040 914 FLAG] EQU xk*4QGF 
Oo 1€83 1EB3 845 ctl . bog a ‘ O a: 0010 915 FLAG3 EQU = xX*iOF 
: eae 850 SSORSESESEFE SESE EE ER ERLE SERESS EEETESRERE HERES AERRES ENS HOES OES 44 ERERERE eas C008 S16 FLAGS EQU x*GeFt 
i. _ 14 : 851 * THIS AREA CONZAENS DATA WHICH WIL ONLY BE USED WITH A DISK TAP tte ‘ OOOZ 917 FLAGS EQU. x*Oz® 
6 852 FEERFRESSESEEESESE EE FOE EES EE EEEE EEE SEESS 94458 U8 OESEEEEEEES £E66 45444046808 © 00Ol 918 FLAG? EQU x*O;1* 
: 1€B4@ 853 BOISK EQuU # * 2 , 0080 919 FLAGIO EQU = xXx*s08 
1EBS _ EBT 854 DISK 90S CL4 ; se 0040 920 FLAGLI EQU = x*4QF _ “8 ; 
© 1E88 1EB@ 855 BACK DS Ct ann C 0020 $21 FLAGI2 EQU  x*208 7 ; a 
1EB9 1E89 6856 CPISIT OS cil 7 - 0010 922 FLAG13 EQU = xX*2LOF 
1EBA.CC 03 LEB? 1608 857 LODISK MVC =D ISK» CATFLD424(4) , ; ; C908 923 FLAGI4 EQU x®0B85 
Cc ZECO OC O01 OFS5S3 LEDT. 358 MVC =6LET5S€3,CDISK(2) ; . C: CCO% 924 FLAGIS EQu = x*O4* 
1EC6 CC 00 LEBD 16EA. 859 MVC 8 =—- GP ISI Ts DATFLO442¢1) 41717 «925 EXPAND EQU) DATFLD+¢97 
ZECC OC OO 2E88 1607 860 MVC) 8 =—s- BACK, DATFL 042301 1717 926 DATA EQU DATFLDC8T 
© 1ED2 CO 87 OBOD 861 8 LOTHEN i “ag = fs OQ A7ZlA 927 LINECT EQU DATFLE+¢90 
vaun LEDé 1ED9 iEDT 862 CDISK OC AL2CACDISK) ,  % Se Povaa FFFF 928 END 
1ED8 1EB4 ~ 1ED9 863 ADISK O0C AL2(BOISK) 
© 1EDA FFFF 1E€08 9864 FFFF OC XL2*FEFF* Zi O 
‘REOC C000 AEOO 865 ZERQ 0C ML2¢0° ; 
LEDE 02 LEDE 866 CNE oc XL1¢91* - 
Cc LEDF CO 87 0€58 $67 NOTL 8  TIOONE © : . O 
LEE3 FEO4 1EE% 868 C50@ DC XL2"*FEOG" . : 
LEES FOF OF2 LEET 869 68002 oc 8L3*e02¢ 
© LEES 2380 AEE 870 TwO380 DC XL2*23868 ‘ me j 
LEEA G00000 LEEC 871 CELAY oC XL3*000° : 
: ‘ baw 872 : : 
fo _ DATE 25AUG69 O3NOV6E9 1OFEBTO 16MAR70 L4APRTO. 29 SUNTG O1QCT70 PAGS iD OFF @-5 pate 25AUG69 @3N0V69 AOFEBT70 LOMARTO R4APRTO . Z9JUNTO C1oct7a PROG 1D OF F4-5 . 
7 EC NG. 616485 816523 816592 816651 816678 916764 616760 PAGE 7 EC NO. 816485 816523 816592 816651 816678 Gl6TGs 816760 PAGE TA 
° : | 
3 : S fad i 
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IBM MAINTENANCE DIAGNOSTIC PROGRAR PART NO. - 2589923 
8 PAGE 8 
FF45 $/3 MASTER TEIMENG ANALYSES PROGRAM {NTAP) 
CROSS-REFERENCE 
SYMBGiL T LEN VALUE DEFN REFERENCES 
AAL A003 OFED 0418 62129 
AAlIG & 003 1084 0468 O221* 
AA2 AGO3 100% 0424 6213% 
AAS £003 101D 0430 0214 
AAS & 003 1034 0436 0215% 
AAS A COB 10468 0442 0216 
AAG A003 1063 0448 0217¢% 
AAT & 063 1G7A. 0454 0218% 
AAS & 003 LOSE 04659 G21Se 0463 
AAY & 603 1083 9464 02206 
ADATA A OC2 1446 6734 6847 
ADD A003 1028 0433 428% 
ADISK A OC2 LEDS 6863 C862 
AERROR A002 2203 O8z3 0489 
AHOW A OC2 1583 0829 0486 
ALINEL & 002 2587 9817 023¢ 
ALINE2 & 002 1589 o8i1e 0240 
-ALLIN A COB 30€4% 04860 C4277 
ALLOUT A 006 31109 6690 0481 0485 
AMASK1 A 002 3258B 06826 0259 0635 Gé667 
AMASK2°A 062 iSBF 0822 0244 G516. cEse 
AND & 003 2405 C752 c7scs ; : 
AMDCK & 003 43FA 0682 0656 656% 06632 
ANDTAB A COL 1C8S 0847 0O30* 0283 0283* 0284 0284* O6¢L GC491® 0507 0532 0535 : 
AND22 A 003 L4&F7 GTSE O756% : + 
ANDS3 A003 1056 0446 0445¢% — . 
ANOWT A O0G2 i5C5 C824 023% 
ARR t GOL 60008 0964 C745. a 
ATEOO £002 IFAS 08697 c8os Q 
. ATETC & 062 LFA? 0896 089% e 
ATIO A OG2 2SCL 06822 “O134 
BACK ACOOL RLEBB 0855 0324 o8s0« 
EACKL & 004 OF4C 0369 ols? , a 
BACK2 A 00% OFZ2C £359 0125 ‘ 
BACKS A 00% OFOC 0349 0126 By OO - as 
881 -A OCS OFFC 0419 °° #O222% 
8B10 AO0CS I1CB? 0469 °° #£oO2318 
B82 A COS i007 0425 0223% 
663° =A 0C5)=§ 1620 04323 02 24% 
BRS A 00S 1037 0437 0225% 
BBS A 0CS 1IC6E 6443 0226% 
BBG a 085 1066 0449 0227% 
Be? A 905 ‘107D 0455 0228¢ 
BBS & COS 1091 0460 02298 
Bee & 005 10A6 0465 02300 . 
BDISK A OClL 1684 0853 0863 : 
BLANK A OO? i547 0826 OO27 OC2@ 0120 0115 6123 0242 0150 0171 O173 0232 0265 0492 
0575 - , 
BYPASS A OC4@ CEL 0278 02 T% 
B4 &£0C3 13El 0674 0653 0653¢ cEesce 
CARD A G04 OATS 0059 0049 
CARDZ2 & 00S OADI OST 6060 
CARDS & 00% OAS2 0068 0062 - 
CARD5 A 004 OAFC 0087 0O76 
CAT A&A G04 2128 06S7 0493 
CCh 4 003 OFFS 0420 04198 
CCiO A COB LEB O470 0469% 
CC2 & 003 icCl 0426 0425% 
cc3 A COB 1025 0432 04314 
Cl4 A 003 103C 0438 @437% 
ccs A003 1953 6446 04434 
Ccl6 A003 2068 6650 04498 
CC? ‘A 002 1682 6456 064558 
cs A002 1095 046i _ 0460% 
cc9 A 063 CAB 0466 04654 
CDISK AOOZ iED? 0862 0856 
DATE 25AUG69 C32ROVE9 16FEBTO 16HARTO 14APRTC 29 SINFO 916CTTe PROG IB OF F4—§ 
EC RO, 816485 816523 816592 816653 8166F8 816704 816769 PACE 8 
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- 18M MAINTENANCE DIAGNOSTIC PRGOGRAK PART NO. 2589923 
PAGE 8A 
FF45 S/3 MASTER TEMING ANALYSIS PROGRAM (CMTAP} 
CROSS-REFERENCE . 
SYMBOL T LEN VALUE DEFN REFERENCES 
CHECK1 A 005 1583 0812 ©331% 0584¢ O368¢ 0391 0406% 0467 0568% 0540* 0594% 07358 
CKAND & 063 13F4 0680 0655 0655% C66le |. 
CKB4 A 0G3 I3£E O678 0654 Cé54* C&62* 0673 
CKFE &£ 004 OAAS 9079 06 33 
CKORS 4 003 1308 0672 0652 0652* Ce59¢ 
CKORS! &£ 00S 1305 O67? 6650 
CKO & 004 OARS 0083 Gos80 
CkK4i & OCS CBID 6137 0132 
CK431 A 006 O857 0131 0124 
CK42 A COS «0B43) «6123 O1lé 
CLEAR A 006 6895 G24k C135 
CKHND £015 LSLA 6796 costs 
CMNDS A GOL LF60 0876 C056 9285 
COMP A 00S i4CA C749 01594 
COMP22 A 00S L&EC O757 GL65* ‘ 
CoMP3 £005 200F 0427 Olé 
COMP33 A OCS 1645 6443 01672 
COND A CC4 L266 9606 C604 
cow £004 OAL? 0026 0496 
CTE A 002 1494 6725 0241 92494 ; 
CT12 & G02 12496 6726 0229% 02474 6522 
ct2 & 001 249€ O729 0242*% 0250¢ 
C¥22 A002 145€ 6730 0240® 0248%* C523 ; 
CT3 & G01 i4A4 0733 0243% 0252% 
DA & COZ GASB 0039 00364 
DATA A OOL 37% 0926 0524% 0325 0525% 9697 9734 0825 
QATAL A O0G2 I68CKh O825 0098 . 
_DATFLD A OOR 16CG° 0841 OLOT 0212 0113 O214- O118 0149 O127 0128 O133 0229 0240 0145 
fo porta O46 0147 “0148 6152 0153 02534 925% 0155 O150 0157 0158 6159 . 
a ae 6160 O161 0162% 0163 6154 G1E5 0166 0167 0268 O175 O179 0180 po 7 
sae nas - 0188 O018S ©6296 0332 0386 C85? 0859 0860 0925 0926 0o927 i 
DDL A 063 GFE& 0416 0211% -0415% © ; : : 
DELAY A 003 LEEC CaTzl 0204* 03164 
DELAY2 A 004 1500. 0832 0138* 0205 637% . ~ ~ 
DELAY2 A G04 25£1 0833 0126% 0360 
DELAYS A CO4 15€5 0834 OL17# 0350 
‘DELAY? A COG OE78 0304 0306 
DIAG £9004 10F2 0484 0293 6294 
DISK A CO& E87. 6854 0317* 0324* 0857% 
DLYiZ & 00% OE8@C 0308 6309 es 
DONEXT A006 1365 0647 0510 0512 0736 : ee 
DONEL A 004 141D 0690 0665 . 
DCWN 2 G09 1574 OF96 0567 O588 . . ; a2 
DOWN} A OC6 1220 CSE? 0554 ee 
OCKN2 A O06 22€0 0505 0602 
DO0L 8A COT 1596 5804 0142 6205 0305 0336 0351 0361 0372 038% 0391 0359 0402 0406 
a 0462 O467 0478 G48C 9504 0541 0594 0735 
DOO2 «=A 003. LEE? 0869 0204 Ss 
D50 A 002 158F 0863 0242 
D508 A 002 EES 0868 C434 0452 0753 O761 poe 
0509. A 0G2 LFF O8683 0423 0446 0748 0756 ae tons, 
D6S5T9 ~& COZ 159E at C307 Fo Peas. on ge ene 
ELEVER A COZ 259C dad? 0247 G248 G249 O25 0251 C252 O545 0546 “oess. = 5 es 
ERROR A 004 2008 D4ETS 0393 0&23 Be ae <b Liethe oad Ss 2 ae 
EXPAND A COL LILY 0325 C528* C527* 0542* 0543* 0544* 0555%. 0556* 05603 0561%, 0567 05624 572 oe 
ee 0575* C588* 0589 O6032% O6C5* 0609 = -- ae Bee Hk eee tes 
FFFF A G02 TEDB caee. G308 0668 0669 o, ans 
Fee A oCi GRAD 6DE : 
FIFTVi A 006. OC6G 01279 0172 
FIFTY2 A 006 CCM Glas 0174 ; 
FENSHL A 004. LO9F 0462: 0458 * 
FIRST & 006 11CBR “0543 0522 0545¢ ~ ce wR ae 
FEX A G06 OCAE 0202 0162 O17? G63 GAG .0192-"EEDS . 
FLAGS AOOl 1566 C%¥ 0079 0235* 0239* 0264% 0326. 0328¢ ; 
ge ates ae 0590% 0596 ¢598* ch at ater a 
FLAGS2 A 002 1507. 0626* GC9S* O102* G256 
DATE 25AUGE9 1OFEB7O ss LGMANTO® 
EC NO. 616435 °°: 816592 |. 616653 

















©. 0,8 ©. © 00.6.0 0.0.0 0006 O68 OOOO OH8OOHOO SO 
“bs a, aU ; 
mee } 
cc 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589923 | 18M MAINTEMANCE DIAGNOSTIC PROGRAM PART NO. 2589923. 
6 PAGE 9 , ; PAGE Ok 
Roa ; : 
6 FF4S  $/3 MASTER TIMING ANALYSIS PROGRAM (KTAP) | "1° F455 $/3) MASTER TIMING ANALYSIS PROGRAM (MTAP) : 
CROSS-REF ERENCE CROSS~REF ERENCE i 
© SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE DEFN REFERENCES | 
cee 0666 0690% 0715 O717# NGW3 A 003 121E 0562 0613 C613* 0626*% 
© FLAG’ C 001 0040 0914 0079 06235 0238 NOW A003 120C 0558 0548 0614 0614* 0627% 
-FLAG1LO € OGL CcOBe 0919 0664 0666 0690 NOWS A 003 LIED 0549 0600 6615 0615* 0628* 
FLAGLA C COL 0040 6920 0102 0476 NOWG &003 1258 0579 0616 0616* C629¢ 
© FLAGIZ2 C-0O1 0020 0921 0715 0717 NOK7 A 003 1270 0586 0578 0617 0617* 06304 
FLAGI3 € 001 0010 0922 0620 0632 0634 ..., NOWS & 003 1281 0601 C600* 
FLAGL4 C 001 0008 0923 0509 0642 "' NGW9 A 0C3 1224 0564 6618 0618* 06314 
© FLAGIS C COL 0004 0924 0099 0256 0258 NUMBER A 003 15CD 0830 0203# 0204* 0331 0388 
FLAG3 C COL OG1U 0915 0326 0328 ONE AOO0i 1EDE 0866 C196 C304 0310 OSC2 0693 
FLAG4 € 001 0008 0916 0551. 0582 0590 GNLYZ A 003 O£DG 6327 0269% 0275% 0278* 
€C FLAGe C COL 6002 0917 0573 c5S6 0598 oo A 003 OFFD 0422 0421* 
ver ELAG? C COR 0001 6918 0553 0584 GPISET A OOL 1EB9 C856 0317 0859 
FORM A OOZ FAL 0893 0887 : OR A C03 14C3 0747 0746* 
GETON A 006 CCD6 0212 0208 - ORTAB A OC] 1ABC 0843 0029* O28i 0281% 0282 0282* 0333 0387 0490 0490% 0506 0531 0534 
GETOUT A 004 1502 0762 0745% GR22 .A 003 1465 0755 07546 
© HALT C 0Ol G222 0908 0024 0082 049% R33. «A 003 «103F 60439 0435* 
HESTRY A 044 1546 O791 6141* 0142* 0526 0593 O714 __.. OUT2Z A C04 OFAD 0393 0486* C489% 
HOW A 006 1103 O4&9 0819 . 1,3 GWER A 005 14BE 0746 0158+ 
© IMAGE A002 1FAS 0895 0888 : , : ts GWER22 A 005 14E0 0754 01649 
INIT A 004 1313 0623 0619 GVER3 °A 005 OFFS 0421 0160 : 
INIT2 A 003 OELS 0279 0276 GVER33 A 005 102F 0435 0166* ; 
CG ismMFcu A 004 O£03 0273 0268 PACK C 001 0226 0909 0053 C89 0104 
JUMPET A O06 OCAB O20E 0197 PACKIT A 004 OAF2 0104 co10i 
LAST & G16 1556 0792) -0500 6529 O72! _ -PACKL «=A O06 OF83 0138 0129 
C LATER A G06 OD72 90239 C237 tl PASSES A C04 1F79 088) 0266% 04804 
LGDISK A C06 LEBA 0857 olil : PRINT C 001 O21A 0906 0044 OC7? O52% 0538 0569 0606 0637 C718 0723. O727 0731 0737 
-LDPRNT A G06 i2f80 0887 0109 : PRIBSY A 004 1FAA 0898 0890 ee! 
. ©€ Lord A002 1585 0816 0287 0291 0292 ae : ‘ PTAREA A 002 1FA3 0894 cae9 , 
cic, LOTHEM A 006 OB0D 0112 0861 0892 a e cvv, RAYO2 A004 1439 0697 0098+ 02524 b 
LEFT. .A 004 CC74 6185 olsi a te Je RAYOS A CO3 1430 0698 O72 
C LeFt2 A 00% OC8F. 0194 0190 ; / {+ RAYIO A 003 145C 0707 c7o3 0705 ~~ z . 
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3 PAGE 1 
0015 . CPU AND MPHOPY DIAGROSTICS: PROGRAN 01 
ERR LOC OBJECT CODE ADDER STANT SOURCE STATEREST 
0000 2 UVWXYZ START 0 
2 DECK 4 
& CSCS SET ESSE TER EESSSES SEEDS OEE SERREEESESSECES EE EEESES SERS EOSESEESEESES 
5 eeneee eesese 
6 Senene PROG 1 ‘eeease 
J etee8¢ eeeees 
B sesens ALL HALTS ON THIS PROG ARE *E* HALTS etenes 
9 seenes HALTS "E21 , ?B4e *E9* ARE EXPECTED IN THAT ORDER *eee00 
10 eeee¢ ANY OTHER "E£* HALTS ARE ERROR SALTS oesese 
41 seeeee , seeees 
12 see cee Sseseeee 
13 sense eeeets 
14 ¢eeee8 (HPL) HALT PROGRAMS LEVEL sesees 
15 *eesee (10) LOAD SFCU PRIMARY ADDRESS REG. seeeee 
16 ¢8ee8¢ (STO) START I/0 MPCU IPL NODE READ eeeses 
17 teaens ‘ Seeee8 
18 sueees TEST a) APCO READ TIER 1. eeeses 
19 sessed (2) MPCU READ TIER 2. sesess 
20 seeeee (3) RPCU READ TIER 3. setese 
21 eens (8) GATE LSB LO CROSSED TO A. seeeee 
22 teenes (5) GATE LSR NORMAL TO A. esses 
23 #ee¢82 (6) RESET CR. Sesees 
24 teens - (7) SYSTEM RESET. sesese 
25 eeeee¢ (8) BIN ADD SOB NOT SOV. eeenes 
26 se8e88 (9) IR BACKUP sesesse 
2?) seee8n seeese 
28 seeeee NOTE: INSTRUCTIONS IN CORE LOC 00-1F ARE IN TIER 1 seseses 
29 veces INSTRUCTIONS IN CORE LOC 20-3F ARE IW TIER 2 eeesee 
30 *eeeee INSTRUCTIONS IN CORE LOC 4O-SP ARE PUNCHED sesees 
31 teeene 1sTO TIER 3 USING A 6 BIT CODE. sesess 
32 Sees ee seeee2 
33 FERSHSSEORERESSSTEEES ESSE SESS OREE ESE RED SRER ERE OR ESERESEEESEORSEEESEEES 
34 : 
9C0C FO FC 03 35 HALT? APL Xx*03*,x* FC! PROG 1, HALT 1. FIRST EXPECTED HALT 
36 «© HALT DISPLAY = £1 
37 6 THIS HALT INDICATES THAT COLURBES 
38 * 1,2 & 3 OF TIER 1 WERE READ OK. 
é 39 © REPER TO CHART. 
- 80 
9903 P2 CO 00 41 JONP1 JC JUMP2,X°00° JUMP TO JONP2 
&2 
0006 F2 CO 00 43 JUMP2 JC JUMNP3,x*008 JOSP TO JUBP3 
uu 
9009 P2 CO 15 4S JOMP3 Jc HALTS ,x*008 JUMP TO RALTS 
&6 
ococ PC PC 76 47 HALT2 APL X*76°,x*PC8 * PROG 1, HALT 2. ERROR HALT. 
4B « *HALT DISPLAY = E2 
49s *(JUMP3) PAILED TO JUNP. 
50 
OOOP a0 CCORP 51 pc CcLi® ¢ 
0010 CO 0010 52 pc XL 1°00" 
0911 ucCuo4d 6013 §3 ne CL3* ° 
54 
0018 oC8sC 0915 55 ADROOT DC XL2*0080* DATA TO BE LOADED IN SPRAR BY (LOAD) 
CC16 GSOUCKOLCHDUCENUO CO1F 38656 pc CL1O* ¢ 
OO1R uOKO ; 56 
9020 00 vu20 = $7 Dc XL1°08 
58 
59 
(O21 FO FC 18 60 HALT? HPL xX*1B* x*pce PROG 1, HALT 4. SECOND EXPECTED HALT 
61 * HALT DISPLAY = Ea 
62 * THIS HALT INDICATES THAT COLOANS 
63 8 34, 35 & 36 OF TIER 2 WERE READ OK. 
64 * RESET THE HALT. 
65 
9020 31 PS COS 66 LOAD LIO ADBOOT,X'FS! LOAD MFCU PRIMARY READ ADDRESS LSR. 
67 
0028 P3 F1 4S 68 SIO Xx*G5* xepye READ CARD 2 ISTO Loc 0080 THRU OODP. 
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JOUSP TO BALT9 
* PROG 1, HALT 7. ERROR HALT 


*HALT DISPLAY = £7 
*(JUSP8) PAILED TO JUAP. 
*REFER TO CHART 





* PROG 1, HALT 5. 
*HALT DISPLAY = £5 
*(JUAP1) PAILED. 
*PAILING CARDS A-B3B2 
*PAILING FURCT 4 


ERROR HALT. 


CORE LOC 0058 6 0055 ARE BLANK 


* PROG 1, RALT 6. 
*HALT DISPLAY = 26 
*(JUSP1) PAILED. 
*PAILING CARD@ A-5B382 
*PAILING PUNCT 4,5 


EREOS RALT. 


*PROG 1,HALT 9, THIRD EXPECTED BALT 

*HALT DISPLAY = £9 

*THIS HALT IBDICATES THAT COLUANS 8 
*90,91 & 92 OF TIEB 3 VEBE PEAD OK. 
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CROSS- REPERENCE | OBJECT CARD LISTING 
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eet Se a eae, innaee NOES neue . | E CHARACTERS D E£ H INDICATE WUMERIC SHIFT 
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‘ PAGE 3 ‘ i PAGE 3a 
0025 CPU AND MEMORY DIAGNOSTICS: PROGRAM 02 , | 0025 CPU AND MFAMORY DIAGNOSTICS: PROGRAM 02 . 
£RR LOC ORJECT CODE ADDR STAT SOURCE STATERENT é CROSS-BREPER ENCE 
0080 2 OVUXYZ START 128 SYFBOL T LEN VALUE DEPN REPPRENCES 
3 DECK 4 ‘ 
GQ SCHERER ESERESCSSE HSE SEEEKES SEE SKS SESETS SE SHSESSESHHSSSSSVSSCSHKESESESESSSSSSESSS PACDOR A 008 CO9F 0028 
ae eee verre RALT2 A 903 COAI 0031 
6 teeeee PROG 2 BOOTSTRAP seseee ALT? A 002 O80 O18 0019 
7 seceee . osesee TST? A 108 0083 0019 6028 
a See pounce TST2 aA 0CK OO8E 0022 0022 
one TEST = (1) LSE INTERCHANGE ae UVWXYZ A 001 0080 0002 
0 Seeere (2} BR OR TIO OP DECODE wane ZERO A %O2 0097 0025 0020 
11 eeeee ; oneese 
FDP SSHSHSES SEESEKSEKSEESSESESES SEES SES SSEESSSTSE SETHE SSS SKSSESBESSESEHSESCSST SSSSSSOSSSS TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
‘ 13 
# 90080 FO 6F 76 14 HLT! HPL X°76" ,X*'62° IPL OR TIO FOUND MFCU ERR/HOT RDY. 
+ 15 6 HALT DISPLAY = 02 
16 
7 
16 ® 
0C83 ct FO C080 19 TST1 TIO BLT1,X*FO* TEST SFCU FOR ERROR OR NOT RDY. 
9087 31 FS 0097 20 LIo ZERO, X*P5S* LOAD MFCU READ BUPPER ADDB REG. 
0088 F3 F1 85 21 sIo X?85?,X°F" READ NEXT CARD INTO LOC HEX 00-SP. 
OO8E C1 FI OO8E 22 TST2 TIO TST2,X*FU WAIT HERE TILL BUSY DROPS. 
0092 CO 87 0003 23 8 3 BRANCH TO LAST CARD BEAD. 
24 
0096 Coot C097 25 ZERO pe XL2*0000° 
N09R BUCHNNOCAONO CO9E 26 pc CL7* ¢ CCRE LOC 0098 THRU OO9E ARE BLARK 
27 ; 
909F cO 87 C083 28 BACDOR 8B TST! GO CHECK BFCU 
29 
30 
COA? FO 6F 76 31 RALT2 APL X*76" ,X°6F* * PROG 2, HALT 2. ERBOB HALT. 
32 * * PREVIOUS BRANCH INSTR. PAILEZED. 
33 * * FAILING CARDS A-B3S2,A-B3J2,A-B3P2 | 
34 9 * PAILING PURCT (Y), (2), (1) 
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0025) CEH AN DANENONT DIRGRO STC Ons SPECERN ELT? C035 CPU AND MFMOPY DYAGNCSTICS: PROGRAM 03 


OBJECT CARD LISTING 


ERR LOC OBJECT CODE APDR STMT SOURCE STATEMENT > 
. . pee ee 0000 2 UVUXYZ START O 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SRIPT. 3 DECK 4 
; ho EEE EEESOEEESEEEEEE TE HE EES SEEDS OF EFES SEES EHESESEESESESESESHESEEETDEE 
CL -1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL B81 THROUGH 96 5 eesees pee. 
6 tennee PROG 3 { BC) & ( JC ) +0008 
7] stseee oeenee 
tw . ee ef | e e eaeecsece eoereneeressevve eoecoe R e406 262208 
TIEBVGP*6C™ -CG 5 T~VeNFAaeBeOHe 0 6&DA EDA &<B G HI0S70 -  6HDCO250001 Q seense TEST (1) EXCLUSIVE OR eesess 
| 10 seeene (2) IR SKP TROE oeeese 
2eoe eee » ee ee @ eos » eee eeeesoen eed eeaoene ‘ : % 71 Ceeeee q3) BR OR SKP TROE setae 
E*V ee 7ecspPC(PHS eM TMOP| 1 c Pt asc R A SO Q 217301012710 228721.000250002 : 12 *ee8e8 (4) ALO BLARK i 208848 
13 eeeves 9) GT Cr TO A 2aeene 
14 eeeees (6) LSR INTERCHAEGE eeeees 
ol 15 seseee ; (7) ore aeeess 
| 14 #20008 (8) BR DECODE seO8t8 
7 | 17 eseses (9) SKP pECODE $teeee 
a 1R seeeee (10) PT seeeee 
| 19 seeees (11) LSB LO TO A esenee 
: 20 seeses (12) «AMD eeenes 
é 21 seseee (13) BLK seen 
22 eecces (14) ROVE BUA (KILLS ABD ZONE) seeees 
. . 23 eeccee (15) BR OR SKIP seases 
€ 24 sossee (16) PRASE B eeeeee | 
25 eneses (17) CLOCK 3cC-5C +seees 
26 seesee (18) CLOCK 5B seenes 
¢ 27 eeecee (19) «=B REG BIT 0 seeene 
2H secces (23) BIW SOB Gate sseese 
es 29 evecese (21) INTERBAL . S¥98e8 
4 10 eesese se2008 
JFL COOH OS OOS SOK THSEEHE THES SES SESTHSE OS SSHESSHESSHE SSE SESESESESE STE SESS SESE 
a? 
# 33 
38 
‘ 6 @e 
cone FO ep 57 37 HLT? 4PL «6 ONITS, TENS IPL HALT 
; Ss yR @ : 
39 @ ‘ 
. ag @ 
; ate 
ACOV FP? De 29 a? gsr} Jc JNPS ,ROOP 1 ww ecemnn-NO-OP (1, 2, 3, 3%, 5) € 
a2 °° t 
9°06 77 RO 18 - §& J4MP2 JC JHU ,NOOP2 j ecrrern- NO-OP) (1, 4%, 12, 13) 
' 85 0 i 3 
AN09 CA TF AVIA 46 BRI BC HLTS , HOOP 1 Uo cece eHO-OP = 6( 6) 
a7 * tit 
. OOD CD FF CO2F 4B 3R2 RC JNP6,UNCDY ----------- UNCD BRANCH. (1, 6, 7e 8, 10) 
oe 49 ¢ ne | 
‘ 9919 #2 Fr OF 50 JIAPIE Jc HLT3,UNCD1 | | § | --7* (BR2) ERR, TRY UNCD JUAP. 
51 0. : 
0018 #9 €P 57 52 HALT2 APL ONITS, TENS * PROG 3, HALT 2. ERROR HALT. 
' 53 * THE PIVE PREVIOUS INSTRUCTIONS 
e : Sa e * WERE KO-OPED. 
55 * * A-B3J32,A-B352, A-B3IN2, A~B3T2, 
56 8 * (1, 9, 11, 16,18 
€ 57 * 
58 
C077 PO FF ST 593 HLT3 APL UNITS,TENS | 1 1 § 7->* (J8P3) OK, A~B3P2,A-83S2,A-B 3Q2, 
t 3 60 * trod A-B3J2 
61 * rid REFER TO CHART FOR AALT 3, PROG 3. 
62 *  ;idd 
= 63 * $4 
NOTA PO OF 57 64 HLTSY HPL ONITS, TENS § | { --7->* (BR1) ERR, A-B3P2, A-B3 32 
4 65 * ptt (6) (6) 
66 * tid 
67 © Lb eee 
c01D F2 00 03 2 68 JINPS Jc HLT6,0NCD2 | } * (JNP2) ERR,TRY ONCD JUSP. 
Bae ce ae ee 
wn nn nnn nn nn nn on ne on ee e+ LAST PAGE ------------------------- 2-2 +--+ ee eee — 
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IBM BAINTENANCE DIAGNOSTIC PROGRAS PART NO. 2589926 IBS MAINTERARCE. DIAGNOSTIC PROGRAS . “ok | ee #0. senvice 
mi . | PAGE | 5 | | fan wie nat, ale ia | . 
0035 CPU AND SEMORY DIAGNOSTICS: PROGRAM 03 a | | 0035 CPU AND MPNORY CIAGNOSTICS: © paoeete 03 é.. | 
ERR LOC OBJECT CUDE ADDR STAT SOURCE STATERENT | | anit, eT ee 
70 « SYMBOL T LEN VALUE DEPN  PEPERENCES | | | ; 
0020 PO 6F 57 71 HALTS HPL ONITS,TENS * PROG 3, HALT 5. ERROR HALT. | | — : , . ue 
724 * (JPY) FAILED TO JUMP. Oe ee ieee eeers, vite 7 | i 
73 * A-B3H2,A-B3A2,A-B3T2 A-B3S2 peor Ga Shoe) abGaaRe ! ‘ 
‘ nla Ke Mae Rkgs a Ys ee BR3 «A 008 «0032 0095 
or 168 MALT2 A€ 003 0018 0052 = Ps 7 | 
= 7° HALTS A 003 0020 0071 . é 
: 9023 PO 6F 57 78 HLT6 APL UNITS, TENS * (JNP4) OK,A-B3S2,4-B332,A-B342, DN eon eaee canees 
‘ e008 | ; Pe eee — HLT3 A 003 0017 0059 0050 i 
5 gate é (21) HLTS A 003 OO1A 0068 0na6 
ae 82 * RALT6 A 003 0023 0078. 0068 
- | HLT? a 003 0029 0085 ~~ 
oe : . s : 
Z 0026 F2 FF 03 — 83 JAPS JC -ALTS,UNCDI (JP1) ERR, TRY NCD JoaP. , gee, Pomona esse. eees | 
ss 0029 FO 6F 57 85 HLT? 8PL UONITS,TENS * (JNPS) ERR, A-B3H2,A-B3"2,a-B3K2, BETS: 4 003.0036 0087 | 
: a7 9 oe 7 = JmNP2 a 003 C006 0N488 
2 pale INP? A -003. 9011 0050 
» laa. | | | : JnPY = -:003 «001D «0068 ~=— 0088 
| 002C FO 6F 57 90 HLTA HPL UONITS,TEMS * (J8P5) OK, A-B3S2,A-B3T2,A-B3N2 Sore, NC pase  GOeL anea 
_ : ( 162 96(18, 19), (21) ’ WOOP? © 001 CO7F 0107 0042 00%6 7 . ‘ 
93 « . NOOP2 C 001 0080 1110 0088 a. «Gua Gusetieeet nies 
, 7 , 9 37 0052 0059 0968 0071 0078 008 9 
002F F2 00 51 98 JHPG6 3C BOOT, nNCD2 UNCD JURP TO BOOTSTRAP. Gee: ee Girene sunt eee Gas ; 
0032 CO 00 0039 95 BR} = BC) CHLT10,UNCD2 * (J8P6) ERB, TRY ONCD BRANCE. = | gwen2 € 901 1000 0176 0068 0098 3095 
96 © wees 
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©912 F2 90 06 29 JP ALT 3¢3 JUSP ON PALSE 
30 * 
0915 PO 6F 6C 31 HALT2 HPL JNITS, TEMS * PROG C, H&LT 2. ERROR HALT. 
i 32 * ® CON. BEG NOT SET TO FALSE BY TBE. 
t 330 * PAILING CARD@ A-B3H2,A-B382,8-B332 
: 3a « * PAILING PUNCT (1), (2). (5) 
35 * 
= 36 * i 
37 . 
C018 FO 6F 6C 38 HLT3 HPL UNITS, TENS * CR BBONG. 2572, 2571. 
& 39 * * PAILING CARD# A-B3H2,A-B 382 i 
- - of 40 © * FAILING FoNCT (1), (2,8) ie 
| ats 
42 © i 
9918 3n CO 7050 a3 CLI PaD,x*00* CHECK FOR ANY BITS SET ON BY TBO 
OOF P2 81 C3 a4 JE HLTG43 JUAP IF PAD STILL 00 
u5 * é 
922 PO 6F 6C 46 ALTG HPL UNITS,TEXS * TBO ALTERED PAD. 
47 ¢ * PAILING CARD@ A-B3J2 
aR © * PAILING FUNCT 3 ‘ 
a9 . 
its FE 50 © 
* 0025 3c FF C050 51 AVI - PAD, X* FF POT PF IN PAD. ¢ 
0029 24 FF 0050 52 TBN 8 PAD,X*PR® TEST POR ALL BITS O8. 
92D CO 10 CC8? 53 BT sOOT BR TO BOOTSTRAP IF PALSE BOT SET . 
5u 8 € 
0031 PO 6F 6C 55 HLTS APL UNITS,TEMNS * CR SET TO FALSE. 3 
56 * * FAILING CARD® A-B3H2,A-B332,A-B3N2 
57 * * FAILING FuNCT (8), (6), 7) € 
58 ¢ “* PAILING CARD@ A-B3N2 
59 © * PAILING FONCT (6) ef 
60 © € 
61 ¢ 
1038 CO 0034 62 AIGH DC XL1°00° 
> os 0008 63 PSR Fou = x" oue é 
| 0050 64 PAD £00) =«x*S0° 
CO6C 65 UNITS 8Q0 x*6C* 
s | CC6¥ 66 TENS £00 xX*6F® € 
j 0083 67 BOOT FOU 131 
{ PFPP 68 END 
; ¢ . é 
wee e rere me nner n ewe nen Toor cerwceennnwnmnnnmeewee LAST PAGE -~----------------------- 22 i 
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BA NAINTFNANCE DIAGNOSTIC PROGRAA 7 se a 4 PART WO. 2589926 TBR MAINTENANCE DIAGNOSTIC PROGRAS : eS a es eo aes Sees 
| | | | PAGE w7 " oS ay te Aes PAGE 7. 
00CS CPU AND MEMORY DIAGHCSTICS: PROGRAM OC . | 2. a agen “s 00C5 CPU AND MEMORY EYAGKCSTICS: PROGRAM OC : 
CROSS-REPERENCE neers | S Sawer Sa < “OBJECT CARD LISTING. 
SYMBOL T LEN VALUE DEFH REFERENCES | pee | : ~_ | | 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS DE 8 MERIC SHIFT. : 
Saee. ear Radw woes. 606T 0083 | Te | : CTERS DZ H INDICATE BUNERIC SHIFT ! z 
RALT2 € 003 (9015 0031 | CL 1 THROUGH 16 CL 17 TREOUGH 32 CL 33 THROUGH 88 CL 89 THROUGH 68 65 TAROUG | 
“HLETT =a 003 0000 0020 2 é 
HLT3 A 003 0018 0038 0028 0029 . ; . . ae a a ‘ : — | 
BLTS 2 002 0022 00RG = O08 | | T( warexqes (CO "E A*OAEADSPaZ «rar’Kar*Sié mtd A “A?SCI" f B"OR SOR -"A7S 
HLTS A 003 0031 0055 4 . : { t { : ve i i $ £ 8"0A SOA A?$s 13900C5000 2 
PAD C0041 0050 0068 .0026* 0027 0083 0051 0052 / . : a Fate Sita, get wee 
PSR c 001 0008 0063 0025° Piva, FYwoeEsecsECHPHS | ©" 7 REP oe “kee ek meas Briss sivas eee | 
TENS C001 O06F OC66 0020 0031 0038 008) 0055 | , J By ot os soe 21301012710 = 22872°000C50002 
ODNITS C 001 O06C 92065 0020 0031 0038 0086 0055 | 
DVWXYZ A 004 C000 C002 | 
TOTAL STATEMENTS PLAGGED IN THIS ASSEMBLY = 0 . . . . i , : 
- 
€ 
g 
6 
€ 
‘ 
Ae t 
l 
= — 
¢ ; 
@ : 
| i 
: | 
i e. 
F % 
F- 
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<n come memes epee 


OOES CPU AND MEMORY CIAGNOSTICS: PROGRAM OF CORES CPU AND MEMORY DIAGNOSTICS: PROGRAR OF 


ERR LOC ORJFCT CODE ADDR STMT SOURCE STATEMENT , ' CROSS-REPER ENCE 
| 
0000 2 OVWXYZ START 0 SYMROL T LEN VALUE DEPN REFERENCES 
3 DECK 4 
&§ SERTSREEHE SERSEKE SERS SS AES CHEESES ES SEE SES SE EEESSEES SS SEHESISSHESHSSTSOSSSESS BOOT c 001 C083 coogi 0037 : 
5 seeees sesess | HLT? A 003 0000 0018 
6 sesees PROG E eesees | HLT2 aA 903 C033 0033 0021 0028 0027 0030 
7 seenes (T8N) TEST BITS OM seoses | PAD Cc 001 0050 0038 0019* 0920 06022* 0023 0025* 0026 0028* 0029 
8 teeee8 oeeses TEWS C001 O06F O0C40 00t8 0033 
Q seenes TEST (1) ALU (RIPPLE BITS) seseee ONITS C 00% ON7C 0039 0018 0033 
10 ¥¢eee8 (2) «x INTERBAL esses | UVWXYZ A001 0000 0002 
11 ¢¢e008 ; ; eesese 
LQ FSFE S SESE SES SES ESERSE SERS EHSEEES SESE SOSSESESSSESSESSESSESESSSSSSESSESESS | TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
13 ¢ 
0000 FO 6F 7C 14 HLT? HPL UNITS,TENS IPL HALT | 
15 
16 ¢ i 
17 6 | 
4a ‘ | 
0003 IC FF C050 19 AVI PAD,X*FE® SET ALL BITS OW EXCEPT BIT 7. 
0007 33 91 6050 20 TEN PAD,X*01° TEST FOR BIT 7 ON. 
0008 F2 10 25 21 JT BLT2 JUNP IF TEST PALSE LATCH NOT SET. e 
QOOOR 3c FD 0050 22 AVI PAD,X*FD* . SET ALL BITS OW EXCEPT BIT 6. | 
9012 38 02 C050 23 TBN PAD,X*02° TEST FOR BIT 6 ON. | 
9016 P2 10 1A 24 JT = HLT 2 JUSP IP TEST FALSE LATCH NOT SET. | t 
0019 3C FB 0050 ~~ 25 AVI PAD X*FB! SET ALL BITS O8 EXCEPT BIT 5. 
O01D 38 CH 0050 26 TB8N PAD,X*0u8 _TEST FOR BIT 5 OF. i 
0021 F2 10 OF 27 JT = BLT 2 JUSP IF TEST FALSE LATCH NOT SET. i 
0024 3c F7 0050 28 AVI PAD,X*°FT7® SET ALL BITS OM EXCEPT BIT 4. | 
0028 38 08 0050 29 TBE PAD,X*08* TEST POR BIT 4 ON. 
002c F2 10 04 30 JT ALT2 JOSP IF TEST PALSZ LATCH NOT SET. 
007F CO 87 C083 31 B BOOT . BRANCH TO BOOTSTRAP - | 
32 * ee } 
0033 FO 6F 7c 33 HLT2 APL. ONITS,TEWS * TEST PALSE #0T SPT me 
3y s * PAILING CARD® A-B3"2,A-B 332 
35 * * PAILIUG PUNCT (1), (2) © a4 
36 * . 
27 * , 
C050) =—s_s« 3B sé PA*D Bou) = x* 508 ; : 
. oo7c 39 UNITS EOD x*7C* . = | ‘ 
_ CO6F 4&0 TENS £EQU xX*6OF® es { - 
0083 41 BOOT £QU 131 . i 
FRPP 4&2 EMD 4 
\ 
~ 4 
| 
€ 4 
‘ 8 
é £ 
€ ’ + 
ee “hs z 
| 
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Me or cl Deane : os | Sane no; 3508905 TRA MATNTEW ANCE DIAGROSTIC. PROGRAN PART HD. = 2589926 
IBM GAINTENANCE DIAGNOSTIC PROGRAN a | pase | 19 | | PRGE 498 
pata” 25m ge eeu Dyacnostrca: erecesl oe | | 3 eee OOFS CPU AND MEMORY DIAGNOSTICS: PROGRAM OF 
| | oBsect CARD LISTING FRP LOC OBJECT CODE ADDF STMT SOURCE STATERERT 
| ‘ | 0000 2 UVWXYZ START 0 | a 
. ae crers DER . 3 DECK 4 
TRE CHARACTER INDICATES A BLANK COLUBN AND THE CHARACTERS DE 8 TEDICATE BUSRELC BATE 4 coseeeueesscesaesunesen asses senececeueesecasenecenensseeseneenonscouses 
an ry 1 5 e40se¢ et 
CL «THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 89 THROUGH 64 CL 65 THROUGH 50 CL 81 THROUGH 96 2 @asene ciea | : Seseees 
7 teeses _ (TBN) ‘TEST BITS OFC - 9608 
® e oe . 2ee eeoee § stee%8 : * | @esens , 
. ° . ’ me oe renee patie amet ® * Q sesese TEST 1 ALU (RIPPLE BITS eeaeee |: 
T(E Sar'ayj8 MC- A ECZ2DENA"EAG+ A AP HEPTI@ EB SA A 68/ INt* BC-H EC 2D L /0BCaP*S 2600250001 | aioe cee (1) { ) eee 
. 7 Ghee Nn og Lhe eisieeie ; : 11 Coane cesar cssecccrsne aces scasecsssceacecercsscesensaseseneessenes esses 
| ee Ke ee RA SO 21301072710 2287208000850002 12 ¢ oa ee i 
RMUNsETS=-DCMPHS =" TMEPE Of = C ee ae e 0000 FO 6F 3c 13 HLT? APL UNTTS,TENS IPL #ALT Des ae | 
me : mW © a . 
. 15 * od: Bbq z aie 
. 6 e +s a ge. 
7 m4 . 
0003 3c ¥F 0050 18 AVI = PAD, X*EP* SET aLL BITS oO” EXCEPT BIT 3. 
0007 38 10 0050 19 TBN PAD,%*10* TEST POR BIT 308. | 
OOOR F2 10 25 20 JT HLT2 JUMP IP TEST PALSE LATCH SOT S8T. 
OO0F 3c DF 0050 21 AVI PAD,X*DPF* SET ALL BITS OW EXCEPT BIT 2. 
0012 38 20 0¢50 22 TAN 8 PAD,7'20° TEST PCR BIT 2 Of. 
0016 P2 10 1A 23 JT ALT2 JUMP IP TEST PALSE LATCH BOT SET. 
CC19 3c RP C050 24 AVI PAD,X' BPE SET ALL BITS OW EXCEPT BIT 1. 
001D 38 40 (950 25 TEN PAD,X*SO0* TEST POR BIT 1 ON. 
9021 F2 10 OF 26 3T HLT2 JUSP IP TEST PALSE LATCH HOT SET. 
9028 3c 77 C050 27 BVI PAD,X*7P* SET ALL BITS O8 EXCEPT BIT 0. 
0028 38 89 0050 28 TBH 8 8=6PAD,X*80° ‘TEST POR BIT O OW. ( 
002c P2 10 ¢a 29 JT ALT2 JUSP IP TEST PALSE LATCH BOT SET. 
Cn2P CO 87 C083 30 B BOOT BRANCH TO BOOTSTRAP 
31 * 
0033 FO 6F 3Cc 32 ALT2 HPL UONITS, TENS ® TEST PALSEZE #0 SET. 
36 ® PAILING CagD@ A-B3N2 
34 0 ® PAILING POsCr 8 63 
35 « 
36 
C050 37 PAD EoD) 0 x*508 
CO3c) 0— «38 «UNITS EQU = x*3C* 
= CC6P 39 TENS EQU X*OP® 
0083 40 B00T £00 131 
| FRFP 844 END 
e | 
o> a 
€ 
i 
. £ | 
t 
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i SPPEo Tancv69 = 20JaN70 13MARTO 010CT70 28APR71 O1MAR72 PROG ID OO0E-5 D $ 
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TPM MAYNTRRANCE DIAGNOSTIC FROGRAM . PART HO. 2589926 
| PAGE 20 ar : PAGE 20a 
| - QOFS CPU AND MEMORY DIAGNOSTICS: PROGRAA OF . COFS CEN AND MPMORY EYTAGNOSTICS: PROGRAM OF 
| ; ; 
. CROSS~REFERERCE OBJECT CARD LISTING : 
SYMBOL T LEN VALUE DFFN REFERENCES . ee 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H IWDICATE NUMERIC SHIFT. 
BooT C001 0083 COK“O 0030 | . 
HLT? & 003 COMO 0013 . CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL &9 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 
FLT? A 003 (C033 C032 0020 0023 0026 0029 
PAD C001 0050 0037 0018* 0019 0021® 0022 0024* 0025 0027 0026 | 
' TENS C001 O06F 069 0013 0032 . u i nde ees, eee i mir pe ehaeias 
. ONITS C€ 001. 003C 0038 C013 0032 T(E S@Paaje? MC- & EC2DEMATOAESK S|HEPT2° BBE A Cas {1G MCS EBC 2D1L sOscaraa 1ZHOOP50001 
*  gyweyzZ A 001 C000 ¢c02 
ns 
be 2 eee e086 e ee eoe eee e eee @eeveeenee @ evenee0e 
“TOTAL STATEMENTS PLAGGED IN THIS ASSEMBLY = 0 EW eee 7e=z.PC "PHS EM TMEPE FC r& oasC RA SO Q 21301012710 22872@.000F50002 - 
< 
« ‘ 
£ 
5 é 
@ € 
& 
| é 
& 
\ 
S i 
€ 3 
é 
. oon an nn nn nn ne nnn nn ne nnn nnn nnn nnn nn rnene ‘LAST PAGE ----------------- 3-2 wren nnn nn nnn nnn nee 
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Bs oh ee get eae as pe wee ee: pe Pe TOG an 2 cae 3 ony Eo oe : : , oe AG ee RL a ee Oe eae 
‘TEM AAINTENANCE DIAGNOSTIC PROGRAR. | | o se ee , PART HO. = 2569926 “ JRA MAINTENANCE DIAGNCSTIC PROGRAM i ; - | PART WO. - 2589926 
ae : mS | : a3 eta 7 pace 21 | a as : 73 ane | PAGE 2%, 
0105 CPU AND MENORY DIAGNOSTICS: PROGRAN 10 | 0105 CPD AND SENSORY DIAGNOSTICS: PROGRAM 10 
/ ENR LOC OBJECT CODE = ADDR STAT SOURCE STATERENT cigkelaweceren: 
9000 : UVEXTZ ae. | SYMBOL T LEN VALUF DEFN REFERENCES 
a i : a 
: re nr eer em prey ee een ge oe eee ge | BOOT c 001 0083 0062 — 0052 
HLT? a CO3 0000 0015 
ee PROS 10 paces | RLET2 «=A 003 «29019-0027 
7 eeeee8 (SBF,TB?) SET & TEST BITS OFF eesees , es 
a a eccks oes | HLTZ A 03 091C 0038 0023 0025 
ata oie! HLTS £003 0026 0042 CORO . . | 
A cisees oa. to Fee ee pee eee ce BLTS 4 003 0039 0053 | 
) D, | PAD CIT C050 0059 0020¢ 0021* 0022 0024 0039 0049 0050 0051 
1) ree (3) IWLERBAL acer | SP?T1 A 90% 0007 90021 | 
12 eeseee eceee8 “ nei ave, 
Me ee Bre eee rape pee aN ee cee ets te ee ane anne pre 0015 0027 ; 00348 00482 00548 
| | : TST? a 004 GOOR 0022 
0000 FO 03 6F ALT! HPL UNITS,TENS _ IPL #ALT TST2. A 008 (0031 0051 ey _ Bo eae 3 ae 
UNITS C091 06F CO60 0015 0027 0034 0042 005% : | " 
a | ‘DVWXYZ A 901 0000 0002. : a 
19 s . . + ; * x os : ra 
Sos, ineawecwe ese as nvr PAD x‘ PF pup ex <Pr- Im paD. | TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 : 
peo 0007 3F FF 0050 21 SET1 SBP PAD,X* FF? _ SET ALL BITS OPP. | 
Uy 000B 39 FF 0050 22 TST1 TBF PAD,X*PF* TEST FOR ALL BITS OFF. | 
Rs OCCF F2 10 OD 23 ST «ALT 343 JuaP IP TEST FALSE LATCH MOT SET. \ 
te 0012 3D FF 0050 24 CLI PAD,X*PF® ® CHECK PAD FOR ALL BITS STILL O8. ‘ 
be 0016 F2 81 03 25 JE ALT3 sss ® SUNP IP ALL BITS OW. | : 
26 * 
0919 FO 03 6P 27 HLT2 PL UNITS,TENS * PAILING CARD# A-B332,A-B 382, A-B3H2 | : 
20 « ® PAILING FUNCT (2) (2)e (3) | , 
29 ¢ * PAILING CABD$ A-B3S2 
30 ¢ * PAILING FUNCT (3) | 
31 * 
32 °° 
Ww 
99%¢ FO 03 6P 34 HLT3 SPL UONITS,TERS * ALL BITS STILL OM. 
35 8 * FAILING CABD@ A-83H2, A-B3I2 \ 
36 8 ® PAILING PUNCT (1), £3) 
37 . 
38 ¢ ‘ i . 
-- -QO1F 3D 09 0050 39 CLI PAD,x*00* CHECK PAD FOR ALL BITS OPP. a | : ae 
~~ 0023 F2 81 03 50 JE HLT 4 3 JOaP IP ALL BITS OPP. meee 
0026 FO 03 6F 42 HLTS SPL ONITS,TESS © NOT ALL BITS OPP. . § 
a3 ¢ ® PAILING CARD@ A-8332,4-B382,a-B382 | . 
ag s ® PAILING FONCT (20-6 (2). qQ) 
a5 * * PAILING CARD@ A-B3S2 = : PZ 
a6 © ® PAILING FUNCT (3) 
-s ay ¢ ' es 
[ a 4B * $ 
C029 3c CO 0050 49 nVI  PAD,X*008 PUT HEX -O0- IW PAD vy oS - ‘ 
: ——-- 9O2D 3B OO C50 50 SET2 SBP PAD,x*00° SET ALL BITS OFF. 
a 0031 39 00 0050 S51 TST2 TBP PAD,X*00° TEST FOR BO BITS OFF. . j . 
, 0035 CO 10 C083 52 ST BOOT BRANCH TO BOOTSTRAP IF TEST FALSE ' 3 : 
rss 53 8 LATCH NOT SET. : 
9039 FO 03 6P 58 ALTS HPL UNITS,TENS * TEST PALSE LATCH SET . , , ¢ 
. | 55 @ — * PAILING CARDS§ A-3382 . . 
56 * ® PAILING FUNCT (3) 
57 * i 
| C050 «659 PAD fou = x*508 i 
O06P 60 UNITS iOU X*O6F® ae a | t 
0003 61 TENS e200 x*03* 
0083 62 BOOT £QU- 131 . 
PPFP 63 END F 
eA 
t ~~ *s : 
t % 3 
é i 
i. pete Vaaeneer Meee eee: eas ae aa a yeeaa ce ee q , DATE 15SEP69 —-WNOVES 20479 43MAR70  O10CT7O  28APR71  01HAR72 PROG ID 0010-5 
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0105 CFI AWD MEMORY DIAGNOSTICS: PROGRAN 10 0115 CP AND SERORY DIAGHOSTICS: PROGRAA 11 


OBJECT CARD LISTING 


PRR LOC ORJECT CODE ADDR STAT SONRCE STATENENT ae 
° ee ooon 2 UVWXYZ START 0 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E INDICATE SUMNERIC SHIFT. 3 DECK 4 ¥ 
& SOT SOTA ESESES EERESEESEE THES CEEEEEES C8EEEEEESETEOEOE446E09S0O8999908088808 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 TRROUGH 48 CL ‘49 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 96 5 Senseo esses 
6 tesee8 PROG 11 oeeees 
7 esses (L, ST) LOAD & STORE REGISTER SSORes 
e e : e ° ° ° e - °° ° e ee » ee ee oe os @ , eo 8 s8e086 Se eeee 
T+- 2@ (7418 SC? " E 9*0ALAY ([7a SHA * CS" CS34 EC2-610 688 A 6¢0 mCU EC DB Ca < 34¢<01050001 Q eeeen0 LOAD LSRS AWD STORE LSRS. IP SELECTIOS 290896 
10 ¢se088 IS WRONG, *&*° REG CHECK MOST LIKELY seeses 
een eneesecenve eaeetoesereovecvsenn eevevcesevenvececce ervececvsewevocseorzes eeoeseceeececeeee ee 11 sses828 WILL occuR. OS899 
T #30 , Ba 801050002 12 eeee8 eeeeese 
: 13 seeees NOTR: PROGRAMS 11 AND 12 SHOULD BE RUS TOGETHER eteess 
eee 2006 © ee eee een eo ene eeenecvecene eeeece ; , . 14 ¢e04¢88 ee2202 
Er"? SE] S=3DCMPHS =" THE P | { Cc 1 asc RA SO 9 29301012710 224721,001050003 15 SOSOES CS ESSE ESE HEEEEESEEOEESETS SEES EERESSEEREEE EE 200008600400008488884 t 
16 © 
Of0N FO 03 73 17 HLT APL UNITS ,TERS IPL HALT 
1a ¢ 
19 © 
20 @ ; 
212 g 
c003 35 OF 030 22 L 20110, X81 LOAD XF1 WITH HEX -0110- 
‘5 0007 %5 02 6032 23 L X2020,XKR2 LOAD XR2 WITH AEX -2020- 
~ CfoOR 35 C& OC345 2a L X8008,PSP LOAD PSE WITH HEX -8008- rs 
ONOF 35 CB 0036 25 L X3060,ARR LOAD ARR VITH HEX -8080- 
C013 3c OF 0100 26 AVI XKRILO,Z*OPr®* SET XR1 SAVE AREA TO 
- C017 Y FF COFF 27 BVI KRIHI,X*PF® HEX -FFOF-. & 
O9TB 38 997 O09 248 ST XRILO,3R1 STORE zh! 
J99F 34 07 0102 29 st XZR2LO,WXR2 STORE XR2 
6023 34 CB 0108 30 ST PSPLO,PSR STORE Pse + 
C027 38 08 01C6 31 St ARRLO,ARR STORE ARR 
0023 CO 87 00R% 32 B BooT BRANCH TO BOOTSTRAP. 
33 ¢. . 
CO2P 07190 C030 38 40110 pce XL2* 01108 XR1 DATA 
2034 2920 C032 35 22020 pec ZL2*2020°* XR2 DATA 
O733 arog COte 3 28008 DC IL2* 80048" PSB DATA 
1: C035 8c80 0036 37 x¥8096 DC IL2* 8080°* ABR DATA 
: 38 s 
OvuI 39 XR? £Q0 1 
| CC02 BO XR2 woo 2 
{ cO04% 81 PSR 290 a 
: eccs &2 ARR Eo 8 
1 0109 43 XRILO £00 x*01008 
(OFF QQ Z29HF 8 EOU x*Oorr®s : 
0102 8S KR2LO e900 x*91028 & 
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2 UVWXYZ START O 

3 DECK & 

GB FOR OO SEES EEHE EES SESESE CESK ORESED EC OHESE OSE eEES ERASE TESTE SERED EREOSESS 
5 eneees seeses 
6 tesess PROG 12 sesen¢ 
J seees¢ (L, ST) LOAD & STORE RECISTER sosees 
8 seeeee aseses 

9 sesaee TEST (1) LSR Lov sesae¢ 
10 seeesne (2) BIN ADD/SUB GRP seetes 
11 eete¢ q3) STORE DATA eeeeee 
12 senses (4) INHIBIT SDR TRANSFER sesese 
13 eases (5) ARRAY Low Steeee 
14 eevee (6) ARR?Y HIGH sense? 
15 #esee¢ (7) PIRST EB CYCLE eeeses 
16 eeeees (8) WRITE HIGH eeeses 
17 eeee0s (9) LSR HIGH TO A REGISTER erence 
18 Seseees (10) ZONE /NONS INTRCHNG esecer: 
19 sesese (11) SINGLE EB InstrR S8teee 
20 tenes (12) 2 ADDRESS PORAAT sesese 
21 eeeeee0 (13) CLK 5-6 seston 
22 *eee890 (1%) INTERMAL seseee 
23 eeeess eeeete 
24 eee908 NOTE: PROGRANS 11 AND 12 SHOULD BE RON TOGETHER stseee 


25 teeeve 


seteee 


26 COP ESS SHOES SHOR ESOS SESSSE SES ESES ORES ES REOESESEEESEEEESSESESeSEseESSSaESS 
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27 * 
26 ALT? HPL 8 ONITS, TENS IPL HALT 
29 
30 « 
316 
32 * 
33 TST1 CLI PSRLO,X*O4u* CBECK PSRLOW POR HIGH CONDITION 
33 JHZ  HLT2 JOSP IP PSRLOW NOT BIGH 
35 TST2 CLI XR1L0,x°108 CHECK LOAD/STORE OF *°R1 LOWER BYTE. 
36 Jz TST3 JOMP IP XRILO EQUALS HEX -10-. 
37 HLT2 APL UNITS,TENS * FAILING CARD@ A-B382, 4-B332,a8-B3C2 
38 * © PAILING PUNCT (1,2) (1,2,3,4%, 12) (5) 
39 © © PAILING CARD® A-B3P2 
80 ¢ * PAILIUG FPURCT (18) 
sis 
a2 
a3 0 
44 TST3 38CLI XRIAI,X*01° CHECK LOAD/STORE OF XR1 DPPER BYTE. 
45 JZ TSTS JUAP IP XERIHI EQUAL HEX -01-. 
46 TST CLI XR1HI,2°908 
47 JE HLTS 
88 HLT3 HPL UNITS, TENS * PAILING CARD@ A-B3B2,A-B3J2, A-B3E2 
ug @ * FAILING PUNCT (6). (10,11), (10) 
50 * * FAILING CARD® A-B3S2,A-B382,8-B3P2 
51 * PAILING PONCT (V4), (13), (8) 
52 * 
53 * 
54 *® 
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56 JHE #HLTS JONP IP XR2LO NOT EQUAL HEX -20-. 
57 TST6 CLI ARRLO,X*86° CHECK LOAD/STORE OF ARR LOWER BYTE. 
58 JE BOOT JUMP IP AgRLO EQUAL BEK -80- 
59 HLTS APL UONITS,TERS * PAILING CARD® A-B3P2 
60 «© * FAILING FONCT (18) 
61 * 
62 * 
63 * 
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as * * PAILING PUNCT (8), (7,8,9), (9) 
* t 
67 * REPER TO CHART FOR HALT 5, PROG 12. 
68 * 
69 * 
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0000 PO. 03 57 15 HLT1 HPL ONTTS TEN IPL HALT | xR1 c no one) guns poi ” 
: ; 16 ¢ XR2 c¢ 
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78 g 
3° | TOTAL STATEMENTS FLAGGED IN THIS ASSESBLY = 0 
oco2 35 01 9030 20 _ | EAASS,X°OU! LOAD ZR1 WITH HEX -AASS- | 
21 
0007 35 02 €031 22 L ¥55Aa,X%*0O2* LOAD IR2 WITH HEX -SSAA- | 
23 : : 
ocos 34 03 0C51 2a ST ALLREG ,x*03° STORE £R1 6 XR2 I8 LOC - 50 & St- | : 
25 ; 
COOF 3D FR C050 26 - CLI ALLREG-1,X°FF* CHECK FOR ORING OF REGS. | 
OCi3 F2 8&1 O3 27 JE BLT 2¢3 JGOAP IP OK. 7 ° 
28 
0016 FO G3 57 29 HLT2 BPL UNITS, TENS * PAILING CARDS 1-B3P2 | 
30 ¢ ® PAILING FUNCT 3 
31° | | 
32 * | : 
33 * | 
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01D 36 OFT CO35 35 A ONE ,XR1 ' ADD HEX -000%T- TO XxR1. , ‘ 
0021 F2 20 08 36 JINOL HLT CHECK POR BIS. OVPLO® COND. — | ~ 
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: 39 s we 3 
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; 41s * PAILING CARD#@ A-B352, | 
a2 * FAILING PUNCT (1,2) £ 
43s | 
ua ¢ a | 
CC2F aAass 0030 45 YAASS oC XL2°aa55!* | é 
0031 AA C031 46 XSSAA DOC XLV*AA®* | 
{ 0032 FFFP 0033 a7 XPP oc XL2° FRPF* 
0034 0C0t 0035 88 ONE DC XL2*0001° | € 
‘ C003 69 XRT z0uU q | 
C002 50 XR2 £O9 2 | 
0051 51 ALLREG ZOD x*51° € 
€ 0057 52 UNITS EQU x°97* | 
0003 S3 TENS £00 x*03* | 
0083 5% BOOT E£QU 131 ¢ 
FRFP 55 END 
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‘$est 
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DECK & . 





v3 
qu eeqcseosencoeseeese 
5 aa a oa 
6 HALTI FPL 06 «UNITS, TEES 
7° oo 
18° 
vo ° 
20° : 
2 . ae 
3 L  w2eRrogs,z*07* 
3. 
24 LOADT LA gaLTe,, x81 
ae ere 
26 ST PAaD1, 282 
27 ASG 
28 LOAD2 LA u°Prrr* 722 
29 
30 ST PAD? , ER 
31 St P&D3,IF2 
32 : . 
33 CLI PADI-1,z°00* 
36 Jf HALT3 
35 
% CLE PAD2,%°36*. 
37 S82 BALT2 
38 ; 
39 CLI PaDdi-1,x%°00* 
80 JE sooct 
of 
&2 HALT2 APL SDSITS, TERS 
a3 ¢ 
eae 
a5 ¢ 
a6 @ 
ay 
S8 HALT? HPL UONITS, TERS 
a9 ¢ 
50 @ 
51 
52 * 
53 
54 HALTS HPL ONITS,TENS 
55 ¢ 
56 © 
S57 * 
58 ® 
53 
60 ZEROES DC XL2*0000° 
61 PADI FOU x*51* 
62 PADZ £00 x*53°* 
63 PAD3 #200 x£x*55* 
64 XR? £QU 1 
65 XR2 rop 02 
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69 END 
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T( SaGRE(EC <TO BP. Ae CE8B A LCE #80 SaYD{(CE HO 20 D -"A6S}A 6S)A6$S B DA £T*02€50001 | 9 seenes eeeeese 
| 10 *eeee0 TEST (1) SIGHIPICASCE seeuee 
eoe een @¢@ oe eee een @ eee eax2eeessee eeece ; j 1% see4e48¢ : (2) ARR SELECT : : sen2e0¢ 
E*neeP7e=aDCPPHS ="TEEP] ' c FZ asc RA SO Q 2130101271310 22872*$802C50002 : 12 seees¢ ' (3) CLOCK 6 OF 8 eeeese 
; : 13 eseeees _ (%) OP DECODE oecees 
{ 14 seesee (S) SIG OB SIG DIG STUCK UP 2080 
i 15 *e0¢88 ; esecee 8 § 
= i : 16 SHRVSS SESS SESHETESSTSES SHTEHSS SHOESS SSE SESESSESEESSSSHKESSSSESR SESS SOSSSEESSSS 
S 17 i | 
2 i 18 & 
2 | CoOO FC 76 7C . 19 HALT? HPL UwWITS, TENS 
\ 9003 3c CO 0050 20 “AVI PAD, X*90* SET PAD TO -00- 
: CCO7 35 C8 0036 21. L XPF,aRB LOAD ARB WITH -1BFP- _— t 
| ON0B OR CO 0050 0036 22 ITC PAD{1) ,XPP INSERT & TEST PAD SITE -FF- 
| 0011 38 08 C053 23 ST SAVARRE, ABB STORE THE ARR . 
0015 3D FF 0050 24 CLI PAD,X*PP* GO TO PADCHK IP RESULT NOT 4 
; 9019 F2 01 OD 25 JNE PADCHK EQUAL TO -FF- 
o0tc OD CO 0053 1038 26 CLC SAVARR(1),X0051 GO TO BALT2 IF ARR BOT SET TO -0051- 
“ C022 ct 81 C083 27 BE. Boot GO TO BOOT IP ARR IS SET TO -0051- #& 
C026 PO 76 FC 28 HALT2 HPL UNITS,TEUS * PROG 28, HALT 2. 
29 * * PAILING CARD$ A-33P2,A-B3T2 
eo! 30 * ® PAILING FUNCT (2) 2 qQ) 3 
31 ¢ : ; ‘ 
| 32 ¢ 
CC29 3D 90 0050. 33 PADCHK CLY  PAD,&*00° ~~ GO TO HALTY IP RESULT £Q.TO -00- & 
; 002D F2 81 03 34 JE AALTS GO TO HALT3 IF RESOLT HOT EQ TO -00- 
| 0030 PFC 76 7C 35 HALT3 HPL OWITS,TENS * PROG 2B, HALT? 
i 36 © * PAILING CARD@ A-B3J2 f 
37 * * PAILING PUBCT 8 
| 33 « 
= 39 © i 
- C033 FO 76 7C 4D HALTS 8PL SHITS,TEMS * PROG 2B, HALT 4. Bie aak 
| aie *® PAILING CARD@ A-B3F2,Aa-B3S2 
a2 ® PAILING FUNCT (1,5)¢ (1,5) 2 
a3 
| aa ¢ 
0036 FP C036 85 XPP pc XL1°PFPe ae 
0037 6051 C038 &6 x0051 DC XL 2°0051* 
ccos a7 ARR 3 BOD x*08? 
6053 S8 SAVARR EOD x*53* 
C050 4 =649 PAD £Qu x*SoO* 
at by 0083 50 BOOT £QU 131 
. cc7c . 51 UNITS EQU xX*7CF 
0076 52 TENS £E£QU X*76* 
FFFP 53 END. 
@ } z 
i 
4 
e Z 
| 
4 
. 7 3 
| 
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LATE 15SEP69 14UROV69 20J3AN70 13MAB70 010CT70 28APR71 01M AR72 PROG ID. 002c-5 ‘ 7 PROG ID 002EB-5 - 
Bo iGc: RYENS9 816559 Bice qe Sree aa a Tedee a cae Bibeoe chap CATE 15SEP69 14NOV69 20JA R70 13MAR70 010CT70 28APR71 O1MAR72 


59 EC NO. 816499 81€559 816576 816638 816756 — 816788 818693 PAGE S9A 





* 





4 
5 ee 
BER HAUNT EMRE E DENCH reOoeet mee a apeeeee IBM MAINTFNANCE DTAGROSTIC PROGRAA PART HO. 2589926 
PAGE 60a 
O25! CER RED MERON PIAGRO OTIC SS REOGRAN Ze OPFS CPU AND FPMORY DIAGNOSTICS: PROGRAM 22 
CROSS-REPERENCE OBJECT CARD LISTING 
SYMBOL T LEW VALNF [LEFN REFERENCES 
nn Cc 001 on0R 0087 0021* 0023 THE CHARACTER  INDTCATFS A BLANK COLUAN AND TRE CHARACTERS D E H INDICATE MUMERIC SHIPT. 
8 
a aan SP ee one! CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 4&9 THROUGH 6&8 CL 65 THROUGH 80 CL 81 THROUGH 96 
HALT2 A 003 0026 0028 
HALT3 A 003 0030 0035 
4 CG3 0 3 oy 0 38 ee eee ° ee e e e oe e e ee eeee 
A ae 7 001 oeub sae Seen 0022 0028 06033 Te Sa@GRa} pcs HH CO. BE COMB A Lt~d S{RACENS EC *<BA HjJO)XO* A GBYDCA@GRAAGRA“OA J §9402E50001 
PADCRK A 008 C029 00233 9025 
AVARR ¢ 001 C053 0048 00 2 0 6 eee eee e ee ees eee s eee @eeeeeeoeees @eeeee 
See CRG ene cebsee. deaqe tie sce Heuee enke EMMOOPTS=WOCPPHS ="IMEPE fC PS ASC OR A SO OQ 21301012710 22872@¢802250002 
“gnrts C001 OO7C 0CS51 0099 0028 0035 0080 
“B¥WXYZ A 001. 0000 0¢02 
3 XFF A 00% 3036 0045 0021 0022 : 
© #057 A 02 CO3B C46 0026 
TOTAL STATFSENTS FLACGEL IN THIS ASSEMBLY = 0 
1 
“| 
oo : I £ 
oe i 
nn nen nn nnn en nn nnn nnn nn nnn cence cert e cree LAST PAGE ---------------------------------------- ween e-- 
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IBA MAINTENANCE DIAGNOSTIC PROGRAN PART BO. 2589926 “ TBM MAINTENANCE DIAGNOSTIC PROGRAA PAST 20. 2589926 
eo ; PAGE 61 PAGE 61a 
0275S CPD AND MESORY DIAGNOSTICS: PROGRAN 2” ag O2FS5 CPU AND BEBORY DIAGHOSTICS: PROGRAS 27 
"RR LOC OBJECT CODE ADDR STAT SOURCE STATESENT j “CROSS-REFERENCE: : 
0000 2 UVEXYZ START O SYMBOL T LEN VALUE DEF REFERENCES 
3 DECK 4 Cot ‘ 
GF SEKESKSES SE EKSESEKERSEE SSE $EKESESTERKS CSE SKKESCSSCSSKARE SKSESSESSESSESRLSSKESSTERSSSS ARR c 001 000s 0052 0021 
5 seeees eseeee ARRCRK A 008 0029 0036 0023 
6 se0080 PROG 2P eseete =< BOOT C 001 0083 0051 0037 . : 
J tesen9 eesees HALT? a 003 C000 0018 
@ teens (ITC) LISSEBT AND TEST CHARACTERS eeeees HALT2 A 003 0023 0026 
9 seeee8 eeeses FALT3 A 003 C026 0031 0025 é 
10 sse88¢ TEST (1) SIGH DIGIT seseee HALTS A 003 0031 0038 
11 sesee¢ (2) SIG OR SIG DIG STUCK DOwE cesses PAL C 00% 0050 0047 0019% 0020* 0022 0028 
12 eeeees (3) «WOT EBA ELIS seseee —— SA¥ARR C 001 0055 00488 0021® 0036 € 
13 eesee¢ (8) ARR SELECT STUCK UP seeses TENS C007 0076 0050 0018 0026 C031 0038 
14 sese80 oesese ONITS C 001 OO03C 0049 0018 0026 0031 0038 
15 SHEETS SERS SESESTEEKESTKS SHKE THESE SES SE SESRESRTEKSKSSSARSSKSEKEKESSSSESESESSESSSEVS JVaXYZ A 001 co000 0002 : & 
16 XFE A 001 0037 0088 6020 
17 XPF7 a 003 C03B 0086 0022 
00CO FO 76 3c 16 HALT1 APL UNITS,TERS x007) A 003) «C036 «= 0083 0019 é 
0003 OC 02 0052 0036 19 HVC = PAD#2,, 1007 (3) SET PaD TO -0000F7- } 
0009 OB 02 0050 0037 20 ITC PAD,XFE(3) INSERT & TEST PAD WITH -FFEE- | TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 
COOF 3&8 08 0055 24 ST  SAVARR,ARR - STORE ARR IN SAVARR a\- é 
0013 OD 02 0052 003B 22 CLC PAD+2, XFF7 (3) GO TO ARRCHK IPF RESULT aS 
0019 F2 81 OD 23 Jz ARRCBSK EQUAL TO -FFFFF7- ' 
001C 3D FE 0051 24 CLI PADS, X*EE* GO TO HALT3 IF -EE- WAS c é 
6020 F2 81 03 25 JE AALT3 INSERTED IN LOC -0051- 
0023 FO 76 3c 26 HALT2 HPL ONITS,TENS * PROG 2F, HALT 2 2 
27 * * PAILING CARD@ A~B3F2,8-B83S2,A-B3a2 € | . 
28 « ® FAILING PUNCT (1,2)- (Ye2). (1) \ 
29 * . 
30 « € \ 7 
0026 FO 76 3c 31 RALT3 HPL OXITS,TENS * PROG 27, HALT 3 
32 * * PAILIRG CARD@ A-B382 > 
33 * * PAILING FPONCT 3 S$ 
34 * 
35 * v 
0029 3D 52 0055 36 ARRCHK CLI SAVARR,X*52° GO TO HALTS IF ARR NOT EQ TO -0052-) © - 
002D cO 81 0083 37 BE BOOT GO TO BOOT IF ARR IS EQ TO -0052- 
0031 FO 76 3C 36 HALTS HPL OWITS,TENS * PROG 2F, HALT & . ~ 
39 * PAILING CARD@ A-B3P2 G < 
80 + * PAILING FUNCT 8 as rai 
a1 r 
| a2 c | 3 
0034 COCOOF7 0036 4&3 x007 pc XL 3* 0000FT7* i 7 
0037 FF 00370 44 oXFE pc IL1*FFe 
0038 Bf 0038 «45 DC Os KL 1° EE® Cy... z 
0039 EFFFP7 C03B 0 486 «XPF7)~~— soc XL3°*FFPFY7* { ~ 
0050 4&7 PAD zou 3 x* S508 
COSS 88 SAVARR EOD _x*55" $¢ | é 
003C 49 OWITS £00 x* 3c* Ee 
0076 SO TENS 800 x*7<G° |. 1s 
0ca3 51 BOOT gZ0U 131 € | 7 € 
coos 52 ARR EoD Os xx*108°* 2 
FPPF 53 END | ; 
e€ I € 
e | s 
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IRG MAINTENANCE DIAGNOSTIC PROGRAE PART NO. 2589926 ~ BA MAINTENANCE DIAGNOSTIC PROGRAS : PART HO. oer 
| | | PAGE - 62. PAGE 7S 
OBJECT CARD LISTING | ‘ EPR LOC OBJECT CODE ADDR STAT SOURCE STATEREET f 
| . 0000 2 OVWXYZ START 0 
ene | 3 DECK 4 i 
THE CHARACTER THDICATES A BLANK COLUAN AWD THE CHARACTERS DE A INDICATE HORBRIC SHIPT. . be: i 7 a FF OCS CESSES SES ESES ESOS ES HE OE SEOSEESE SOOSEOSSOCTEOOREN ESSE SES SEEESESEEER 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 4&9 THROUGH 64 CL 65 THROUGH 80 CL e1 THROUGH 96 [ : eho pees au oe { 
Tee 7 seeves eeeess 
. sak we ee MS eda eae 7 7 { 8 teene9 (ITC) ISSERT AND TEST CHARACTERS aeesee 
Te- :@60@C H B- 6BOH BH 7( ~ HES B EH +*HACL7> EG 2-6 ° " eae ynmg. aa 2 seteee neers’. 2s Sos 
: -640)T30)TO°H-A NORD -"a6] >""@ *L002F50001 <> { . ie eueee< reser (%) si Loose weevil 
ean @eOoeeoooe ed ee eaeoed @eenee se e 2 i 11 Sarees wesees 
2 ato 2 PT-02P50002 e j . SESE SSST TSE SETHSE SSS OSEESE OSS SETS ES SE SESEESHTESEEOESOESERESEESESEOEECESES Zz 
eee aoe ee ee eee eee oe eee @eeeaeoeesesveeso @ eseee@e f 18 
E*"9SE79=2DC"PHS ="WMEPL 4 C FS asC RA SO Q 21301012710 228728.a02F50003 . seen a a atc oe Le HALT? = ehaskl tere ee Bie eae < 
. - # 
0009 08 0& 0050 0038 17 ITC PAD,XPP(5) INSERT & TEST PAD WITH -PP- . 
CCOP 34 08 0058 18 ST SAVARR, ARR STORE ARR IS SAYARR z 
0013 0D 00 0058 002D 15 CLC SAVARE(1),X0058 GO TO HALT2 IF ARR NOT EQ -0058- 
; 0019 F2 81 03 20 JE PADCHK GO TO PADCEK IF RESULT IS EQ -00S8- 
CO1C FO 57 6F 21 HALT2 HPL OBITS,TEWS * PROG 30, HALT 2 ar e 
. eS 22 * * PAILING CARD@ A-B3P2 
i 22 « * PAILING FusCT 1 7 
co 24 s * 
25 « _ 
001F CD 08 0054 0037 26 PADCHK CLC PAD¢S, RESULT (5) GO TO BALT3 IP PAD MOT -FFPPFFFFFS- 
0025 CC 81 C083 27 BE Boot GO TO BOOT IF PAD IS -FPFFFFFFF9- 2 
0029 FO 57 6P 28 HALT3 APL UNITS,TENS * PROG 30, HALT3 
29 * * PAILING CARD@ A-B3F2 
30 « * FAILING PUNCT 1 : 
= : 37 & 
32 @ . 
c 002c 0054 002D 33 x00S8 pc XL2°0058° = 
OO2E FCOIPBPDFO 0032 38 RIPPLE pC XL5* FOO1PBPDF9* 
0033 FEEFFPPFF9 - ©037 35 RESULT DC XLS* PRPPFPFFFS® : 
‘ | 0038 FF C038 4636 _-=XFP pC XLI°PPe 3 
| 0050 37 PAD rou 23s x* 508 
| C058 38 SAVARR ZOU x*58° 
€ : 0083 39 BOOT £00 131 a 
— | ~ O0O6F 80 ONITS EQU x*6F® 
P 0057 41 TENS eQOo x*578 
e | os CCOS a2 ARR Boo = x*o08e g 
= FPFP 43 END 
ee ‘ 
al’ 8 
SS | ee 
{ 
re - a 
-_ = z 
qs 4 me * 
ae 3 
} 
e | he y 
© : e 
: c& ; 
t ols ad 
e ie 
Off é 
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TEA MAISTEW ANCE DIREHOSTEC eee ane , ce ao aeeae IBR MAINTENANCE DIAGHOSTIC PROGRAA a . . PART HO. 2589926 
. ; ; PAGE 63a 
C305 CPU AND HENORY DIAGNOSTICS: PROEEDN 20 | 0305 CPO AND MENORY BIAGNOSTICS: PROGRAN 30 
: . CROSS- REFERENCE ee ; . “ae : Bt es 
fe | : OBJECT CARD LISTING 
ae SY#BCL T LEN VALUF ODEFN REFERENCES ; ; : , : 
ARR Cc 00% 0008 0082 0018 TRF CHARACTER ‘INDICATES A BLANK COLUMN AND THE CHARACTERS D =H INDICATE NUMERIC SHIPT. 
BOOT c 00% 0083 0039 0027 : 
£ HALT X 003 0900 0015 CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 TRROUGH 48 CL &9 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 936 
= RALT2 A 0O3 OCOIC 0021 
og BALT3 aA €CO3 0029 0028 
e PAD c 001 0050 0C37 0016% 0017% 0026 2° eo 28 ee eo oe e © © oo . e ° e e ease 
a PADCHK A 006 001F 0026 0020 Te ®8aF)?7C 6 N 2B06 # 8( - O 4 E- .7HA "APSOS D EG (2BA HJONGS Wy] A=eTQeaaneny 7003050001 
= RESULT A 005 0037 0035 0026 
RIPPLE A ocs 0032 0034 0016 = eee eee ° ee eee eee e eee eaeeeeeneoeoe® @eoae 
& SAVARR C 001 0058 0038 C018 00T9 ZUHtSE7Te=.PC™PHS ="THEP | { Cc P% ASC RA SO Q 21301012710 228721,803050002 
* TERS c 001 v057 0041 0035 0021 0028 , 
e UNITS C COT OO6P 0040 0015 0021 0028 ae : 
i ‘BVUXYZ aA OC1 0000 0002 oo Be Bae eo : ; 3 
KFFP A 0017 0038 0036 0017 ee 
xy0058 a 002 O02D 0033 0019 
a 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMSLY = 0 
; 
| a 
: 
7 
€ 
. € Y 
g£ 
ce | ; 
{ 
; i 
{ 
os re 3 
€ 
! . g 
€ / g 
. 3 
a = 
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PAGE 648 , PAGE OGA 
0315 CPC AND MESORY DIAGNCSTICS: PROGRAN 31 0315 CPU AND MPRBORY DIAGROSTICS: PROGRAW 31 
ERR LOC OBJECT CODE ADDR STNT SOURCE STATEMENT ERR LOC OBJECT CONE ADDR STAT SOURCE STATEMENT 
6000 2 UVEXYZ START O 00248 F2 81 03 70 J£ HALT3 * 6 GO TO HALT3 IP EQUAL. 
3 DECK 4 7i¢ * GO TO HALT2 IPF CT ZQUAL. 
4g SSEKKSESHKSER SKS SESKESKSESESE SE SSKHSS SESS STRESS SOSH SCHEME SSKERESTESESERE KE ESSEC EE 42 
5 teenes sacese 0027 FO 57 03 73 HALT2 HPL ONITS,TEMS * PROG oot seci ond HALT. 
6 *eee0% PROG 31 eeeeee © 7&4 2 © PAILZTWG CARD = 
7] teens INDEXING TESTS eeeee 75 « * PAILING FURCT & IF ABR= O1PP 
8 teeee8 a2eeees 76 @ * PAILING FUNCT S IP AaRR= OPE 
9 *eeee% TESTS (1) ARR SELECT eeeeee 77 8 
10 Steee6 (2) FORCE BIT 7 TO A sOeses 78 * 
11 #e¢8% (3) LSR LO EQUAL TO ALL ONES seenes! 79 
12 seaee¢ (4) CARRY CONTROLS- CARRY PROBS 3-4 LOST ‘28968 ~ 002a PO 57 03 60 HALT3 HPL OMITS, TENS * PROG 31, HALT 3. ERROR HALT. 
13 seancee (5) BIN COMP & BIB SUB seen e8 81 * PAILING CARDS A-B3P2,A-B3T2 
14 see008 (6) XR1 SELECT seneee 82 2 * PAILING FUSCT (Ne. (9) 
15 eeeees (7) CLOCK 3-7 eeeeee 83 ¢ 
16 #0004 (8) CLOCK 4+¢8 ooeeee Ba * 
17 seene8 9 INTERNAL +os086 85 
18 seeee¢ ae e0ea ee 002D FO 57-03 86 HALTS HPL OWITS,TENS * PROG 31, HALT S&S. ERROR HALT. 
TQ SEREREKERA EER HHEEERES PERS EHS ESSE HEES EES AHAREKESEKEE EASES EAEERERERESEERED 87 * * PAILING CARD# A-B3IC2,A~B 32 
20 *eee4% seseee : 88 @ * PAILING FUSCT (3). (2) 
4 . 21 seeeee , ; seeeee : 89 ¢ 
22 *#**8* CARD 31 SAR CONTENTS DORING REASON FOR HALTING cesses | 90 # 
3 23 **euue HALTS I-oOP I-Q I-Rk ee t08@ $1 
24 €4e4%% Seesee | 8C30 0001 0031 92 x0001 pc XL2*°0001* 
25 *eeeet AALT 1 0000 0001 90002 IPL HALT Fee Se | 0032 OCOFF C033 93 XOOFF pC XL2*OOPP®* 
26 £4448 IP THIS HALT OCCURS setts | 94 
27 *eeae% WHEM NOT IPL*ING, THEN seseee | c051 95 PAD £QuU x'51¢ = 
28 #ete82 XR1 SELECT IS STUCK UP eeseee | c08so 96 KNOOP Fou x*°80¢ 
29 *tteee ettaee cco! 97 XP! £Q0 x*oe . 
30 s#*48% HALT 2 0027 0028 0029 THE ARR WAS SET TO THE eeeeese | 0003 98 UNITS EQU x*03* ‘ 
31 #eee¢% WRONG VALUE DURING AN eeseee | ccs? 99 TENS eor x*57¢ 
32 #44494 INDEXED NO-OP BRANCE. Steet { 0083 100 BOOT EQU x*83* 
33 *se088 208808 101 = 
34 *eeaEe HA!IT 3 OO2Aa 002B 602C THE ARR WAS HOT SELECTED ***4¢20 i FRPP 102 END 
35 *e#e%8 DURING AN INDEXED NO-OP #088 | 2 
36 eeee8 | BRANCH. eeeeee ‘ 
37 *exee8 te0808 i 
38 *eee8% 8 86HALT 4 0110 0111 0112 THE HIGH ORDER BYTE OF ‘tesee8 | 
39 teee8¢ THE IAR WAS IBCRENTED  seeeen _ | € 
is 80 #eeee¢ DURING I-X, 1-2 TIME. eesees | 
41 #0808 eeeee¢ 
42 2000 peseee | t 
Q3 *e0080 ’ seteee | 
ay SKEKSEKSTKKSES KEKSES SEEKS S EEK SEEEKSE ST EEEHSHSEKEEESEEECEEEEEERESEERER ES EKEEER : 
&5 2 
46 | 
a7 | : 
48 a 
0000 FO 57 03 89 HALTT HPL UNITS,TENS * PROG 31, HALT 1, IPL HALT. 
50 * * IF CARD 31 WAS NOT IPL*D, 7 
51 * * PAILING CARD@ A-B3T2,8-B3P2 oe 
52 * * PAILING FUNCT QM). (7) | 
$3 * 
54 « <= 
55 a 
0003 35 0B 0031 56 LOAD L x0001,x°0B* LOAD XR1,XR2 & ARR WITH -0001-. e | 7 
57 = 
58 | 
0007 OC 02 0112 O02PF 59 AVC X*O0312° ,HALTGQ¢2 (3) BOVE HALT3 TO LOC -0110 THRU 0112-. ec | 
60 
000D DO 80 FE 61 BC X*FE* (,X81) , NOOP BRANCH RO-OP. THE ARR SHOULD wow | 
62 # CONTAIN -OPFF-. « 
63 € i i 
CO10 3&8 O08 0051 648 st PAD,xr*08* STORE THE ARR IN LOC -0050 & 0051-. i 
65 
0074 OD 01 0051 0033 66 CLC PAD(2) ,XOOFF CORPARE THE STORED ARR WITH -O0OP?- & € | 4 
001A CO 81 0083 67 BE BOOT GO TO BOOTSTRAP IF EQUAL. | 
68 
COTE OD 01 0051 0031 69 CcCLc PAD (2) ,x0001 * COMPARE THE STORED ARR WITH -0001- ¢ | 3 
| Z 
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0315 CPU AND BESORY DIAGNOSTICS: PROGRAM 31 


_CROSS~ REPRRENCE 

‘SYMBOL T LEN VALUE DEFN REFERENCES 
gooT © 001 0083 0100 0067 
RALT? & 003 C000 CCaS 

“\ AALT2 A 003 0027 0073 

‘= HALT3 A003 002A C080 0070 

“, SALTS & 003 002D 0086 0059 

| LoaD a 004 0003 0056 

“ yooR C001 0080 0096 0061 

- PAD © 001 0051 0095 0064* 0066 0069 

= TENS C001 C057 CC99 0089 0073 0080 0086 

2 UNITS C001 0003 0C98 0089 0073 0080 0086 

° BVWXYZ A 001 9000 0002 

< ERT C001 0001 0097 0061 

< XOOPF A 002 0033 0093 0066 

*- 0001 a 002 0031 6092 0056 0069 

' OTAL STATEMENTS FLAGGED IN THIS ASSESBLY = 0 
DATE 15SEP69 %18NCV69  20JAN70 13HAR70  010CT70 
fc FO. 816499 816559 816576 816638 816756 


26aPR71 
816788 


O1BAR72 
818693 


PART HO. 
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PROG ID 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM PART HO. 2589926 
| | PAGE 65a 
C315 CPO AND MEMORY DIAGNOSTICS: PROGRAM 31 o 


OBJECT CARD LISTING 


THR CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D 2 H INDICATE NUMERIC SHIPT. 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 88 CL 89 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 96 


@eeeone eeeee 


T<O 3BE*C (ES <60 8 JH "8B “TEH ED ( &5AJ Ct -&BCCED MAG WaYDCa@E*cags CaE*c D *0 58 03150001 


ECVtsETeenDCPPHS ="THEPE 4 C m& asc RA SO Q 21301012710 2247218803150002 
eceees ceoworoen SOS CSCS OO BOSS SCO eO BeOSGeeeaseoewoceowere= Last PAGE ee ee Oe EE OOPS PONS SCODS 
rate ISSEP69 1aNn0V69 203A N70 13 4AR70 010CT70 28aPR7 1 OTHAR72 PpRoG ID 0031-5 
EC NO. 816499 816589 816576 816638 816756 816768 818693 PAGE 65A 
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PAGE 66 PAGE 66A 


0325 CPU AND MESORY DIAGNOSTICS: PROGRAN 32 0325 CPN AND FEMORY DIAGNOSTICS: PROGRAM 32 


ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 


FFR LOC OBJFCT CODP ADDR STMT SOURCE STATENSENT 
0000 2 UVWXYZ START 0 70 © * PAILING PUNCT 3 
3 DECK 4 Vi 
y SSKRKTETES HAASE SHEARER SESS SHEESH HEE HNETEEHEEEESEEHEROHESEEDEEKETESSESS 72 = 
5 t#e8e8 PROG 32 eseee 73 
6 eene8 INDEXING TESTS seeeces OC33 OCOA 003% 7&8 x000A vc XL2*000a° 
7 eesnue Sree ee 0035 OCC5 10 36 75 x9005 pec XL2*0005* 
§ estene TEST (1) -XR1& ER2 SELECT ee 9037 0108 C038 876 x01048 DC XL2*01048 
Gg *etKeD (2) SEL XR2 GATE SS200% 77 
10 *see98 Q@) CARRY CONTROLS- CARRY PORCED AT 7-8 saseee C051 78 PAD ZOU ox# S18 
17 Saenne s3seeu 


0089 79 ~=NOOP FOU x" so° 


12 s%eeee CARD 32 SAR CORTENTS DURING REASON POR HALTING SH SeSse C0on2 BO XR2 EOU x*o28 
13 *eee4¢ HALTS I-oP I-o I-R senese 0076 81 UNITS FOU x*76* 
14 eeeee2 oeeense C057 82 TENS EQU x°S7* 
15 *eeeae HALT 2 0000 0001 0002 IPL HALT Steeee. CS 0083 83 BOOT EQU x°83° 
16 sheer HALT2 0023 0028 0025 KR16 XR2 WERE BOTH eSSaee : Bu 
17 sexen8 SELECTED DURING I-X 3-G Ses8e% FRPP 85 END 
18 *keaee TINE OF THE INDEXED esesee = 
19 *tee9% BRANCH. (BRNCR1) SSSSte 
20 **t446 HALT 3 002D OO2E 002P XERV WAS SELECTED INSTEAD *#9"82 
21 **eee8 OP XE2 DURING I-X 3-8 eeesee © 
22 *#t448 TINE OF THE INDEXED eeeseR8 
23 4*eeee BRANCH. (BRNCRH1) etetes 
24 teeeae HALT 4 0030 0031 9032 CARRY IN AT I-X 7-8 TIME s#ee80 2 .: 
25 *eea8% EVEN THOUGH NO CARRY OOT #4242 
26 *8tee% aT I-X 3-8 TIAE. settee 
27 SEFSSEEREKE STARS SEE SE SESE HEEEEE SESE EEEESEEETESEEKEEEEEEDESEEOEEEEEEESES $ 
28 
3000 PO 57 76 29 BALT1 HPL UONITS,TENS * PROG 32, HALT 1. IPL HALT. - 
30 * S 
31 * 
32 * i 
a So 
34a 7 
00903 35 09 0034 35 L KOOOA,xX*09° LOAD XR1 6 ARR WITH -000A-. ; 
36 
0007 35 02 0036 37 L x0005,x*02! LOAD XR2 WITH -0005-. 
38 f 
39 * 
CO0OB EO 80 FF 90 BRNCH1 BC X*FP*(,X%# 2) , HOOP INDEXED BRANCH NO-OP. THE ARR eS 
S14 * SHOULD NOW CONTAIN -0104-. 


& 
N 
eng 


COOE 38 08 0051 43 ST PAD, X*08° STORE THE ARR IN LOC -0050 & 0051-. 
44 . 
0012 OL 01 0051 0038 45 CLC = PAD, X0 104 (2) COSPARE THE STORED ARR WITH -0104-. : é 
0018 CO 81 0083 46 BE BOOT GO TO BOOTSTRAP IF EQUAL. 
47 : 
001C 3D OF 0051 48 CLI PAD,xX*OE* * COMPARE STORED ARR LO WITH -OE-. é 
0020 F2 01 03 ag JNE HALT2¢2 * GO TO HALT2 IF EQUAL. 
50 * * BYPASS HKLT2 IF NOT EQUAL. 
51 ie - 
0023 FO 57 76 52 HALT2 BPL UNITS, TENS * PROG 32, HALT 2. ERROR RALT. 
53 * * PAILING CARD@ A-B3P2 a 7 
54 * * PAILING PUNCT 1 © a 
55 * 
56 * ; 
57 c i 
0026 3D 09 0051 58 CLI PAD,x*09! * COMPARE STORED ARR LO WITH -09-. 
002A F2 01 03 59 JNE #ALTA * GO TO HALT3 IF EQUAL. 
60 * * GO TO HALTS IP NOT EQUAL c 4 
61 
002D FO 57 76 62 HALT3 HPL ONITS,TENS * PROG 32, HALT 3. ERROR HALT. - 
63 * * FAILING CARD@ A-B3P2,A-B3J2 < 3 
64 * * PAILING FONCT (), (2) 
65 * . 5 
66 * C % 
0030 FO 57 76 68 HALTS HPL UNITS,TENS * PROG 32, HALT &. ERROR HALT. 
69 * * FAILING CARD@ a-B3H2 c | 
DATE 1S5SEP69 TaNov69 Z0IJANT7O V3HARTO 010CTT70 28APR7 1 O1HAR72 PROG Ip 0032-5 a | DATE ISSEP69 TAROV6S Z2O0JAN70 13MAR70 010CT70O 28APR871 O1MAEBRT2 PROG ID 0032-5 - 
EC NO. 816899 816559 816576 816638 816756 816788 618693 PAGE 66 | EC NO. 816899 81€559 816576 816638 816756 816788 818693 PAGE 66a 
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_ IBA MAINTENANCE DIAGNOSTIC PRCGRAS 


0325 


CPU AND NEMORY DIAGNOSTICS: PROGRANS 32 
CROSS-REPERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES 
Boot C001 0083 0083 0086 
BRNCH1 A 003 0008 0080 
HALT? A 903 0000 0029 
RALT2 A 003 0023 0052 0089 
RALT3 a 003 002D 0062 
RALTS A 003 0030 0068 0059 
HOOP C001 0080 ¢C79 0040 
PAD. Cc 001 0051 0078 0083* 0045 0088 0058 
TEHS C001 0057 0C82 0029 0052 0062 0068 
UNITS C 001 0076 0081 0029 0052 0062 0068 
UYWXYZ A 001 0000 0002 
XR2 C 901 0002 0080 0040 
XOCOA A 002 0038 0074 0035 
x0005 a 002 0036 0075 0037 
x10108 a 002 0038 0076 0045 
TOTAL. STATEMENTS FLAGGED IN THIS ASSEMBLY = | 0 
" DATE 15SEP69 T8NOV69 2034870 138AR70 010CT70 
EC WO. 816499 81€559 816576 816638 816756 


2 8APR7 1 
616788 


OTMART2 
8186 93 


PART HO. 
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0325 CPU AND SEMORY DIAGNOSTICS: PROGRAS 32 


PART 40. 
PAGE 


2589926 
67; 


OBJECT CARD LISTING 


THE CRARACTER INDTCATES A BLANK COLUAN AND THE 


CL 1% THROUGH 16 CL 17 THROUGH 32 CL 33 THROUG 


Te S8aE)6(E0 (CH B C$--j{@8B AJCED 


ME SOHD -34+ BG 2 EIGNT7O*BEASA-D CAE) 6E)6 


CHARACTERS D E 8 INDICATE NUMERIC SHIFT. 


R&B CL 49 TRROUGH 648 CL 65 THROUGH 80 CL 81 THROUGH 96 


Y abd OD 


5.003250001 

LenesE7@=<DC"PHS ="7HEP]. |. C FR asc RA SOQ 21301012710 224721. 303250002 
= 

onan pn on eo eon nn o-oo nnn nnn eo ee ee nee LAST PAGE ----------- ----- ==" - $9 nnn nnn nnn 

DATE  1SSEP69.-«- Y14NOVES =—«s«-20JAN70«=—«s«- 113MAR70 «=» 10CT70. «= 2BAPR71 «=—-«O 1H ARTZ PROG ID 0032-5 

EC NO. 816499 816559 816576 816638 816756 816786 616693 PAGE 67a 
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* FBR BAINTEWANCE DIAGNCSTIC PROGRAN PART NO. 2583926 
ae PAGE 68 
0335 «CPU AND MENORY TIAGNOSTICS: PROGRAA 33 
E®R LOC OBJECT CODE ADDR STMT SOURCE STAT ENENT 
9000 2 UVAXYZ START O 
3 DECK 4 
4 SESKEREEKEAEKERSESSE SR ERAER SKA THESES EE EEHES ERSASES ESTERS ESEROLESERESCAEES 
5 teen PROG 33 eeeses 
6 *eee0% INDEXING TESTS sesese 
7 *et208 seeese 
8 seeeee TEST (1) LSB LO = FP. sesoes 
: Q s8eee8 (2) LSR WRITE HI AT I-X CLOCK 2. eesese 
. 10 88000 (3) GATE LSR HI TO B AT I-X CLOCK 2. seeeue 
11 *aeaee (4) PORCE BIT 7 TO A. 8290S 
5 12 #eeee% (5) SEL X&2 Gate seeses 
13 tesse0 (6) INTORNAL oceees 
TQ See4K¢ eeesee 
15 seeee8 - stages 
16 *¢8¢%% CARD 33 SAR CONTENTS REASON POR HALTING. Seeteee 
17 **tex HALTS DURING, eeetes 
78 eeCECR ; Seseese 
19 *ee00% HALT 1 X-oOP = OCO60 IPL SALT. seeees 
20 ¥¥ete0 I-Q = 0007 | Sesets 
21 teeee® I-k = 0002 Seseee 
22 *eea28 eeeee3 
23 *eeeee RALT 2 YI-oOP = 0028 THE IAR HI BITE WAS WOT Seeeee 
24 eeneae I-Q = 0029 INCREMENTED DURING I-X CYCLE sreeee 
25 *eeKe8 I-R = 002a CLOocK 2. seeees 
26 *eeeee eeeese 
27 *ee8%% HALT 3 I-OP = 0028 IP STORED ARR HI = 01, THE LIAR senans 
28 #884 I-Q = 062Cc WAS NOT GATED TO B DURING I-X Seetas 
29 *se eae I-R = 002D CYCLE CLOCK 2. sesees 
30 **a¢0% Seeeae8 
31 eeee8% RALT S$ Y-OP = OO2ZE XR2 WAS SELECTED WHER essere 
32 *eenee I-Q = 002F XR1 WAS SPECIPIED. 
33 *«*408% I-Rk = 0030 asesses 
34 +4824 s¢ee2¢ 
35 ETRE TAA SREERA TEASER EERE ESSER EEE TREE AEE SKEEEEEES HERETO EEEEEEESEEEEEDROS 
36 
37 
38 
39 
0000 4&0 USING HALT1,1 
0000; 8641 USING HALT1,2 
0000 FO 57 57 G2 HALT? HPL UNITS ,TENS * PROG 33, HALT 1. IPL HALT. 
43 * 
44h © 
45 & 
&6 
9063 35 09 0035 47 LOAD L x0000,x "098 LOAD XR1 & ARR WITH -0000-. 
48 
0007 35 02 0037 a9 L X0019,x'02¢ LOAD XB2 WITH -0019-. 
50 
COOR OC 02 O2FF 0033 51 HOVE HVC X*O2FF*, BRANCH#2 (3) MOVE THE INDEXED UNCONDITIOBAL 
52 € BRANCH TO LOC -0O2FD THRU O2PP-. 
53 
0011 CO 87 O2FD 54 B X*O2FpD* GO TO LOC -O2FD-. THE INDEXED BRASCH 
55 « AT LOC -O2FD- WILL BRANCH BACK TO 
56 * THE NEXT INSTRUCTION (STORE) 
S57 
0015 348 08 0051 58 STORE ST PAD,x*08* STORE THE ARR (OLD IAB) If 
59 * Loc -0050 & 0051-. 
60 
@019 3p 03 0050 61 CLI PAD-1,X°03° CCBHPARE STORED ARR BI WITH -03-. 
807D CO 81 0083 62 BE Boot GO TO BOOTSTRAP IF EQUAL. 
63 
9021 3D 02 0050 64 CLI PAD-1,X°02¢ * COMPARE STORED ARR HI WITH ~02-. 
9025 FP2 01 03 65 JNE HALT3 * GO TO SALT2 IF EQUAL. 
re * * GO TO HALT3 IF WOT EQUAL 
‘ 6 
0028 PFO 57 57 68 HALT2 &APL UNITS ,TEWS * ?ROG 33, HALT 2. ERROR HALT. 
69 © * FAILING CARD# A-B3P2,A-B382, A~B3C2: 
BATE ISSEP69 TQNOVE69 20JAN70 73MAR70 010CT70 28 APR71 01S AR72 PEOG ID 6033-5. 
Ec BO. 816499 816559 816576 816638 816756 816788 818693 PAGE 68 
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CUNEO ee eae ORTON ORME sme 


TRS BSAINTFENARCFE DIAGNCSTIC PROGRAM 


0335 


FRR LCC OPJFECT COLE 


OO02R PO 57 57 


CO2F FO 57 57 


0031 DX 87 15 


0038 
0936 


f00C 
0019 


CATE 
EC NO. 


15S FP69 
8164899 


€©eeooeoeees08eoeeesdeoeedsee@e 


ACDR 


0035 
CC37 


C051 
0091 
0057 
OC57 
CC83 
FEFF 


T4NOVES 
816559 


CPU AND MENORY DIAGNOSTICS: 


PROGRAN 33 


STMT SOURCE STATEMENT 
70 
71 «* 
72 * 
73 
74 HALT3 HPL UNITS,TENS 
75 ¢ 
76 * 
77 * 
78 * 
79 
80 HALTS HPL UNITS, TENS 
81 © 
82 * 
83 * 
84 © 
65 
86 FRANCH 8 STORE(,XR1) 
87 
88 x0000 onc XL2*0000* 
89 x0019 BC XL2*0019° 
$0 
91 PAD 200 x°Své 
92 XR1 £0U x'ov 
93 UNITS EOC x°s7e 
94 TENS £OU x*57¢ 
85 s00T £00 x*838 
96 END 
20JAN70 13HAR70 010CT70 
816576 816638 816756 


28APRE71 


816788 


® PAILIUG PONCT 


PART HO. 2589926 
PAGE 68a 
(296 (),  Y) 


© PROG 33, HALT 
* FAILISG CARD® 
* PAILISG PONCT 


* PROG 33, HALT 
PAILING CARDE@ 
PAILISG PUNCT 


3. ERBOR HALT. 
A-B3E2 
3 WITH ARR=0100 


&. ERROR HALT 
A-B332,a-B3P2 
(5) » (6) 
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IBA FATNTEWARCE DIAGNCSTIC PROGRAM Sa i. BORE BOs: © S507 728 IBM MAINTENANCE DIAGNOSTIC PROGRAM | . ae PART HO. 2589926 
: | | | PAGE 69 : : 7 ‘PAGE. 698 
0335 CPU AND MEMORY DIAGNOSTICS: PROGRAN 33 — 0335 . CPU AND MEMORY DIAGNOSTICS: PROGRAN 33 | . 
| CROSS~REFER EWCE OBJECT CARD LISTING 
SYMBOL T LEN VALUE DEPW  §$REPERENCES : seat 2 
ae : E n fS A BLANK COLUMN AND THE CHARACTERS D £2 H INDICATE NUMERIC SHIPT. 
Boot Cc 001 0083 CC95 0062 . PRE ERAUAC TEE: -EEDECEL 
ERAWCH A 003 0031 0086 0051 ; 1 17 THROUGH 32 CL 33 THROUGR 48 CL 89 THROUGH 6% CL 65 THROUGH 89 CL 81 THROUGH 96 
BALT? A 003 C000 0082 0080 0081 i a ERROR CR AR en . 
HALT2 a 003 0028 0068 | 
HALT3 A 0C3 0028 00748 0065 Se — ae . ; a cers 
BALT& a OC3 OO02E 0080 : ‘ : mn " - *f = SLe bes HA "APB®A PN°APN*BGES AD *#K003350001 
Deen waeee nena ehes | T(O 7a@£)P(eU (LH B Ce -." Cy 70 ( - NLUC EC -6B CiEB MI 
ROVE A 006 0008 0051 eee eaee ss ee eee see e aeo @eseeeoeoeoeae @ee @2eenoed 
FAD C001 0051 C091 0058 0061 0068 " ezapc* =" zo R 21301012710 2287218803350002 
STORE A 004 0015 o0cs8 0086 SS ere Sere Ca eres: ae 2, eee 
TENS C001 0057 CC94 0082 0068 0078 0080 
DNITS C001 0057 0093 0082 0068 0078 0080 
BVaXYZ A CC? C000 0002 
Ri = C 001 «0001 0092 = 0086 
= x0000 A 002 0035 0088 0087 
: 10019 4 002 0037 0089 00489 
2 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
<: 
€ sg 
\ 
€ | : 
| 
€ | z 
a e | z 
aio _ 
| a a 
| 
1 z 
| i 
P ft : 
i 
{ 
Se { 
! 
| 
| Z 
i 
CA 3 
fe 3 
: | © mee enn nnn nnn nn nnn nn nn nnn nnn nnn nnn enn nn nn enna LAST PAGE -<--— onan nnn an nr rrr 
DATE 15SEP69 4NOV69 203AN70 13HAR70 010CT70 28APR71 O1NAR72 PROG ID 0033-5 € | | 0033-5 3 
| 7 7 10CT?O «=—«- 2SAPR71 01 8aR72 PROG ID 3 
EC NO. 816499 816559 816576 816638 816756 816788 818693 PAGE 69 i, SBAtE Meee’ Aseese gteaye” = axegae’|46e1gya6" | ase7e8 | 1419653 PAGE 69a 
€ ae as 
o. | 








IBN MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589926 | LRA MAINTENANCE DIAGNCSTIC PROGRAN . PART 06 = 2589926 
PAGE 70 PAGE 7WOa 
0355 CPU AND MEMORY DIAGNOSTICS: PROGRAM 34 O34S CPU AND MEMORY CYAGNOSTICS: PROGRAM 38 
‘ : | 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT EhOsaa KEEPER EECE 
0000 > UVAXYZ START 0 i SYMBOL T LEN VALUE DEPN = RPFERENCES 
3 DECK 8 ; 
§ REKEER TASER ETESTEHESESS OO OEEEHES SERS EEEEECE SHEET HESS TERESES BETS O RED ESOS ARR Cc 007 ff08 OChO 0032 0041 
5 eeeaee Seeeoe ’ BNOT c 001 C083 9068 0084 
6 taeee8 PROG 34 SEVERE | BRRCHT A 002 CO?F 0053 
J teeaee INDEXING TESTS e$58 48 | FRNCH2 A 903 C032 0055 0028 
Q trteee eeReee | HALT? A 003 C000 O06 0093 OOT4 
9 teeens TESTS (1) RIPPLE THE LSR LO = PF LOGIC. eeeoas | HALT2 & 003 002C 087 9035 
10 seease SS5RRR LOAD A 0C&® 8903 0022 
11 seaeee BBSsar : AOV® A 00F OCOOF7 002% 
FQ STREAK KS SSE SERS SLA KSTHLRKSRS SSK SE KSAT HASKHESSTSETHSK SKS S SASHES SHESTVEREAESHES : PaD : Cc ane ee ele heae 0038 G0OS4* 9043 
coco) 4 USING HALT1,1 STORRT A 004 ze 
200048 USING HALT1.2 STORE2 A 908 0020 0081 0055 
wf ¢ 15 . TENS c 00% 0057 0063 0016 6887 
0000 FO 57 1B : 46 HALT? HPL UNITS, TENS * PROG 3%, HALT 1. XPL HALT. URITS C 30t H01R 002 Ost: “0084 
. 17 « OVRXYZ A 901 0000 6892 
18 * ZR c ney C704 O0o4 0053 6055 
19 % yecoag aA 902 06036 0057 0022 
& 
a: TOTAL STATERENTS FLAGGED IN THIS ASSPRBLY = 0 
COOsS 35 03 0036 22 LOAD L xX0000, X'0O3* LOAD XR4, XR2, ARR BITH ~OCOO-. 
23 
C007 Oc 05 OOFE C034 24 NCVE vc X*OOPE* (6) , BRNCH2¢2 MOVE BRNCHT & BRNCHZ2 TO LOC 3 
25 * ~OOFS THRU OOPE-. 
26 
O00D CO 87 OOFS 27 B x*Pse GO TO BRHCH? AT LOC -COFR, ‘ 
28 
29 * BRNCH1 WILL BRANCH BACK TO STORE? | 
30 * AT LOU ~0010-. (NEXT INSTRUCTION) . { 
31 ; 
0077 34 08 0051 32 STGRE1 ST PAD, ARR STORE THE ABR IN LOC ~0050 & 0051!-. . i 
33 
9015 3p OY C050 38 CLI PAD-1,x"°O1* COMPARE STORED ARR RAI WITH -O1-. 
00419 F2 B81 16 35 JE HALT2 GO TO HALT2 IF ARR HI = -O1-. , 2 
g01c CO 87 OCOFC 36 B xX* Fc® GO TO BRENCH2 IF ARR HI NOT = ~Ot-. : 
37 
38 * BRNCH2 WILL BRAHCH BACK TO STORE2 : os 
39 * AT LOC -O001TF-. (NEXT INSTRUCTION) LL. er 
&0 : 
f02C 34 08 0051 4&1 STORE2 ST PAD ,ARR STORE THE ARR IH LOC -0050 & O005i-. 7 j 
4&2 / eT 
0028 3D 01 0050 43 CLI PAD~-1,X*0O1* COMPARE STORED ARR SI WITH -O1-. i 
0028 CO CT 0083 aR ENE BOOT GO TO BOOTSTRAP IF ARR HI NOT -01-. i 
&5 * GO TO HALT2 IF ARR EQ ~O1-. 
46 : 
002C FO 57 IR 47 HALT2 HPL ONITS, TENS * PROG 34, HALT 2. ERROB HALT. s 
48 * * PATLING CARD#@ A-B3C2 
49 * * PAILING FUNCT 1 
50 * 
51 * i 
52 
0O02F DO 87 11 53 BRNCHI B STORE1(,XR1) INDEXED BRANCH TO LOC -0010-. 
54 o = 
0032 DO 87 20 55 BRNCH2 B STORE2 (,X81) INDEXED BRANCH TO LOC -001PF-. 
56 
9035 00C0 0036 57 x0000 pc XL2* 00008 ‘< 
58 
0051 59 PAD EOU x*5sae 
0c08 60 ARR £EQOU zr*'osB* CS 2 
coo 61 xR! £OQU x*o78 
001B 62 UNITS £0U x* 1B° 2 
C057 63 TENS RQU x*578 < 
0083 64 BOOT EQU x*83° 
FFFF 65 END 
& @ 
t § 
DATE 4ISSEP69 T8NOVE6ES 203AN70 1T3MARTO 010CT70 28APR71 O1MAR72 PROG ID 0036-5 <=. DATE ISSEP69 14NOV69 20JAN70 T3AMARTO 010CT70 28APR71 OM ABRT2 PROG ID 0038-5 @ 


EC NO. 816499 816559 816576 816638 816756 816788 818693 PAGE 70 EC NO. 816899 816559 816576 8 16638 816756 816788 818693 PAGE 70a 
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4p FRG: BRXETERAEEE OTAGEDET IC. PhOeERe See eee egae IRM MAINTENANCE DIAGNOSTIC PROGRAM PART HO. 2589926. 
- - fea. 8 PAGE 71a 
982, RPG AED RENORT, DERCHOS NESS © 2eaccnan 28 oi 0355 CPU AND SENORY DIAGNCSTICS: PROGRAM 35 | . 

BEEP a CRED: LISTIES } ERR LOC OBJECT CODE ADDR STNT SOURCE STATERENT 
" : - é 4 
A TRE CRARACTER INDICATES A BLANK COLUAN AND THE CHARACTERS D E H INDICATE NUSBRIC SHIFT. ws j eae” ; ma MEEe eee 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 8} Fe ee, rey eyetr Ore tee te Ryo ee 
= i 6 teence PROG 35 eee808 
. | 7 seeees INDEXING TESTS senses 
e os es ° ° e ci —_ e e C7 eo e eeeee eeeoeseen Pa ; 8 “eeeee eeete8 
T(- 6@E*S(E< (-0 EB 18 (<EBG {USB A JED NPRAD<BG 40 OB AJJED BK AH] 0N17871GE/2 7H%03450001 = : a Gan cee esas. “Gay: “eaxbeud a0e1S3 40" Pr Loe eae 
| " 10 eeee08 eseeese 
E"" ¢P7e=.PC"PRE ="TREF i c rg ASC RA sO Q 21301012710 226720,303850002 = ! oe De ee er EE ney A pe OG ee eras utig oe 
i 8 : ° 
ecco) 13 USING RALT1,2 
OoCCO FO 57 SD 18 HALT? HPL UONITS,TENS PROG 35, HALT 1. IPL HALT. 
15 * 
16 © 
72 ; 
18 ¢ : 
19 
9003 35 03 0038 20 LOAD so x10000,x°03° LOAD X81, XB2, ARR WITH -0000-. 
21 : 
0007 0c 02 OOFD 0036 22 MOVET AVC X*OOFD'(3),BRNCH1#2 OVE BRNCHT TO LOC -OOFB THRO OOFD- 
23 
000D F2 87 EB 24 5 X° Ep GO TO BRNCH1 AT LOC -OO0FB-. 
25 
26 * BENCH? WILL BRANCH BACK TO. STORE1 
27 * AT LOC -0010—. (NEXT INSTRUCTION) : 
28 
0010 34 C8 0051 29 STORE! ST PAD, ARR STORE THE ARR IM LOC -0050 & 0051-. 
30 : x 
9018 3D 01 0050 31 CLI PAD-12,x*01° COMPARE STORED ARR SI WITH.-O1-. | 
0C18 F2 81 16 32 Je HALT2 GO TO HALT2 IF ARB BI = -O01-.° =) 
33 é 
0OTE OC 02 OODP 0039 34 SOVE2 SVC X*OODF*(3),BRNCH2¢2 SOVE BRHCH2 TO LOC -OODD THRO CODF-. 
eo 35 
: 0021 CO 87 OODD 36 8 x*DD* GO TO BRECH2 AT LOC -OODD-. 
37 
c 38 * BRUCH2 WILL BRANCH BACK TG STOBEZ 
39 * aT LOC -0025-. (HEXIT INSTRUCTION) z 
€ 0025 34 CB 0051 41 STORE2 ST PAD, ABR STORE THE ARR IR LOC -0050 6 0051-. _ 
42 : 
0029 3D 01 0050 43 CLI PAD-1,x°018 COMPARE STORED ARR BI WITH -01-. 
‘ 002D CO 01 0083 84 BNE BOOT GO TO BOOTSTRAP IP ARR HI BOT -O1-. 
45 « GO TO HALT2 IF ARR BI = -0t-. : 
46 
e 0031 FO 5? 5D 87 HALT2 HPL ONITS,TESS * PROG 35, HALT 2. ERROR HALT. 
88 * PAILING CARD®@ A-B3C2 
49 * * PAILING FUNCT 1 
50 2 
bl 51 © 
52 
q 0038 nO 87 10 53 BRNCA1 B STORE1(,IR1) IiJEIED BRANCH TO LOC -0010-. . 
54 : 
0037 DO 87 25 55 BRNCH2 B STORE2(,XB1) INDEXED BRANCH TO LOC -0025-. 
ee 56 
; OC3aA OC00 003B 57 x0000 onc xL2°0000* 4 
i 58 
i 0051 59 PAD BOU = x# S18 , 
0CO8 60 ARR EOU = x*08* i 
- 0001 61 XR1 209 «x08 
{ 005D 62 UNITS EOQU  x*5D# . 
= 0057 63 TENS #200 x*57¢ : 
0083 6&8 ROOT EQU. x*83* 
FFFF 65 EAD g 
OD Pe EE DF ED ED EE EP 8 EF EE ESE RS OS SOS OBO eoeaaenae Se eer aeeenoaneoe Last PAGE SO OP OP SO SS BS OE BS SSS OOS SS SOS SSSSSBHBSOSBDHSESe «2 oq Se eaeeoenea@ i j = 
—— coe Leaded | parses. Bsestc a16c38 | aieise. states aiecaa pe 2” ae ‘ | DATE 15SEP69 14NOV69 20J4N70 138AR70 010CT?70 28APR71 OWMART2 PROG ID 9035-5 
Se te CP Pere a eee ee ee | ~ 8c wo. 8164899 81€559 816576 816638 816756 816788 818693 PAGE 71a 
” : : ee ee. 
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CROSS-REPERENCE 

SYMBOL T LEN VALUE DEFN REPERENCES 

RRR Cc 007 0008 0660 0029 0081 

BOOT C 00% 0083 0068 OO0aR 

BRYCHT A O03 CO38 0053 0022 

BRYCH2 A 003 0037 0055 0034 

RALTT A 003 0000 00148 0012 0073 

HALT? A&A 003 0031 00487 0032 

LOAD A GOH 0003 0020 

HOVET A 906 0007 0022 

AOVE2 A 006 0018 0034 

PAD c¢ 001 6057 ¢6C59 0029* 0037 O00871* 0083 

STOPET A 604 0010 0029 C053 

STORE2 BR 0OO% 0025 0084 0055 

TEKS Cc 001 OCS7 0063 0018 0047 

OFITS c 007 OSD 0062 OOT& 0047 

UVHUXYZ A 007% 6000 0002 

ERI Cc 9017 Of01 0061 0053 0055 

xCCOO aA CO2 (CO3B 0057 0020 

TOTAL STATEMENTS FLAGGED IN THIS ASSEMRLY = 0 

DATE 15SEP69 TUNOV6S 203AN70 T3MAR70 O10CT7O 
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PART HO. 


2589926 


PAGE 72a 


INDICATES A BLANK COLUAN AND THE CHABACTERS DE # INDICATE NUMERIC SHIFT. 


CL Si THROUGH 96 


GI& _5-803550001 


7&603550002 


2287202803550003 


PROG ID 0035-5 


CL 1% THROUGH 16 CL 17 THFONGH 32 CL 33 TRROUGH 48 CL &9 THROUGH 6&8 CL 6S THROUGH 80 
T+- 2BP)) (EC #C0 9 44 (7HG23GR BD *© GACaYDOC 4.70 GOH® 7LAB ED® GA 60 D -*APP)BGD(B 

1 8 
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\° 0365 CPU AND MEMORY DIAGNCSTICS: PROGRAM 36 0365 CPU AND MFMORY DIAGNOSTICS: PROGRAM 36 


ERR LOC ORJFCT CODE ADDR STHT SOURCE STATEMENT CROSS-REPERERCE 
0000 2 UVWXYZ START 0 SYMROL T LEN VALUF DEFN REFERENCES 
3 DECK 4 
y SHEE KARE EEK EEKRESEEEREEESESEEE SE SEES KESERESE RE SSKSETEREKSSERSKESSEE SS ARR c C01 0008 0060 0029 0041 
3 2 SeSees eeete* BOOT C MCT OCR3 COS 0044 
. 6 *eeeee PROG 36 Ree eee PRNCH? A CO3 C0348 0053 0022 
ea 7 sekess INDEXING TESTS seeees RRNCH? A CO} 0037 0055 0034 
8 *eee88 Seeees HALT? A 003 0000 0015 0012 0013 
Q eeee8 TESTS (1) RIPPLE THE LSB LO = PF LOGIC sessee HALT2 A 1032. CO31 087 0032 
10 *#eee¢ sneer LOAD 4 008 0003 0020 
: 1 KEKKESRHRES SKEKRSCHAEKE SRE SEES HERES KEES HESKEAKETS KESSESSHESSESKESSSESSKERTESESE SOVET A 0C6 C007 00272 
b 0000 12 USING HALT1,1 MOVF2 A 006 001B 0034 
~ oooo)=—s«*93 USING HALT1,2 PAD c 001 C051 C059 0029* 9031 CO¥1* 0083 
% 4 STORET A CO8’ 0010 0929 0053 
e 0000 FO 57 7D 15 HALT? 8BPL ONITS,TENS PROG 36, HALT 1. IPL HALT. STORF2 A 9C& C025 0041 0055 
‘ 16 * TENS C 001 6057 0063 0015 0087 
17 * URITS C 001 CO7D O62 C015 0047 
18 * oVwXYZ A 00% 0009 0902 
19 xR1 Cc CO? C001 0061 0053 0055 
0003 35 OB 0038 22 LOAD L x0000,X*OB* LOAD XKR1, XR2, ARR WITH -0000-. - + C000 A 002 0038 0057 0020 
21 
9007 Oc 02 COEF 0036 22 MOVE1 <¥NVC X*QOOEF* (3) ,-BRNCHI+42 MOVE BRNCB1 TO LOC -OOED THRO OOEF-. TOTAL STATEMENTS FLAGGED IN THIS ASSENSSLY = 0 
23 
000D F2 87 DD 24 J x*ppD* GO TO BRNCH1 AT LOC -OOED-. 
25 
26 * BRNCH1 WILL BRANCH BACK TO STOBE1 
27 * AT LOC -0010-. (NEXT INSTROCTION) 
28 
0010 38 08 0051 29 STORF1 ST PAD,ARR STORE THE ARR IN LOC -0050 & 0051-. 
30 = 
0014 3D 01 COSO 31 CLI PAD-1,X*01° COMPARE STORED ARR BI WITH -O1-. 
0018 F2 81 16 32 JE HALT2 GO TO HALT2 IF ABR HI = -01-. 
33 2 
0012 OC 02 OOBF 0039 34 MOVE2 MVC X*OOBF*(3),BRNCH2¢2 MOVE BRNCH2 TO LOC -QOBD THRU OOBF- 
35 
C021 CO 87 COBD 36 B X*BD* GO TO BRNCH2 AT LOC -OOBD-. = 
37 
38 * BRNCH2 WILL BRANCH BACK TO STORE2 : 
39.4 AT LOC -0025-. (NEXT INSTRUCTION) oe - 3 
40 SS 
0025 38 08 0051 4&1 STORE2 ST PAD, ARR STORE THE ARR IN LOC -0050 & 0051-. : 
82 ” 
0029 3D 01 0050 a3 CLI PAD-1,X*01* COMPARE THE STORED ARR HI WITH -O01-. 
002D CO 01 0083 ay BNE Boot GO TO BOOTSTRAP IF ABR HI NOT -01-. 
a5 * GO TO HALT2 IF ARR HI = -O1-. g 
&6 
0031 FO 57 7D &7 HALT2 HPL UNITS,TEKS * PROG 36, HALT 2. ERROR HALT. 
ug * * FAILING CARD@ A-B3C2 é 
a9 * * FAILING PUNCT 1 
~~ 50 # 
51 * £ 
52 
0034 DO 87 10 53 BRNCH1 B STORE1(, XR 1) INDEXED BRANCH TO LOC -0010-. 
54 * 
0037 DO 87 25 55 BRNCH2 B STORE2(,XR1) INDEXED BRANCH TO LOC -0025-. 
56 
003A 0000 0033 57 x0000 pc XL2*°0000* . f 
58 
0051 59 PAD zou x*518 
CCO8 60 ARR Zou xtos? ¢ { 
0c01 61 XR1 EQu x01" : 
CO7D 62 UNITS EFQU x*7D* 
0057 63 TENS £00 x*57® € é 
0083 64 B00T E0U xX*83* 
FFFF 65 EXD 
e i f 
. >» 
| 
c > 
BATE  §15SEP69 T4NOV69 = 20J A870 13MAR70 010CT70 28APRT71 0 1HAR72 PROG ID 0036-5 |. DATE 15SFP69 1UNOV69  § 20J3AN70 13MAR70 010CT70 28AP871 OWAR72 PLOG ID 0036-5 
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0365 CPU AND MEMORY DIAGRCSTICS: PROGRAM 36 0375 CPD AND MEMORY DIAGNOSTICS: PROGRAS 37 
GBIECT CARD LISTING é, ERR LOC OBJECT CODE ACDR STHT SOURCE STATENER?T 
3 ee 0000 2 UVHXYZ START 0 
TREE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS DE  XIRDICATE NUMERIC SRIF?. ¢ 3. DECK & 
& RKKEES LSRESKSEKSKSKESSKAS SSE CFSSEEESHESS SHSCSSHESSEKSESSE ST SHE SEHSSSLSSTE SESS SSE $B 
CL 1 THROUGH 16 CL 17 TRROUGH 32 CL 33 THROUGH 48 CL 89 THROUGH 64 CL 65 TERODGA 60 CL 2% TEROUGH 96 5 sseeee 2eete 
oe & Fesee8 PRGG 37 Seoeee 
; FJ #52504 IHDEXIZG TESTS SSeeee 
« 2 ® * os es e 2 8 e * a e 2 & eo ! QR sebaee SeSees 
Te- GE) '{6% +60 B +e (PHGTLEH ED * EAEBYDOC H 70 9O0H* PLEA ED* GA 60 DB “SBPay BGD(B GYS SE<O3650001 cz 9 senete TESTS (1) RIPPLE THE LSR LO = PF LOGIC Sessee 
10 seeeee seoees 
Pee C8 os eneanes Seon veneenececoe e8ease se reeusezaed ee@eeuetoveesavess evesseesceencesss eeene | 11 FRECKLEKSSE SEKKKCRKTKEKSERESSE SESKSLKE SES SU SF SPCHKSESHSSSE SSCSESRE ST SERRVSSESSE BH 
er # 7-603650002 ¢ | e000 12 USING HALT, 1 
ocoo 13 USING HALT1,2 
o2@ one * oe eo # e202 e eece@e Fee vmeceense e2ee9o? 7% 
EVOCeE Tee NCMPHS =NINEKY } c FS asC RA SO Q 21301012719 224720.8693650003 © 6000 FO $7 07 15 HALT RPL UNITS, TENS PROG 37, RALT i. EPL HALT. 4 
| 16 * 
i 17 * *: 
18% oS 
19 
0003 35 OB 0938 20 LOAD OL 70000, 2°OB* LOAD Xat, KR2, ARB ¥ITH -0000-. ; 
27 : 
’ 0907 OC 02 007F 0036 22 HOVE! AVC X*007P*(3),BBECHI¢2 SOVE BRHCR1 TO LOC -007D THRO 007F-. 
. 23 7 
: O00D F?2 87 6D 28 3 X*6D? GO TO BRECH1 2f LOC -007D-. wt 
25 
26 ¢ PRUCHY WILL BRAECH BACK TO STORE? ; 
eo 27 * AT LOC -0010-. (NEXT INSTROCTIOB) = 
: 28 
C010 38 C8 0051 29 STORE ST PAD, ARB STORZ TRE ARR IW LOC -0050 & 0051-. ; 
30 i 
9918 3D 01 0050 1 CLI PAaD-1,x°018 COSPARE STORED ARR HI WITH -~O1-. 
0018 P2 81 16 32 Jz HALT2 GO TO SaLT2 IF ARR AI = -01-. : 
33 ‘S 
9078 OC 0? OOF? 0039 38 MOVE2 S¥C xX*OOF7* (3) ,BRNCH2¢2 SOVE BRECH2 TO LOC -O00F5S TRED 0057-. 
35 
e 0021 CO 87 COPS 36 B x*P5¢ GO TO BRECH2 aT LOC -GOFS-. as 
37 
38 BRSCB2 WILL BRAECH BACK TO STORE2 
¢ |. 39 * AT LOC -0025-. (NEIT IsSTRUCTION) < 
oe 40 
te 9025 38 08 0051 41 STORE2 ST PAD, ARR STORE THE ABR IB LOC -0050 & 0051-. ; 
e — 42 
c 0029 3n 01 0050 a3 CLI PAD-1,x*01*8 COMPARE TRE STORED ARR HI BITH -O01-. 
002D CO C1 0083 ay BNE BOOT GO TO BOOTSTRAP IPF ARR HI NOT -O1-. 
¢ a5 * GO TO HALT2 IP AER HI = -0%-. é 
i ‘ 86 : 
‘ 0031 PN 57 C7 S37 HALT2 HPL UNITS,TENS *® PROG 37, HALT 2. ERROR HALT. 
C ag * ® PAILING CARD@ A-B3C2 z 
i ag * * PAILING FoscT q 
50 * 
c Si * a 
52 
0038 DO 87 10 53 BRNCH? 8 STOR E1(,X8 1) INDEXED BRANCH TO LOC -0010-. ; 
co: 58 ‘ 
. 0037 DO 87 25 55 BRNGH2 B STORE2(,XR1) INDEXED BRANCH TO LOC -0025-. 
: 56 
7 . 003a C000 0038 57 x0000 npc XL 2*0000¢ Hig 
58 
0051 59 PAD 200 = x*§1# 
ane ccos 60 ARR 200 8 x*08® 3 
| 0001 61 XxR1 FOU Os x* 028 
: i €CO7? 62 UNITS FOR x*078 - 
c | 0OS7 4663 TENS #05 X*57* a 
{ 0083 64% BOOT E00 x*83* 
fFPF 65 ERD : 
€ 3 
[ ‘ 
€ ; > 
ee. teeters’ 14HOVE9 205870 T3HAR70 010CT70 28APR71 OTHART2 Peoc ID 9036-5 << DATE 15SPP69 18NOV69 203AN70 2738 48R70 010CT79 Z8aPeri OTSAR72 PROG ID 0037-5 2 
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DEFR 


0060 
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0055. 
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0020 
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0038 


' 2059 
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0002 
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0385 CPN AND MEMORY DIAGNOSTICS: PROGRAS 38 O03R5 CPI AND “ESORY DIAGNCSTICS: PROGRAM 38 
ERR LOC ORJECT CODE ADDR STMT SOURCE STATEMENT CROSS-REPERERCE 
; ; 4 
00co 2 UVWXYZ START 0 SYMROL T LEK VALUE DPFN REPPRENCES 
3 DECK 4& 
4 PETTERS CERES SH SH EKEEHES HT EEEDHKRSER RES ARAERERTES RS EAKSEREGEERSESESSE HEGEL FOOT Cc 601 0083 0963 9042 
5 tenees PROG 38 eeaees HALT? A 003 C000 0015 0013 90148 
6 *eeene estses HALT2 & 003 O018 06030 
7 s*eneee INDEXING TESTS seaese RALT? A C2? OC?D GOSS 
8 teeeae were LOAD? A 098 009023 0020 
9 seeeee TEST (1) 2 ND OP INDEXED Se Peee LOAD2 A 9048 6007 0021 
10 *eteee {2) XR1,XR2 SELECT eee LCAD3 A COS COOR 0022 
1 FESEEKSCATS SHCKEA ASKER HSK SEE AKCKSEKAEAEESR SASS ERE ST EOELEAE HEE KRESESESTEIAE HOVE? A 405 OnNOP 0028 
12 . hOVE2 A 00S COTE 0639 
no00 13 USING HALT1,1 : OVPALS A 901 O034 0C56 0022 
cC00 14 USING HALT1,2 PAD C 001 OCS? 0062 C024* 0039" 0081 
9000 PO 57 TF 15 HALT1 APL ONITS TENS PROG 38, HALT 1. IPL HALT PSR Cc 001 0004 0061 0022s 
16 ¢ SENS C004 0057 1065 0015 09030 GOSS 
17 * UNITS C001 OC7F cCCESs 0015 0030 0085 
18 * UVWXYZ A 901 C000 0002 
19 XRG c¢ 001 0601 oOCcS59 0020* 0024 
0CO03 35 91 0031 20 LOADT L X0003,XR1 SET XR1 TO POINT TO LOC ~0003- : XF2 c 061 con2 0060 00212% 0039 
0007 35 62 0033 21-LOAD2 OL KO00C, XR2 SET XR2 TO POINT TO LOC -000C- XOOOC A 992 0033 0055 0021 
COOB 35 04 0034 22 LOAD3 L OVPALS,PSR SET PSR TO LO, BIN OVPL & PALSE. xCOO3 & 002 0037 0054 0020 
23 X0835 A 0C}O2 0036 C0C57 0081 
QOOOF 1c €O 0051 09 2& MOVE s¥C PAD,O (1,XR7) MOVE LOAD OP CODE -35 TO Loc 0651 . 
25 ! TOTAL STATFRMENTS FLAGGED IN THIS ASSEMBLY = 0 
6018 F2 F2 07 26 ac X°07" .xt Fz" BYPASS NEXT 7 BYTES 
27 
0017 00 C017. 28 pc XL7*O8 
29 
9018 FO 57 7P 30 RALT2 HPL UNITS,TENS * PROG 38, HALT2. ERROR HALT. 
31 * * FAILING CARD@ A-B3J2 : 
32 * * PAILING FUNCT 1 ; 
33 * - 
34 * 
35 
001B ccooce 001D 36 Dc XL3°0° € 
37 
38 | 
001E 2c 00 0050 CO 39 MOVE2 MVC PAD-1,0(1,XR2) MOVE LOAD3 Q CODE -048- TO LGC 0050 € - 
40 
Fa 0023 OD 01 0051. 0036 a1 CLC PAD(2),X0435 BRANCH TO BOOT IP PROPER INDEX REGS 
: 0029 CO 81 C083 42 BE BOOT WERE SELECTED DURING MOVE1 & BOVE2. € : 3 
a3 
au 1 : 
002D FO 57 7P 4S HALT3 HPL UNITS, TENS * PROG 38, HALT 3. ERROR HALT. i. ze 
a6 * * FAILING CARDS A-B3P2 
a7 * * PAILING FONCT 2 4 : 
: ag « i * 
49 
50 i 
51 
52 | 
53 *txee% PROGRAMS CONSTANTS AND EQUATES ees488 
0030 0003 0031 54 x0003 DC XL2*0003° 
0032 ococ 0033 55 x000C_ pC XL2*000C! | 
0638 F2 0034 56 OVFALS DC XL1*F2° | 
0035 0435 0036 57 x0435 pc XL2*0435° he 
58 
0001 59 xR1 EOD | 
0002 60 xR2 ZOU. 2 < | 
0004 61 PSR £0U) 4 | 
0051 62 FAD EOU xt5it 
0083 63 ROOT EOU Os x* 8 38 € | 
CO7F 64 UNITS EQU xX*'7F } 
0057 65 TENS EoD) sx* 5778 | 
66 € , 
67 | 
FFFF 68 END | 
c | 
| 
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0385 CPU AND MEMORY DIAGNOSTICS: PROGRAM 38 C295 CPU AND MEMORY DIAGNCSTICS: PROGRAA 39 


OBJECT CARD LISTING ERR LOC ORJFCT CODE ADDR STAT SOURCE STATEMENT 











| 
ed ae | 0000 2 UVHXYZ START 0 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 3 DECK & 
: , | § SETCEEK ESSE ESET EEESEEES SEREEKSESE TSE SEAES SHESTSESSSSHSEKSESSESEKESSERSEKKSESEEESEEE 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 96 | 5 « PROG 39 * 
6¢ (L, ST) LOAD & STORE REGISTZR * 
7 * 
: . ° e ee eee e @a2eeoe ee e ae ea e e ee e @ @eeeoo pony te | 8 ¢ TEST (1) 2 ADDRESS FORMAT 2 
T(- GaZ)"(E0 <LM BC<SA 4G NEC 20-* a2)" < B ( BAI CS -&B Cae)" < CyAD(S OFYO38S0001 < | 9 * (2) INTERNAL s 
10 @ * 
eee eee es es eee @ee0a e @2ee @eeeseoneenen 8 @2eeee . | 71 s = 
E*"¢tE74=.DC"PHS ="7NEF] 4 C FX aSC RA SO Q 21301012710 2248723,a03850002 . | 12 * * 
; | 13 SSESSSSSSSEERATSESHRKKSTSEOKSTE CHK SSSTTEESE SSEASSKESSEESESSHSEKRKEEEEESEHREESSEESES 
14 
| 15 
e | 16 
Z. | o0co PO 5S? SP 17 HALT! APL UNITS,TENS PROG 39, HALT 1. IPL HALT. 
4 18 © 
x | 19 ¢ 
4 20 
: | 0003 35 OF 0021 21 L XPP PG, X*OP! LOAD P1-ABR, PSR, IR1, & XR2 
: | 22 « . WITH -FFF6- 
° | 23 
: 0007 38 09 0051 24 ST PAD, X*'09¢ STORE P1-ARR & XR1 I8 
| 25 * LOC -50 & 5t-. 
26 
. i COOR 3D F 0051 27 CLI PAD,X*F6® GO TO BOOT IP STORED DATA EQUALS 
S00F CO #1 0083 28 BE BOOT LOADED DATA. 
29 
if“ 0013 3D FF 0051 30 CLI PAD,X*FF® GO TO BALT3 IP LOC -51- 
0017 F2 01 03 31 JNE  #ALT3 IS -FF-. 
32 
ei 991A FO S7 SP 33 HALT2 HPL  UNITS,TENS * PROG 39, HALT 2. ERROR HALT 
| . 34 8 * PAILING CABD# A-B3P2 
a we * FAILING FUNCT 1 
= | 36 © 
37 * 
| 38 
os z | 901n FD. 57 SP 39 HALT3 HPL ONITS,TENS * PROG 39, HALT 3. ERROR HALT 
= 7 40 * * PAILING CARD@ A-8332 phan 
7 | a1 © * FAILING FUWCT (2) 
. a2 * 
| az 
48 
| 45 
| 46 sees PROGRAM CONSTABTS AND EQUATES - 
a7 . 
- l 0020 FFPS C021. SB XPPF6 DC XL2°*PPP6e 
° 0051 4&9 PAD Bou xe51° 
| COSF SO ONITS FOU x®*SPP 
| COS7 51 TENS EQU x*578 
| 0083 52 BOOT FOU x*83° 
@ 4 FRPP 53 END 
we : € 
| 
! i 
| 
_ i! 
i | z 
A I 
c | i 
€ | i 
€ § 
DATE 1SSFPP69 18NOVE9 203AN70 13MAR70 010CT70 26APR71 ONSAR72 PROG ID 0038-5 < | DATE 15SEP69 1UNOV69 20JAN70 13NAR70 010CT70 2GaPR71 O1naRT72 2ROG ID 0039-5 #@ 
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PAGE 78 PAGE 7BA 
0395 CPU AND MEMORY DIAGNOSTICS: PROGRAN 39 0295 CPU AND MEMORY LIAGNOSTICS: PROGRAM 39 
CROSS-REPERENCE OBJFCT CARD LISTING 
SYMBOL T LEN VALUE DEFN REPERENCES : Se ee 
THE CHARACTER INDICATES A SLANK COLNAN AND THE CHARACTERS D & A INDICATE NUBERIC SHIFT. 
ROOT C001 0083 (C052 0028 
HALT? & 003 0000 0017 CL 1 THROUGH 16 CL 17 THRONGH 32 CL 33 THROUGH 4B CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 
HALT2 A003 O0O1A C0033 
HALT3 A 003 COtD 0039 0031 
PAD c 001 00574 ocus CO2us 0027 0030 = s e e . o eweecesenseceaeeun @ @eoenveveone 9o0oae8e 8 08 8 eae eee 
TENS Cc 001 0057 0051 0077 9033 0039 i THE sePy-(fa HIG Y EN**-aJORD -37 © EG2 GEONS"OHS® mt~ ~§003956001 
UNITS C 001 OOSF CC5O 0017 0033 0039 i 
UVEXYZ A 001 0C00 6002 | eo 8 ece e ee ees eee e eee eee eonao80@08 8 eeees 
XFFF6 A 002 627 CC48 0024 FONCEPTe=APCMPHS =" 7HEPY ' Cc PS asc R a sO Q 27301092710 2287238803950002 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 { 
i 
s ss 
~~ e 
| 
= € : 
€ 
@ 
€ 
| 
| 
! See ee OO eS © OSC Cee BeBe Soe eee eee eer wewer cee were e ae LAST PAGE ee ee ee SO PLS LSD 
DATE 15SEP69 14NOV6S 20JAN70 13MAR7O 010CT70 283PR71 O1MAR72 vROG ID 0039-5 — - 
: . DATE 15SEP69 THNOV69 20J3AN70 13MAR70 010CT70 28aPR71 O1HAR72 PROG ID 0039-5 
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i Bg Bea x PAGE 793 : nO #3 te wl : 
PAGE 798 
O3A5 CPU ARD MEMORY DIAGNCSTICS: PROGRAM 3A 0345 CPU AND MEMORY DIAGNCSTICS: PROGRAR 3A en 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATEMENT CROSS-REFER ENCE 
0000 2 UVHKYZ START 0 SYMBOL T LEN VALUE DEFN REPERENCRS 
: got tenet ep Tipe ctre tay stare eT eancee ere nner eres cance sseseeeree FOOT c 001 0083 0018 0014 
: HALT? A 003 0000 0009 
6 : PROG 3A. TEST TO CHECK IF Q BIT IS STUCK DOWN = = HALT? A003 0019 0015 
UVWIY7 A 001 0000 0002 
8 FEKSESRESEKEKEREEEEE EEE SEES EEEECRESS CEEEERESEEEEERERESRREEEREEES OEO8SE88 ; * * * 
Road eonkeree MALTY. REL EeSPE. geet Neewe cit er ate 7 xoc C001 0100 0019 0010* 0011* 0012 0012* 0073 
C003 3c 00 0100 10 SSVI x00,x*00* -HOVING 256 BYTES OF DATA * 
0007 3C FF C1FF 11 NVI X004255,x°PF* CHECKS OUT ALL Q BITS. IP A Rohe ete ereene A uACCED NUMA TEES -AaSEAREN = 
OCOB OC FF O1FE O1FF 12 MVC X00 #258 (256) ,¥004255 Q BIT IS STUCK DOWN THE e 
9011 3D FF 0100 13 CLI x00,x°FF HOVE OF 256 BYTES ISH*T 
0015 CO 81 0083 1% BE BOOT COMPLETED THUS CRLUSING BLT2 
0C19 FO 57 3F 15 HALT2 APL x*3F*,x9578 *Q BIT ERROR HALT ¢ 
16 * * PAILING CARD® A-B392 
7 
0083 18 BOOT £00 x*838 a 
01C0 =: 19_- x00 £QD x*100° 
FFFr 20 END ; 
ie 
. 2 
ee 
¢: 
a g 
—_ “~~ 
s - 
C : 
€ “ 
6 2 
€ 7 
DATE 15SEP69 TUNOV69  203AN70 13HAR70 Otocr 2 -5 # : <= * 
Sc doa <atcase etccce Besse naceon til pets Cece bien ve DATE  1SSEP69  18NCV69 203AN70 13MAR70 O10CT7TO 28APR71 O1MARTz PROG ID o03a-5 
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TEM MAINTENAHCE DIAGNOSTIC PROGRAE PART NO. 2589926 IBS MAINTENANCE DIAGNOSTIC PROGRAM PART HO. 2589926 
PAGE 80 PAGE 80a 
0385 CPU AND MEMORY DIAGNOSTICS: PROGRAM 3A CICS CPU AND SRMORY DIAGNOSTICS: PROGRA 3C 
OBJECT CARD LISTING ERR LOC CRIFCT CONE ADDR STMT SOURCE STATESENT 
TRE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 8 : sia noee. ; 
QE SEKSERSSEKSESASESESAESAKHESKSE SSS SHOSHSSSSSSOHESSSSESSHSSSTSESSOKESCHSOES’™SISCSGSHSEKEGDS 
CL % THROUGH 16 CL 17 THFOUGH 32 CL 33 THROUGH 48 CL 8&9 THROUGH 64 CL 65 THROUGB 80 CL 81 THROUGH 96 5 eesene PROG 3C eecees 
: & *4¢eR8 Seeeses 
7 tenet (SNS), SENSE CONSOLE DATA SWITCHES 2eeee9 
° oo @ e e e « ennoe eeeveecevesveocve weeeeceroseercoecrvece eoeeoe 8B weeeane eeeeee 
TFO SOE*"} A C3 8 -2<"0G= ~|B'"0D OHD -"AP}O 20603450001 9 tHeKee seeeve 
10 *eeae¢ TEST (1) Sus 1/0 seseee 
ese e086 @ oe eco eve e ene aeH0e0eea evcove 1 RAETSECSE ORSAT eeeete 
EPMSeET*= ADC PRS ="THEF] ! c Fe asc RA SO Q 227307032710 22872°#303a50002 3 e¥eeen 3 ; ne ce ACTIVE sesese 
12 eeseee (4) INTERVAL sseses 
1% @e¢6¢8% seete8 
15 eenees NOTES THIS TEST WILL CAUSE 2RROR HALTS IP oeeeee 
1h tueeee -OOFE~ WAS HOT ENTERED IW THE DATA eecese 
17 e#eas¢ SWITCHES PRIOR TO RUNNING THE TEST. eesese 
19 *aae8¢ esetes 
19 SKEKKEKKCESAN SRE SKE TVETSSEKKKSE SSE SHSSESSESSTESESSSHESHSSSHKSETSHS*SHSSESIESVHSSCEEISDSESESD 
ede 20 
ke 21 
9000 FO $7 6C 22 HALT1 HPL UNITS,TENS PROG 3C, HALT 1. IPL HALT 
i 23 
ae 24 ; “ 
0CO3 OC 01 0051 0031 25 HVC PAD(2) «X9999 SET LOC 50 & 51 TO -9999-. 
26 
+ occed 309 00 0051 27 SENSR SNS PAD,X*00" SENSE THE CONSOLE DATA SBITCHES 
28 * INTO LOC 50 & 51. 
29 
é C0OD 3D PE 0051 30 CLI PAD, X*PE* JUSP TO HALT3 IP LOC 51 WAS 
0011 F2 014 14 31 INE HALT3 NCT ALTERED BY SENSE I8T. 
32 
aan 0018 OD 01 0051 002F 33 CLC PAD(2),XPEFE JUMP TO HALTS IP LOC 51 & SO BOTS 
- OO1A F2 81.02 38 JE HALTS CONTAINED -P2-. 
35 
el 001D 3D 0 0050 36 CLI PAD-1,x*00* GO TO HALT2 IF LOC 50 WAS NOT 
C021 CO 82 0083 37 BE BooT ALTERED BY SENSE INSTR. 
38 
2 § 39 s 
00275 FO S57 6C 40 HALT2 PL UNITS, TERS * PROG 3C, HALT2. ERROR SALT —_—— 
_ a1 * PAILING CARD@® A-B3S2,8-B3T2, &-B332 
= a2 * PAILING FUSCT (2). (de (5) 
43% ® PAILING CARD@ A-B2V3 
ag * : * PAILING FUNCT (5), ROTARY BIT SS 
a5 @ * HIGH ORDER CONSOLE SWITCHES REFER 
86 & * TO CHART 
{ a7 
; . ag * . 
89 
0028 FO 57 6C SO HALT3 HPL USITS ,TENS x PROG 3C, HALT 3. EksOR HALT 
{ 51 * FAILING CARD¢ A-B3J2 
es | 52 * * YSILING FUNCT 1 
re | 53 * 
| 5a s 
55 
| 002R FO 57 6C S6 HALTS HPL UNITS, TESS * PROS 3C, HALT S. ERROR HALT 
i 57 * * PAI ING CARD@ a-B3T2 . 
4 58 * * PAI:.2uG FORCT 3 
59 * * Led u- DER CONSOLE SGITCHES ,REPER 
© 60 * ® TO C.2aT 2 
i 61 * 
62 * 
ie 63 3 
64 *#*26448¢48¢ PROGRAM CONSTANTS & EQUATES 
a8 5 0022 FEFF 002P 65 XFEPE pc XL2° FEPE® 
2 l 0030 9999 0031 66 19999 DC XL2*9999° as 
0051 67 PAD EQU x*51° 
. cO6éC §=668 «UNITS EQU x*6C* ‘ 
8 e is 
Booed teww webu eee aeae Sa oe ee eae ee he ere ee es | 0057 69 TENS £Q0U xX*57 ; 
BATE ISSEP69 TGHO VES 20JA R70 13MA R70 0190CTT0 28A PR? 1 OS AR7T2 PROG ID 003a-5 << DAT F 1ISSEP69 T4UNOV69 203AN70 73BAR70 010CT70 28AaPR71 O1MAR72 rRoG ID eo03c-5§ 
EC NO. 816499 816559 816576 816638 816756 816788 818693 PAGE 80 | EC NO. 8164899 816559 816576 816638 816756 816788 818693 PAGE soa 
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; TON SAINTERARCE DIAGNCSTIC PROGRAR PART NO. = 2589926 | IBM SAINTFNANCF DIAGNCSTIC PRCGRAN PART 40. 2509926 
= | PAGE 81 | PAGE 81a 
( é 
©3CS CPU ARD NEMORY DIAGNOSTICS: PROGRAM 3C ; 03C5 CPO AND MEMORY DIAGNOSTICS: PROGRAN 3C 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT i CROSS-REPERENCE 
: 
0083 70 BOOT FOU Xx*83* SYMBOL T VALUE DEPN REPERENCES 
FFFP 71 END | ee aU one 
BOOT C001 0083 CO70 0037 
FALT? A 003 0000 0022 
HALT2 A 003 0025 0040 
HALT3 A 003 0028 0050 0031 
HALTS A 903 CO2B 9056 00738 
PAD C091 0051 0067  0025% 0027* 0030 0033 0036 
SENSE A 008 COC9 0027 
TENS C001 0057 0C69 0022 0080 0050 0056 
UNITS C001 006C CC6R 1022 0080 0050 0056 
UVWXYZ A 001 0000 0002 
| | XFEPE A 002 002P 0065 0033 
: . 19999 aA 002 0031 0066 0025 
TOTAL STATEMENTS FLAGGFD IN THIS ASSEMBLY = 0 | 
4 
3 
é 
S 3 
: 
2 
i 
= 
t 
‘ 
a 
ORES tere ureee, «Guchae «SC SBIcEaR”. eleyse” 4 Catezen”  aueess: PROG ID =» 003-5 ' ~ page 15SEP69. —««THNOV69. «= 20JAN70. «= s«13MAR70. = -010CT70.- 28APE71=—(018AR72 PROG ID —«- 003-5 
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63¢c5 CPD AND MEMORY DIAGNOSTICS: PROGRAS 3C O3E5 CPU AND MEMORY CIAGNOSTICS: PROGRAN 3E 


GBJIECT CARD LISTING 


| 
ERP LOC ORJPCT CODE KRODR STMT SOORCE STATESENT 
* ash es rioe | Good 2 UVYXYZ START O 
FRE CHARACTER INDICATES A SLAWK COLUMB AND THE CHARACTERS D E H IRDICATE KUSERIC SRIFT. 2 DECK 8 
Y SKSSCAREMSSEKKKRSESKASIKSKE SHE SHEE SESSR SVR SSS SSS RHASSESSPSASSSTSSLSOCSOHSSSVSESes 
CL 9 THROOGH 16 CL 17 THFOUGH 32 CL 33 THROUGH 488 CL 49 THROUGH 6&8 CL 65 THROUGH 80 CL &1 THECUGH 96 | 5 » 
. 6s s 
| 7 PROG 3£ * 
e s « . ove e e « © ee ° ecevrveoveoe eovace 8 * s 
€<& WEPEC D HE «< NL?= EG2 J& { SAT B"™2-88* A SGOHD -MAPSEAPS{A PS] S="RO s 1DG3CS6009 9 e 
| 10 2 THIS PROGRAM TESTS THE PIRST ARD/OR SECOND FEDEZED OPERAED * 
‘ ovo seer ics oe one eoe © eee SF BM OBEOe @eeoe 34 * INSTRUCTIONS {OP BITS B-3} £ 
FORT ETEE-DCUPHS =" 7 HEP | i ¢ FR asc RA SO g 27Z0TQT2Z7I0 2ZU72*SB@93CS0002 12 * * 
e i 13 2 DECODING PAILURES -FIRST OR SECOND CPER2ND ADDEBSS STUCK DOWE- & 
: a * WILL BE INDICATED BY SAR CHECK AND HALTISG OF THE BSACHIBEE*® 
: 15 % CYCLE. THE FAILING CARDS ARE: &-B3S2,8-8332 s 
i 16 * . 
17 + * 
18% * 
FO SHEERS SESS SHEP SESE SEATS SSSRESLSESESESSSSSSCIS STR SSSKESSHSSTHSSL LS SIO SHVSSLSSSEsSeses 
20 
24 
ccoo)3— 22 USING HALT7,1 
0000 23 USING HALT1,2 
i Oocoo FO S87 Tc 24 HALT? HPL UNITS ,TENS 
o0c3 c2 63 fOCO 25 LA 0, X*03°* 
; 26 
> ; 27 
09007 4p CC 50 9650 28 cic PAD (1,XR1),PAD ~CHECK BIT 7% 
oo0cC 5D 10 50 59 29 CLC PAD(1,.X%R81) ,PAD(,XR1} CHECK BIT 143 
0010 6p CC 50 50 30 CLC PAD(1,XR1) ,PAD(,XR2) -CHECK BIT 142 
31 
, 32 
Cc1s Bp CC 50 0050 33 cLc PAD(1,X82) ,PAD eCHECK BIT G 
0019 9p CO SO 50 34 CLC PAD(1,XR2),PAD{(,XR?) CHECK BIT 003 
. 601D AD CO 50 50 35 CLC PAD(1,5R2) ,PAD(,XR2) CHECK BIT 0¢2 
. : 36 
37 
0021 7p CC 50 38 CLI PAD(,XR1),X*°00° -CHECK BIT 10263 
< C024 BD 00 SO 39 _ CLI PAD{,xB2),x*00°  ,CHECK BIT 0¢2¢3 3 
50 oe 
= i 9027 cO 87 0083 84 B BOOT 
a2 
G3 **848 684442 ¢ePROGRAM EQUATES 
0050 &a@ PAD £o0 x*50¢ 
€ 0083 4S BOOT FQU 131 
co7c 46 UNITS EQU x*7c* 
0057 47 TENS Fou x°57* fs 
€ COO1 8&8 XR1 zoo xtcate 
0002 89 XR2 2Q0 x*G2* 
Pe FFFP 50 END 4 
cy : 
¢ é 
Cc ~*~ 
LP OO OS OO OO OOS OE OOOO ME SOO OO Bee oe ewewewe ee LAST PAGE 3 wn owe wwe ow on oe oe a we wm ewww wow wens 
CATE 8=©=—- 15S EP69 18N0V69  203AN70 13HAR70 010CT70 28APR71 O1NAR72 PROG ID 003c-5 ~ ID 003E-5 
{ j DATE ISSEP69 T4NOV6S 20JAN70 138AaR70 010CT70 28aPR71 OIMKART2 PROG 
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IBM MAINTENANCE DIAGNOSTIC PROGRAB PART KO. 2589926 


I™H “RINTENANCE DIAGROSTIC PROGRAM . 
ace a3 | aad BO gaeeee 
= 0385. CPU AND MEMORY DIAGNOSTICS: PROGRAM 32 03F5 CPU AND MEMORY NIAGNCSTICS: PROGRAB 3E ef 
CROSS- REFERENCE OBJECT CARD LISTING 
“ SYBBOL T LEN VALE DFFN REFERENCES 
© pooT € 001 00a3 0CRS 0084 THE CHARACTFP INDICATES A BLANK COLUMN AND THE CHARACTERS 0 E HM INDICATE RUBERIC SHIFT. 
“WALT? A 003 Cond 0028 0022 0023 | if 
pap rao’. 0050: 008d 0022 0023 ng 0029 0030 0030 0033 0033 0034 003% 0035 0035 CL 1 THRONGH 16 CI 17 TRFONGH 32 CL 33 THROUGH 48 CL 49 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGB 96 
0038 0039 | 
PENS C001 0057 0047 0028 
: oniITs c 001 007C OC&6 0028& ae 7 oe. ee ® e oe #8 e ° e e eveeneeeeoveveevese eoeeue 
4 UYWXYZ A 001 0000 0002 TH- DaEyan-< De M AGPGAGCHMPS REB ( E MIS SEB_ EA E~EAGTEACOR® -0 SaAYO03 250002 
- xR C001 001 00488 0028 0029 0029 0030 0034 0038 | 
~  xR2 € «061 0002 OCHS —«0030 0033 0034 0035 0035 0039 j -PUMOMETS=aDC"PHE ="7REPI I c PR ASC. OR A SO. Q 21301012710 22872a0803250002 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 | 
} 
i 
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5 ts oi 
ene ee meres re eee AAS anaes manent eevee aune ge FT 
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Rg en hg EOIN OS ORT NT TO AE ROR FT 
ey 
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wee OO HOS Oe eo SO eee Se OO Oo CSO Se 8 OS SR SS OO LAST PAGE re oe en ee ew 8 

E. DATE 1SSEP69 VUNCV69 20JA870 13M AR7 010CT?7 Ss 

E ac 802. 816498 aq cEse aAeede eee esegeer eeeea aueeaa cease oe TATE 1SSEP69 ss THNOVES «—«-20JAN70 «= 13HAR70 = OT0CT70—- 28APR71 = ONNART2 pRoc ID 0038-5 : 

as FC RO. 816899 816559 816576 816638 816756 816788 818693 PAGE 83, 
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é. a a 


IBS MAINTENANCE DIAGNCSTIC EPRCGRAA 


O3F5 CPi AND SESORY 


FRR LOC OBJECT CODE 


0000 


0000 FO 57 3¢c 
C003 3n 00 OOOF 


0007 co 81 0083 


- OOOB FO 57 3c 


0002 FFCO 


DATE T5SEP69 
EC NO. 816899 


TENCVEG 
816559 


CIAGNOSTICS: 


ADDR 


CCOF 
0083 
co3c 
0057 
FFFF 


9 


PROGRA® 3P 


STMT SOURCE STATEMENT 


PART RO. 2589926 
PAGE 84 


2 UVWXYZ START O 
3 DECK 4 
& KEKKKEKESKRKETHEEESTHEKETEEESES SKE SERSESKSTSEESHEEKEEHSESTESHEHSEHESETEHKESTSHSESTSESESSESSES 
5 * s 
6 * PROG 3F * 
7 > 
R * (CLI) COMPARE LOGICAL ISNEDIATE * 
9 * e 
10 * TEST (1) SINGLE EB CYCLE INSTR * 
11 = s 
12 SEKKKEKSKSES CKKESEKASEESEKEKEKERSER SHES ECSSSSSSSKRSESSSESEEKSESKERSESCSSESE SESH SSSSSESES 
13 
14 
15 HALT1 HPL UNITS,TENS PROG 3F, HALT 1. IPL SALT 
16 * 
17: * 
18 
19 CLI XFFOO,x*00* COMPARE 00 TO 00 
20 
21 BE BOOT GO TO BOOT IF CR SET TO EQUAL 
22 
23 HALT2 HPL UNITS,TENS * PROG 3P, HALT 2. ERROR HALT 
24 * * PAILING CARD@ A-B3J2,A-B 352 
25 * ® PAILING FUNCT (). (1) 
26 * 
27 * 
28 
29 
30 «e888 PROGRAM CONSTANTS & EQUATES 
31 * 
32 XFFOO nC XL2* FPOO® 
33 BOOT EOU 131 
38 UNITS EQU x®*3C* 
35 TENS Fou x*57# 
36 END 
2OJANTC 13MAR70 010CT70 28APR71 O1MART2 proG ID 003F-5 
816576 816638 816756 216788 818693 PAGE 8a 
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2 An EN OA aren neta eR MESES CR CONC A Ey | 
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7 * PAD Cc 00% 0050 0031 0017* 0019 0021 
8 ¢ TEST (1) oP BIT 7 * TENS C 001 0018 0034 0016 0025 
9 « (2) A REG BIT 2 ACTIVE e¢ - UNITS COC 0003 0033 0016 90025 + de 
10 * s OVWXKYZ A 00% O000 O02 _ 
11 ~* e 
12 « e 2 TOTAL STATEMENTS FLAGGRD IN THIS ASSEMBLY = 0 : 
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18 ‘ a 
0007 06 00 0050 00D9 19 Az PAD(1),X*D9* (1) ADD SINUS DECIAAL 9 TO PAD. 
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0050 71 BOOT Zou 838=x* 508 
FFFP 72 END | BOOT C901 0050 0071 9059 
| HALT? aA 003 0000 0021 0019 0020 0025 
| PALTZ & 903 C020 0048 0046 
| HALT? A O0C3 CO2A 0055 0053 
HALTS aA CO3 0033 0061 
TENS Cc 004 ©0007 0070 C021 0048 0055 0061 
UNITS C 001 OO6F 9C69 0021 0048 0055 0061 
DVWXYZ A 0017 ON00 0002 
XCFFP &€ N02 0037 CAB 0027 
XRi C 001 0001 0068 0025* 0027 0030 0033 0036 0039 0082 
| X3FFF A CO2 903R COf6 C033 0045 
; X6PPP A 002 0039 0065 0030 0052 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
: | 
« ! 
€ 
i € . 
€ a 
| 
| 
! 
i 
€ g 
C z 
Noes : a 
| 
¢ |. t 
| 
£ f 
| 
DATE 15SEP69 15N0 769 20JAN70 13 BAR70 010CT70 28APR? 14 OTH AR72 PROG ID 0076-5 = y 33 ROS ID 0070-5 & 
- DATE 15S 2P69 18 NOV6S 2G5AN70 38AR70 010CT70 28aPRI1 OIMAET2 PRO 
FC NO. 816899 816559 816576 816638 816756 816788 818693 PAGE 92 2C WO. 816899 B16559 816576 816638 816756 @716788 818693 PAGE 92a 
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AS § 
@oeee@eege@qeeoeeeqgeeeqe@ee@eegeoedq@ee@qeeeqe@eedgtegqeonedege@e7d@edodds°e 





. galt NES SOE, ie a Bete esi aS Sag BO ee Fo aden oe eee gdh, % esis fe 2 Eee 






“YBN NATHTENANCE DIAGNOSTIC PROGRAM 





cc ea TBA RATNTENANCE DIAGNOSTIC PROGRAN PART BO. 2589926 
, eer PAGE 938 
_ €705 CRU AND KERORY DIAGNOSTICS: PROGRAM 70 0715 CPU AND MERORY CTAGNOSTICS: PROGRAM 71 | 
DB aRCT CARD LESt te? ERR LOC OBJECT CODE ADDR STAT SOTRCE STATEMENT 
“PRE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E A INDICATE NOMERIC SBIFT. nae ; UTSETE ales i 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 : Ce ree ig ee rere ee tcc ete een) = anaes 
b teeese (LTO) & (SNS), LOAD & SEWSE I/0 LSRB*S eevee 
J] see0e8 #eeees 
Te- :2°)20-D GG 4 (7TGS*#PGE+7CUNPC SMTCONNGANL?2-64 OAG') NC9BYDC@ ) 2>*'ESYEGS )?3"* 2938 2.%07050001 a ee ee ee 
, , 70 *ese86 SO9SSS SSBF eusees 
eee eeon eon ee Ce OO Ree ee SS ep ewvveveeeene 9@eoeoeenee @eeeoeoeevooeaneaeaneoenasveo @eeseeeeneaon oo e2e20722080 e@oeoee., 71 seoeene a2ee8060 
+. eeen7eanees 12 sesene FAILURE TO SELECT ANY LSR WILL CAUSE sevcee 
f Qemeeeve=aDCMPHS ="7NEFL fC Fe asc BA SO Q 21301012710 228721,4%07050003 ie eoaees ss eeuauueh eevee cousech tee: WiLe ee 
: 16 seeeee RESULT IN ERROR HALT. eteree 
17 #0008 ' eseses— lt 
18 ERTS KESS HESSARESRKESRSESE NEES SASS SEHSEESESETESKEESESEKS SST SESE STEHSESSHSOS “3 me 
0000 FO 07 03 20 HALT? HPL UNITS, TENS PROG 71, HALT 1. IPL HALT. 
21 © 
22 * 
%e 23 
- 0c03 31 E% 0037 24 LIO. XCFFF,X*ES* LOAD PRINTER IMAGE ADDRESS LSB 
25 8 WITH -CFFF-. 
z 26 
0007 31 £6 0039 27 LIO. - X3PF8,X* E6" LOAD PRINTER DATA ADDRESS LSB 5 
28 © WITH -3PF8-. 
* 29 
. 0008 30 £8 0051 30 SNS 81, X*EG! STORE PRINTER ISAGE LDDRESS LSB ees 
31 * IN LOC HEX -0050 & 0051-. 
- 32 ae 
* 000P 39 E6 C053 33 SNS 83,X°E6 STORE PRINTER DATA ADDRESS LSR 
34 © IN LOC HEX -0052 & 0053-. 
- 35 
= 0013 3D PE 0053 36 CLI 83,X*PE* GO TO HALTS IP DATA SWITCHES 
0017 F2 81 19 37 32. HALTS WERE ALSO GATE TO 1/0 BUSS 
38 
001A OD 01 0052 0039 3 CLC 83(2),X3FP8 GO TO HALT2 IP PRINTER DATA ADDRESS 
0020 F2 81 03 a0 JE  HALT2¢3 LSR WAS LOADED INCORRECTLY 
a a1 
P 0023 FO 07 03 42 HALT2 HPL UNITS,TENS * PROG 71, HALT 2. ERROR BALT. 
| 43 2 * REFER TO CHART. 
ay * DATA ADDRESS LSR SELECTION EBROR 
a5 
0026 2D 01 0051 0037 46 CLC 81, XCPFF(2) SO TO HALT3 IF IMAGE ADDRESS 
002c CO 81 COR3 47 BR Boot “SR WAS LOADED INCORREDTLY 
48 
0030 FO C7 03 89 HALT3 #PL ONITS,TERS * p.0G 71, HALT 3. ERROR HALT ses 
50 ¢ * IN?*3E ADDR LSR SELECTION ERROR 
: 51 
| 0033 F0 07 03 $2 HALTS HPL UNITS,TENS * PROS 71, HALT 8. Z2RROR HALT 
53 * * TRE DATA SWS WERE ORED IM ALSO 
: ; 5a * PAILIWG CARD@ A-B3T2 
i 55 * 
56 * 
. 57 : 
0036 CFFP C037. «58 XCPFP DC XL2°CFFF® 
c 0038 3FF8 0039 S59 X3PP8 DC XL2°3FFB° ; 
60 a 
6003 61 UNITS EQUD x*03* 
@ 0007 62 TENS QU x*O7* : 
cca3 63 BOOT QU. 131 5 
FFFF 64% ESD 
€ ° 
c | 
es 
O00 A ED a OO A EE EP EOS TE OD OE ED SE EP AEE OP OE AD OD OP ED OD ED OD a OD a eRe aE oe LAST PAGE ee Se OO ww OOO Oe OOO Oe Oe OO Se we OOS OOS OOOO SO SOOO oeooees = 
DATE 15SEP69 14NOV69 20JAN70 (13MAR70 O10CT70 28APR71 0 1MAR72 PROG ID 0070-5 Gomi. satecces deyiveer, Gasned0 ‘sueere, “eqeesan Seek: ‘weauaar? pale as er 
EC 40. 816899 816559 16576 8166 216756 1 = 
ae meee . eueree oe ital = | BC WO. 816499 816559 816576 816638 816756 8167488 818693 PAGE 93a 
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emer 


Bo Gt, Oe ae eo) a : : : { ar ; 
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— ie PAGE 98 PAGE 994 


0715 CPO AND MEMORY DIAGNOSTICS: PROGRAM 71 . : 0715 CPU AND MEMORY CIAGNOSTICS: PROGRAN 71 


CROSS~REPERENCE - OBJECT CARD LISTING 





SYMBOL T LEN VALUE DEFN REFERENCES 


THF CHAPACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D BE H INDICAT NUMERIC SHIPT. 
BOOT C002 0083 0063 0047 








HALT? A 003 0000 0020 CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL &9 TRROUGH 6&8 Cl 65 THRGUGH 80 CL 81 THROUGH 96 
RHALT2 A CO3 C023 0042 00480 : 
HALT3 A 003 «C030 C049 
HARLTG A 003 6933 0052 0037 oie ° e e ° ° . ° ° ° ° ° ° ace 
TENS c 001 0007 0062 0020 0982 0089 0052 « TE 99 CCE (3G WwW CU09 AK4Q 837) = EI2-JO( GAL CX 2-640A00<( EAJ Co -EBC@ *Cd *C3%H ee ) 1807150001 
GNITS C 001 0003 C061 0020 0042 0089 9052 
UVWXYZ A 901 0000 cco02 eee 200 @ ee eee eee eee eseeeeves © eeoeeen 
acrPP A 002 0037 0058 CO2&% 0086 z FCMeseEePes.PC@PHS ="TNEP] 1 Cc FS ASC R&A SO Q 21301012710 2287218%C07150002 
X3FFS3 A&A 002 0039 0059 0027 0039 
TOTAL STATEMENTS FLAGGED IN TAIS ASSEMBLY = 0 $ 
ie 
» 
€ 
€ - 
£ 
we — 
° 
. i 
a é 
* c é 
: C : 
Seer eo eee wwe ee wee wwe me eee eee wom wwe we eceewewocoeowoen LAST PAGE wee owe om. PSS SS SSS ST SSS Sl PSs SEs eS OE Swe a 
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; PAGE 95a 
0725 CPU AND MEMORY DIAGNOSTICS:. PROGRAS 72 


ea cena eats erennee ANNE nes ae emma 


: 07275 CPU AND MEMORY CYAGNOSTICS: PROGRAS 72 





ERR LOC OBJECT CODE ADDR START SOURCE STATESENT | 
| CROSS-REPER 2NCE 
0000 2 UVWXYZ START 0 
3 DECK & SYMBOL T LEN VALUE DEPN REP PRENCES 
§ CERES EREEEEESEEEEEEKERDEDSESESEESEESESEERETEAEEEEEEERERSEESSE SHES SSSEE SESS i 
5 eeecee PROG 72 estes ENOT c cO1 0083 0053 Cous 
6 Faeeee (LIO) & (SHS), LOAD & SENSE I/0 LSR*S seetee FALT? A 003 CONO0 0021 0019 0020 0025 
] eneeee eeeeces | = o@ens C001 0007 0C52 0021 
8 se0008 assesses eeeees | UNITS C 001 C076 0051 0021 
Qg ences * AFCO ¢ steees UVWXYZ A COT 0000 0002 
10 t#eeee SHeeeees eesees xco0oO a 002 022 OO0NB 0033 
11 see088 eeeees XR1 ¢c c01 C001 0050 0025* 0027 0030 0033 0036 0039 0082 
12 s#ee28 eesese i x3000 a co2 cot 0046 0027 
13 «#0008 FAILURE TO SENSE CORRECT VALUE WILL eeesse | x9C00 A902 0020 0087 0030 
14 +8808 RESULT IN LSR CHECK. eseses | 
15 eeseen sveses TOTAL STATEMENTS FLAGGED IW THIS ASSESBLY = 0 
16 SESKHE CEES EREEEAEERES EEEE EEE SERESSESESESSASKSEESSSAESERSESSSSSKSSE SESES SESS ES i : 
17 | 
18 < 
0000 = 19 USING HALT1,1 
cooo)=8=— 20 USING RALT1,2 ; 
0000 FO 07 76 21 AALT1 APL UNITS,TENS PROG 72, HALT 1. IPL HALT. . | 
22 © 
23 * | 
24 : 
0003 c2 01 C0Cc0 25 LA HALT1,XR1 USE XR? AS A BASE REG ss 
26 
0007 71 FY TE 27 LIO =X3000(, X81) ,X'FS!* LOAD NPCU PRINT ADDRESS LSR 
28 © WITH -3000-. 
29 
QXO00A 71 PS 20 30 LIO =—«._-« 9000 (,XR1) ,X*FS* LOAD MPCU READ ADDRESS LSB é 
31 * WITH -9000 . : 
32 4 
000D 71 F6 22 33 LTO xC000(,X21),X'F6* LOAD MPCU PUNCH ADDRESS LSR 
34 © WITH -C000-. 
35 a : 
9010 70 F& 51 36 SRS 81(,XR1),X°Pa° STORE MFCU PRINT ADDRESS LSR _ 
37 * IN LOC HEX -0050 & 0051-. 
38 
: 0013 70 PS 53 39 SNS 83(,XR1),X°FS* STORE MFCU READ ADDRESS LS® & 
-,.” a0 * IN LOC HEX -0052 & 0053-. \— ~ 
a1 
0016 70 FE 55 a2 SNS 85 (,XR1),X°F6* STORE MFCU PUNCH ADDRESS LSR € | 
43 ¢ IN LOC HEX -00548 & 0055-. 
0019 cO 87 0083 4a B BOOT LSR*S SENSED CORRECTLY, BRANCH ‘ : 
a5 ! 
COD 3000 CO1E 4&6 X3000 DC XL2*3000° | 
CO1P 9000 0020 47 x9000 ovCc XL2* 9000* 
9021 coco 0022 &8 xcCO000 DC XL2*CO000* = 7) Lo 
a9 : ts 
s ccot 50 XR1 200 1 i 
0076 ST UNITS FOU xX*76* . — 
0cO7 S2 TENS EQU- x*07* “ 
0083 S3 BOOT 2QU x*83* 
PFFF 54 END . = i 
a 
{ 
& 
£ j 4 
€ “ 
: «& 
DATE 15SEP69 T4R0VE9 203AK70 13HAR70 010CT70 26APR7 1 OIMART72 PROG ID 0072-5 € Pe 
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a PAGE . 96 . em PAGE 96A 
"0725 CPU AND MEMORY DIAGNOSTICS: PROGRAM 72 0735 CPU AND MPMORY DIAGNOSTICS: PROGRAS 73 | 


OBJECT CARD LISTING ERR LOC OAJFCT CODE ADDR STNT SOURCE STATEMENT 








“GRE CHARACTER INDICATES A BLANK COLUMN AND THE CRARACTERS D E 8 INDICATE NUMERIC SHIPT. : ey : RSRE® Seeee ; 
: SHKESSEAECSEHR ERE seee8 SSHHESAHSSSHST SSS SOHHSHS HIE SS SHSSSSEHESSHTSESSESSHESRSSS 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 96 : eesess are PROG 73 eeeese 
: > 6 eee (LI0) & (SHS), LOAD & SENSE 1/0 LSR‘S eesees 
ie he ea 3 7] exeeee seeeee 
é TH- sa ) 60-D GG UG XGSBGGERXCSBPC SN7CON*BC RCO I Geers Spee eae er os moe 9907250001 z | : aCe : a caeeeeens epee 
: . | 10 *see0¢ seesesesese aseese 
s ; ae a. coe e080 ° ee een ees e 2e0 eoeene eee 2 @eeone . : 11 Seenee 224886 
a Pec cer here, a oe me SESE See Se 8 21301012710 = 228721.%07250002 ¢ 12 #0000 PAILURE TO SENSE THE CO8BECT VALUE aseese 
& -< - 13 *een0e8 WILL RESOLT IN LSR CHECK sesnte 
Be see . 14 *s088 caeeee 
y . ‘we 15 EEEEKEEEES EESSEESERSESSESSEERESSSESSEE SESE SSESSSSESESSSSESSEEESHSSOSHSSSESSOS 
: 16 
. 0000 PO 07 57 17 HALT? HPL UNITS,TENS PROG 73, HALT 1. IPL HALT. 
ss 18 ¢ 
19 * 
20 
0003 31 FY 0018 21 LIO X3000,X*E4* LOAD PRINTER IMAGE ADDRESS LSB 
22 * WITH -3000-. 
23 
0007 31 Fe CONIA 24 LIO XxC007,X*E6* LCAD PRIESTER DATA ADDRESS LSB 
25 * WITH -CO07-. 
26 
COOR 30 Fa 0051 27 SNS 81,X*Ea? STORE PRINTER IBAGE ADDRESS LSE 
28 * ; Iu LOC HEX -0050 & 0051-. 
29 
N0OF 30 B6 0052 30 SNS  83,X*E6°* STORE PRINTER DATA ADDRYSS LSE 
31 4 Im LOC HEX -0052 & 0053-. 
0013 CO 87 0083 33 B BOOT LSRS WERE SESSED CORRECTLY, BRABCS 
pe ae 7 
ee ee 35 
0017 3000 | C018 36 X3900 vc XL2* 3900° 
cC19 clo? 001A 37 xC007 DC XL2*C007* 
38 
a . 0057. «39: UNITS FOU x*5S7® 
i CCO7. 40 TENS eQU x*O7° 
ad (0083) «81 BOOT) «= EQUs«931 
oo FRPP 4&2 END 
: 
= S 
( 3 
; i 
ona Ra ae cna oe Bnd don nnanawecnwdwewina me LAST PAGE wo 232m enn nn nw 2 ww oe wr ew ee See ewes ° 
DATE 15SEP69 IQNCV69 20JAN7 . 
EC WO. 816299 816559 ere eae. pet a oeeae arene PROG ID 0072-5 DATE 15SEP69  —«- 14N0V69 =. 20970 13MAR70 010CT70  28AFR71 018aR72 PROG ID 0073-5 & 
Pe 8693 PAGE 96 FC KO. 916899 8160559 816576 816638 816756 816788 818693 PAGE 968 
€ 





: | 
@e@e@@e@ee eee eel ee 8 8 le 


weg 8 - 5 . 





° . “ye 


IBA MAINTENANCE DIAGNOSTIC PROGRAS ; PART WO. 2589926 i Ih4 *RTNTPNANCE DIAGNOSTIC PROGRAN : an PART HNO. 2589926 
PAGE 97 : , PAGE OTA 


0735 CPU AND MEMORY DIAGNOSTICS: PROGRAM 73 0725 CPI AND MEMORY ETAGNOSTICS: PROGRAM 73 


CROSS-REFER ENCE OBJECT CARD LISTING 


SYMBOL T LER VALUF DEFN REPERENCES 2 
THF CHAP ACTER INDICATES A BLANK COLUMN AND THE CHARACTERS BE H ISDICATE BUMERIC SHIPT. 


Boot . ¢ 091 0083 0041 0033 
HALT? A 0C3 0000 0017 do. “a eanaUReAR ) 
eee G. 001 0007 CC4O ode OGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 6% CL 65 THROUGH 80 CL 81 THROUGH 96 
unrtTs C001 0057 0C39 0017 
UVHXTZ A COT C000 0002 7 
zC 007 A CQ2 OQOVA 9C37 00248 = -_ : se c e e e e e e @e@aneoee eoeecaveveseeeeee eee eaeeevanveaeeeee en eee - 
¥30C0 A 002 0018 1036 0021 TP- £8 )P<3;6& PCG WwW AYCO AJ<*#Q MOB G H<O < G @H*07350001_ =z 
: TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 B™seP7e=sPCMPHS ="IEPE $F C Ps ASC. OR A so. @ eae 213010312710 224721$%07350002 
‘> 
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oe ce we oe ee ee a ee LAST PAGE ne ee er ow ww ew rn 
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CPU AND MEMORY DIAGNOSTICS: PROGRAM 74 


0745 CPU AND MEMORY DIAGNOSTICS: PROGRAM 74 


ERF LOC OBJECT CODE ADDR STAT SOURCE STATESENT 


CROSS- REP ERENCE 


i 
j 
{ 
0000 2 UVWXYZ START O 
3 DECK 4 | SYSS8OL T LEN VALUE DPPN REPERENCES 
a SOS SRSSFERS EERE ESEESSE EE SRREOEETEESEEEERSEREREREERNSEEEREEESSESSEESESS 
5 s * BOOT C 091 0083 O045 0036 
6 * PROG 74 e HALT? A 902 CO0O cCciA 
7* * AALT2 A 0102 OO1R 0029 
8 * LOAD AND SENSE INTBRROUPT LEVEL 1 IAR e KONT? A COW’ COTE 9038 0028 
9s * ¢ TENS C CO1 007 Ofus 0018 9029 
10 * FSET SES SHEEES ES EEEKEEEEEEED EE s UNITS Cc 00? COU CCH? C018 0029 
1 * * KEYBOARD OR PRINTER KEYBOARD * * OVWXYZ A 01 0000 0002 
12 x FERKEKETSEAEKEKEE KS ESTE EEEEOEEEREE 2 z XPFFP A 902 002n 00a2 C022 0027 
13 * * xC000 A 002 ©692R 0001 0921 0034 
a4 * s 
15 PERSE SERS SEER ET EER ERE EERSTE HESTEE EE EEEEETEREEEEERS SORES EEEEESES EROS SECS = TCTAL STATEMENTS PLAGGED In THIS ASSPSBLY = 0 
16 
17 
9000 FO 07 1B 18 HALT1 HPL UNITS,TENS -PROG 74, HALT 1. IPL HALT. g 
19 * 
20 * 
0003 0C 91 0051 CoO2R 21 SVC X*51*,x0000 (2) -ZER0 OUT STORAGE AREA. < 
occC9 35 CO C02D 22 L XFFFF,X*CO* - LOAD INTERRUPT LEVEL IAR 
23 * WITH -PPFF-. 
000D 34 CO 0051 24a ST X*51*, x*cor -STORE INT LEVEL 1 IAR INTO ~ 
25 * LOCATIONS #8EX -0050- & -0051-. :, 
26 
0011 OD 01 0051 002D 27 CLC X°51°(2),XFPFFF -GO TO HALT2 IP IST LEV 1 IAR 
0017 CC 81 CO1E 28 BE KONT1 NOT SELECTED CORRECTLY. 
001B FO O7 18 29 AHALT2 HPL UNITS, TENS * PROG 74, HALT 2. ERROR RALT. 
30 * ; * INT LEV 1 IAR SELECTION ERROR 
31 9 
32 * 
33 * 
OOTE 35 CO CO2B 3% KONT1 L x0000,x*cO# -PAILURE TO SENSE THE CORRECT | é 
C022 34 cO 0051 35 ST X*S3¢ .x*cor VALUE WILL RESULT IN LSB CHECK . | 
0026 CO 87 0083 36 B BOOT a 
37 i 
38 
39 =e 
40 | é SS 
CO2A 0000 002B 4&1 x0000 onc XL2*08 
“= 002C FFFF 002D 4&2 XPFFF DC XL2* PPPF® e-'] 
9013 43 UNITS EOD x*1B¢ , | £ 
9007 84 TENS FOU) = xx*:O7# 
0083 4&5 BOOT g£QD x*g3¢ = | 
86. z 
FRPP 47 EMD sce “tf 
i 
2 
C 
t g 
+ ! ; 
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PROGRAM 74 0755 


o74as CPU AND MEMORY DIAGNOSTICS: 


CPU AND MESORY DLYAGNOSTICS: PROGRAN 75 


OBJECT CARD LISTING 


ERR LOC OBJECT CODE SOURCE STATENENT 


ACCR STAT 


THE CHARACTER INDICATES A BLANK COLUAN AND THE CHARACTERS D E H INDICATE WOMERIC SHIFT. 


2 OL 1 THROUGH 16 CL 17 THFOUGH 32 CL 33 THROUGH 48 CL %9 THROUGH 68 CL 65 THROUGA 80 CL 81 THROUGH 96 


1.6 a *$C DME ,(* «LL ED( SA J BT -6 3a *5(* W3L EG soBC Cc "80 ~R 07850001 
EMMVSETe=WDCMPHS ="THEPY | C re asc R&A SO Q 21301012710 228720, 807450002 
onan nnn nnn nnn nnn nnn nn nn enn nnn rrr nnn LAST PAGE -— n-ne nnn nnn o-o----- 
DATE 15SEP69  14NOV69  20JAN70 138AR70 010CT70 28aPR71 0 1H AR72 PROG ID 0078-5 
EC WO. 816499 816559 816576 816638 816756 816788 818693 PAGE 99 


a 


ey 


a’ 


#4 


occo 


9000 


0003 


0007 


AACR 


OOCcF 


9013 
oo? 


NOTA ! 


9020 


99223 


1026 
902C 


0030 


0033 


FO 07 
31c8 
31 C6 
39 C6 
cu 
FE 
et 


P2 81 


07 


OD 
co 


01 
Frc 07 


PO 07 


0036 CFPR 


0938 


DATE 
Ec NO. 


3FFF 


5D 


C037 


C039 


0051 


0053 


C953 


0053 
03 


SD 


0051 
0083 


5D 


5D 


28APR71 


816788 


9027 

0c39 
0037 
cc39 
cCOSD 
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OIMNART2 

818693 


UVaAXYZ START O 
DECK & 
g cede eceereeeesedent sGSSe bbs SSS CESESSCSESEESSSSESESSOSSESOESOS SOO SSSSSES 


& 
¢ 
s 
* 
¢ 
s 
* 
* 
= 


HALT? HPL 
* 
* 
* 
* 
LIo 
* 
LIo 
* 
SNS 
* 
SNS 
* 
‘CLI 
JE 
CcLc 
JE 
HALT2 HPL 
* 
* 
* 
* 
CLC 
BFE 
HALT3 HPL 
s 
¢ 
* 
s 
HALTS HPL 
* 
s 
* 
* 
XCFFs8 DC 
X3PFF DC 
UNITS £00 
TENS £00 
Boot EQuU 
END 


{LI0) & (SES). LOAD & SENSE 1/0 LSR8S 


UNITS ,TERS 


XCPFB,X*C4u? 


X3PPF,x*C6* 


81,x*C6* 


83,x'ca? 


83,X°*FE* 
BRALTS& 

83, XCPP8 (2) 
HALT2#3 


UNITS ,TES 


81, X3FPF (2) 
BOOT 


ONITS, TENS 


UNITS, TENS 


XL2°*CPrrs* 
XL2*3PFF* 
x* 5p° 
x*0o7* 
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PROG 75 


24 0O4SHS SE SSSESE 


* BLUEJAY DISK © 
SF SSESSSSSS SESE 


aenaannné 


PeePeererrrrrrrrrrrrrr rT titi tit tii iid ee 


pRoG 75, HALT 1. IPL HALT. 


LOAD DISK DATA ADDRESS LSR 
WITH -CPFE8-. 


LOAD DISK CONTROL ADDRESS LSB 
WITH -3PFF-. 


STORE DISK CONTROL ADDRESS BSR 
Im LOC BEX -0050 & 0051-. 


STORE DISK DATA ADDRESS LSB 
Iu LOC HEX -0052 & 0053-. 


GO TO HALT & IP DATA SSITCHES WERE 
ALSO SELECTED AT THIS TISE 


GO TO RALT2 IP DATA ADTRESS LSB gas . 


NOT SELECTED CORRECTLY. 


* PROG 75, HALT 2. ERROR HALT 
* DATA ADDPESS LS® SELECTION“ ERROR 


GO TO HALT3 IF CONTROL ADDRESS LS® 
WAS NOT SELECTED CORRECTLY. 


* PROG 75, HALT 3. ERROR HALT. 
* CONTROL ADDRESS LSR SELECTION ERR 


« pz0G 75, HALT 8. BHROR HALT 
© T:% DATA SWS WERE ALSO SELECTED 
© PATC TMG CARDS 


0075-5 
99a 
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= 0755 CPO AND REMORY DIAGNOSTICS: PROGRAM 75 0755 CPN AND MEMORY DIAGNOSTICS: PROGRAM 75 


s CROSS~REFER ENCE OBJECT CARD LISTING 


SYSBOL T LEN VALUE DEFN REFERENCES 


THF CHAPACTER NDICATES A BLANK COLUMN AND THP CHARACTERS D EB H INDICATE NUNERIC SHIPT. 
BOOT CCO1 0083 OC64 0046 H ACT INDI HARACT 


HALTI 003 0000 0016 
HALT 2 903% 0023 0039 0037 
HALT3 003 0030 0048 
HALTS 003 ©€033 0054 0035 


F CL 1 THRONGH 16 CL 17 THROUGH 32 CL 33 THROUGH 88 CL &9 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 
A 
A 
TENS Cc 001 OO07 0063 0016 0039 0088 Q0S4 i : 
c 
A 
A 
A 


“yy<en Qe P- “ "437 = Py2-J3U( EAL Ca 2- G( EAI CX -EBC@ ))a ))3"= ="0 00907550001 
NIT: ESNG1 “OGER OES. DOIG. 6036) bbe. ounce TOE 98 ))<*5 (3G PF CUOI-AJCCE M3 12-30( GAL Cx 2-64 0A58( a») 


UVRXYZ A 001 0000 0002 


= X3FPP a 002 C039 0061 0025 0045 a eee a A 
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IBN MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589926 EU SRINT EN ARC E NURGHOST IS oReCene , | PAGE 1078 
PAGE 101 | 
sued: Jneg-adeo HERON DEAGROSSEGSS- SROGHAN Te | 0765 CPU AND MEMORY DIAGNOSTICS: PROGRAM 76 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATEMENT EnOSor eee cree 
0000 2 UVWXYZ START 0 SYMBOL T LEN VALUE DEPN REPERRNCES 
3 DECE 9 BooT C 01 0083 0048 0037 
4 RERERE SESE EEREEERESE EES HEEEREEEESS ER EES ES ERSSESSESSEEESESESSESESSEESTESES 
: aaa! 96. 7 HALT? A CO3 0000 0019 
oe . TENS CCCI 0007 0083 0019 
UNTTS C091 CO7D 0042 0019 
* s a 
: : (LI0) & (SNS), LOAD & SENSE 170 LSRS : cyte A AES: 0000, 26602 
9 * ce eseseseesesese * aoe A 902 ret ae oes 
10 * * BLUEJAY DISK * * x3007 A CC2 COTE 
91 = 22 S$4RESHSESESHESEESSE s 
os 4 TOTAL STATEMENTS PLAGGED IN THIS ASSEMBLY = 0 
i 13 * PAILURE TO SENSE TRE CORRECT VALUE WILL ® 
14 + RESULT IN LSR CHECK * 
15 * ° 
16 SERKEEREREEEEKESEERESEEE SE ERERESESE SE SHEE SEEKS EESE SSE SHES SESSESSESSSSSSOS 
17 
18 
0000 FC 07 7D. 19 HALT1 HPL OWITS,TENS PROG 76, HALT 1. IPL AALT. 
20 * 
21 * 
22 » 
23 * 
28 
0903 31 c¥’ 0018 25 LIO %3007,x"CH? LOAD DISK DATA ADDRESS LSR 
26 * WITH -3007-. 
27 
0007 31 C6 COTA 28 LIO xc000,x*C6" LOAD DISK CONTROL ADDRESS LSR 
29 * WITH -C000-. 
30 
ocOR 30 C6 0051 31 SNS 81, X*C6* STORE DISK CONTROL ADDRESS LSR 
32 * IN LOC HEX -0050 & 0051-. g 
33 2 : 
O0OF 30 C4 C053 34 SNS  83,X°C&* STORE DISK DATA ADDRESS LSB 
35 * I LOC HEX -0052 & 0053-. i 
36 - 
9013 CC 87 0083 37 B BOOT LSR'S WERE SELECTED CORRECTLY, BRANCH 
38 
a . 39 < a 
ca C17 3007 0018 40 x3007 DC XL2*°30078 a 
9019 CCCo COTA 41 xcO00 DC XL2*C000° g 
007D 4&2 UNITS £QU X*7D* € , 
0007 43 TENS 800 x*07* 
0083 4&8 BOOT 200. 131 i 
45 € 
FFFF 46 END 
g 
< 
: § 
= a 
é 
5 g 
t € 
; 2 $ 
Fisted es § 
Ne he 
: PROG ID 0076-5 2 
DATE 28APR71 O1MAR72 PROG ID 0076-5 2 _ PATE 28APR71 OIMART2 
FC NO. 816788 818693 PAGE 101 EC NO. 816788 818693 PAGE vota 
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. PAGE 202, 
0765 CPT AND MEMORY DIAGNOSTICS: PROGRAM 76 


0775 CPU AND MEMORY DIAGNOSTICS: PROGRAR 77 
OBJECT CARD LISTING 





FRF LOC ORJECT CODE ADDR STMT SOURCF STATEAENT 
TRE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E A INDICATE NUMERIC SHIFT. 0000 2 UVUXYZ START O 
3 DECK & 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 98 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 TFRROUGH 96 & ieee ceneeetenessssess ddeetessenoereeysssoenee iter ene etree 
5 ¢ PROG * 
6 * (LI0) & (SHS), LOAD & SEBRSEB 1/0 LSRS * 
e eo ci ae 2 . J @eeeeoeeneen eeesveoev see eeoeoe oe @ seeeenevene eee eee e8d @eeeense 7 * s 
TP- E@)'<*6 FCG F AYOI-AJK<E MOB G H<OAO 2007650001 a © Seessesssesses =". 
9 * * BSCA- 2 * e ¢ 
eee eae e ee eee eee + eee e@eeeeeeeeede @eeeee 19 * SHSSSSSESEESESS s 
EMVOeETe=-LCW PHS ="THEP | t c FS asc RA SO Q 21301012710 228720.%07650002 i e . 
12 * s 
y j : 13 * s 
WwW ReeEES SE OOEEEHEESEES TS HEDSEEESELES EES OSES ES ESSSEHSHSSOSSSSSS SOSH S OS ODES 
15 = 
16 
0000 FF. 07 07 17 HALT] HPL UNITS,TENS PROG 77, HALT 1. IPL HALT 
18 * 
- 19 * 
20 
0003 37 8C 0025 21 LIO XFPPP,X*8C* LOAD BSCA LSR 
22 # WITH -PPFP-. 
23 
occ? 30 ac 0051 24 SNS 81,x"8C* STORE BSCA LSB 
25 *# Im LOC HEX -0050 & 0051-. 
26 
ANCOR OD O1 0051 C025 27 CLC 81(2),XPFPF GO TO HALT2 IP BSCA LSR #2 
0011 cc 81 £018 28 BE KONT1 WAS BOT SELECTED CC2RECTLY. 
9915 PO 97 07 29 HALT2 HPL UONITS,TENS ® PROG 77, HALT 2. ZRROR HALT 
30 * *® 8S5CA LSR @2 SELECTION ERROR 
31 « 
32 * 
33 @ 
2018 31 8c 0027 34 KONT? LIO x0000,x*8C* ~ FAILURE TO SZESE THE CORRECT 
201C %C BC C051 35 SNS  81,x*8C* VALUE WILL RESULT IK LSB CHECK / 
9920 ce 87 0083 36 B BOOT a 
37 
38 
= 0028 PFFF 0025 4&0 XFFPF DC XL2°*PFPP* 
= 0026 cn00 0027 4&1 x0000 oC XL2*0000° 
0007 4&2 UNITS EQU xX*07* 
0007 43 TENS z£o0 0s x* 07* 
€ . CC83 4&8 BOOT 2Q5 ~~ 131 
as 3 
FFFF 46 END 
€ im 
g 
= 
€ : 
a 
7 Z 
C 2 
| a; 
Ci, 8 
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enn or EE I ee ae a | | rece Me - at ae PAGE 1038 
e775. ca awD MEBORY DIAGHCSTICS: PROGRAM 77 | | : : | 0775 CP AND MEMORY DIAGKCSTICS: PROGRAM 77 
— 7 | | | CROSS- REFERENCE - ee tS OBIFCT CARD LISTING 
SYMBOL T LER VALUE DPPN REFERENCES : 


THE CHARACTER INDICATES A BLANK COLUAN AND THE CHARACTERS D E£ H ISDICATZ WURMERIC SHIFT. 


BOOT = 001 0083 0088 = 0036 





i : CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 98 CL 8&9 THROUGH 6&8 CL 65 THROUGH 60 CL 81 THROUGH 96 
BALT 


c 
A 003 0015 0029 Boy 
KONT? A 0108 0018 0034 0028 i 
TENS c 001 0007 0043 0017 0029 : 2 = e ° e e ° ° e ® e ° eoenveeen eeveeceeseeeeoaeen eeoee 
UNITS C OCT 0007 00482 0017 0029 es . TIO X@ *G<QO ILB < BD( EAI BP -& 09 *G<Q0 I3BK 2G OBC™#a 0338077 é 
OVWXYZ A 007 0000 0002 a on ae f d: enersooes 
XFFPF A 002 C025 COxu0 0021 0027 , 7 ‘ a * . . ‘ eee ese s ee esos eee eo eee @eeeeeeneeded © eeeee 
xC090 A002 0027 0041 0038 ee wal tee lg... BOWS SRTORaDC PAS SOT NOP I t c FS asc RA SO Q 21301012710 2287208207750002 : 
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0000 
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9007 
OOOR 
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0013 
0017 
OOA 
6020 


0023 


0026 
002c 


0030 


0033 


C036 


0038 


DATE 
EC nO. 


o 
: ’ Y 


PO 07 


31 Aa 


37 A6 


30 AG 


30 AY 


3D FF 
F2 81 
OD 01 
F2 B81 


FO 07 


OD C1 
co 81 


FO 07 


FQ 07 


CFF8 
3FPP 


15SEP69 
-816899 


TF 


0037 


0039 


co51 


e053 


9053 
19 
0053 0037 


03 


TF 


0051 0039 
0083 


7F 
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OO7F 
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THROV69 
816559 
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PAGE 104 
PROGRA® 78 
STMT SOURCE STATEMENT 
2 UVHXYZ START 0 
3 DECK 4 . 
4 KKKKKEHKSERERMSSTCSKSSKSESKASEER TES LSEEKSESSE EES SCE SEKSKESSESEKEESTSESEHHSERERESEKASESEEE 
5 * PROG 78 * 
6 * * 
7* (LIO) & (SRS), LOAD & SENSE I/O LSRS * 
g ¢ * 
Q9 * Seenecsa s 
10 * * DISK * * 
11 20200 6¢ s 
12 * * 
V2 EHKERS KES ESTEE ESE EE EES BIT EEKSESEKEKESTEKEKEESEEEEKESEEEKERESEEOEESEKERE 
18 
15 
16 HALT?! HPL UNITS,TENS PROG 78, HALT 1. IPL HALT. 
17 « 
18 * 
19 x 
20 * 
21 
22 LIO XCFFS,X*AU? LOAD DISK DATA ADDRESS LSR 
23 * WITH -CFF8-. 
24% 
25 LIO X3PFP,X*°A6? LOAD DISK CONTROL ADDRESS LSR 
26 * WITH -3FFF-. 
27 
28 SNS 81,X* a6? STORE DISK CONTROL ADDRESS LSR 
29 * IN LOC HBX -0050 & 0051-. 
30 
31 SNS 83,X*aA4u? STORE DISK DATA ADDRESS LSR 
32 * IN LOC HEX -0052 & 0053-. 
33 
3a CLI 83,X*"FE? GO TO HALT & IP DATA SWITCHES WERE 
35 JE HALTS ALSO SELECTED AT THIS TIME 
36 CLC 83,XCFF8(2) GO TO HALT2 IP DATA ADDRESS LSR WAS 
37 JE HALT243 HOT SELECTED CORRECTLY. 
38 
39 RALT2 HPL UNITS,TENS * PROG 78, HALT 2. ERROR HALT 
80 * * DATA ADDRESS LSR SELECTION ERROR 
al * 
a2 * 
a3 * 
ag 
as CLC 81,X3PFF (2) GO TO HALT3 IP CONTROL ADDRESS LSR 
&6 BE BOOT WAS NOT SELECTED CORRECTLY. 
a7 
4&8 HALT3 APL UNITS, TENS * PROG 78, HALT 3. ERROR HALT. 
a9 * CONTROL ADDRESS LSR SELECTION ERR 
50 + 
51 * 
52 * 
§3 
58 HALTS HPL UNITS,TENS * PROS 78, HALT 4. ERROR RALT 
55 * * THE DATA SWS WERE ALSO SELECTED 
56 * * PAILING CARD@ A-B3T2 
57 * 
58 * 
59 
66 XCFFS DC XL2‘*CFF8?* 
61 X3FPF DC XL2*3PPrr? 
62 UNITS FOU xXx*7F# 
63 TENS £00 x*0O78 
6% BOOT FOU 131 
65 
66 END 
20JAN70 138AR70 010CT70 O1MART72 PROG ID 0078-5 
816576 816638 816756 818693 PAGE 108 
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SYMROL T 


BOOT c 
RALTT A 
HALT2 A 
RALT3 A 
HALTS A 
TENS Cc 
UNITS C 
UVWXYZ A 
XCFPFS A 
X3PFP A 


LEN 


001 
003 
003 
003 
003 
001 
01 
001 
C0? 
002 


VALUE 


0083 
0000 
C023 
0030 
C033 
0007 
CO7F 
0000 
1037 
0039 


DEFN 


C064 
0016 
ec39 
00488 
orssa 
0063 
0062 
0002 
0060 
0061 


CROSS~REFER ENCE 

REFERENCES 

0086 

9037 

0035 

0016 0039 OC48 0054 

0016 0039 0088 0054 

CO22 0036 

0025 00485 
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Set Ree ere teen | . | Sieg tor eee IPS MATNTENANCE DTAGNCSTIC PROGRAM 3 | | . PART NO. 2589926 
BOT Re Rac, fee | ‘ PAGE 105a 
eee, ere een eat” eno ean Ta | 0795 CPN AND MEMORY CIAGNOSTICS: PROGRAM 79 
OBJECT CARD LISTING ERP LOC OBJECT CODE ADDR STAT SOURCE STATEMENT 
PHF CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIPT. 0000 a conor : 
(CL 1 THROUGH 16 CL 17 THFOUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 : Geren CoN ieee, es gerne neces oe emet guy ters srcreremsteeeeneeees 
6 & s 
| so 7 (LI0) & (SHS), LOAD & SENSE 1yO LSES * 
a _* e - 2 ° ~- eo s es o e . e@ 2 e ae - 8 * e 
(T+E 98 YMKEG (3F W CUOZ-AICHE B37 = E12-JU( GAL C+ 2-G)0A7A( EAI CX -EBCa ) "a )"3"- 9=9 NEe07850001 os eee tk 
_ ho 10 * DISK * . 
“ST EMMOGET#=ADC"PHS ="7NEPY 1 C PR ASC: OR A SOQ 21301012710 228723,%07850002 A ee a 
é Sor | 138 PAILURE TO SEWSE THE CORRECT VALUE WILL * 
3 14 * RESULT IN LSE CAECK = 
15 « e i 
16 FSCSESSSES HHS SS SHTSESESES SEE THEEERS FE SEEESESEHESSEEHESO98EEEEEEESSEDREOED 
17 
18 
0000 PO 07 SP 19 HALT? HPL  oONITS, TENS PROG 79, HALT 1. IPL HALT. 
20 
; 278 
22° 
23 ¢ 
24 
0°03 34 Aw 9078 25 LIO = x3007,x°a8¢ LOAD DISK DATA ADDRESS LSR 
26 WITH -3007-. 
27 
0007 37 AG COTA 28 LIO xC000,x°A6! LOAD DISK CONTROL ADDRESS LSB 
. 29s WITH -C000-. 
£ 30 
X00B 39 A6 0951 31 SNS 81, X*A6* STORZ DISK CONTROL ADDRESS LSR 
eo 32 * IN LOC HEX -0050 & 0051-. z 
- 33 : 
OCOF 30 au 0053 34 SHS  83,X*aAu® STORE DISK DATA ADDRESS LSR 
. 5 35 * IN LOC HEX -0052 & 0053-< 
: . 36 
| 3912 CO 87 0083 37 8 BOOT LSR*S WERE SELECTED CORRECTLY, BRANCH 
38 
e = 39 é 
| 0017 3007 0018 4&0 x3007 DC  xL2°30078 ie 
ed 0019 Cron CC1A 41 XC000 DC xL2*cCO008 e 
. OOSP 4&2 UNITS EQU  xX*SpP? € * 
0CO? 43 TENS #090 x*078 
e 4 0083 4&8 ROOT £0U 131 
a5 € 
= FFFF 4&6 END 
= € 
y € 
€ 
‘ 
| 
as. | € 
4 
x i] g 
c | * 
ed 
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PAGE 106 PAGE WU6A 
0795 CPO AND MEMORY DIAGROSTICS: PROGRAM 79 — . . 0795 CPU AND MEMORY DIAGNOSTICS: PROGRAM 79 
3 CROSS-REFERENCE OBJECT CARD LISTING 
2» SYMBOL | LEN VALUE DEFN REFERENCES . eo 
. THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E£ H INDICATE NOSERIC SHIPT. 
BOOT C 001% 0083 O044 0037 
RALT? A 003 0000 0919 ; CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 88 CL 49 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 96 
TENS C001 0007 0043 0019. | = 
‘ONTTS C 001 OOSF 0042 0019 
UVAXYZ A 001 6000 0002 ‘ eo . * e ° s e @eeeseeneven2d eseeoeonneeeoe ee 802 @ aan eanecaseaeoeoeen ea¢ eeeeo 
XC000 A 002 OOTA 0061 6028 Sok TP- E@ ).<EE PCP wW AYOZ-AJCHE NOB OG H<OAa ; 13207950001 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589926 . 
a . | PAGE 107 IRM HAINTFNANCE DIAGNCSTIC PROGRAM dahl ms oo. 
GNOS : PROGRAM 7A 
ee ey ernie Cee eT ; O7A5 CPU AND MEMORY TLIAGNOSTICS: PROGRAM 7A 
eRe LOC OBJECT CODE apoE STMT SOURCE STATEAEST lee eek aah 
0000 2 UVWXYZ START 0 3 
3 DECK 4 SYMBOL T LEN VALUE DEPN REPERENCES 
HQ SHEERS SHKEH TE SESS KESRSSEE SHESTE SSEASSKSESKSSESEKSSSSSKSSTKKSEKSESKASTSKSKESEESKEEKKSEEES 
5 * PROG 7A * BOOT C 001 0083 0044 0036 
6 * (LIO) & (SNS), LOAD & SENSE I/0 LSRS * HALT? & 003 0000 0017 
7 * HALT2 A 003 0015 00279 
8 * seseceeses * KONT? A 004 0018 0034 0028 
9 # * BSCA-1 * * TENS c 001 O0n7 Cla? 0017 0029 
10 * #¢92 48 S808 * DWITS C 001 OO3F 0082 0017 0029 
is * UVWXTZ A C01 0000 002 
ance * XPPFP A C02 0025 0090 0021 0027 
ve * x0090 A 002 0027 0081 0034 
FQ SHKSEKHSEAKSSSEEHESESERASESSKAES KEE REESE Y FE EKKESEKRESTESS SEES SEES ESEHESEESSESEHESE 
: TOTAL STATEMENTS FLACGED IN THIS ASSEMBLY = 0 
- 16 
“9000 FO 07 3F 17 HALT? APL UONITS,TERS PROG 7A, HALT 1. IPL HALT 
: 18 * : hee 
: 19 * 
: 20 
0003 31 84 0025 21 LIO. -XFPPF,X*84* ~ LOAD BSCA LSB 
22 * WITH -PFFPF-. 
23 
0007 30 84% 0051 28 SNS  81,X*848° STORE BSCA LSR : 
25 * IN LOC BEX -0050 & 0051-. 
26 
0003 OD 01 0051 0025 27 CLC 81 (2) ,XPFFF GO TO HALT2 IP BSCA LSR 82 < 
0071 CO 81 0018 28 BE KONT WAS HOT SELECTED CORRECTLY. 
0015 FO 07 3F 29 HALT2 HPL GNITS,TERS * PROG 7A, HALT 2. ERROR HALT 
30 * * BSCA LSR #2 SELECTION ERROR € i 
31 * 
32 * : * 
33 * @ | a 
0018 31 84 0027 34 KONT1 LIO X0000,x*3a" -FAILURE TO SENSE THE CORRECT 
001c 30 84 C051 35 SNS  8681,X*8u" VALUE WILL RESULT IN LSR CHECK 
9020 cO 87 COR3 36 B BOOT € | i 
37 
38 . 
39. € i 
0028 FFFF 0025 80 XFFFF DC XL2*FFFF* es . 7 — 
0C26 coco 0027 += 81 x0000° bec XL2*0000° 
003F 42 UNITS EQU xX*3Ft € i 
0007 «#83 TENS EQU x*O78 
-¢C83 44 BOOT E£QU 131 
45 ; < 3 
FFFP 46 END 
' * 
. 
c 
co a 
“= at 
i 
DATE © 13MAR70. =—-«O10CT70.«—-s« 28APR74— «OT MART2 PROG ID oom-5 c } : enot a oo7a-5 3 
EC NO. 816638 816756 816788 818693 PAGE 107 DATE 13MA870 010CT70 28APR71 O1MART2 . PAGE 107A 
| SPC NO. 816638 816756 816788 818693 = 
ss ‘ i 
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PAGE 108A 
ore? CPO AND REMORY DIAGNOSTICS: PROGRES 7A c7c5 CPU AND MEMORY DIAGNCSTICS: PROGRAS 7C 


OBJECT CARD LISTING 








* 


i 
| RRR LOC OBJECT CODE ADDR STMT SOURCE STATERENT 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIPT. ! 6000 4 UvuXYZ Senne a 
es SSSSHSSCSSSSHSSESSSSSESSHSESSSESSSESESEE 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 88 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 j : Pa a a a 
6 * PROG 7C = 
; 76 (LTO) & (SUS), LOAD & SENSE 170 LSR‘S * 
* ° e e ° ° ° o s ° e 2 eensnvenence eeosneaeeeoseanennes eeece 3 s 
TIO Xa *"<Q6 TIB D ED( 6AJ BP -& 08 *"<€QE I3BD 2G 0BC™Ka $1807A50001 : eeocsece * 
. ‘ 10 * * sroc * 
ooo see «a oo eee eee a eece eeoencecose eooee 4 see s 
EVP SE7#=.DC"PHS ="7MEP} 4 Cc FS ASC 6©R A SO OQ 21301012710 22872*#%07050002 - : ees S 
13 2 s 
| 19 SPSS SSH SSSEE SK SEKSEARESE SHE KES SES HKSESESHSESE SHESTHESSSEESESESSHESHHOLSSESESSE 
15 
16 
9000 PO 07 6¢C 17 PALTT HPL OUNITS,TERS -PROG 7C,HALT 1. IPL HALT 
18 
19 8 
C003 Oc 01 0051 002B 20 VC 81(2),X0000 -CLEAR LOCATIONS HEX 50,51 
21 POR STORING SIOC LSR 
0009 31 38 O02D 22 LIO. XPPFF,X*34° -LOAD SIOC LSB WITH -PFPF- 
; 238 
= ty 00OD 39 38 0051 2% SNS 81,X°34! -STORE SIOC LSR IN LOCATION 
| 25 * HEX 50 & S1 
- 0011 OP 01 0051 002D 26 CLC 81(2),XPPPF -GO TO AALT 2 IF SIOC LSR 
- 9917 CO 81 (OTR 27 BE KONT1 WAS NOT SELECTED CORRECTLY < 
28 
a 29 ! 
= OO1R PO 97 6C 30 HALT2 HPL OUNITS,TENS * PROG 7C,HALT2. ERROR BHALT * 
31 * * SIOC DATA ADDRESS REG. 
z | 32 © * SELECTION ERROR 
33 é 
| 34 ¢ 
z 977F 317 34 CO2B 35 KONT? LIO X0C00 ,x*348 -PAILURE TO SENSE THE 
CC22 30 34 0051 36 SNS 81,X° 388 CORRECT VALUE WILL RESULT 
0026 CO 87 0083 37 B BOOT Im A LSB CHECK 
€ 38 
39 1 2 
; U0 Seeseeeeeeee DATA DEFINITIONS 
‘6 CC2A 0N00 (O28 4&1 x0000 vc XL2*0000° 
902C FPFP CC2D 42 XPPPP DC XL2*PFFF® 8 
006C 483 UNITS FOU x*6Cr 
e CCO7 88 TENS #00 x*078° 
0083 485 BOOT £QU 131 i 
a6 
e ! FPFF 8&7 END 
3 
‘ 3 
{ 
s i 
+ 
r & 
c |. : 
é | 
< ; 
PPS OP OOS OO ROO Oe OE Oe SE OOM owmeoae eee woes eco ewwe LAST PAGE wees eee ewe ww coe wmoomoowoae ow Se eer ewemooes Sere weeerowooee | “ 
DATE 13BAR70 1 z 5s oc! S 
EC NO. 816638 ieee AtcToR osacens ece = Trager “1 pare 15SEP69 1GNOV69 203A"70 13HAR70 010CT70 26APR71 018aR72 PROG ID oco7c-s 2 
|} ¥C WO. 816899 816559 816576 816638 816756 816788 818693 PAGE 1083 
c | : 
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v e : . 
07c5 CPU AND MEMORY DIAGHOSTECS: PROGRAR 7C | 017C5 CP AND MEMORY CIAGNOSTICS: PROGRAM 7C 


CROSS-REFER ENCE OBJECT CARD LISTING 


mst ie? a 





| SYMBOL T LEN VALUE DEFN = REFERENCES | | 
B Boot Cc 001 0083 0045 0037 THE CHARACTER INDICATES A BLANK COLUSN AND THE CHARACTERS D Z H INDICATE NUMERIC SHIFT. 
* WaLtTi a 003 0000 0017 : 
~ RALT2 4003 0018 C030 CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGA 48 CL 49 TRROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 
KONT? A COM OTE 0035 0027 
TEWS c oct 0037 Oo0448 0017 0030 
oxtTs Cc co1 006C 0043 0017 0030 e e * * e 2 2 ° o e ° e ° : Se Oe e oe aoeeeosdeoeoeeove eoove e 
DYBXYZ A 001 0000 OoC02 TF 8 YRC D ME e<1& .L Y ED( GA J BI -& 3a ) B<LE H3 9 BG soBC Cc 70 KZ 07€50001 
XFFFF A 002 002D 0082 0022 0026 
000 0 00 041 0020 0 eve es es eco eoo 8 ese eeosvseneeee woore 
: : oan oe ee E**CeETS=nDC"PHS =" 7MEP] 1 Cc F% . ASC RA SO Q 231301012710 22372*°S$£C7C50C02 
: TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
< 
€ 
€ 
6 — 
. ; 
£ i 
€ 
e 
is 
an & 
: € 
4 € 
a o. € 
Mew were woo ewe ew oe fe oe ome errr aw an an ao om ae ee ee oe ecowe ae LAST PAGE - nee oe re re on ce re ate 8 Re ee 
CATE 15SSEP69 | T4HNOV69 20JAN70 138AR70 010CT70 28APR7 1 O18 AR7 = x 
EC KO. 816899 816559 816576 816638 816756 816788 a aces ue oo7c’s ~ | J pave 15SRP69 = 14NOVE9 = 2OSANTO = 13HAR7O 010CT70 «- 28APR710=—s«O1 MARTZ pRoG ID oo7c-5 € 
' FO NWO. 816499 816559 816576 816638 816756 €16788 818693 PAGE 10928 
oS it t 





IBA MAINTENANCE DIAGNOSTIC PROGRAN PART WO. 2589926 TR SATNTENANCE DIAGNOSTIC PROGRAN PART WO. 2589926 
: PAGE 170 PAGE TIO‘ 
C7P5 CPN AND MEMORY DIAGNOSTICS: PROGRAM 7F O7FS CPI AND MFMORY DIAGNOSTICS: PROGRAN 7P 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CROSS-8 EFERENCE 
0000 2 UVWXYZ START 0 SYMROL T LEN VALUE DEPN PEPERENCES 
3 DECK 4 
y SeHSKSSHEESKEASEASKERREE EE SHREK HKSSTHSS STE SKSEKESRSSEKEKSEKRESESEHRSEHSEELESEREEEE : ROOT c C01 0083 00485 0037 
5 * * HALT? A 003 C000 0017 
6 * FROG 7F * HALT? A CO3 (0O1B 0020 
7 * (LIO) & (SNS), LOAD & SENSE I/70 LSR*S * KONT1 A 00% CO1F 0035 0027 
8 * . TENS Cc 001 0007 oOUuYs 0017 0030 
9 * SESTSE SR EER ES * UNITS C001 003C 00483 0017 0030 
10 * * 3411 TAPE * * OVWXYZ A 001 CO00 0002 
11 PeSSEE SE REE RE * XPPPF A CO2 CO2D 00482 0022 0026 
12 * * | x0000 A CO? 002B 0081 0020 0035 
13 * * . 
TR CFSE EEES EEE E EEE RE EES ESS UEERERES REESE EEE NE SEES TOEEEEEEEEOEEESTOESEES | TOTAL STATEMENTS FLAGGED IN THIS ASSESBLY = 0 
15 a 
16 | 
0000 FO 07 3c 17 HALT! APL UNITS ,TENS @PROG 7P, HALT 1. IPL HALT | 
18 ‘ i 
19 * 
0C03 OC 01 0051 0028 20 SVC 81(2),x0000 eCLEAR LOCATIONS BEX 50,51 | 
21% | FOR STORING TAPE LSB | 
0cC09 31 64 002D 22 LIO XPFFF,X*64* eLOAD TAPE LSR WITR -PFRFF- 
23 * 
o00D 30 64 0051 24 SNS 81,X*6a° «STORE TAPE LSR IS LOCATION | 
25 * HEX SO & 51 
C011 OD Of 0051 O02D 26 CLC 81(2),XFFFF -GO TO HALT 2 IF TAPE LSB 
0017 CO 81 O01E 27 BE KONT WAS NOT SELECTED CORRECTLY | 
28 
29 | 
OO1B FO 07 3c 30 HALT2 HPL UNITS, TENS * PROG 7F,HALT2. ERROR HALT 
31 * * TAPE DATA ADDRESS REG. i 
32 * * SELECTION ERROR i 
33 * : 
34 ¢ 
SO01E 31 64 0028 35 KONT? LIO XO000,X*64* -PAILURE TO SENSE THE 
0022 30 64 0051 36 SNS 81,x'6a° | CORRECT VALUE WILL RESULT _ 
£026 CO 87 0083 37 B BOOT IN A LSR CHECK 
38 
39 = - 
QQ *seeeee8888% DATA DEFINITIONS 
—_ 002a coco 002B 4&1 £70990 pec XL2*0000* 
002C FFFP 002D 4&2 XPFFP nC XL2‘FRPP®* € 
003C 43 UNITS FOU x*3C# 
COO7 4S& TENS OD x*078 
0083 4&5 BOOT £00 131 € 
86 


FFFF 47 END 


ey 


be 


Bate OTMART2 


EC HO. 818693 PAGE 110 FC NO. 818693 | vAGE 1108 


ze 
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PROG ID oo7F-5 = LATE OM AR?2 . PROG ID oo7FP-5 
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a i ee *> FF, gy __, ___________H-. -. 
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PART 2O. 2589926 IBA NATNTFNANCE DIAGNOSTIC PROGRAM cee 
~ ee - ; =F ; PAGE a 141 : PAGE ar 7448 
9785 CPU AND WESORY CIAGNOSTICS: PROGRAM 7P 5 he eet BI Gite, © hae a | 835° CPU AND MEMORY DIAGNCSTICS: PROGRAN 83 | : 
e Fi oe OBJECT CARD LISTING es, Me, BRR LO OBJECT CODE ADDR STNT SOURCE STATENEST 
*, - ; : Bas, onoc 2 OVEXYZ START O 
TRE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 3 DECK 98 
2h ee : s . ty $8888 O88 CHEER EEETEESEESEEEESESESESERESOETESSSSSSSOSSESSSS ESS SSSSISSSS 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 5 3 — - PROG 83 s 
; ; = : 6 * * 
a DUAL PROGRAM PEATORE LSR TEST s 
° ° oe « ° ‘@ * ° ° = ° 2 e. ° ° oe eve eesseaneese eeene 8 : a 
. T.6 _@ FOC D NE esC& .LAU ED( EA J B? -& 58 *a<0& RA3aD EG s/OBC Cc "#0 LS 07750001 9 THE ABILITY TO LOAD 6 STORE P2-1aR IS TESTED e 
: 3 10 * : — : 
7 eee e080 © ‘sis eo°e eoe @ aee eseeceaennen e2e2eve 71 CEESEE 44 4ORKETEESEEEEEEESEEEESS SEEDS EEESE SESE SESSESSEESES SSIS SSS OS SOSCOSS 
_ BONE e—PCMPHS =" TMEFY ' c r% asc RA SO Q 21301012710 224728.%07P50002 12 
ae ae mo : ‘i 0000 FO 7PF 57 13 HALT1 HPL SNITS, TENS PROG 83 RALT 1. IPL SALT. 
19 * ba 
~ 15 *# 
16 08 Bo Eee os | 
0093 35 40 CO2D 17 L XO3PE,X°80° LOAD P2-IAR WITH HEX -O3FE- 
18 | ; 
0007 3% 80 0051 19 ST PAD, X*s0* STORE P2-Iakh IB LOC BEX 51% 50. 
¢ 4 : 20 3 7 
N00R OD 01 0051 002D 21 CLC PAD{2),X03FE BYPASS HALT 2 I? P2-IaR 
9011 F2 81 03 22 Re HALT2¢3 WAS SELECTED PROPERLY. 
23 
0018 FO 7F 57 28 HALT2 HPL OUNITS,TENS — * PROG 63, SALT 2. ZRROR HALT 
25 « *® pP2-IAR SELECTION ZRBOB 
26 * * FAILING CARD® A-B3Q2,8-B308 
27 * 
28 
3017 28 80 CO2F 29 L XPEO3,X°40* LOAD P2-IAR WITH AEX -PEO3- 
30 
401R 38 4O 0051 31 Sst PAD, X*4u0* STORE P2-I1ak IM LOC BEX 515 50. 
32 
A01P ON O1 0051 CO2F 33 CLC PAD {(2),XFE03 -GO TO BOOT IP P2-IAR 
9025 CO 81 0083 34 BE BOOT _ * WAS SELECTED PROPERLY. 
35 uo 
0029 FO 7F 57 36 HALT3 HPL UNITS,TENS * PROG 83, HALT 2. @RROR HALT 
37 * * P2-IAR SELECTION ERROR 
38 ¢ _ © PAILING CABD® A-B30Q2,8-B3D8 
ro 39 ¢ 
80 
41 
42 *eeeee8 PROGRAM CONSTANTS & EQUATES 
a3 ; 
002C 03FF 002D 48 XO3FE DC XL2*O3FE* 
0022 0% 002E 45 XFEO3 DC XL1°03* 
0051 4&6 PAD Frou 80 xx* 51° 
0057 47 UNITS EQU xX*57* 
CO7F “8 TENS FOO ‘X*7F* 
ccs3 49 BOOT eQ0 131 
FFFP 50 END 
eaten PROG ID 0078-5 DATE  15SEP69  —«- 14NDV69 =—«s-20SAN70.«—-«s«13MARTO.«=—-- C10CT70.— 28APB71 =: O1NART2 PROG ID 0083-5 
RE PO> ONES? | PAGE 141 BC WO. 816899 816559 816576 816638 . 816756 816788 818693 PAGE 111A 
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0835 CPO AND MEMORY CIAGNOSTICS: PROGRAA 83 | 0835 CPU AND MEMORY DIAGNOSTICS: PROGRAN 83 
CROSS-REFERENCE 


| =e OBJECT CARD LISTING 
SYMBOL T LER VALUE DEFN §$REPERENCES | 


~ ‘ se 














ze, & D £ H INDICATE NUMERIC SHIPT. 
BOOT C 001 0083 Cco49 0038 | THF CRARACTER INDICATES A BLANK COLOSN AND THE CHARACTERS D I 
AALT1T A 003 0000 0013 a 65 THROUGH 80 CL 81 THROUGH 96 
HALT2 A 003 0018 C028 °° 0022 z CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 44 CL SY THROUGH 68 CL 
BALT3 A 003 0029 0036 
PAD C 007 00547 0046 0019* 0021 0031* 0033 Keusieeeesee”. "Mase 
TENS C 001 OO7F 0048 0013 0028 0036 . Pi * SP een ae een = ae Seer . e cR< P& 08350001 
URTTS C001 0057 0C47 0013 0028 0036 T.- >aG*P(M .LI ED( GAJ B72-&{ 0-5*56 >(D M68 A ED .%BA BI0~S*® C 
DVWXYZ A 001 0000 0002 steeds 
XFEO3 A 001 O002E 0045 0029 0033 : 2 _ SP See Ee io ee renee te ot 1301012710 2287218608350002 
XO3FE A 002 O002D oO0a8a 0017 0021 E"89SE7e=.DC"PHS ="TNEP] | Cc F% ASC RA SO Q 21301012 
: TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 . 
4 * 
i 
é 
i, 
- 4 
ae & 
: 
€ | ‘ 
Lo € 
i - 
€ € 
€e|.- ¢ 
€ | e 
< | | ‘ 
% co! - ¢ 
t “- 
‘4 
te g 
oo € 
o g 
C : 
Cc 2 
c 3 
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0685 CPU AND MENORY DIAGNOSTICS: PROGRAM 84 c8us CPU AND MEMORY LYAGNOSTICS: PROGRAR BY 








ERR LOC OBJECT CODE ADDR STMT SOURCE STATERENT ERR LOC OBJFCT CODE ADDR STAT SOURCE STATEMENT 
0000 2 UVWXYZ START 0 70 
3 DECK 4 001D F1 CO 00 71 APL2A APL 0 2 PROG. LEVEL 2 APL. WITH DUAL PROG. 
y KERSESRAECEREKREKSE ER ESEKREEE STS SESETHSESEKLHSSESESHSESHKSESSSSHESSSESEEKSE SKE SESESTSSSTSSS 7? ¢ , RODE DISABLED. 
5 tenees seueee 73 © APL2A SHOULD BE NO-OPED, AM ADVANCE 
6 teeee8 PROG 84 osenes 74a ¢ WILL BF TO (ERROR). 
7 +ee008 DUAL PROGRAS FEATURE TEST seeses 75 
: o eeeee ee 0020 F3 00 08 76 SIO. 4,0 2 ENABLE DUAL PBOG. KODE. 
; Q teenn8 (APL) & (SIO) eeetee 77 
: 10 teeee0 ee 0023 35 20 003A 78 L ADEND,X*20° 2 LOAD P1-IAR WITH (20D) ADDRESS. 
: 11 seeeee THE (APL) COMMAND IS TESTED eeesee 79 
é d2 sseene IN BOTH PROGRAB LEVELS WITH ee eee ~ 0027 P1 00 00 80 APL2B APL 0 2 PROG. LEVEL 2 APL WITH DUAL PROG. 
z 13 #e8ee0 DUAL PROGRAM RODE DISABLED 6 sesees 81 ¢ MODE ENABLED. 
= 14 tee8e8 THEN ENABLED. seeree 82 ¢ APL2B SHOULD CAUSE AW ADVARCE TO 
15 sees eeeses = - 83 ¢ PROG. LEVEL 1. 
: 16 teeee0 THE (SIO) COMMAND IS USED TO sesese 84 | 
S 17 *#eeee ENABLE & DISABLE THE DUAL settee N02A CO 87 00198 85 B ERROR 2 * GO TO (ERROR) IP APL2B DID SOT 
ee 18. ¢eseee PROGRAM MODE. SOeeee x 86 ¢ CAUSE AN ADVANCE. 
‘ te co 002E F3 00 00 87 END SIO. 0,0 1 DISABLE DUAL PROG. ODE. 
3 20 **et8% Seee28 a8 
: 2h -eeeeee TEST (1) ADVANCE INSTRUCTION a 9031 CO 87 0083 89 B BOOT 1 GO TO BOOTSTRAP. 
22 seeees (2) SKIP ACTIVE oeeets | aS Ls 30 
23 *#4408 Q) MACH ADV eeeese | 91 
2h exeeee (4) sIOo eseene 92 
25 teen08 (5) PROG INTERLOCK soeeee 0035 CO14s 0036 93 ADERR DC AL 2(ERROR) 
26 48888 (6) ALO BIT 5 eesee* | 0037 COT! CC38 98 ADPL2 DC  AL2{PL2) 
27 *#ee08 (7) P2 TRIGGER pees 0039 002F 003A 95 ADEND DC AL2(EKD) - 
28 **eee8 (8) P2 ENABLE steees 96 
29, Store (9) INTERNAL ee x: | 0018 97 UNITS EQU  xX*1TB® 
30 KEKRKSK SEEKS SEE EEE SETEEE SEK TEEESTSE SESTSESSEKASSSESEKASRSSSSESSSSSSSSSEHSSHSSESEEOS | CC7P 9A TENS £0u xr°*7F? 
31 | cos3 99 BOOT £90 131 
32 4 FFFP 100 END 
33 * PRCGRAMS 2 : 
34 * LEVEL ‘ 
aS... 
ocCO FO 7F 1B 36 BALT1 APL UNITS,TENS 1 PROG 88, HALT 1. IPL HALT. : é 
37 * : 
38 * f 
39 | # os 
am 0003 35 40 C036 40 L ADERR,X*80°* 1 LOAD P2-IAR WITH ERBOR ADDRESS. | 
a4 
0007 F1000D C009) «82 APL1A DC  XL3*F1000D" 1 PROG. LEVEL 1 APL WITH DUAL PROG. € 4 € 
43 * MODE DISABLED. 
aa « APL1A SHOULD BE NO-OPED, AN ADVANCE 
45 * WILL BE TO (ERROR) .~ c z 
46 * **NOTE** IPF SKIP IS ACTIVE, APLIA 
a7 * WILL JUSP TO HALT2. 
48 € £ 
000A P3 00 04 49 SIO 4,0 1 ENABLE THE DUAL PROGRAM ODE ; 
50 
000D 35 40 0038 51 L ADPL2,X*40° 1 LOAD P2-IAR WITH (PL2) ADDRESS = 2 i 
52 
0011 F1 00 CO 53 APL1B APL 0 1 PROG. LEVEL 1 APL WITH DUAL PROG. 
54 * BODE ENABLED. Gi i 
55 * APL1B SHOULD CAUSE AB ADVANCE TO { 
56 * PROG. LEVEL 2. (PL2) ‘ 
57 Cc é 
58 : 
0018 F3 CO 00 59 ERROR SIO 0,0 * DISABLE DUAL PROG. BODE. ‘ 
60 Go. c 
0017 FO 7F 1B 61 BALT2 HPL ONITS,TENS * PROG 84, HALT 2. ERROR HALT. ; 
62 * * APL1A OR APLB OR APLZA OB APL2B ao 
63 * * MALFUNCTION. wot g 
64 « * FAILING CARD# A-B3S2,A-B332, A-B302 | 
65 * * PAILING FUNCT (1,2) 6 (204) 0 (30405 | 
66 * s 6,7, 8) © ‘ x 
67 
68 
001A P3 00 00 69 PL2 SIO 0,0 2 DISABLE THE DUAL PROG. NODE. : I 
DATE 1SSEP69 14NO V69 20JA870 13MAR70 010CT70 28APR71 O18 AR72 PROG ID ooss-5 © 1 PROG ID 0088-5 
EC WO. 816899 816559 616576 816638 816756 816788 818693 PAGE 113 DATE © 1SSEP69 = 1SNOV69 = 20JAN70 = 13HARTO = O10CT70.-— 28APR71 = ON RART2 I 


£C NO. 816899 816559 616576 816638 816756 836788 818693 PAGE 1938 


meee ete cme women 


wit 





BA WALNTFNANCF DIAGNOSTIC PROGRAS — PART WO. 2589926 TER MAINTENANCE DIAGNOSTIC PROGRAM PART WO. 2589926 
ee ee Oe Oo | PAGE 118 | PAGE 11a, 
0885 CPU AND NENORY DIAGNOSTICS: PROGRAM 88 0845 CPU AND SFSORY CIAGNOSTICS: PROGRAS 84 


CROSS-REFER ENCE OBJECT CARD LISTING 
S¥MBOL T LEN VALUE ODEPN REPERENCES . 


THE CHARACTER  INDICATRS A BLANK COLUAN AWD THR CHARACTERS D B A INDICATE NUMERIC SHIFT. 


ADEND 002 003A 0095 0078 





a 
ADERR A 002 0036 0093 0040 | 
; G 33 4 & 65 THROUGH 1 THRODG 
ADPL? aA 002 0038 0098 0051 CL 1% THROUGH 16 CL 17 TREOUGH 32 CL THROUGH 48 CL S9 THROUGH 6 CL 80 cL 81 Tf a 96 
APL1A A 003 0009 0042 
APL1B A 903 0011 0083 ae Soe 
APLIA A 003 001D 0071 - sett ee ° e eo eo oe ‘ ee oe oo os oe . ° e oe «®* a 
APL2B A 003 0027 C080 7 Te- :aGaS(m (27D Ca< ACH CTT C 3 C5173 C1 C 3 GSH :a6 OH Ei< <BG H< EB £ BB *.008450001 
BOOT C001 0083 9099 0089 
END A 003 002F 0087 0095 = 3 > = ese aee e ee - ee eee e eee eeeoeveenee @ eoeeee 
I ee 4 a te E""¢sE7e=5DC"PHS ="7PEFE fC Po asc RA SO Q 21301012710 228720,608850002 
HALT? A 003 C090 0036 | 
HALT2 & 003 0017 9061 mn 
PL2 A 003 O01A 0069 0094 | 
= TENS C 001 O07P 0098 0036 0061 l 
- QNITS C001 0013 0097 0036 0061 
OVWXYZ A 001 0000 0002 | 
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PAGE 115 PAGE 115A 
0855 CPU AND MEMORY CIAGNOSTICS: PROGRAM 85 0855 CPU AND MEMORY DIAGNOSTICS: PROGRAM 85 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATEMENT CROSS-REPE RENCE 
0000 2 UVWXYZ START O SYMBOL T LEN VALUF DEFN REPERENCES 
3 DECK 4 
¥ RRSKEREREERESEEREREESESREE KEE EEESSE SE EERES SEAEREEEEERSESSEESSOE SESS ESSE ERSES BonT c 001 0083 0csé6 0083 
5 eeeeee estan HALT? a 003 coec 0075 
6 e888 .; PROG 85 Tse ee AALT2 A 003 0007 0030 
7 tenses DUAL PROGRAM FEATURE TEST aeeeee HALT3 A OC? COTE 19045 0036 0039 0030 0081 
8 +98808 oeree* TPNS C001 CO7F 0055 0025 0030 0085 
9. Sheeee (TIO) Sete ee TIO01 A OO’ C003 0027 é 
10 #teee0 seeeee TIO2 A COS OOOA O0C36 0027 
11 888% THE DUAL PROGRAM CONTROL $OtOs% UNITS C 001 CCSD CC58 C025 0030 0085 
12 **e002 SWITCH BUST BE SET TO oeee8 UPWXYZ A 001 0000 002 is 
: 13 *eee88 ‘CANCEL PROG LEVEL ONE®. oeeess 
: 14 +#eee8 e++ee8 TOTAL STATFMENTS FLAGGED IW THIS ASSEMBLY = 0 
& 15 *eeet0 TEST q) DPF BRANCH CONDITION enet * 
: 16 *#888 (2) CANCEL SW seeses 
7 *eee0% (3) Q BIT 5 OPEN seeeee 
18 **2e2% (8) Q BIT 7 eeesee : 
19 eases (5) ISTERWAL seseee 
Z 20 *eeee% sesese 
21 REESE ERES EEREEKEREEE EEEERES SHEERS ST RERES SEES SS SS SSSERS SES SSSSESKSESHSES SS g 
22 
23 F 7 
28 te a 
0000 FC 7F 5D 25 HALT? APL UNITS,TENS PROG 85, HALT 1. IPL HALT 
26 
9003 c1 00 900A 27 TIO} TIO TIO2,x*00* BRARCH TO TIO2 OF i i 
28 * "CANCEL PROG LEVEL ONE? 
29 
0007 FO 7F 5D 30 HALT2 HPL ONITS,TENS * PROG 85, HALT 2. ERROR HALT. < : 
31 * * PAILING CARD@ A-B302,4-B3S2,A-B3V5S 
32 * * PAILING FUNCT (1), (1). (5) 
33 * * PAILING CARD@ € e 
34 * * PAILING FUNCT SYS &DE S# : 
35 
QOOA C1 04 COTE 36 TIO2 TIO HALTI,xX*04* BRANCH TO HALT3 ON < 
37 * "CANCEL PROG LEVEL THO* 
38 
7 O00E C1 01 OO1E 39 TIO HALT3,X*O1* BRANCH TO HALT3 OW € 
—_ 0012 C1 02 OOTE 80 TIO =©HALT3,X*02° ANY PROG LEVEL OWE SETTING = 
. 0016 C1 03 OOTE 41 TIO HALT3,X*03* OTHER THAN *CANCEL®. Z . a 
COTA CO 87 0083 a3 B BOOT GO TO BOOTSTRAP 
a4 
001E PO 7F SD 45 HALT3 HPL UNITS,TENS * PROG 85, HALT 3. ERROR HALT. . ye 
46 * * PAILING CARD# A-B3Q2,A-B3V5 
a7 * * PAILING FUNCT (1,3), (2) 
ag * * FAILURE: SYS READER SWITCH ‘ : 
a9 ¢ * PAILING FUNCT (2) 
50 * s 
51 * . z 
52 
53 teeeeeeeeeee PROGRAM CONSTANTS ABD EQUATES 
005D 54 UBITS EQU xX*5D* . t 
CO7P 55 TENS EQU X*7F® 
0083 56 BOOT F200 Xx*83* 
FFFP 57 END . g 
C | € 
G z 
; € | 3 
¢ | 4 
ae SO | 
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PAGE 116 | PAGE 1168 
0855 CPO AND MEMORY DIAGNOSTICS: PROGRAM 85 0865 CP AND MEMORY CIAGNOSTICS: PROGRAM 86 
OBJECT CARD LISTING PPR LOC ORJFCT CODE ADDR STMT SOURCE STATEMENT 
: esed aad i 0000 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE WUNERIC SHIFT. .u ‘ WAL? leh : | 
fo TERRE EE EE EESEEEEESSEEESS OSS SESESEESSOSEESOSE SER ESEECSSESESSESESONESEEE 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 TRROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 es eae ee : 
= 6 * DUAL PROGRAM PEATURE TEST e 
7 ¢ : e 
ae ee e e e e e e eee eoceeoeeo ea soeaeanen @ ecoeeoea@eeovene73de2e2e080 @eeeeses . ® oR R2 = 
TH -@G*)0& B?A "P*DD ASA & ;06H  GXDC A® /OBCaG' ) ps00a550003 ; oc test (1) Ferre necae cerca conse ye bi sks : 
910 * s 
ee ee °° ore me See ia Na adi ck i ad ieee pe 2 RECSCEKEEEEESE * FHSS SSHSESKS OHS SSEHESSSEHESSSSSESHSSESTKEVEHHSSHHHS SSESEHE 
E\"teE7#=—DC"PHS ="7HEF} 1 = C PS ASC RA SO Q 21301012710 2287208508550002 < . 2 ey ely eee Soccaan 
13% LEVEL 
14 
0000 FO 7F 7D 15 HALT1 HPL UNITS,TENS ’ PROG 86, HALT 1. IPL HALT 
16 * 
17 * 
18 
9003 35 40 CO28 19 L ADDP2,K*40° 1 LOAD P2-IAR WITH ADDRESS OP P2 
20 
0CO7 F3 00 08 21 SIO. 8, 0 1 ENABLE THE DUAL PROGRAA BODE. 
22 
000A F1 00 00 23 APL 0 1 ADVANCE TO PROGRAA LEVEL 2 
24 * (JUSP TO P2 AT LOC -0019-) 
25 
00D F3 00 00 26 PP? SIO. 9,0 1 DISABLE TBE DUAL PROGRAB SODE. 
27 
0910 3D PB? C051 28 CLI PAD, X*E7° 1 GO TO BOOT IP P2 XR1 & XR2 BERE 
30718 CO 81 0083 29 BE BOOT 1 SELECTED AND ORED CORRECTLY. 
30 
0018 FO 7" 7D 31 HALT2 HPL  UNITS,TENS 1 ® PROG 86, HALT 2. ERROR BALT 
32 * * FAILISG CARDS §-B3Q2 
33 * PAILING FUNCT 1 
3u ¢ 
35 
36 
9918 C2 01 FFC3 37 P2 LA X* PPC3*,xR1 2 LOAD XR1 TO -PPC3- 
“ 38 
es ~ COIF C2 02 FP66 39 LA X*PP66", XR2 2 LGAD XR2 TO -FF66- . 
80 
¢ 0023 38 03 0051 a1 ST PAD, X°03° 2 STORE X81 & XB2 IB LOC 50 & 51. 
82 
0027 F1 00 00 43 APL 0 2 ADVANCE TO PROGRAS LEVEL 1. 
€ aa « (JUSP TO P1 AT LOC -000D-) 
aS : 
86 
io 47 **¢¢e2 PROGRAS CONSTAHT?S & EQUATES i: 
« 002A CO01B 0028 4&8 ADDP2 pC AL2 (P2) 
ng 
: 0cot $0 xR1 Bou x*01? : 
~ 0002 51 xR2 EOD) = x*02" é is 
0cOS 52 PSR FOU x*0a8 
0051 53 PAD EQU = x* 518 . - 
OC7> 5% UNITS EQU x*7De : : 
i 0O7F SS TENS £00 X°7P* 
0083 S6 BOOT #200. x*83* : 
57 : 
. FFFF 58 END 
: | 
7g . * 
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| | CROSS-REPERENCE OBJEC™ CARD LISTING 
SYMBOL T LEN VALUE DEFN REPERENCES . . 
THE CHARACTER INDICATES A BLANK COLUAN AND THE CHAPACTERS D £ H INDICATE NUMERIC SHIFT. 
ADDP2 A 002 0028 0048 0019 
BOOT C 001 06083 C056 0029 CL 1 THRODGR 16 CL 17 THRONGH 32 CL 33 THROUGH 4&® CL 49 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 96 
HALT! A 003 0000 0015 
:  HALT2 A 003 0018 0031 
: PAD Cc 001 0051 0053 0028 00a 1+ » ee s ee ee e e eo ese eeee onan eodcecoaoon eee eeonoe 
- PSR C001 0008 0052 THO ,@Gee Hm < CIX EG -fFRCaG**0-G"0a "604 A *Ha08650001_ i 
| E acc. “Ghan. 6626 eaG' (mn A AID I< CHK E G"0aH B"608 OAJaS s 
-  p2 A 008 00138 0037 0048 ee 
* TEKS c 001 007F 0055 C015 0031 waeg Sela - ig eon e880 @ ee ees eeoo @ ene e202040000 1 0101271 8720 508650002 5 
'  QNFts € 001 CO7D O0Se Coe ban | gz F DC"PHS 7mEPi | oC P& asc RA SO Q 213 0 22 
aVNXYZ A 001 0000 0002 
xR1 c 00% 0001 0050 0037* 
XR2 C 001 0002 0053 6039* 
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ERR LOC OBJECT CODE RPDE ena eo eCe PL Reeeene ERR LOC ORJECT CODE ADDR STMT SOURCE STATEMENT 
0000 : UVWXYZ su 8 70 * * LEVEL LSR*S DID NOT EQUAL THE 
* ; 
QQ CECTSEAESEREKESSTEREEE TES CEKSEE SLESAESEEAESTSSEAREEHEKESETEEKREEKS HSEKEKRGESEES . DATA ORIGINALLY LOADED 
5 scenes Serre 7" 
6 *eeeke PROG 87 *#e e682 74 
pee. UPD SBROSEAS RERTUBE, neo ae 0028 35 OF 0039 75 PLZ IAA21,X°OP* 2 LOAD P2-ARR,PSR,XR1 & XR2 
a 76 * WITH ~AA23~-. 
9 *eeaee THE ABILITY TO SELECT THE LSR*S eaeees - or cep Ao OaNONELE Se SOCAL : 
10 *eeaes ASSIGNED TO A SPECIFIC PROGRAS seeees ees vase . een) 
tases ERED ES eA t ees eee. e 002c F100 00 79 APL 0 2. ADVANCE TO PROGRAS LEVEL 1. 
~ : JUSP TO (STORY ‘ 
13 teeees PROG LEVEL 1 XR1,XR2,PSR & ABR canes a : : 
14 tances ARE LOADED WHILE IN PROG LEVEL 1. seeeee err ee ee Re ae ee 
15 seen PROG LEVEL 2 XR1,XR2,PSR & ARR cesene eeecae OF 028 a oe; Seer ae we LOC 20050 E G0Sse. 
16 *eeeee ARE LOADED WHILE IN PROG LEVEL 2. asses e 
17 xxet80 Seeene 
ADVANCE TO PROGRAM LEVEL 1. 
18 seeeee PROG LEVEL 1 XR1,XR2,PSR & ARR cess eee Eee 08 ae oe © ‘ JUAP TO (EHD) 
: 19 sexes ARE THEN STORED WHILE IN PROG sexes a 
: 20 *eeere LEVEL 1. oesees 
21 Reetee oneness :. 
22 teaees PROG LEVEL 2 XR1,XR2,PSR & ABR teeeee ete the 
gp snete rsptrabneGusn Guisd' a ee eee cone som con Je assaa ae muatssaa 
peers Renee es Ze 003A 0028 0038 92 ADPL2 DC  AL2(PL2) 
6 e 
26 eeeees IF THE DATA STORED IS NOT EQUAL seeeee ola: Seis eeu Seas 
27 teeees TO THE DATA LOADED, AN ERROR sesene anode Secneaee. ceo Cebus 
28 #esee8 | HALT WILL BE ISSUED BY PROGRAM seanee Pcie. Sh Gbwe  seouy “aeses 
29 sasees OR AN *A* REG CHECK WILL OCCUR eeseee oak, 2oeosuoe sou: aae 
30 #eee00 DURING EB CYCLES OP (STOR1) OR seseee | a he 
31 seeeee (STOR2) INSTRUCTIONS. teases ; 
32 *tee0¢ esese8 
33 KEKKAEKESSE SERS SEKESESSE KSEE ES ESE SEEKERS SSKESRSSEKESTAALSSCSTSEESSEEKSEEKESKESTESEEES SE 3 
34 
35 5 a 
36 © PROGRAM . | 
37 * | LEVEL | 
: 9000 FO 7F 07 38 HALT] HPL UNITS,TENS 1 PROG 87, HALT 1. IPL HALT | 
: 39 * x 
a a 
0003 35 OP 0037 42 L ISSA, X°OR¢ 1 «LOAD P1-ARR,PSR,IR1 & XR2 | 
43 * WITH -5S1A-. 
aa ¢ (CR IS SET TO PALSE,DEC OVPL & LO) 
85 : 
0C97 35 40 CO3B 86 L ADPL2,x*40* 1 LOAD P2-IAR WITH ADDRESS OP (PL2) i 
47 ! 
O00B P3 00 Ca 48 SIO. 4,0 1‘ ENABLE DUAL PROGRAR MODE 
a9 
000E F1 00 00 50 APL 0 1 ADVANCE TO PROGRAM LEVEL 2. 
* 51 * JUBP TO (PL2) : 
52 j 
0011 3% OF 0051 53 STOR1 ST  PAD,X*OF* 1‘ STORE P1-ARR,PSR,XR1 & XB2 
54 # Im LOC -0050 & 0051-. i 
55 
0015 F1 00 00 56 APL 0 1 ADVANCE TO PROGRAM LEVEL 2. 
57 * JUBP TO (STOR2). { 
58 
0018 F3 00 00 59 END SIO 0,0 1 DISABLE DUAL PROGRAM RODE. 
60 : - 
0018 OD C3 0053 0039 61 CLC DAP (4) ,XAA21 1 COMPARE DATA LOADED INTO BOTH PROG. 
62 * LEVEL LSE'S WITH TRE DATA READ OUT 
63 * OF THOSE LS&*S APTER ADVANCING. G { 
68 
0021 CO 81 0083 65 BE BOOT 1 GO TO BOOT IF DATA STORED SABE 
66 * AS DATA READ OUT. © £ 
67 
0025 FO 7F 07 68 HALT2 APL UNITS,TENS 1 * PROG 87, HALT 2. ERROR HALT. 
69 « * FAILURE: DATA READ OUT OF THE PROG C i 
TATE = 15SEP69 ss «14NOV69 = =«-209AN70 «=—s«13MAR70 «=—-«-010CT70. «= s«28APR71.— «OH ART2 PROG ID 0087-5 © ROG ID o0s7-5 
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an nen a eee Dee er ee Oe ee ee : : pane Ht IBM MATNTENANCE DIAGNOSTIC PROGRAS PART NO. 2589926 
275 CPU AWD NEMORY DIAGNOSTICS: PROGRAN 87 
es ee aren : ot - 0875 CPN AND MEMORY DIAGNCSTICS: PROGRAS 87 
‘ CROSS- REFERENCE { 

i OBJECT CARD LISTING 

SYSBOL T LEN VALUE DEFN REFERENCES | 

ADPL2 A 002. (03B 0092 0046 ol THF CHARACTER INDICATES A BLANK COLUAN AND THE CHARACTERS DE H INDICATE WUNERIC SBIPT. 

BOOT Cc 001 0083 C097 0065 | 
° cae c 001 0053 2093 0062 CL 1 THROUGH 16 CL 17 TREOUGH 32 CL 33 THROUGH &8 CL &9 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 96 
3 ERD a 003 ©0018 0C59 

HALT1 A 003 0000 0038 . 4 
z HALT2 A 003 0025 0C68 Se 2 e e ee oe eee ee ee e ° e oe @a2ee ee - -_ ee 
: Sib co. DO1 00s1 008s. odese ones asia, SF Te- 2aG3G(Ed (3N C73. «LY NCOA «a6 80 CBX FO) 90HD -"APABNY CX FT SCOAL@G HID DHE Q1Y08750001 
- PL2 A OC’ 0028 0C75 0092 2 aa he, 
= STOR1 A 0oos 0011 0053 ; ee Be ee + see atte eeaeeoee @aeseeeceoea een eoeneenee @eeenceceoeveen oe eeoene @eeseenene eee ennoenanaeaed @eeeeonveean eee eee eeoeeo 
" TENS C007 OCO7F 0096 0038 0068 AD ae dig ee ay ecg se tT af 70208750002 
# UNITS C 001 0007 90095 C038 0068 : ee. oe 
Y OVWETZ a CO coo0 0002 5 er ter SJ : * ; eve ceo 0 a) coe eco oe ene eeeeeseveee eesece 
a XARA2%7. aA 002 0039 0091 006% 0075 . , age 2 oe EMOeseETesrPC™ PHS ="7 MEP | 1 Cc Pg asc Ra SO Q 231301092710 2287208808750003 
i Z551A A 002 C037 C090 00a2 it Ea as 
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~ JBM MAINTENANCE DIAGNOSTIC PROGRAA Bana Noe: eeeee PAGE 1208 
¢€3aes cPu AND MEMORY PIAGNCSTICS: PROGRAS 88 \ cress CPU AND MEMORY DIAGNOSTICS: PROGRA® 88 
0000 2 UVWXYZ START 0 ; 70 
3 DECK 8 " 
GS SHESSEAHKTEA STKE SKSE HKKERSE CHKESSSHSSEAKREKSSESEKSSSSESTCECSEKSESHKSTSSESSESRSSSESSSESSS 72 
ae ‘ 73 eseee PROGRAM CONSTANTS 6 EQUATES 
e« poe 6a ‘ 0036 COTA 0037 74 ADP2. DC AL2(P2) 
76 saa. SORE aN a. @CASIEE-- eee * 0038 0013 C039 7 ADEND DC AL2 (END) 
8 « * : 
9% TEST (1) THE ABILITY TO BRANCH IM PROGRAA eo fees. Geingeee. ean aeeces 
10 * LEVEL TWO AND TO TURN ON ALL TRE * oe aegene an esas 
11 2 HALT ID LIGHTS IN BOTH PROGRAM = aoas i oe a aa i 
12 ; . 
lz LEVELS IS TESTED : peer as a5 
14 6 THE PROGRAM WILL CAUSE HALTS ‘88° - ; 
15 « TO OCCUR I8 BOTH PROGRAM LEVELS. eo 
16 * * 
17 PROGRAN LEVEL 2 HALT SHOULD BE * 
18 * RESET FIRST, THEN PROGRAM LEVEL * 
19 * OWE HALT SHOULD BE RESET. * 
20 * % 
‘ QL SEES SSEERE KKESKK SESE SSEKESEEKE ST EKATAE SS EE SEAKEKKTSERSESRSKISKSRKEKEKSSESSSESESSKOESRS 
22 * PROGRAK 
23 * LEVEL 
2 occo PO 7P 7P 24 HALT? PL UNITS, TENS 1 PROG 88, HALT 1. IPL HALT 
25 * 
26 * 
0003 35 4&0 0037 27 PI L ADP2,X*g08 1 LOAD P2-IAR WITH ADDRESS CP P2 
28 ; 
0007 P3 CO 04 29 SIO X08", x00! 1 ENABLE DUAL PROGRAM MODE 
30 
000A PO 7P 7F 31 HALT2 HPL UNITS,TENS 1 PROG 88, HALT 2. EXPECTED HALT. 
32 | : 
000D F3 0C 00 33 ERR’ SIO. 0,0 1 * DISABLE DUAL PROGRAB BODE , 
34 
0010 FO 7F 7F 35. HALT3 HPL UNITS, TENS 1 * PROG 88, HALT 3. ERROR HALT 
36 * * PAILING CARD@ A-B3Q2 
37 * * PAILING PUSCT 1 
38 + . 3 
39 * a Sie 
80 | 
0013 F3 00 00 81 BND SIO 0,0 1 DISABLE DUAL PROGRAS SODE Z : 
a2 
0016 CO 87 C083 43 B BOOT 1 GO TO BOOT. 
a4 : 
as ¢ 
86 
a7 - i 
001A CO 80 0022 88 P2 BC  &RR2,NOOP 2 O-OP BE TO ERR < 
a9 
CO1E CO 87 0028 50 B HALTS 2 UNCD BR TO EXIT g 3 
51 S 
0022 P3 00 00 52 ERR2 SIO 0,0 2 © DISABLE DUAL PROGRAN RODE 
53 t 
0025 FO 7F 7F 54 HALTS APL UNITS,TENS 2  * PROG 88, HALT 8. ERROR HALT @ 
55 « * PAILING CARD@ A-B302 
56 + * PAILING PUNCT 1 | 
57 « G 
58 
59 € 
‘ 0028 FO 7F TF 60 HALTS HPL UNITS,TEMS 2 PROG 88, HALT 5. EXPECTED HALT OT 3: 
61 
| 62 ‘ 
" 002B 35 20 0039 63 L ADEND,X*20° 2 LOAD P1-IAR WITH ADDRESS OF END c 
64 | 
002F F1 00 00 65 WAIT APL O 2 ADVANCE TO PROGRAM LEVEL O"R. é 
1 § 66 * JUMP TO END WITH P1 HALT LATCH C 
67 * STILL SET. : 
5 68 2 
i (0032 CO 87 CO2F 69 B WAIT 2 LOOP OW APL UNTIL HALT IS RESET qe]. 
86-5 f 
i BATE 15SEP69 16N0¥69 § 203AN70 138AR70 010CT70 28APR71 01MAR72 PROG ID 00se-5  ~ DATE 15SEP69 18Z0V69 203A N70 13MAR70 010CT70 25aPe71 ornan72 pzoc ID ooaees 3 
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0868s CPU AND MEMORY DIAGNOSTICS: PROGRAM 8&8 


CROSS~REPER ENCE 


SYMBOL T LER VALUE 


DEFW REFERENCES 
RDEND A 002 0039 0075 0063 
ATP2 A 002 0037 0074 0027 
Boot c 001 0083 C080 00483 
END A 903 0013 0041 0075 
ERR A 003 00CD 0033 
FRR2 A 003 0022 0052 c0a8 
HALT? A 003) «C000 «(0028 
HALT2 A 003 OOOA 0031 
RALT3 A 003 C010 0035 
HALTGO A 003 #0025) «(0058 
RALTS A 003 0028 0060 0050 
NOOP c 001 0080 0077 0088 
Pp! aA 0c&e 0003 6027 
P2 A 008 COTA 0088 0074 
TERS c 001 OO7F CC793 002% 0031 0035 0058 0060 
DURITS C 001 OO7F 0078 0028 0031 0035 0058 0060 
ovVWXYZ A 001 C000 C002 
GATT A 003 002F 0065 0069 
TOTAL STATEMERTS FLAGGED IN THIS ASSEMBLY = 0 
DATE 15SEP69 14N0V69 203A N70 138AR70 010CT70 28APR7 1 O18 AR72 
ec nO. 816899 616559 816576 816638 816756 8167868 618693 
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T2TAa 


cess CPU AND MESORY DIAGNOSTICS: PROGRAM 88 


OBJECT CARD LISTING 


THE CHARACTFR  JNDICATES A BLANK COLUMN AND THE CHARACTERS DE H INDICATE WUNERIC SHIFT. 


CL 1 THROUGH 16 CL 17 TROUGH 32 CL 33 TRROUGH 48 CL 499 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 96 


e oe ° ee ee e e ee on ee e eo @ 2 @ e ee 

T+E BAG" (MR (RKC ALAMO FAM aM <BG Hi - SOR* HI< JAM RPATRSB OM cxt c s0 ? AY po «xcé08ss0001 

EW" SE7¢=—DC"PHS ="7NErF} 1 OC “Tos "asc oR A SO) OQ 21301012710 228723,608650002 
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pe oe Ow wm ww ww = ww ww ow 0 0 LAST PAGE oe er re re ee ree 
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PAGE 122 PAGE 22a 


0895 CPU ARD MEMORY DIAGNOSTICS: PROGRAM 89 C895 CPU AND MPMORY NIAGNCSTICS: PROGRAN 89 


ERR LOC OBJECT CODE ACDR STAT SOURCE STATENENT CROSS- REFERENCE 
0000 s UVEXYZ ee : | SYMBCL T LEN VALUE DEPN REPERENCES 
4a RSESKTKSSSEKK SESH KEKKSKESSEKLSE CHES TKEKSEKESSSEKESKSESKREH SESS HEEHHERERESSSESSEHESESOE ADPRSFT A 002 0028 0087 0020 0036 
5 seeees PROG 89 rere BN0T C001 083 0052 0037 
6 seceee weeree HALT? A CO3 0000 0017 
Jy seastee INTERRUPT LEVEL 0, DUAL PROGRAN Sttses HALT? A 003 0023 0039 
a FEATURE TEST eee PAD  € 001 0951 0049  0025* 0028* 0033 0036 
aoe vee RESPT A 903 C012 0931 0085 0086 0087 
Ve eeeees ee STOR1 A 008 (COOA 0025 
i eeees eeeere STOR2 A 00& OOOE 0028 
12 SRESEKCKT LESS CKKASESKTKK SS STEVE SHKESSSE SSSHLSEKSSSTSKSSSTSKESKHSSSESSESESSSSESSEESSS STCP3 a nog 00 15 0033 
43 TPNS C901 OO7F 0051 0077 0039 
. 1s UNITS C C01 O005F 0050 0017 0039 : 
rs UVWxXYZ A 004 C000 0C02 * 
0900 FO 7P SP 17 HALT1 HPL ONITS,TENS PROG 89, RALT 1. IPL HALT TOTAL STATEMENTS FLAGGFED IN THIS ASSEMBLY = 9 3 
18 * ci 
19 * ae 
0003 35 80 002k 20 L ADRSET, X°80° LOAD INTERRUPT LEVEL © IAR WITH : 
21 2 ADDRESS OF RESET. + 
22 
‘0007’ F3 00 06 23 SIO. _-X*06*,x*00° ENABLE INTERRUPT LEVEL 0 : 
24 . 
000A 3&3 80 0055 25 STORI ST PAD+8,x°80° STORE INTERROPT LEVEL O TAR IW : 
26 * LOC -55 & Su-. ! 
27 i 
OOOP 34 80 0053 28 STOR2 ST PAD¢2,X*80! STORE INTERRUPT LEVEL O IAR IB ; 
29 * LOC -53 & S52-. 
30 $ 
0012 P3 00 01 31 RESET SIO xX'01*,x*008 RESET INTERRUPT LEVEL 0 (IP ACTIVE) 
32 
0015 38 80 0051 33 STOR3 ST PAD, X*80¢ STORE INTERRUPT LEVEL O IAR IS < € 
34 © LOC -51 6 50-. 
35 
0019 OD 05 0055 C028 36 CLC PAD#& (6) , ADRSET BRANCH TO BOOT IF INTERRUPT LEVEL 0 & 
O01F CO 81 0083 37 BE BOOT IAR WAS OK POR STOR1, STOR2 & STOR3 . 
38 
0023 FO 7F SF 39 AALT2 HPL UNITS,TENS * PROG 89, HALT 2. ERROR HALT. € 
ee 80 * * FAILING CAKD@ A-B392 
: a1 ¢ 
: a2 * c € 
a3 
48 *#8%8% PROGRAM CONSTANTS EQUATES 
0026 0012 C027) 85 pc AL2(RESET) 
0028 0012 CC29. #6 pc AL2 (RESET) 


002a 0012 0028 $7 ADRSET DC AL2 (RESET) 


0051 49 PAD EQU x*51¢ 
OO05P 50 UNITS EOD x¢sre 
OO7F 51 TENS £ou x¢7F¢ 
C083 52 BOOT £Qu x*E3¢ 
FFFP 53 END 
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‘ € 3 
, € 3 
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(89S CPU AND MEMORY DIAGNCSTICS: PROGRAA 89 
OBJECT CARD LISTING 


@ 


THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


CL 1 THROUGH 16 CL 17 THFOUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 
* THO ,@G°.(0 A™< ATK EN4- AL@O A(H MEGE EN HaB A Hj0-S@ D- K AH 96*08950001 
E"*OSE7*=SADC"PHS ="THEF} | C FR asC BRA SO Q 21301012710 2287238608950002 
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OBAS 


ERR LCC OBJECT CODE 


0000 


Cots FO 7F 
0003 35 80 
0007 F3 00 
COOA CO 87 
OOOF 35 20 
cot2 co 8m 


0016 CO 87 
OOTA F2 87 


01D F3 On 
9020 35 20 


0024 ¥F3 00 


0027 FO 7F 


O02a 0027 
002c 0083 
OO2E OCOF 


LATE 
EC NO. 


ae 
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3P 


002P 
06 

OOOA 
CO2R 
0024 


COIL 
07 


00 
002D 


01 


3F 


ISSEP69 
816899 


ADDR 


C028 
c02D 
CO2P 
003F 
CO7F 
FPP 


TaNOv69 
B1E5S9 
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PART ZO. 
PAGE 


2589926 
23a 


STMT SOURCE STATESENT 
2 UVWXYZ START O 
3 DECK & 
4 SSESCKEHSE SESSESKSHSTETSSESEHHSS SEC SKSEHEESEHKSESSSESHHESESHTISES $0 SSSHEOKEOEESES 
5 PROG BA * 
6 * INTERRUPT LEVEL 0, DUAL PRCGRAS s 
7 PEATURE TEST e 
ae s 
9 * TEST (1) Int O ITAR/ARR SELECT s 
10 « (2) ALO BIT 7 s 
ee s 
12 # 2 
13% s 
18 RHTHTE SESS SSESKSSHKSSSSSESSS FS SS SHSSE SK SESS SSSHSESSSSSCSESSHSSESSSSESSEEPSSSHSSSESKS 
15 
16 
17 HALT1 APL UONITS, TENS PROG 8A, HALT 1. IPL #ALT 
18 © 
19 * 
20 
21 L ADINT,X*°80°* LOAD Yuet LEV O XARB 
22 
23 SIO -X¥*06*,x*008 ERSABLE INTERRUPT LEVEL O 
28 
25 LOOP 8B Loop SAIT HERE POR INTERRUPT 
26 
27 INT L ADHLT2,X*20° LOAD PROG LEVEL 1 IAR TO HLT2 ADDR. 
28 
29 wOOP BC RESET, X*°80* NO-OP BRANCH 
30 
31 UNCD B REBLD UNCONDITIONAL BRANCH TO HEWLD 
32 J RESET GO TO RESET IF UNCD PAILED. 
33 
38 NEWLD SIO 0,0 DISABLE DUAL & Int 
35 L ADBOOT,xX*20° LOAD PROG LEVEL 1 IAB TO BOOT ADDR. 
36 
37 RESET SIO x*01*,x*008 RESET THE INTERRUPT 
38 
39 HALT2 HPL UNITS, TENS * PROG 8A, HALT 2. ERROR HALT 
a0 * * PAILING CARD# A-B3Q2 
a1 © * PAILIBG PUACT 1,2 
82 * 
a3 * 
aa 
8&5 
86 ADHLT2 DC AL2 (HALT2) 
47 ADBOOT DC XL2* 0083° 
88 ADINT DC AL2 (INT) 
89 UNITS EQU xXx®*3B¢ 
S50 TENS £00 xXx*7F* 
51 END 
20JAN70 138AR870 010CTIC 26aPR71 018aR72 PROG ID 008a-5 
816576 816638 816756 816788 818693 PAGE 1238 
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PaGf 128 PAGE IZGA 
teas CPU AND AERORY DIAGNOSTICS: PROGRAR BA osas CPU AND MEMORY CIAGNOSTICSs PROGRAM SA 
CROSS<-EEFER EXCE o OBJECT CARD LISTISG 
SY8BOL T LEN VALOE DEFN REPERERCES e saws 
TRE CHARACTER INDICATES A BLANK COLUSN AND THE CHARACTERS D ZB 8 INDICATE WOMERIC SHIFT. 
:; ADBOOT A 002 O02D 0087 0035 
© ADALT2 A 002 0028 0086 0027 CL @ THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH S58 CL 49 THEOUGA 68 CL 65 THROUGH 80 CL 81 THROUGH 96 
*  ADIRNT A 0O2 CO?F c0asB 0021 % 
BALT1 A 003 0000 0017 ; 
BALT? A 003 0027 0039 00a6 . @ ee eo ee oe e @ e @2e2e oe e s eo e@ @@e8e0ae08 000808 eeeno 
Int A 008 0008 0027 0038 . T.C0 27aGa"(9O .*K< AZBG YSH ,O0H I<BG A72/0-~3 5H a0 AaGa®* BF -0 + 3k208050001 
Loop A 008 000A 0025 0025 
NEELD A 003 O01D o038 0031 a eo0e ees es ee ees eee 2 eee eeeeeeeeod @ @eeeoe 
WOOP A 004 0012 0029 4 BP" len7eeaPC "PHS ="THEP{ 1 c FE asc RA SO Q 21301012710 2287285 08A50002 
RESET A 003 0024 0037 0029 0032 i 
TEWS Cc 004 CO?F 0O059D 0017 0039 7 
URCD aA 0C& 0016 6031 ote di ty é 
ONWITS ¢ 001 CO3F 0649 0017 0039 
OUVBXTZ A OOF COOd Hf02 meer? Bot ; 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 . 
ef 3 
€ z 
$ / 3 
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e|- | | 2 
e;° 3 
wee 
€ z 
C z 
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IBM MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 2589926 TBR RMINTERANCE DTAGNOSTIC PROGRAM PART BO. 2589926 
PAGE 125 PAGE 1258 
C&c5 «CPU AND MEMORY DIAGNOSTICS: PROGRAM 6C GRCS CPU AND MEMORY DIAGNOSTICS: PROGRAR 8C 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATENENT t éciecsaveussice : 
0000 : UVEXTZ core : _ SY#BOL T LFN VALUE DEPN REPEREWCES r 
& ES EEREESEE REESE OHEEESE TEESE DEESRE SE SEESE SEES SESESS SHES SSSS HSER ESSSTHS ES , ADIRNT A 00? c0279 0085 0017 . 
5 ¢ PROG 8C os ALLV12 A 002 CO2D 0087 0037 
6 ¢ INTERRUPT LEVEL 0, DUAL PROGRAR es ADP? A 002 CO2B 0086 9025 2 
7% PEATORE TEST : ADP2. A ©02 C027 0086 0016 
8 * . BOOT C 00% 0082 CC5O 0033 
g SREEEEOESROERESSEEEESEE TEE HBSEEETEESSEEEESSES CETESEEEHESESESEERESESHSSSSSES OS . RALTI A 003 0000 0012 § 
10 HALT2 A 003 COOE 6020 00a8 
1 a INT A 008 O01P 0037 0085 
0000 FO 7F 6C 12 HALT? HPL UONITS, TENS PROG SC, HALT 1. IPL HALT . LVi2 4 008 «40011 «0025 0087 
13% Pl A903 0018 ©0314 0086 
eee. - TENS C001 0O7PF CC89 0012 0020 
Oe 1S ~ DRITS C 001 006C 008 0012 0020 
0063 35 60 C027. 16 L ADP2,X*40* LOAD P2 IAR UVWXYZ A 001 C000 0002 
0007 35 80 0029 | 17 L ADINT,X*80° LOAD INT LEVEL 0 Iag 
coon F3 00 06 18 szo x*06" ,x*00* ENABLE INTERRUPTS & DUAL PRCGRAB TOTAL STATEMENTS PLAGGED IN THIS ASSEMBLY = 0 
19 : 
00GE FO 7F 6C 20 HALT2 RPL UNITS, TENS PROG 8C, HALT 2. EXPECTED HALT. 
21% P16 P2 LOOP OW THIS HALT = : 
22 * UNTIL INTERRUPT IS TAKED. ! 
23 * { 
28 i 
0011 35 20 CO2B 25 Lvi2. soi ADP1,x°20° PUT P1 ADDRESS IN P1-Iak i 
26 * IF IN PROG LEV 1 THIS WILL CAUSE - 
27 « A BRANCH TO LOC P1. a z 
28 
0015 F1 00 CO 29 APL oO ADVANCE TO PROG LEV 1 (L¥12) 
30 S é 
n018 F3 00 00 31 Pi S10. 0 «0,0 DISABLE DUAL PROG MODE & INTERRUPTS 
32 
001B CO 87 C083 33 . B Boot GO TO BOOT @ 3 
38 wigs. 
35 
36 ee 5 
OOF 35 60 002D 37 INT 3 ADLV12,X*60° LOAD P1 & P2 IARS WITH LV12 ADDRESS \ 
38 
9023 F3 00 07 39 SIO x*07",x*00* RESET THE INTERRUPT e |; iS 
a0 * BOTH P1 & P2 HALTS SHOULD RESET iv rar 
ui * BY THIS INSTRUCTION. 
82 @ | 3 
43 - 
0026 O00F 0027 4& ADP2~ DC AL2(HALT2) 
0028 CO1F CC29. 8&5 ADIRT DC AL2 (I8T) G 3 
002A 018 002B 486 ADPT DC AL2(P1) 
002¢ 0011 002D 8&7 ADLV12 DC AL2 (LV12) 
006C 48 UNITS EQU x*6C* Ge; 2 
CO7P 49 TENS 200 xX*7F¢ 
0083 SO BOOT £00. 131 so 
FYPF 51 END fe z 
c 4 
cS a 2 
{ 
€ pm z 
€ |: 2 
jt 
41> 
« | S: 
¢ 2 
LATE 1SSEP69 1GROV69 2034 N70 138 AR70 010CT70 28aPR71 O1HAR72 PROG ID eoec-5 © | oosc-S <= 
DATE 15SPP69 1GNOV69 203AN70 138 AR70 010CT70 28APR71 01mAaR72 PROG ID 2 
BC HO. 6176899 $1€559 816278 o18e38 SteI5e eieies e16e93 PAGE 125 | 8C WO. 816899 816559 816576 816638 816756 816788 8168693 PAGE 1253 
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TBR BAINTEWANCE DIAGNOSTIC PROGRAN PART KO. 2589926 IR® MAINTENANCF DIAGNCSTIC PROGRAN | PART #0. 2589926 
aa PAGE 126 PAGE 126a 
C8CS CPU AND MEMORY DIAGNOSTICS: PROGR‘M 8C . O8PS CPI AND MEMORY CIAGNOSTICS: PROGRAM BP 
OBJECT CARD LISTING ; ERR LCC OBJECT CODE ADDR STMT SOURCE STATERENT 
| ° toa, 3 0000 2 UVWXYZ START O 
THE CHARACTER INDICATES A BLANK COLUAN AND THE CHARACTERS DE H INDICATE RUMERIC SHIFT. is 3 DECK & 
Q CHEEK SHEKTE SHE EEETIESSEESS OSE SEOEHE EH SEHSSESHSEEESHSHOH8ESHHHSHHSOEESOESS 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 648 CL 65 THROUGH 80 CL 81 THROUGH 96 5 * 7 
c 6 * PROG 6P CONDITION RESET-CLEAR * 
7 * 
= ee 2.2 s.2 oe ee es ° ° oe e os @ ° @eoaensede0ee00 ea@aee0 § * THIS PROG WILL ALLGW IRTERPACE BETYZEW ceo & SEsSorY s 
T.6 _@6°%(a 130 BX3 $0-~605H 796 a0 OH* -3H =~ B73 & Ce wae DE #az08C50001 G 9° TESTS BY CLEARING ‘TEST PALSE*® ABD *LOGICAL OVERPLOS* * 
10 * CONDITIONS . 
eee one e ee eee eon es eee @eecoeoeaeed @eee2een 14 * . = 
ESwt SE7tenDC@PHS =<"7HEF] 3 C P&E o6asc)lURhAlCUSO CQ 21301012710 22472*$608C50002 “> 12 © NOTE: TRE PROG WILL HALT SITH A -8P- EALT BEPORZ THE AESORY e 
13 TESTS ARE EXECUTED. RESET THE -8P~ HALT TO RUB THE AERORY® 
18 * TESTS e 
te 15 © ®. 
16 HSS KSESCES SEEKS THESSSSEEHES SHS SKETCHES SESTSSES SETTLES SESE HSSSOLES FS OSSSBSERBECOS 
17 
CG 18 
¢ i 19 
aes ; OCOO FO 7F 3E 20 HALT1 APL X*32B*,X°7PF* PROG 8P IPL SALT 
: de o 0003 F? 90 00 21 JP B -RFSET "TEST PALSE® 
: OCO6 OF 01 0014 0014 22 B ALC ZERO, ZERO (2) eCLEAR *LOGICAL OVERFLOE® 
23 
REE O30 FO 7PF 32 24 HALT2 HPL X*3E°,x°7P9 * PROG 8P,HALT 2. EXPECTED 
f 25 * * NOTE: RESET HALT TO RUB 
| r 26 * * HEASORY TESTS 
CAS & 27 ¢ 
: 28 * 
ty COOF CO 87 C083 29 B BOOT -RETURE TO BOOT 
oe 30 
31 
0013 0000 0C18 832 ZERO dC XL2°0° 
e gf 0083 33 BOOT £00 131 
. PPFP 34 END 
+ 
e¢ 
3 e | ee 
ig | 
€ 
Cc 
& 
CG 
Cc 
CG ~ 
G 
ec | 
cj. 
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IBM BAINTENANCE DIAGNOSTIC PROGRAN PART HO. 2589926 IRM MAINTRRANCE DIAGNOSTIC PROGRAA | PART HO. 2589926 
| PAGE 127 PAGE 1278 
gaps CPU AND RERORY EIAGKOSTICS: PROGRAM 8P {sg BPS) CPU AND MEMORY EIAGNOSTICS: PPOGRAA 8P | | 
i . rede aaa OBIFCT CABD LISTING 
“ S¥NBOL T LEW VALUE DEFN © REPERERCES P ae 
é THE CHARACTER INDICATES A BLANK COLUAN AND THE CHARACTERS D E # INDICATE BURERIC SHIPT. 
® A 006 cocé c022 0021 
~ g00T ¢ 001 0083 0033 0029 CL 1 THROUGH 16 CL 17 THPOUGH 32 CL 33 THROUGH 46 CL &9 THROUGH 6% CL 65 THROUGH 60 CL 81 THROUGA 96 
“ GALT? 4.003 C000 C020 
| @AET2 2003 000C 0028 
es €twryz A 001 0Qo00 e002 ee ae es ee e o seaeeeenvee eeoeooeoeenee eo eexecoaeeeeoeooneeoeee 2eeeoaneeneeneeeooee ee2en2e 
ZERO A 002 0018 0032 0022 00228 | é Te wacazez C-D E maGa=0Hn® -0 ) S308P50001 
' GOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 a a ae ae, ae ee Dus eeioneuee. aeees 
: é EMweee7exenDC@PHS ="7HEFE FC rt asc 8A SO Q 21301012710 2207268S608P50002 
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c ey F 
C. . ~ 
C 3 


rs 
Me ite / 
ow 
ba 





Cc 

o = 3 
C > 
oe 3 
CG : 
Cc 3 
ef _ 2 
ej. 4 
ei. 4 


& 
2 





owwee eee es SO cee Coe oe Oe Be eee Cet CO Cw eeeteeee LAST PAGE ow wus: EES OOP 
_ BATE 1SSEP69 14nO VES 2034970 T3HA870 010CT70 28aPR71 O1MAR72 PROG ID oospe-s £ DATE 15SEP69 14NCV69 20Jan70 138 AR70 010CT70 28aPBa71 O1s8an72 PROG ID cose-S 3 
 “C WO. 8164899 816559 816576 816638 816756 816788 818693 PAGE 127 EC RO. 816899 816559 816576 816638 816756 @16788 818693 PAGE W278 
.: ; ets | . 





IBA MAINTEWANCF DIAGNOSTIC PROGRAA 


0505 CPU AND MEMORY DIAGNOSTICS: 


ERR LOC OBJECT CODE 


ocoo 


9000 P2 FO 
0003 F2 FO 
0006 F2 FO 
0009 CO 87 
OCOD 4080480 


Fey 


0010 FO BO 


0C13 408080 
. 0016 Oc 17 
i o01c CO 87 


0020 FO AO 


RAS, 


0060 

0060 FO SP 
0063 C1 FO 
0067 31 FS 
O06B F3 FI 
OQO6E C1 F1 


0072 CO 87 


0076 0000 


DATE I5SSEP6 
BC KO. 816899 


@eeeeoeeeoeeeaeaeeeaeeeaeeaesen1dseeedeeeeeegdedeeeese 0:0 


70 
bo 
FO 
0016 


FO 


0077 
0063 


FO 


6P 


c060 
0077 
CO6E 


0003 


9 


OOOF 


0015 
CO3A 


C077 
FFFP 


TUNO V69 
81€559 


WOGWHAWS WA 


10 
11 
12 
13 
18 
1S 
16 
17 
18 
419 
20 
21 
22 
23 
24a 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
a0 
a1 
82 
83 
aq 
a5 


ay 
48 
a9 
50 
51 
52 
53 
548 
55 
56 
$7 
58 


PROGRA® 90 


ADDR STMT SOURCE STATENERST 


UVWXYZ START O 
DECK 4 
PESASSHESHE SES VES ESKETS HE HESTHLSSHS SES SSHTCSKES HEE SS ERECSSLESSSHTSRERES HE 


Searee 
eseeee 
Sesree 
RETSSS 
Begess 
HESEGER 
Resse ee 
Saeeee 
eSSRCS 
&ee0e8% 
SSEsee 
eee 
eee ee 
seeeee 
SSeees 
&Oe20% 
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SSeszese 
sesese | 
REMORY DIAGHOSTICS aeeese 
seeuce 
PROG 90, SAR DECODE eeeeee = - 
Seszece 
Seoeesesg 
THE LOADER WILL MOVE ITSELF INTO HIGHER CORE sesese | 
Sees 
TESTS (1) SAR DECODE LOGIC esesee 
SAR BITS 15,14, 13, 42,11, 10,9 esenee = (; 
Stsaea 
NOTE: ‘*A* PUNCH SUST BE ENTERED IN COL 65. easeen 
THIS WILL GIVE A CORRECT Q CODE VALUE eesese (: 
POR SAR BIT 14 PAILURE. seeees 
S2eeese 


SELES CRESTS SSTSTE TEES SAKES SAKEKEKEKRES ST SVSESTSEKSEKS KE SKEKESEOSLRS SHESEHISAESS C 


: Jc 


ROVE 


HALT! 


LOADER 


TEST2 


BUPP 


203AN70 
816576 


ac 
ac 
8 

pc 


APL 


oc 
avec 


HPL 
ORG 
HPL 
TIO 
LIo 


sto 
TIo 


be 
END 


13HAR70 
816638 


X*FO*,x*PFO* 
X*DO® .X* POF 
xX°FO*",xX*PFO?* 
HOVE 

CcL3°* 8 


X*PrO* ,X*BO* 


CL3* e 

BOPP (28) ,X*3a° 
LOADER 

X*PO* ,x* a0? 
x*60* 

X*OF* ,.X°SPF? 
LOADER-3,X*FO* 
BUPF,X*F5* 
X°Q5* xe Pye 
TEST2,X°F1* 

3 


XL2*0000* 


010CT70 
816756 


28aPR71 
816768 


8O-OP 
¥O-OP 
NO-oP c 
BRANCH TO MOVE 
& 
€ 
SAR BIT 11 FAILURE. 
€ 
HOVE THE LOADER TO HIGHER CORE 
GO READ NEXT CARD € 
SAR BIT 10 FAILURE € 


rN 


PROG 90, HALT 1. SFCU NOT READY. 


TEST MPCU FOR WOT READY 

LOAD SFCUD READ ADDRESS BUFFER LSR 

READ NEXT CARD IN IPL FORMAT. GS 
BAIT HERE TILL BUSY DROPS 


EXECUTE NEXT CARD ¢ 

G 

G 

G 

G 

O1HAR72 PROG ID e090-5 € 
818693 PAGE 128 
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IBS MATHTENANCE DIAGNOSTIC PROGRAM 


e905 Cri. AND BEMORY LCIAGNOSTICS: PROGRAR 90 


CROSS-REPER BCE 
SYMBOL T LEN VALUE DEPN PEPERRNCES 

BUFF A 002 09077 0057 0038* 0050 

HALT? A 003 C060 0086 

LOADER A 008 0063 0089 0039 0089 

ROVE A106 0916 0038 9029 

TEST2 A 008 O06E OCE2 0052 

DVWXYZ A 001 0006 0002 

TOTAL STATENENTS FLAGGED IN THIS ASSESBLY = 0 
DATE  15SEP69 18N0¥69 20JAN70 138AR70 010CT70 
EC NO. 816999 816559 816576 816638 816756 
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OTHAR72 
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PROG ID 
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126A 


0090-5 
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THE CHARACTER 


PROGRAM 90 


OBJECT CARD LISTIRG 


INDICATES A BLANK COLUMN AND THE CHARACTERS D E WH INDICATE NOMERIC SHIFT. 


PART NO. 
PAGE 


2589926 
129 


‘| CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 6&4 CL 65 THROUGH 80 CL 81 THROUGH 96 
e se ° e e ° e e e eee veoeeedeeeeoe @eeeneveeaenecoeoeneeonne eeeeoe 
“ PH- Sa?COB?CEG7C COH* EDA &{BOGDA & OP Ge +8BG FE CTI 2209050001 
° PROA7@E'20~ OCG S G~3OMFAEAD>OR* 0 & 709050002 
= EM"OeE7e=WDCYPHS ="7THEPY | Cc FX aSC BA SO Q 21301012710 224%721,609050003 
SOO OOOO DOSS A > > Tie ae ite a ae Ree Sawa ae Re ewee oo wme wr ae aw we LAST PAGE ee OF OOO ES BE © BS OS OOS OO S BB BOS WS S OBO BOSS SSOSBOOSTOO 
DATE.  15SEP69 1sHOV69 2030870 13MAR70 010CT70 28AaPR71 0 1NAR72 PROG ID 0090-5 
BC HO. 816899 816559 816576 816638 816756 816788 818693 PAGE 129 


2 
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PART RO. 2589926 


PAGE 1298 
0915 CPU AND MFMORY DIAGNOSTICS: PROGRAA 91 
FRR LCC OBJECT CODE ADDR STAT SOURCE STATEMENT 
00ce 2 UVWXYZ START O 
3 DECK 38 
4a BSSHTTHSHFSSEHEHSESSESESSE eee SHTSHSKE SHSSHESSHHSSS SSSSEASTSHH SS SHHSSSSVHSSESS 
se MEMORY DIAGHOSTICS ° 
h« PROG 91, SAR DSCODE ° 
7* : 
ge THIS PROGPAN TESTS FOR PROPER DECODIEG ° 
9¢ OF SAR BITS 8 THROUGH 2 AND THE ABILITY ° 
. ¢ TO ADDRESS CORE LOC 128 THROUGH 16, 383. . 
e : 2s 
12 SSSETSEHSSSEKASSSSSESESSSSSSSESESESESESSESE SS SCESSE SST SSSSSE SSS EHKSSSHEESHSE SES SESETS 
13 
1% 
e000) 15 SING AALT1,XR2 
9000 FO SF 03 16 HALT? HPL 4x°03°,x°SP? PROG 91, HALT 1. IPL SALT. 
ceo3 c2 02 coro 17 LA HALT1,XR2 «SER UP BASE REGISTER 
0007 30 CO 0050 18 SNS  CORSIZ,0 .DETERNINE IF SAR BIT 2 IS TO BE 
000B 3D 20 O0eF 19 CLT CORSIZ-1,x°20° TESTED. IF MORE THAR 8K OF CORE, 
O000F F2 82 08 20 IL LD TEST SAR BIT 2. 
0012 3c 20 00278 21 AVI COBP41,x*20° 
22 
001€ C2 01 0080 23 LD LA x°0080*,XE1 LOAD XR1 WITH HIGHER CORE ADDRESS 
28 
007A 7C CO 80 25 MMVI 68 (,XR1),X°008 BYPASS 
OCO1P 3c FF 0080 26 AVI 68,X°PP* HALT IF 
0021 7D FF &0 27 CLI 68(,XR1) ,X°PFe SAR DECODE 
0028 P2 01 03 28 JNE COMP WAS CORRECT 
29 
0027 FO 80 10 30 RALT2 HPL  x*10*,x*s08 * PROG 91, HALT 2. EP°OR HALT 
31% * PAILURE: SAR DECODZ. THE PAILIEG 
32° * SAR BIT IS DISPLAYED I8 
33 * * THE Q REGISTER 
34 6 
35 @ 
36 
002A 3D 30 028 37 CONP CLE #ALT2¢1,x°30° EXIT THIS PROGRAS IF SAR BITS 6 TURD 
002F EC 81 63 38 PE LOADER(, X82) 3 (2 IF >8K ) HAVE BEEN TESTED. 
39 
0031 AE 01 19 19 a0 ALC LD¢3(2,XR2),LD¢3(,XRZ) DOUBLE HIGHER CORE ADDRESS 
0035 AF 00 28 29 a1 SLC AALT2¢1(1,XR2),HALT2¢2(,XR2) CECREMEsT BALT DISPLAY 
0039 FO 87 16 82 B LD (,XR2) GO TEST NEXT SAR BIT 
83 
a8 
ccot = &&S_saxR1 zou (oi 
C002 86 ER2 fou 02 
0063 &7 LOADER £00 x*63° 
C050 88 CORSIZ £EOU 80 
FPFF 49 END 
4 
DATE 1SSEP69 1480V69 203 AN70 13HA870 010CT70 28APR71 0188872 PROG ID 0091-5 
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PAGE 130 PAGE 130A 
ae 091s cPD AND MEMORY DIAGNOSTICS: PROGRAM 91 C915 CPU AND MEMORY CIAGNOSTICS: PROGRAN 91 
a ee : oo CROSS- REFERERCE OBJECT CARD LISTING 
SYEBOL T LPN VALUE DEPN REFERENCES : 235 tsa i 
| TRE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D & H IBDICATE WOMERIC SHIPT. : 
COMP «6A 008 «6002A) «(0037 0021* 0028 
CoRSIzZ C 001 6050 C048 0018* 0019 CL 1 TRROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 88 CL 49 THROUGH 6&8 CL 65 THROUGH 80 CL 81 THROUGH 96 
HALT? A 003 0000 0016 0015 0017 2 
RALT2 A 003 0027 0030 C037 0087 O041* 
Lo a 008 0016 0023 0020 0080 0040* 0082 : bea ates Wed Ye a er ee ge. te ec: gt Soke ° . 
LOADER C 00% 0963 0(87 0038 Te- :@EaCO-H C FP *H AJ@YHDIB HOHA HA@ D @"0A 8 ~~* a-DCaH BIL H*¢BAQ:SAPIW? B- Z8H* 69009150001. 
B¥eXYZ A 001 0000 9C02 
x£R1 c 0014 0001 ocas 0023 0025 0027 eee envneenneoe eeeaevreeeeeeeeeo ee @eseeneeneneeeaceeoes ececeeeneaeveoaneeeeoend eeeeeeeneeaoeeeeee eeoane 
TR2. C:0C1_ «0002 «0046 «= 0015.-:0017* 0038 0080 0040 0081 0041 0082 T oF =2%09150002 
TOTAL STATFMENTS FLAGGED IN THIS ASSEMBLY = ) eid wena Sa: Sola. eek wen sccccvccce ccces . 
© EPMOsETe=~PCePHS ="IHEPE Ff C PS asc RA SO Q 21301032710 228%72186C09150003 
€ 
€ 
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we 


vee 
Cd 


ew 
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tee 


oan, 





DATE 15SEP69 1aNOV69 203AN70 13HAR70 010CT70 28APR71 O1SAR7TZ pRoc ID oo91-5 § 


DATE © 15SFP6S «= BNOV69 =». 20JAN70 «= 13MAR70 ©=—«-«O10CT70.«s 28APH71 =O 172 PROG ID 0091-5 © 
EC NO. 816499 816559 816576 816638 816756 816768 818693 _ *PAGE 1308 


BC xO. 816899 816559 816576 816638 816756 816788 818693 PAGE 130 





we patie wt on teks 
a i) Ty Q n a a) ee ns P 
FCN A 0 APA A OCDE LET RT ATE OP OTITIS Ca ew comretaermmuantns “aerate 7 

( 
i) 

$ 
‘ 
4 
i] 

‘ 

' 

¢ 

' 

' 

( 

( 

' . 
‘ 

6 

( 

‘ 

‘ 

4 

t 

‘ 

' . 

' . 
‘ 

' 

’ 

‘ 

' 

‘ 

( 

' 

i] 

’ 

4 

‘ 

‘ 

' 

t 

' 

' 

J 

' 

c ae a a * a Me rd] ~ 


~ 
4 


Ceoeoeeeoeeeeeeeeeeeoeoeeeeeeeeeeeoeeeed 














*. YBN MAINTENANCE DIAGHOSTIC PROGRAM PART NO. 2589926 TBM MAINTRNANCE DIAGNOSTIC PROGRAA : PART #0. 2589926 
a =o PAGE 131 PAGE 1398 
0925 CPU-AND MEMORY DIAGNOSTICS: PROGRAR 92 09275 CPU AND MEMORY DIAGNOSTICS: PROGRAS 92 
* ERR LCC OBJECT CODE AIDR STMT SOURCE STATEMENT CROSS-REFERENCE 
0000 2 OVWXYZ START O 3 SYMBOL T LEN VALUE DEFR REPERENCES 
“, 3 DECK 4& 
ss QB ERKSSKESKKESEKKEKKSSEKSKKEKKEK SES SETKSKSE SKHRSESTKKKSKSSSSSKEKSEKESESESESSESSESESVSSESS BITO A 008 0002 0027 
: 5. s BIT! A 904 0027 0088 0030 
6 * MESORY DIAGNOSTICS * CORSIZ C 001 05C 0061 0022* 00248 0041 
: 7 PROG 92, SAR DECODE * HALT? A 003 0000 0020 
: 8 * * HALT2 A 003 001D 0032 
3 9 ¢ THIS PROGRAM TESTS FOR PROPER DECODING . | HALT3 A 003 C036 0089 ; 
x 10 * OF SAR BITS 1 & 0 AND THE ABILITY TO * LOADER C 001 9027 9062 0058 
a 11 ADDRESS CORE LOC 16,384 THROUGH 65,535. e. RETURN & 903 6939 9058 0042 0047 
“s 12 © = 3 TEST? A 008 0007 90028 i 
: 13% REPER TO THE MEMORY DIAGNOSTICS * TEST2 A 008 0020 C0481 0025 
¥ 18 * DESCRIPTION POR CORRECT SETTING OF * UVWXYZ A 001 0000 0002 
i 15 * THE CONSOLE ADDRESS SWITCHES. eo 
B 16 * * TOTAL STATEMENTS FLAGGED IN THIS ASSESBLY = 0 
: 17 * * 
x. 18 SKEET SESETKSEKSEFTEKESREKSKKESE TEKEETETEEKE $6 EERE EEBEEKESEERESHESEESSESEESEESESSESESEESS i 
= 19 
0000 FO SF 76 20 HALT? HPL X*76*,xX*SF# PROG 92, HALT 1. IPL HALT. 
21 % 
0003° 36 CO 0050 22 SNS  CORSIZ,0 STORE CONSOLE ADDRESS SWITCHES. 
23 
0007 3D 80 OO04F 28 TEST1 CLI  CORSIZ-1,X'80! BYPASS TESTING SAR BIT O IP CORE 
00OB F2 82 12 25 JL TEST2 SIZE IS 32 K OR LESS. 
26 
COOE 3c 00 8080 27 BITO VI xX*80K0",x*00* TEST SAR BIT 0 DECODE AND ABILITY 
0C12 3c FP COKO 28 MVI xX*0040* ,x' PF? TO ADDRESS ABOVE 32 K OF STORAGE. 
CO16 3D FP 8080 29 CLI X*8040",X*FF? GO TEST SAR BIT 1 IF SAB BIT 0 
901A F2 01 OA 30 INE BIT WAS DECODED CORRECTLY. 
31 
001D FO CO 6F 32 HALT2 HPL X*6F*,x*008 * PFOG 92, HALT 2. ERROR HALT 
33 © * PAILURE: SAR CECODE BIT 0. THE 
38 * * PAILING SAR BIT IS 
35 © * DISPLAYED IN THE Q 
36 * * REGISTER. HALTS WITH -O - 
37 * 
38 * 
: 39 
; a0 
oe 0020 3D 40 OO4NP &81 TEST2 CLI CORSIZ—1,X'40O! BYPASS TESTING SAB BIT 1 IF CORE 
0024 F2 BZ 12 4&2 JL RETURN SIZE IS 16K OR LESS. mo 2 
8&3 
0027 3c CO 4040 4a BIT1 NVI x*4040",x*008 TEST SAR BIT 1 DECODE AND ABILITY 
0028 3C FF 0040 45 NVI =s- X°0080" ,x* PF¢ TO ADDRESS >16K BUT <32K OF CORE. 2 
002F 3D FF 48040 56 CLY x*s0G0*, x*Pre EXIT THIS PROGRAM IP SAR BIT 2 
0033 F2 01 03 47 JNE RETURN WAS DECODED CORRECTLY. 4 
88 © Z 
0036 FO 10 00 89 HALT3 HPL x*00*,x*10° * PROG 92, HALT 3. ERROR RALT 
50 * * PAILURE: SAR DECODE BIT 1. THE 
51 * s * FAILING SAR BIT IS < l z 
52 * * DISPLAYED IW THE Q 
53 * * REGISTER | 
54 * os g 
55 * | 
56 
S57 Cc ¢ 
0039 P2 87 27 58 RETURN J LOADER RETURN TO THE MEMORY TEST LOADER 
59 ' 
69 Cc. é 
0050 61 CORSIZ £Qu 80 


0027 62 LOADER EQB x*278 





63 < 1 
68 
_ PFPP 65 END 
ie g 
| 
Cc 4 
CATE TSSEP69 THNOV69 20JAN70 13AHAR70 010CT70 28APR7 1 O1NART2 PROG ID 0092-5 £ DATE 15SEP69 14xX0 ¥69 203AN70 13MAR70 010CT70 26APR71 018 aR72 PROG ID 0092-5 {| 
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PROGRANS 92 


CL 33 THROUGH 48 


&C7"-DC2 6,0 Fa 


OSJECT CARD LISTING 


CL 4&3 THROUGH 64 


*&6 AI@YRKR}] A &C3 


50 Q 


@eseoneaoece 


CL 65 THROUGH 80 


- D *"&8A S-DCaA 


@eesesoeeaeneeoeoeoo e233 
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INDICATES A BLANK COLUMN AND THE CHARACTERS DBD E H INDICATE NUR ERIC SHIFT. 


CL 81 THROUGH 936 
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are 3 -0925000% 


eeve@ 


EY *09250092 


228727. 6092560003 


PATE 
fC #06. 
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C935 CPU AND MEMOPY DIAGNOSTICS: PROGRAM 93 
FRR LOC ONIFCT CODF ACDR STMT SOURCE STATEMENT 
*000 2 UVHXYZ START O 
3 DECK 4 

y FOSS HOEK SHEE SE EEEEHES EES SOE ESS ES HETESEOEDOSS94OOOE859F42HFESSHEDEEE 
5 2 e 
6 ¢ PROG 93 SAR DECODE AND SAR SIT PAILURE TEST s 
7* . 
8 * THIS PROGRAM TESTS POR PROPER DECODING OF SAR BITS IB BSH*S s 
9 * ABOVE 16K, TESTS THE ABILITY TO ADDRESS EACH CORE LOCATIOR ® 
10 * WITRIN A 16K 8S, AND CHECKS POR STORAGE ALTZRATIONS IP ° 
116% CORE DUE TO SAR BIT FAILORE. e 
12 @ 2 
33 * THE TESTS WILL BE PEPPORSED IW THE POLLOWING MABBER: 2 
14 @ 1) ONLY THE AMOUNT OF CORE SET OB THE LEPTROST ADDRESS 2 
15 @ SWITCH WILL BE TESTED, THE OTHER ADDRESS SWITCHES s 
16 3 WILL NOT BE READ. 2 
17 * 2) IP LESS THAN 16K OF CORE IS TO BE TESTED, THE SAR ® 
16 * DECODE PORTION OF THE TEST IS SKIPPED; THE FIRST 16K e 
19 * ARE CHECKED OUT BY PROGRAMS 90, 91, ABD 92. e 
20 « .3) IP MORE THAN 16K OF CORE IS TO BE TESTED, ZACH BSB s 
21 ¢ WILL BE TESTED FOR SAR DECODE OF BITS 15-8, 3, AND 2. © 
22 % THE TESTING OF SAR DECODE OP BITS 3 ABD 2 DEPENDS s 
23 * ON WHETHER THERE IS BORE THAN 4K (SAR BIT 3) OR SORE ® 

24 * THAN 8K (SAR BIT 2) OF CORE IN THAT BSB. 
25 * &) SAR DZCODE TEST ENDS WHEN ALL SELECTED BSR*S ARE eiveene 
26 ¢ s 
27 * NOTE: DUE TO THE BATURE OP SAR DECODE PAILURES, ERROR ®@ 
28 * HALTS OR SAR DECODE ERRORS BILL BE IDENTIFIED BY #& 
29 * Q REGISTER DISPLAY: s 
30 * e 
31 Q REG SAR BIT Q REG SAR BIT s 
32 = oe awe ae aoe mown ae _—- s 
33 *# -FO0- 15 -80- 8 e 
34 © -F2- 18 -70- 7 s 
Z 35 « -p0o- 13 -60- 6 e 
~ 36 * -Co- 72 -50- 5 e 
37 * ~BO- 11 -80- & e 
. 38 © -A0- 10 -30- 3 s 
® 39 -P3- 9 -20- 2 * 
uo * -10- q * 
gis -00- 0 2 
€ a2 s 
at 5) THE AMOUNT OF CORE SPECIFIED OW THE LEPHOST ADDRESS 2? 
By ® SWITCH IS FILLED WITH HEX -PP-. * 
€ a5 * 6) HIGHEST CORE LOCATION HAS HEX -O0- ENTERED. * 
46 * 7) ALL OTHER CORE LOCATIONS ARE TESTED FOR ALTERED e 
a7 * CONTENTS (DATA NOT HEX-PF-} USING XR1 AS POINTER. e 
€ ug s 8) DECREMENT POINTER 2 
ag 9) STEPS 6-8 PERFORMED FOR AL;. CORE ABOVE HEX -200- 2 
50 * 10) SAR BIT PALURE TEST E“DS BZN ALL SELECTED CORE s 
< 51 * TESTED. = 
2 * od 
- 53 « BOTE: ERRORS WILL BE INDICATE*: BY A -93- HALT. ° 
& : Sa * 4 
55 TO DETERMISE TEE PAILIES 3SH: e 
ss 56 * s 
ee 57 « I-OF I-Q I-B PA‘. ISG BSS e 
58 x aes coe eowem eo. ome ewwoanw s 
59 ©« O1E2 0123 O188 C - 16K * 
~ 60 * O1E9 OTZA O1EB 16 - 32K = 
61 2 OIFO OTF? O1F2 32 > &8K * 
62 © 01P7 O1F8 O1F9 8B — 68K e 
‘ 63 # s 
64 © TO DETERSINE THE FAILISG LOCATION: s 
65 * 1) POSH *STOP* BUTTOR * 
Se 66 * ' 2) XR2 CONTAINS THE ADDRESS INTO WHICH -00- e 
} 67 * WAS STORED e 
4 68 * 3) THE FAILING LOCATION (INTO WHICH -00- gaAS * 
wt 69 « ALSO WRITTEN) CAS BE FOURD BY ADDING HEX -PP-2 
DATE 15SeP69 THNOV69 20JAN70 13H8AR70 610CT70 26 APR71 O1SAR72 eee Ip 0093-5 
EC FO. 816899 816559 816576 816638 816756 £16788 818693 PAS 1328 
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0935 


FRR LOC OBJECT CODE 


0000 
0003 
ooc9s 


0300 


0300 
0303 
0307 
030A 
030D 
9310 
0313 
0319 
031D 
0322 
0325 


0329 
0328 
032D 


DATE 
EC NO. 


ADDR 
FO SF 57 
OC 2E C32E 0038 
cO 87. 0303 
0300 
0300 
FO 6F 76 
C2 01 03600 
Di? FO 00 
71 «FS 2A 
F3 F1 45 
D1 FT 10 
Oc 35 CO3B O2BR 
SE 01 16 2C 
1D O01 OZER 2E 
co 81 0003 
DO 87 07 
0280 O32A 
6003C¢ 032c 
1234 032E 
0001 
003B 
15SSFP69 14UNOVES 
816499 816559 


CPU AND MEMORY CIAGNOSTICS: 


PART WO. 2589926 
PAGE 133 
PROGRAM 93 
STMT SOURCE STATEMENT 
70 * TO THE CONTENTS OF XR1. FOR EXAMPLE: * 
71 * IP XR1 = X*DOC*, THE PAILING LOCATION =X °DFP*® 
2 * s 
73 ° 
74 * s 
75 * 11) ADDRESS DATASWITCH 1 (LEFTMOST) IF SET TO * 
76 * * 
77: * 0 TESTS CORE TO 4K * 
78 * 1 TESTS CORE TO 8K * 
79 * 2 TESTS CORE TO 12K * 
BC * 3 TESTS CORE TO 16K * 
81 © 4% TESTS CORE TO 20K * 
82 * 5 TESTS COPE TO 24K ° 
83 * 6 TESTS CORE TO 28K * 
64 * 7 TESTS CORE TO 32K e 
85 « 8 TESTS CORE TO 36K * 
86 * 9 TESTS CORE TO &OK * 
87 * A TESTS CORE TO 4&K * 
88 * B TESTS CORE TO 48K * 
89 * C TESTS CORE TO 52K e 
90 * D TESTS CORE TO 56K * 
91 * E TESTS CORE TO 60K * 
92 * F TESTS CORE TO 68K * 
93 « ° 
94 « . 
95 * THE PROGRAM RUNHING TIME IS 2 SECONDS FOR 8K OF CORE * 
96 * s 
QJ FEKSEESKSEKEKESETESESESE SHEET HAECSE SHE SKESSHKTKSESKSES CHESS EKSESKSKSSKSSAHESCSSEHKSEKECSCHISE SESSSS 
98 
$9 
100 
101 
102: EEKKASESCEKRE KEKE K TSE SKE STSESE SEE SHEKESST TEESE SE SEEESESEETSEESESHSESESESESE ESTEE SHESESS 
103 © IPL LCADER FOR PROG 93 * 
104 * THE LOADER WILL READ IPL FORMATTED CARDS SEQUENTIALLY * 
105 * INTO MEMORY STARTING AT LOC -CO00-. THE LOADING WILL * 
106 * TERMINATE WHEN HEX -1234- IS FOUND IN COLS -59 & 60-. * 
107 RESSESRETEKRTEKRS KLEE KEKCKES KS FER SESS SESSESE SESLATESISRSESCSESSESSRESSH ESTES TSE SSSSSES 
108 
109 HALT? HPL x*57*,x*5F¢ PROG 93, HALT1. IPL HALT. 
110 NVC  LSTCRD{97) ,END MOVE THE IPL LOADER 
111 B x*303° TO CORE LOC -0300 THRU -032E-. 
112 * GO READ PIRST CARD. 
113 
118 USING HALT2,1 
115 USING HALT2,2 
116 ORG x*300° 
117 
118 HALT2 HPL X*76°,X*6F® PROG 93, MFCO WOT READY HALT. 
119 LA x°0300¢, x81 USE -0300- AS BASE ADDRESS 
120 TEST! TIO H#HALT2(,XR1),X*FO! GO HALT IF MFCU ERROR OR WCT READY. 
121 LIO AD640 (,XR1),X°PS* LOAD READ ADDRESS LSB. 
122 SIO X*85*,x¢P1? READ NEXT CARD IN IPL NODE. 
123 TEST2 TIO TEST2(,XR1),X'FT WAIT HERE TILL BUSY DROPS 
124 MOVE MVC 59(60),699 MOVE THE DATA READ TO LOWER CORE. 
125 ALC SOVES3(2,XR1) SIXTY (,XR1) INCREMENT MOVE TO ADDRESS 
126 CLC 699(2),LSTCRD(,XR1) GO TO LOC -0003- IP LAST CARD 
127 BE 3 READ WAS *LAST* CARD. IF HOT, 
128 B TEST 1 (,XR1) GO READ NEXT CARD. 
129 
130 | 
131 AD640 DC AL 2(680) 
132 SIXTY DC XL2*003C? 
133 LSTCRD DC XL 2° 12398 
134 XR1 £00 =O 
135 END BOD) ox* 3B 
136 
137 sautuse SVEN D*#SSSeee8e TPL LOAGER POR CARD 93 SECEKSESKESSESKSCEKSE KPH SSess 
20JAN70 13MAR70 010CT70 28APR71 01%AR72 PROG ID 0093-5 
816576 816638 816756 816788 818693 PAGE 133 
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138 *eeeTHE POLLOWING PROGRAN WILL BE LOADED BY THE LOADER AFTER THE LCADEB 


139 ****HAS MOVED ITSELP INTO HIGHER CORE. 
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PART NO. 2589926 PPRT BO. 2589926 
PAGE 134 PAGE T33A 
£935 CPN AND MEMORY DIAGNOSTICS: PROGRAM 93 C935 CPU AND MEMORY DIAGNOSTICS: PROGRANS 93 
FRR LOC OBJECT CODE ADDR STST SONRCE STATEMENT EPR LCC OBJPECT CODE ADDR STHT SOURCE STATESENT 
scoe 1481 ORG 0 OODS FO F3 FO 205 HSAROS HPL = X*PO*,x*R3* SAR BIT 9 PAILUBE 
CODA 142 USING RETRNT,1 Q0D7 4080480 COD9 206 pc CL3* ¢ - , 
OOTA 183 USING RETRN1,2 207 
9000 FO SF 57 W44 REStRT HPL X°57* xeSpe RE-ENTRY POINT 20e 
6003 C2 02 OODA WS LA RETRN1,XR2 z OODA BC RC 1D 209 RETRN1 BVI HSARER¢1(,XR2),2%°80° RESET HALT INDICATOR 
0007 AC OD 74 76 186 SVC SAVXR2(,XR2) ,Y0000 (18, XR2) «RESET COUNTERS OODD AC 014 70 7P 210 MVC PAD(,X1R2),X0080 (2,XR2) «RESET PAD POR TEST2 
COCB BO 00 68 187 SNS  DATASW(,XZR2) ,X*00* -READ ADDRESS SWITCHES OOF? BA 01 70 211 TST2) A PAD {, IR2) ,XR1 ~SfT UP X81 POR TEST 
OOOF BC 00 68 188 NVI DATASW(,XR2),X* 00° es MASK UNWANTED ADDRESS . OOFS BG 0? 78 212 LD ST SAVXB2(,XB2) ,XR2 - SAVE CONTESTS OF X82 
0011 a8 03 67 68 149 NNN = DATASW-1(,XR2), DATASW (, XR2) SWITCHES AND SET MAX CORE NOR7 RS 0? 6E 213 L SWITCH (,XR2) gXR2 «SET OP XR2 FOR TEST 
0015 AS 00 69 67 150 §ZZ CORSIZ-1(,XR2) ,DATASW-1{,XR2) SET CORSIZE COUNT NOFA 7C 00 80 214 AYI 64(,XR1),X*00° ~TEST POR PROPER SAH DECODE 
2919 AC 01 DB 85 151 MVC) =—- BRANCH#3 (,XR2), AHALTS (2, XR2) «RESET BRANCH TO HALT 4 OOFD BC FF 80 215 NVI 68(,XR2),X*PP* 
991D AD 01 6A 7E 152 CLC CORSIZ(,XR2) .X4000 (2, XR2) -CHECK IP SORE THAN 16K SET OOFO 7D FF 80 216 CLI 64(,XR1),X°*PF* 
C021 EO 82 8B 153 BL EXIT (,XB2) IF NOT,EXIT ADDRESSING TST OOF3 F2 01 03 217 JRE RESET 
154 2 OOF6 FO 80 10 218 HSARER RPL xX*10*°,x*80? 
155 00F9 35 02 O1WE 219 RESET L SAVXIR2,XBR2 RESET XR2 TO ORIG VALUE 
002% BC 80 24 156 NVI COMPAR¢1(,XR2),X*80?* RESET FOR SAR BIT 4& TEST OOFD BN &O 1D 220 COMPAR CLI HSARER¢1(,XR2),X°40° -WHEN SAR BITS 8-8 TESTED, 
0027 AE 01 6E 7E 157 ALC SWITCH(,XR2) .X4000(2, XR2) SET OP FOR 16K 0100 BO 81 3A 221 BE RETRN2(,XB2) LEAVE THIS LOOP. 
CO2B AF 01 68 72 158 SLC DATASW(,XR2) ,X4000 (2, XR2) 222 
159 0103 £C 80 91 223 TST3 BC TSTS(,XK2) -X*80° ~- BYPASS WHEE ONLY OZ BSS 
ree 0106 BE CT 70 22% A PAD (,XR2) 9XR1 . DOUBLE PAD DISPLACESEST 
002F AE 01 DS 83 161 ALC —s- BRANCH#3(, XR 2) .X0007(2, XB2) «SET BRANCH TO HALT 5 0109 AF 01 70 79 225 ALC PAD(, IR2) -PAD(2,XR2) ~DOUBLE PAD 
0733 BD R80 69 162 CLI CORSIZ-1(,XR2),x°80" «LESS THAN 32K? 010D AF CO 4D 1E£ 226 SLC HSARER¢1(1,XR2) ,HSAREB*2(,XB2) .~DECRESEZNT Q CODE FOR ERROR 
0036 F2 82 1E 163 JL BONSET IF YES, GO TO BOMSET 01911 EC 87 CA 227 B LD (,XR2) BALT & GO TEST BEXT SARBIT 
0039 AE 01 6B 78 168 ALC = =©SWITCH(,XR2) ,X4000(2,XR2) eSET UP FOR 16K 228 
003D AP OF 68 7F 165 SLC DATASW(,XR2) ,X4000 (2, X¥R2) 229 
166 071% FO 86 91 230 RETRN2 BC TST5(,XR2) -¥"80* -GO TO ADDR TEST WHES RESET 
167 C197 BD 10 67 231 KONT2 CLI DATASW-1(,XR2),X°10° -MORE THAN 8K IS BSM?7IF NOT 
OC41 AE 01 D8 83 168 ALC = BRANCH#3(, XR 2) -X0007(2, XR2) -SET BRANCH TO HALT 6 O11A BC OF 68 232 NVI CORFIL-1(,XR2),X*CF® SET UP TO FILL &K OF CORE 
£085 BD CO 69 169 CLI CORSI2Z~-1(,XR2),X*CO! -LESS THAN S8K? 911D EO 82 91 233 BL TSTS (,XB2) AND GO TO ADDRESS TEST 
e088 P2 B2 Oc 170 JL BONSET IP YES, GO TO BOMSET 0120 RC 87 3B 234 HVI RETRN2¢1(,XR2),X°S7° e ACTIVATE BRANCH TO TSTS 
DOVE AE 01 6E TE 171 ALC) = SWITCH(,XR2) ,X¥8000 (2, XR2} -SET UP FOR &8K 0123 BD 20 67 235 CLI DATASS-1(,%B8 2) -X'20° oTEST IP 8K IN [38 
GOLF AP C1 68 7F 172 SLC DATASW(,XR2) ,X6000 (2, X82} 0126 RC IF 6B 236 HVI CORPIL-1(,XR2),X°1F* «SET UP TO PILE 8K OF CORR 
173 0129 BC 39 28 237 MYI COMPAR41(,XR2)-X°30* oSEY UP TO TEST SAB BIT 3 
: 174 C12C FO 82 29 238 BL TST3(,XR2) : 
GC53 AE 01 D8 83 175 ALC = BRAYCH#3(, XR 2) -¥0007(2, XR2) -SET BRARCH TO HALT 7 012F RD 20 67 239 CLI DATAS#-1(,XR2),X*30* eTEST IP 12K IB BSH 
176 6132 RC 2F 6B 240 MVI CORFIL-1(, X82) ,X*2¥F® -SET OP TO FILL 12K OF CORE 
177 . 07325 RC 20 28 284 “VI COMPAR+¢ 1 (,XR2).X°26°* SET OP TO TEST SAR BIT 263 . 
6057 0C 01 0186 9150 178 BONSET MVC CORFIL,X0000 (2) «RESET CORE PILL COUNTER 9138 #0 82 29 282 BL TST 3(,XB2) & 
£850 BC BU 3B 179 NVI = RETRN2¢1(,X22),2°80! eRESET 'SO0-OP 013B BC 3F 68 283 MVI CORPIL-1(,XR2) ,X°3P° ~SET UP TO FILL 16K OF CORE eines 
$060 AD 01 68 7E 780 CLC DATASW(,XR2) ,X4000 (2, X82) SET UP TO CHECK WEXT BSH, 013F 20 87 29 248 B TST3 (,XB2} 
#0640 F2 82 16 181 JL KONT? BYPASS IP BSH NOT FUIL. 245 q 
067 BC BT 3B 182 NVI RETRN 2¢ 1(, ZR 2) ,X* 87° SET BRANCH TO ADDR. “ZEST ZUG HERSEK ESTA SS CHEST SSE KEKHES SEK SSSSISE SISTCSSSHSSESSSLES KES SEIS HL SE FECES OBS 
8O6R BC JF 683 183 SYI CORFIL-1(,%82),X*3F* eSET TO TEST &K 1N ADDR TST ZU7 SESS ELE TH ELSE SHE LER SETS SES SESS SE SHCHRIVESHESSSSEKSOCKESRASESSESLSSSSSES 
06D BC 20 24 184 NVI COMPAR€1(,XR2},X"208 -SET TO CHECK SAR BITS 283 — 248 *#e28% PROGRAM CORSTANTS AND EQUATES oe i 
#070 AD OT 6B 76 185 CLC SWITCH{,£R2) ,X0000 (2, XR2} - BYPASS CRECKING SAR BIT 0141 0000 0142 286 DATASW DC KL2°9° es CORSTABRTS ERE ERTERED 
CO78 F2 81 Fa 186 JE TSTS FAILDRES IP I® 0-16K BSH 9783 0nC0 0148 250 CORSIZ DC XL2°0° "e HERE TO ESABLE TRE USE 
G77 BS 01 62 187 KONT1 OL SWITCH (,ZR2) ,XR1 «SET UP XR1 TO TEST BSH - 0745 ocoe C146 251 CORFIL DC XL2*08 ** OF XRZ FOR IEDEXIUG. : 
OC7R ¥C CO CO 0094 188 LOAD N¥C) }80600(1,XR1),TST? -HOVE TST1 TO HEIT BSE 0187 0000 0188 252 SWITCH DC XL2°0# =e 
OG7F 2E 02 0078 88 189 ALC LOAD#4,X%10001(3,XR2) ONE BYTE AT A TIME 6149 0000 O1GA 253 PAD pc KL2°O* See ee etree eet ee cr ee 
e084 3D 86 007C 190 CLI LOAD#2,x'6! -CHECK IF TST1 BZOVED TO BSA . 014R OCOO 018C 258 SAVXR1 DC XL2°0¢ Tet SSSECASTAASSRE STS SERS SRS g 
£088 CO OV COTA 191 BYE LOAD 0418p OCCo 014E 255 SAVKR2 DC XL2*08 
: QG8C 2C 02 0O7E 78 192 MVC =s- LOAD #4, ATST 1 (3, XB2) -RESTOBE LOAD TO TST1 ADDR. CiaP COCO 0150 256 x0000 pc IL 2° 0000* 
: C£L91 Do 87 00 193 B C{,XR1) -BRASCH TO TST1 IN NEXT BSA 0151 0098 0152 257 ATST? DC AL2 (TST 1) j 
ace 0153 02C0 0158 258 x0200 DC XL2°02008 
156 8 x1000 pec XL2* 10008 
COSN F2 FO FO 196 TST? JC X*PO", E° FO? -NO-OP *THESE THREE wO-cPS) | aes anon Bee oe K4000 DC XL2°8000" é 
9097 F2 FO DO 197 Jc X' DO", xeFO# -NO-OP * CATCH SAR BIT 15, C159 80 0159 261 x0080 o»DCc XL7"80° 
' 092 F2 FO FO 198 ac X* PO’, x* Po? -NO-OP * 18,AND 13 PRILURES C158 FRPP 01S5B 262 NEGOWE DC XL2‘*PPPF® 
809D co a OODA 199 B RETRN1 - BRANCH BACK TO BAIR PROG ia 015c 0007 015D 263 x0007 xc XL2*0007* é 
as 4040agd OOA3 200 bec CL3* 8 O1SE O1£2 C1SF 26% AHALTS DC AL2 (HALTS) 
Bu FO BO FO 201 HSART7 APL X*PO?,x*80°* *SAR BIT 11 PAILORE 0760 010001 0162 265 x19001 nC ¥L3° 010001 
OOR7 4080404049808080 0083 202 pc CL13® 8 0163 C000 0164 266 BSHS# pC XL2*08 é 
eld 2OG0404040 202 267 
00BG FC AO FO 203 HSAR10 HPL x*Fro! xcage *5 1 6 
0037 404C0404090804080 00D3 204 pc cL29" ¢ i ca i Aes ots oneane ens asee. ° 
OOBF 604804040N0804080 204 0002 270 XR? Zou ok" 028 
COCT 50 404040 aDBO4OHO 208 271 RRRSER SEAS SHAKER RECKSE SKK FHF HESTRETSTSE SESE VCKKE SKS SKEKSSCSESHEEKSSOS TUS SES 
OOCP 80804604040 208 . 272 SHREK HERES EERE SEKLE EESELEHRESE SEHKSEEREHKE SOS HOTT EETET HHS LSESOSSS 7 
pare 1SSEP69 14NOV69 2038870 13HAR70 010CT70 28aPR71 O1MNART2 PROG ID 0093-5 ¢< BNOV6S 203AN70 13HAR7C 010CT70 26APR71 OTRART2 PROG ID 0093-5 = 
FC WO. 816499 816559 816576 816638 816756 816788 818693 PAGE 138 ee ak Baris paecee 816576 816638 816756 816788 818693 PAGE 139A 
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| ie PAGE: 1354 
S252.” EES RRVBECGRY DERGNOSTICS>. EROGRAE. 92 0935 CPN AND MFNORY CIAGNOSTICS: PPOGRAR 93 | 
BBE: ROC ORSECT COUR an i i ERR LCC OBJFCT COLE ADDR STAT SOURCE STATENENT 
273 : : = . . 
0165 BC 87 2a 276 EXIT VI TST3#1(,XR2),X*87° -SET UP TO BYPASS WHEN ONE oie a be Aen acs Eatey at0 PORea Re Re 
0168 £0 87 3D 275 B KONT2(, XR2) BSH OBLY Le 
016B BC 80 2A 276 TSTS AVI TST34+1(,XR2) ,X*80° -NO-OP BYPASS BRANCH eee. ae. 
O1GE AC 017 C& 6C 277 BYC HITEST¢3(,XR2) ,CORPIL(2,XR2) START SETUP TO -NPPF- END 
0172 B5 01 62 278 L SWITCH (,%1R2) @XR1 -SET UP X87 AS POINTER 
0175 Bé 01 Ez 279 a CORFIL(,XR2) ,XR1 -FILL CORE WITH -FP- 
C178 7C FF FF 280 NVI 255(,%R1) ,X* PRE 
0178 SC EF FE FP 281 FILL VC 25% (,XR1) ,255 (256, XR1) 
O17F BE 01 82 282 A NEG256 (,XR2) gXR1 
0182 Bu 01 72 283 ST SAVXR1(,XB82) ,ZR1 
0185 ab 01 72 7A 2840 CLC SAVXR1(,XR2) ,X0 200 (2, X82) -CHECK IF AT UPPER PROGRAN 
0189 FC 84 A1 285 SH =s- PILL, XR2) LIAIT 
286 | : | 
016C AF 01 Cu 6F 287 ALC = HITEST¢3(,.282),SWITCH(2,%R2) SET UP HIGHEST CORE Loc IM f 
0190 BC FF Cu 288 NVI. -HITEST+3(,XR2) ,X°FE* BSA -NFPF- TO RECEIVE -00- 
0193 AC 01 BA 6E 289 NVC BSHSW(,XR2), SRITCH (2, XR2) «SET OP TO TEST CORE ONE 2 
0197 AE 01 8A 81 290 ALC BS#SW(, X82), NEGONE(2, XR2) BSA ATA TIER. 
C188 3c CO 0000 291 RITEST MVI #-#, 29908 3 
O19F BS 01-CH 292 L HITEST¢3(, 182), XB1 «SET OP X81 TO TEST FOR ; 
O1A2 B6 01 82 293 A WEG256 (, X82) ,XB1 INCORRECT ADDRESSING : 
OTAS B4 02 74 294 SETUP ST  SAVXR2(,XR2) ,XR2 - STORE IN {82 THE ADDRESS 
O1A8 35 02 0198 295 L HITEST¢ 3,XR2 I8TO WHICH -00- STORED ‘ 
OAC 7D FF FF 296 CHECK CLI 255(,%R1),X' FF? -CHECK IP ~00- WAS ENTERED 
O1AP CO 01 O1E2 297 BRANCH BNE HALTS IN ANY OTHER LOCATION. 
01B3 35 02 O18F 298 L SAVXR2,X82 -IF NO ERROR, RESTORE XR2 
01B7 B6 01 81 299 a NEGOWE (,XR2),XR1 -DECR XR1 & CHECK NEXT CORE 
O1BA B4 01 72 300 ST  SAVXR1(,XR2) ,XR1 LOC IF ALL CORE NCT CHECKD 
O1ED AD 01 72 7A 301 CLC SAVXR1(,XR2) ,X0200 (2, XR2) -CHECK IF AT UPPER PROGRAA 
01C1 EO 81 FI 302 BE KONT3(,XR2) LIAIT 
O1C% AD 01 72 68 303 CLC = SAVXR1(,XR2) ,SWITCH (2,X82) 
01C8 £0 01 cB 308 BNE SETUP (,XB2) 
01CB AF 01 C8 7c 305 KONT3 SLC HITEST¢3(,XR2) ,X1000(2, XR2) «SET NEIT LOC TO WRITE -00- 
O1CP AD 01 Ca 8A 306 CLC AITEST+3 (,XR2), BSESW (2, XR2) -IF ZEROS ENTERED IN ALL 
01D3 BO 01 c1 307 B4E HITEST(,XR2) BSS LOCATIONS, CONTINUE 
308 
O1DS AD 01 6A 68 309 CLC CORSIZ(, 18 2) ,DATAS® (2,XR2) «CHECK IF ALL BSHS TESTED 
O1DA F2 81 31 310 JE LOADER es : 
01DD F2 87 12 311 J KONTS - BYPASS ERRO® HALTS ‘ 
312 
313 : 
314 * NOTE: HALTS MEST BE AT HEX -01E2- TO CORRESPOND TO DOCUMENTATION. ‘ 
0170 0000 01E1 315 DC: XE2"08 
316 « THE ABOVE DC IS USED ONLY FOR ALIGNMENT PURPOSES. : 
317 3 
318 
0122 FO SF 57 319 HALTS HPL Xx*57¢,x¢Spe *PROG 93 ERROR HALT. ‘ 
01E5 CO 87 0000 320 B RESTRT ADDR ERROR IM 0-16K BSA : 
321 
0129 FO SF 57 322 HALTS HPL xXx*57*,x¢Spe *P20G 93 ERROR HALT. S © ; 
O1EC CO 87 0000 323 B RESTRT ADDR ERROR IN 16-32K BSH : 
328 
01F0 FO SF 57 325 HALT6 HPL X£°S7°,x¢Spe *PROG 93 ERROR SALT. ‘ 
C1F3 CO 87 COD 326 B RESTRT ADDR ERROR IM 32-98% BSH 
27 
O1P7 PO SP 57 328 HALT? PL x°57*,x*SpPe *PROG 93 ERROR HALT. c 
O1FA CO 87 0000 329 B RESTRT ADDR ERROR IN 48-64K BSH 
330 
331 C 
O1PE AF 01 DB 83 332 KONTS SLC BRANCHS3(,XR2),X%0007( 2, XR2) -SET TO NEXT BS& HALT 
0202 AF 01 62 78 333 SLC SWITCH(, XR2) ,X4000(2, XR2) ~SET UP TO CHECK NEXT BSB 
0206 AE 01 68 72 334 ALC = - DATASW(,XR2) ,X2000 (2, XR2) BY REDUCING CORSIZ BY 16K © 
020a CO 87 0057 335 B BONSET AND INCR POIKTER BY 16K 
337 c : 
0202 c1 FO 0000 338 LOADER TYTO RESTART, X*FO® : 
0212 831 FS 76 339 LIO - X0000 (, X22) ,X°PS* 
0215 F3 F1 45 380 SIO x°85*,x°P18 
DATE ISSEP69  14NOV69 203AN70  143NAR70 oO10CTTO 28APR71 1MART 0093-5 
: EC RO. 816899 816559 816576 816638 816756 piel otaesar ccs =p ete DATE 1SSEP69 TEHOV6S 203AN70 T3HAR70 O70CT70 28AaPR71 OTM ART2 PROG ID 0093-5 
7 | | : EC BO. 816899 816559 816576 816636 816756 616788 818693 1358 
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© | PART HO. 2589926 
TBA NATNTEWANCE DIAGNOSTIC PROGRAR | PART HO, 2589926 PAH BATNTESS ECE OTAGROST IC. FROGRAN apd 136A 
0935 CPU AND MEMORY DIAGNOSTICS: PROGRAM 93 | " 0935 CPO AND MEMORY DIAGNOSTICS: PROGRAS 93 
CROSS-REPERENCE CROSS~ REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALNE DEPN REFERENCES 
0289 0290 0290 0292 0293 0294 6298 0295* 0298* 0299 0300 0309 
tania ; ni O1SF ooee 0159 0301 0302 0303 0303 030% 0305 0305 0306 0306 0307 0309 0309 
ATST1 A 002 0152 0257 0192 0332 0332 0333 0333 0334 0338 0339 
BOMSET A 006 0057 0178 0163 0170 0335 X0000 A 002 0150 0256 0146 0178 0185 0339 
BRANCH A 004 O1AF 0297 0151% 0161* 0168 0175* 03328 XC007 A 002 O15D 0263 0161 0168 0175 0332 
BSHSW A 002 0164 0266  0289* 0290 0306 X0080 A’ 001 9159 0261 0210 
CHECK 2 003 O1AC 0296 , %0100 & 003 0161 2269 
COBPRR a 003 COPD 0220 0156* 0188* 0237% 0247« ; 40290 A 902 0158 0258 0288 0301 
CORFIL 8 002 6146 0251 0178* 0183* 0232% 0236* 0240* 0283* 0277 0279 X1000 A 002 9156 0259 0305 
CORSTZ A 002 0144 0250 0150* 0152 0162 0169 0309 X10007 A 0603 0162 0765 0189 0269 o Base 0958 
DATASW A 002 01462 0249 0147* 0188% 0149 0149* 0150 6158* 0165* 0172* 0180 0231 0235 0239 K4COO R002 0158 0269 0152 0157 0158 0164 0165 0171 0172 018 ; 
* 
BND C 001 003B 07135 oe a TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
EXIT A 003 0165 0274 0153 . 
FILL A 008 (C17B 0281 0285 SM 
FALT? & 003 0000 0109 
HALT2 A G03 0300 0118 0118 011€ 0120 . 
RALTS A 003 0182 0319 0264 0297 a 
"HALTS A 003 0189 0222 
HALT6 & 003 0170 0325 | i 
MALT? & 003 O1P7 0328 { 
RITEST A908 0198 0291 0277* 0287* 0288* 0292 0295 0305* 0306 0307 | 
HSARER A 003 OCOF6 0218  0209% 0220 0226 02268 : 
HSPROO A 003 00D8 0205 
BSAR10 A 003 0088 0203 
RSARI1 A CO3 COAS 0201 i 
KORT1 A 003 0077 0187 0181 
KOXT2 aA 003 0117 0231 0275 
KOWT3 2 004 O1CB 0305 0302 5 
KONTS A 008 O1FE 0332 0311 Bi und 
LD A 003 OOE& 0212 0227 
LOAD A 005 OC7A 0188 0189* 0190 0191 0192 ; 
LOADFR A 008 020E 0338 0310 
LSTCRD A 002 032E 0133 0110* 0126 
MOVE A006 0313 0128 0125 : 
MEGORE A 002 0158 0262 9268 0290 0299 
WEG256 A CO2 015C 0268 0282 0293 
PAD £002 018A 0253 0210* 0211 0224 0225 0225¢ j 
RESET A008 OOF9 0219 0217 : 
RESTRT A 003 0000 0148 0320 0323 0326 0329 0338 
RETRNT A 093 OODA 0209 0142 0193 0185 0199 os 
RETRE2 A003 0118 0230 0179% 0182 0221 02346 \ 
SAYXR1 A 002 016C 0254 0283* 0288 0300* 0301 0303 ; 
SAVIR2 A002 O18E 0255  0186* 0212* 0219 0294* 0298 
SETUP A003 0185 0298 0304 a 
SIITY & 002 032¢ 0132 0125 ‘i 
SWITCH A 002 0148 0252 0157* 016% 0171% 0185 0187 0213 0278 0287 0289 0303 0333* . bon. 3 
TEST? A 003 0307 0120 0128 4 | 
TEST2 A 003 0310 0123 0123 
TSTBSY A 008 0218 0387 0381 A» iG : 
TST? A 003 0098 0196 0188 0257 . 
TST2 a 003 COE 0211 
TST3) «A 003 «0103 0223 «= 0238 «0242 «0248 «=«0278* 0276" ‘ 
TST5 A 003 0168 0276 0186 0223 0230 0233 a 
BYNXYZ A 001 0000 0002 | 
KR1 = € 001 ©0001 0138 «= -0119% 0120 0121 0123 0125 0125 0126 0128 0187* 0188 0193 o211¢ ro £ 
0214 0216 0224* 0278* 0279* 0280 0281 0281 0282* 0283 0292% 02938 cS 
0296 0299* 0300 
XR2- C001 0002 0270 0185* 0186 0146 0147 0148 0149 0189 0150 0150 0151 0151 0152 ; 1 
0152 0153 0156 0157 0157 0158 0158 0161 0161 0162 0168 0168 at 
0165 0165 0168 0168 0169 0171 0171 0172 0172 0175 0175 0179 
0180 0180 0182 0183 0184 0185 0165 0187 0189 0192 0209 0210 Ss 3 
0210 0211 0212 0212 0213 0213* 0215 0219% 0220 0221 0223 0228 Ce 
0225 0225 0226 0226 0227 0230 0231 0232 0233 0238 0235 0236 : 
0237 0238 0239 0280 0241 0242 0243 0288 0274 0275 0276 0277 t 
0277 0278 0279 0282 0283 0288 028% 0285 0287 0287 0288 0289 C 
DATE I5SSEP69  18H0V69 20JAN70 (1384R70  010CT70 28APR72.  01mNaR72 PROG ID 0093-5 { — DATE ISSEP69 = I4NOV6S = 20JAN70 = 13HAR70 = OTOCT7O©=— 2BAPRII. =: ON BARTZ tee = ry asGk : 
EC NO. 816899 816559 816576 816638 816756 816788 818693 PAGE 136 i €C WO. 816899 816559 816576 816638 816756 816788 816693 PAG? 
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; @935 CPU AND NENORY DIAGNOSTICS: PROGRAR 93 


OBJECT CARD LISTING 


0945 CPO AND MEMORY DIAGNOSTICS: 


ERR LOC OBJECT CODE ADDR STAT 


PROGRANR 94 


SOURCE STATEMENT 





- ; sd : ed "000 2 UVEXYZ START 0 
: $HE CHARACTER INDICATES A BLANK COLUMN AND TRE CHARACTERS D £ 8 INDICATE NUMZRIC SHIFT. 3 DECK 4&4 
= . GY CONSE SEES EEEE SEES TEESE EEE EKEEEESSEEEERSSEESESEESSHSESHEEEESSSOSSEEEES 
“ Lb 9 THROOGR 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 89 THROUGH 64 CL 65 THROUGH 80 CL 81 TBROUGH 96 5 * s 
- : * PROG 94 HALP~SELECT CORE TEST - LOWER CORE e 
e s 
ae ee es e eeeaeevseesve @e@eeseeeoeeeooeenee ee eeeeeen ven eeen eee @eseoveaoecoen eoeeee @2eoeed 8 * THIS PROGRAS DETECTS TAE DROPPING OR PICKING oP s 
«$C <@e*PCBBC.- #OH*C 0 P1<09 350001 9 *® AN ODD NUMBER OF BITS WITHIN A BYTE CAUSED BY * 
10 © THAT BYTE BEING RALP-SELECTED 68 TIAES. s 
eo 2 - e e e oa ee ee @aeeoeeoneneeeea ease eeeee0e 41 * s 
T.-<>BP1GO-DC (G 0 GESH741I)G1ID 0 & CSB>SBAESO) GH #.KBA 16/0*B- ante KZD09 350002 12 ¢ THE TEST HAS ITS OWN LOADER ® 
: 13 2 
+ xe -°* ° ° ~* ° owe ° ‘aa! ° ° m4 © THE TEST WILL BE PEBFORMED IN THE FOLLOWING SAREER: s 
Te- 28B'PO-# 6NO ()GEO FS@ PSY 6) YD AZRSOAGHO_, OZ =SHH.?D B,-E>~D@ AEG:> )SCTQAZSYH 3,-D 66809350003 15 * 1) ALL CORE LOCATIONS ARE TESTED WITH PIRST TEE e 
” ; 16 * WORST CASF PATTERN IW CORE AND THEN WITH THE s 
. . So ° ° ° < ° ° 17 6 COMPLEMENT WORST CASE PATTERS 18 CORE 2 
Te-A5SS$X:2 O7=,-G O-#7 FHECHOASX: ? O/=,-GQ-O00A SQ AM. 2 *2:4AEG#2-/B 8/3>8)/6>8HBK_ 09 G68YD 17009350004 18 «© 2) ONLY THE AMOUNT OP CORE SET Of THE LEFTAHOST s 
19 * ADDRESS SWITCH WILL BE TESTED, THE OTHER ADDRESS * 
ee. cee : . : : ° . . ° ee 20 * SWITCHES WILL NOT BE READ * 
= Fe-B04. HA LTO B- M.e~H «¥="J-aad D 3;SO0B GIBSH® 2?C O08?CEG?7COOH* GUA &,BOaDA EDA EDA &D  o0cuG69350005 : 2 21 * 3) TO GAIN CONTROL OF THE CONSOLE ADDRESS SWITCHES, s 
: 22 * THE CE MUST INITIATE A SYSTEM BESET APTER LOADING s 
oe a me *e e e & e e oe e es e ° s eee 23 2 THE PROGRAA se er 
» Te-C, EDR @HCOEDA SDA SDA EPA EDA EDA GEDA EDA EDA EDCO@"A ELBA-A6 &% PA"_-EO. I4 &2F o~ *K&09350006 24 * &) SET UP CONSOLE ADDRESS SWITCHES PRIOR TO RESETTING . | 
25 * THE *HALT RESET* s 
os . ° ° ° * a ° 26 * 5) FUNCTIONS OF THE CONSOLE ADDRESS SWITCHES (DATASS) s 
Te-DRE.I"EGTNMEIH A "3 DCRPB MS*SA7 --L,--IF6 PB> PA 0,0 )G>BGB>B USS ERSO] E=BBUS2ZG¢#4 -RSO 15009350007 27 2 ARE: * .- 
28 8 s 
@eeeeseoesed @eeeneeseceees Geese e ee e e e e s@ 29 e ({LEPTAOST) * 
Te-P/GE>3<BL--SW *<P53.6>Z2HBL--S2 3)|62-/20 I& BA & B*"a AOG S & 25409350008 30 * SWITCH 1 SRITCH 2 SWITCE 3+¢8 e 
34 s 
acee a2 ee er eo. _ - . eee 32 * O TESTS CORE TO 4K O PROGRAS EXECUTED 00 BORHAL POSITIOS, bd 
Te-Pt & PHSDEP* ("78 D, COS. 8AS,Q ASGI""53""2=6 QH GW PH PI: BHK/,-G DS,3"1HO0ASH2> QD Aj 14509350009 33 2 4 TESTS CORR TO 4K ORCE ONLY WC PATERE FILL. s 
34 * 2 TESTS CORE TO 12K 7 BYPASS PROGRAS ZY ABY OTHER ExTRY bd 
i ae ° © ne ° e o e e .- . o e ° -? e 35 2 3 TESTS CORE TO 96K 2 LOOP PROGBAS SETS -EP- HALT aBD s 
f T+-GP 35 *K6 OR 4 XES -F3;--""0 D ASTMB 436 QOF4 PH _ PI:8HG1,E22$>  A2:@A1G2_ *KH8 G A,&D *2%09350010 : 36 * & TESTS CORE TO 20K & CCAPLEBERT FILL ALLO’S CE TO SE- s 
: i 37 * #S TESTS CORE TO 24K FATTERB USED LECT PILL PATTERN ® 
« «- oe 7 se ee ec le Se! See 7 se «© 4 38 * 6 TESTS CORE TO 28K 6 LOOP & COMPLESENT OB TEESE TO SB., s 
Te-HK ERT 2-LG2/18 JA-H@BG COPS~ /0 @E*POH* fA -~N@BG 8B? )SC,0E >-DSAEG# /0APO~ 2D *7#09350011 i 39 * 7 TESTS CORE TO 32K PILL PATTERW USED A BYTE ATA TIRE, * | 
_ 40 * 8 TESTS CORE TO 36K POR & TOTAL OF & s 
« eo enaeecece eeeceeroccevneveeace eevee eecenececa ececncsscesesaeeceseoe esece ° : By * 9 TESTS CORE TO SOK BYTES. O00 CAS BE a 
TC H~'PSITHPAGEH OOH* O ~9 49350012. &2 * A TESTS CORE TO S&K USED AS & BYTE OF ¢ 
: 43. * 8B TESTS CORE TO &8K PATTERN APTER -EP- *# 
: @ee e880 e@ ee eoe aeo 8 @ea2eson meee eeeee8 esecee ay * Cc TESTS CORE TO K BALT SET SEE 6 s 
e EOS SET+=—PC PAS ="THEP | j c rs asc RA SO Q 21301012710 228721.6093500723 «© 45 * D TESTS CORE TO ace : , = 
os 86 * E TESTS CORE TO 60K s 
u7 * FP TESTS CORE TO 68K s 
. a8 * °* 4 
ag * s 
ie 50 * 6) NOTE: TURNING ADDRESS SWITCiES 3¢8 (RIGHTMOST) TO A s 
< 51 SETTING OTHER THAR OO WILL Sif AN -EP- (ENTER PATTERN) © ¢ 
§2 HALT WHICH WILL ALLCW THE CZ TO ENTER BIS OUR *BORST s 
53 * CASE* PATTERN. THE PATTERN IS ENTERED A BYTE AT A TIBE ® 
€ 5a * ON SWITCHES 348. THE INITIAL SE TING OF SWITCHES TOA © § 
55 * SETTING OTHER THAN OO SELECTS fT. 5S OPTION. THE IBITIAL © 
: 56 * SWITCH SETTING IS NOT THE PIES T -'TE OF PATTERR. APTER © 
: € 57 * THE -EP- HALT, THE SWITCHES CaM Bb: SET TO ANY DESIRED © §€ 
E 58 * COMBINATION, EVES TO 00. THE BYTE wF PATTERS THAT IS s 
be 2 59 ENTERED IS THE SETTING ON SWITCEUS 3¢8 WHES THE HALT ba 
i e 60 * IS RESET. THE -EP- HALT IS DISPLATED POUR TIBES, THUS ©¢ #¢ 
be , 61 * ALLOWING THE CE TO CHOCSE THE FILL PATTERS. s 
ve 62 * s 
i € 63 ° ¢ 
; 64 * THE HALP-SELECT ERROR WILL BE INDICATED BY ® 
ie ‘ 65 ¢ 1) PROCESSOR CHECK & s 
7 we 66 * 2) *"B* REG PARITY CHECK e @ 
ne 67 & SAR WILL COSTAIL# THE FAILING LOCATIONS. es 
pees z 68 ¢ ° 
be ‘ s 
po peer e tere ene nee ener en ne ne mene nn nnn enna enenen= LAST PAGE ------------------------------------------------ 69 © THE PROGRAS WILL RUN FOR S80 SECONDS OF A 68K § 
pe ee ae: eg a reces. Secese. aiceaa cee areas Abe the PROG ID 0093-5 < DATE 1SSEP69 T4NOV69 = 20.3 A870 13maB70 O10CT70 = =—« 28A PRT O1NAR72 proc ID o09s-s 
ae 8693 PAGE 137 EC WO. 816499 816559 816576 816638 816756 816768 818693 PAGE 1378 
e - § 
ee 
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PAGE 138 | 
0945 CPU AND MEMORY DIAGNOSTICS: PROGRAM 948 | C985 CPt AND MEMORY DIAGNOSTICS: PROGRAM 948 
' 
FRR LOC OBJECT CODE ADDR STHT SOURCE STATEREST | _FRP LOC OPJECT CODE ALDR STMT SOURCE STATERENT 
* OO1F AB OO 6D D6 13A MZZ ««- DUH 141 (, XR2) -DATASU-1(, X82) -PUT CORE SIZE IM PILL & 
. : cuit eS ee aa east e ° | 9022 AaB CO BR DS 139 NZZ DON 2¢1(,XB2) ,DATAS@=1 (, X82) HALP-SELECT ROUTINE. 
72 ~¢ * 140 ee 
GO TO KONT2 IF CE SANTS 
73% RUNNING TINE POR PROG 94 IS 4& SECONDS PER 8K OP CORE * | C026 BO FF D7 Wat TBP DATASW(,XR2) .X'FP : 
74 * el | 0929 F2 10 18 182 JT KONT2 TO ENTER HIS OWN PATTERS. 
75 SETESSEERTE EERE TRALS CESS KSE SEES HERE SERERSE SE SKSESSESESSSESHSS SSS HHS LS HOSS l Nase #0 96 AE A PPHALT APL x'3E*.x°7C8 *ep* HALT. (OBE OF FOUR} 
> WP PH 3 . . 
bh 2.1 No2F 70 CO FD Tas SNS  WCPTRN-2(,-%R1).X°00° TRE CE SELECSS ONE BYTE 
78 | A072 SC CC FC PD 146 MVC  WCPTRN-3(1,XP1) ,WCPTRN-2(,X81) OF PATTERN AT A TIBE. 
79 CC36 N2 01 01 147 LA 1(,XR1),X81 WHEN *EP* HALT RESET, 
80 _ | 0039 6D 09 18 38 148 CLC 20(10,2R1) ,24(,XR2) A BYTE WILL BE ENTER- 
BR] FERENOEEEE ESE SEEEEESER EEE S SEROEE SESE SSSSE SEE ESTOSELESSSERS SESSUEHS SERS | 003D FO 01 2C Bees BNE EPHALT(,XB2) 2D FROM S¥S 3 6 &. 
82 * IfL LCADEBR FOR PROG 98& * | 1 
® 0040 C2 01 OOFC 151 KONTZ LA 252,XR1 ~PUT WORST CASE PATTER IB 
83 * TRE LOADER WILL READ IPL FORMATTED CARDS SEQUENTIALLY : peeac eens 6303 a ove eis rn oes 306. 57, 3558 59. 
Bu ft INTO MEMORY STARTING &2T LOC -0000-. TBE LOADING SILL a ’ e3e 
85 2 TERMINATE WHEN HEX -1234- IS POUND IN COLS -59 & 60-. e : 
a6 ERASE SEKERERAESESEE TE ERESS OF ERTHEEE FTA EEKEESETEL SEETHER SESLSSSSSEKSELSHSEKTEES i 7948 BB O& D6 1548 TBN DATASH- 1(, XR 2) - X08? eas peerpces aaece Sees 
0000 FO SF 18 87 RALT? 8PL X*1B",xX°SF® PROG 94, HALT 1. IPL HALT. OCUR F2 90 O08 Mee JF PILL ° 
meee ae 5 ee SL a ee a eee. chee roe Sona eaae O22E-. ONUP 6C 03 C7 DE 157 KONT3 SVC 7(4,XR1),XPPFP(,XR2) -PUT COSPLESENT PATTERN I 
co 90 + GO READ FIRST CARD. 0052 SP 03 07 93 v8 SLC =. 7( 8, XK 1) 6 3(- XRT) BHERE VORST CASE #AS 
91 
0056 D2 91 08 160 PILL LA &(,%B1) -XB1 ~PILL CORE @ITH THE 
aoea a ae ei 0059 5C 02.07 93 161 MVC 7 (&,XR1),3(, X81) PATTERW 1H LOCATIONS 
0200 94 ORG 512 . COSD BY 01 D9 162 ST PAD(,XR2),XBR1 256, 257, 258 & 259 
95 0060 Be FB DI 163 TBN PAD(,XR2),X*P8* 8 pres Yee Pho eeete 
0200 FC 6F 76 96 HALT2 APL X‘'76*,X*6F! PROG 9&8, MPCU NOT READY HALT. pee BR OF DS 164 TBN PAD-1(,XR2),X°OF® eee cos attire. 
9703 C2 01 C200 97 LA X*0200*,XR1 USE -0200- AS BASE ADDRESS 066 FO 90 56 165 BF FILL(,XR2) 3 
0207 Di FO CO 98 TEST! TIO HALT2(,XR1),X'FO! GO RALT IP MPCU ERROR OR HOT READY. anegcnion alan oS ehae cie) oi dab Reece ar ee coneLEniue 
Soon eae ns A De eee Sere ay ane CN6C RS OF NB 168 DUN) TBN  PAD-1(,XR2) ,X*OP* PATTERN & PILL SK SORE 
020D P3 PI 45 100 SIO X'85*,X' PI! READ NEXT CARD IN IPL HODE. ° ° porte Ail Cone FILLED: i 
0210 D1 F1 10 101 TEST2 TIO TEST2(,XR1),X*FI* WAIT HERE TILL BUSY DROPS. OC6P FO 90 UP 169 BP KONT3 (,XR2) 
6213 OC 3B CO3R 01BB 102 SOVE YC 59 (60),443 MOVE THE DATA READ TO LOWER CORB. pale et a: a seanata oeene Pak 
0219 SE 0116 2c, 103 ALC MOVE43(2,ER1) SIXTY (,XR1) INCREMENT HOVE TO ADDRESS . : 2 ‘ 
021D 1D 01 (1BB 2E 108 CLC 443(2) -LSTCRD(,XR1) GO TO LOC -0007- IF LAST CARD ca ae i . we ies i SONI HALP-SELECT TEST i 
8 € : ~ 
Soe $0 a a a0 tg ar xR1) Teo READ ace ae nee | 007C 9C 01 FT OT 17% NVC SAVE1(2,2R2) 91 (eXR1) -SAVE TWO TEST BYTES, 
107 ° . a | 9080 7C FF 00 175 AVI O(,XR1),X*PP* TREX COMPLEAEST THE a 
= 0229 0180 022A 108 AD3B8& DC AL2(384) CoR3 6F CO C(O FD ao SLC 0(1,XR1) -SAVEO{, XR2) BYTE xX ° 
2 
fav Aon tone oe 436 pee pe acs ¢ 0087 SC CO 01 01 178 BEAT2 SVC  1(1,XR1),1(,XR1) -SELECT (BEAT) THE 3 
:3 0001 111 xRI EoD) OC8R AE CO DP DA 179 ALC COUNT2(1,XR2),X10(,XB2) HIGHER BYTE 32 TIBES. 
003B 112 END £Q0 x*3B* : O08PF EO 20 87 AL BNO BEAT2(,XK2) a 
113 
114 *eeteeeey psseeceneeeee IPL LOADER FOR PROG 94 *###eeeeneeses FUDSSsse Fe co92 Sc co or on a CHK2 NVC 0(1,XR1) ,0(,XB1) ~RE-SELECT TRE LOWER BITE 
115 #8080 THE POLLOWING PROGRAS WILL BE LOADED BY THE LOADER seseese 
116 *eeeee8 ©«6ARFTER THE LOAD BAS MOVED ITSELF INTO HIGHER CORE. sessess § ae e. = EO vac ave tea eee pete creutat eee 3 
V7 e e 
0000 118 ORG O ;. Scop 6C 00 01 PI see SVC 1(1,XR1),SAVE1(,XR2) RIGHER BYTE. . 
119 « 7 
: 00a1 5C ©O CO 00 188 BEAT? sBVC 0(1,XR1),0(,X81) «SELECT (BEAT) THE 
oooe 1A es Sears COAS AE CO DF DA 189 ALC COUNT2(1,XR2),X10 (,XR2) LOWER SYTE 32 TIRES. 
0000 3c 87 O0OCF 122 START SSVI IPLFLG+1,x°87* ~ ENABLE OPTIONS ON SYS REST & OOA9 FO 20 At say ENOL BEAT1(,2R2) 
123 
OCC’ FO SF 1B 12% BEGIN HPL X'1B*,xX*SPFt HALT "94". SYS RESET & ooac $c O00 01 01 ee CAKI SVC 14 1,XR1),1(,X81) ~RE-SELECT THE BIGHER BYTE 
125 * ENDING HALT i 
126 . 00B0 6C CO 01 FI 194 nvC 1(1,XR1) ,SAVE1(,XR2) . 2 ISTORE THE HIGHER BYTE, 
0007 C2 C3 0000 127 INIT LA 0,Xx*03° RESET XR1 6 XBR2 : OOFs BA O1 DI 195 ST PAD (,XR2) ,XBR1 THES GO TO KONTS TO TEST 
128 i CO COB7 BS FE D9 196 TBN PAD(,XR2),X°FE* TWO MORE BYTES ONTIL ALL 
900B BO 00 D7 129 SNS  DATASW(,XR2) ,X*00° ~READ THE ADDRESS SWITCHES OOBA B8 OF DB 197 DUN2 TBN PAD-1(,XR2) ,X*OF* CORE HAS BEEM TESTED. 
130 _ N0BD FO 90 75 ae BP KONTS (, XR2) 
0002 F2 80 07 131 IPLPLG JC KONT6 ,X*80* -MASK ALL OPTIONS IP SYSTER < ; 
0011 BC CO D7 132 MVI DATASW(,XR2) ,X*00* RESET WAS PERFORBED. = COCO BR 02 D6 200 TBN DATASW-1(,XR2),X*°0O2° ee nocearcce ae 
0014 A8 03 D6 D7 133 BNN DATASW-1(,XR2), DATASH (, XR2) 00C3 £O 10 40 20 BT KONT2(, XR2) 
134 - 
0018 BB 01 DS 135 KONT6 TBH DATASH-1(,XR2),X*O1* -GO TO LOADER ROUTINE IP 00C6 £1 FO O08 203 LOADER TIO BEGIN(,XR2),X*PO* -GO ae ce ueele 
001B F2 10 A8 136 Jt LOADER *BYPASS* SWITCH IS CH. C0C9 BT FS F3 208 LIO X0000(,XR2),X*r5* HEXT P 
137 c oocc P3 Fi 45 205 sto X°Q5*,x°Pis 
DATE 15SPP6S 14NOV69 203AN70 13H8AR70 010CT70 28APR71 01MAR72 PROG ID 0098-5 DATE 15SEP69 14N0V69 2OJAN70 13MAR70 010CT70 28aPR71 eee oes rp oon 2 
EC RO. 816499 816559 816576 816638 816756 816788 818693 PAGE 138 EC NO. 816899 816559 816576 816638 816756 816788 818 
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0945 CPU AND NESORY CIAGNOSTICS: 


ERR LCC OBJECT CODE 


OOCF £1 F1 CF 
00D2 co &7 C003 


COD6 0000 
00D8 0000 
OODA 10 

OOLB FEFFFFPF 
OODF GO 

00£0 CO 

90E1 CO 

00£2 0000 


ADDR STMT SOURCE 


OOD7 
00D9 
CODA 
CODE 
OODP 
COEO 
oog81 
COE3 


OOF’ CCOC000000000000 OOFS 
ooFcC oCcccccogoco0o00 
ocra Ccooco0000000000 


v0FC 
ooFC FRFFOOCO 


DATE tSSEP69 


2c 8O. 816499 


0002 


OOFF 
FFFP 


VaHOV69 
816559 


206 TSTBSY 
207 

208 

209 

210 *eeene 
211 * 

272 DATASW 
213 PAD 
244 X10 
215 XPFFP 
216 COUNT2 
217 SAVEO 
218 SAVE? 
219 10000 
220 

220 

220 

221 s¥eeee 
222°: 

223 XR2 
228 

225 

226 WCPTRN 
227 


20I3AN70 
816576 


PROGRAM 94 


STAT ESENT 


TIO TSTBSY(,XR2) -X* FT 


B 3 


CONSTANTS 


ee eee 


pc XL2*0000* 
pe XL2*0000°* 
pc XL 1° 10° 


pc XLU ¢FFPFFFFE * 


bc XL1*°00* 
Bc XL1°00* 
oc XL17°900° 
pe XL2*0° 
pe IL24*Q# 


EQUATES SeCEREK 


Zo0 2 


ORG 252 


pc XL4*FFPFOOOO* 


END 


13RHAR70 
816638 


010CT70 
816756 


EXTRA SPACE 


28APR7 1 
616788 


OWMAR7T2 
818693 


PART WO. 
PAGE 


PpRaoGc ID 
PaGz 


2589926 
139 


0094-5 
139 





09485 


SYMROL 


AD 76a 
BRAT! 
BEAT2 
BEGIN 
CuK1 
CHK2 
CouNnT2 
DATASW 
DUN 
DUN2 
END 
EPHALT 
FILL 
RALT1 
HALT2 
INtT 
TPLPLG 
KONT2 
KONT3 
KONTE 
KONTS 
LOADER 


LSTCRD 


ROVE 


XP2 


x9000 
x10 


DATE 
Ec NO. 


CPU AND MESORY DIAGNOSTICS: 


4 


ee ee ee ee ee iad 


LEW V 


002 
008 
004% 
003 
ocs 
cou 
co1 
002 
c03 
003 
cot 
003 
003 
003 
003 
cca 
cc3 
oca 
008 
003 
0c3 
003 
002 
OCE 
C02 
001 
cot 
C02 
N08 
003 
0¢c3 
003 
001 
0048 
Oca 
001 


001 


00? 
c01 


ALOF 


C22A 
COA 
C087 
0008 
COAC 
C092 
ooDrP 
oon7 
co6c 
COPA 
0038 
90 2C 
0056 
cooc 
0200 
noc? 
N00E 
0049 
QO4E 
C948 
0079 
coceé 
O22E 
0213 
Conds 
CCEO 
cOrRt 
922C 
cn00 
0207 
0210 
COCF 
cooo 
COFP 
CODE 
0001 


0002 


00r3 
OODA 


TSSPP69 


816499 


DEFH 


o1c8 
07188 
C178 
0128 
0192 
0182 
0216 
0212 
0168 
C197 
0112 
C188 
01690 
c087 
0096 
0127 
0131 
0151 
0157 
0135 
0173 
e203 
0110 
0102 
0213 
0217 
0218 
0109 
0122 
0c98 
0101 
0206 
0co2 
0226 
0215 
0171 


0223 


0219 
0218 


T4NOV69 
816559 


RFEPER 


0099 
0190 
07180 
0203 


0172 
9129% 
0138*% 
0139 
008s 
0189 
0155 


2092 


0122 
0182 
0169 
0131 
6198 
0136 
0088 
0103 
0162 
0176 
0174a¢ 
0103 
0120 
0166 
OT01 
0206 


91858 
0157 
cCo97* 
018 7* 
0162 
0182 
0129 
9158 
0179 
0200 
0208 
0179 


TOTAL STATEMENTS FLAGGED IN THIS 


203 
816 
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PROGRAR 94 


CROSS-REPER ENCE 


0133 0135 0138 0139 0141 


ENCES 

0179% 01894 
0132* 0133 

0165 

0093 0098 

0201 

0108 

0163 0164 0168 
0188 

0186 0198 

0121 

0186 0146¢ 

0998 0099 0101 
0148 01571*% 0152 
0167 0167% 0171% 
0188 0185 0186 
0132 0133 0133 
0157 0162 0163 
0180 0184 0186 
0201 0203 0208 
0189 
ASSESBLY = 
AN70 T3HAR70 
576 816638 


c195* 0196 0197 
0103 0703 0108 
0152 0157 0158 
6173 0173¢ 0174 
0188 0188 0192 
0135 0138 0138 
0166 0165 0158 
0189 0189 019¢ 
0206 
0 

010CT70 26APR71 
816756 816788 


0106 
0158 
0175 
0192 
0139 
0169 
0194 


PART ¥O. 
PAGE 
0158 0200 
0185 0146 0186 0187 
0160 0160* 0161 0161 
0176 0178 0178 0182 
0198 0195 
0739 0187 0186 0189 
0172 0178 0176 0179 
0195 0196 0197 0198 
OUNART2 PROG ID 
818693 PAGE 


2589926 
T39—R 


0098-5 
1394 
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PAGE 140 PAGE  9a08 
0985 CPU AND MEMORY CIAGNOSTICS: PROGRAR 98 | . C955 CPU AND MEMORY DIAGNOSTICS: PROGRAR 95 : 
OBJECT CARD LISTING ERR LOC O83JFCT CONE ADDR STMT SOURCE STATEMENT 
Bo | Sake 0000 2 UVRXYZ START O 
THE CHARACTER INDICATES A BLANK COLUSN AND THE CHARACTERS D E BH INDICATE SUNERIC SHIFT. 3 cern oe ; 
. : : Y 4846566648 SF CESK SOEKRESEEE SESS SKVEKSE KET HSKSE SSKEKSEHEESCSHSESSERERESRESESSESEESE 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 38 CL &9 THROUGH 6&4 CL 65 THROBGH 80 CL 81 TRROUGH 96 a5 . ; 
. 6 « PROG 95 RIPPLE BITS ON AND OFF TEST - LOWER CORE * 
7s s 
as oe oe @eeaenwoeooeaeacee @esenoeoageeeosceesesee2d @@eeeoeeseaeae02ecdc02933083 0 @ee eevee een ences eos @eeeoese 2 8 * « s 
T #<@Pascess.- s0H*B 0 SAHC9850001  ~ 9 * THIS PROGRAM CHECKS TRE ABILITY TO READ AND WRITE UNDES WORST * 
; 10 * CASE CONDITIONS. s 
; J = Me wae e e e es eo eoeeeoaeenene eso eeeee 1 s s 
 T.-H>SP*6O-OB (6 0 GGSHTY1I)GID 0 # C%A>SBAESO) EF @.SBA -6/0*A- apTs LHUC9850002 13% THE TEST HAS ITS OWN LOADER ‘< 
erat re . : -° ee ge 7 os ° 14 * THE TEST WILL BE PERPORMED IN THE POLLOWIEG HAMNER: * 
ee pie os 16 * 2) THE PATTERN IS VERIFIED (READ) AT EACH CORE LOCATION * 
ee se ask * ° ° Bo es 17 ® 3) A NUMBER IS RIPPLED THROUGH CORE ® 
T+-ASEAT~ K3B EC OP <G @-DS?HEBPO CA'9> O*FCH-DDP < CG SEAGSTSSS-16¢B SN_HAA.-]6¢BELEH A 18 64609850008 <ea THE NUMBER IS VERIFIED (READ) AT EACH CORE LOCATION ‘ 
19 * 5) STEPS 1-4 ARE REPEATED POR ALL HEX HONBERS 00-FF * 
. . €\8 oe 8 ° cee e us Re PS ee OR oP ae . 20 * 6) ONLY THE AMOUNT OF CORE SET ON THE LEPTROST ADDRESS * 
P4-BO? Cxt-DBX G f P32" BR +3* D A,-C-6> -/50 A & CHrw}@AS ABNO B> ("EBBB/P A 00 22809850005 54.4 ) SWITCH WILL BE TESTED, THE OTHER ADDRESS SWITCHES * 
22 * WILL NOT BE READ. * 
*° . ° : ° ad See 8 PACES see seeee Peet ee 22 ¢ 7) TO GAIN CONTROL OF THE CONSOLE ADDRESS SWITCHES, THE * 
Te-C, G/_ GR>}# R> "QBIAS> .O8AA S— DE=PT@"EEB3G jOH® 0 gran mag EI4809450066 nas CE AUST INITIATE A SYSTEM RESET APTER LOADING PROGRAR ® 
25 * 8) SET UP CONSOLE ADDRESS SWITCHES PRIOR TO RESETTING * 
eee aoeeceondedes @eeeseeveeee eee @eesoecoceeeseoeseeseasna @eevnveeesese8e80e00e082806929 e@eeeeceaen esceseoecssd? eseeeve 26 * THE °HALT BES ET* 2 
TDOc pne 0C< 09850007 27 * 9) PUNCTIONS OF THE CONSOLE ADDRESS SWITCHES (DATAS¥) ARE:* 
28 * * 
eee eee . ee eee2 eee e eee seemeceaeesctcenve eeeoeose 29 * (LEPTAOST) 2 : 
31 * * 
&. 32 * 0 TESTS CORE TO 4&K © PROGRAS EXECUTED OO NORSAL POSITION, * 
& 33 © 1 TESTS CORE TO 6K OKCE ONLY @C PATTERN FILL. * 
o 34 * 2 TESTS CORE TO 12K 1 BYPASS PROGRANS XY ANY OTHER ENTRY * 
= 35 * 3 TESTS CORE TO 16K 2 LOOP PROGRAS SETS -EP- HALT AND © 
* 36 * & TESTS CORE TO 20K & COMPLESENT FILL _ ~BLLOWS CB TO SE- *¢ 
: 37 * 5S TESTS CORE TO 28K PATTERS USED LECT FILL PATTERE *& 
i: 38 * 6 TESTS CORE TO 28K 6 LOOP & CONPLESREST ON THESE TO S#., * 
8 39 * 7 TESTS CORE TO 32K FILL PATTERN USED A BYTE AT A TISE, * 
ieee 80 * 8&8 TESTS CORE TO 36K ; FOR A TOTAL OF &§~= ® 
- 81 © 9 TESTS CORE TO 80K BYTES. 00 Caw BE *® 
42 * A TESTS CORE TO 83K USED AS A BYTE OF * 
83 * 8 TESTS CORE TO C8K PATTERN AFTER -EP- 2 
43 * C TESTS CORE TO 52K HALT SET (SEE 10) ® 
45 * D TESTS CORE TO SOK s 
46 * FE TESTS CORE TO 60K * 
87 * PF TESTS CORE TO 68K * 
a8 © * 
a9 * * 
50 « 10) NOTE: TURNING ADDE2SS SWITCHES 348 (RIGHTHOST) TO A * 
51 * * SETTING OTRER THAN °O WILL SET AH -EP- (ENTER PATTERN) © 
52 * HALT WHICH WILL ALLOW THE CE TO ENTER RIS OWN *WORST * 
53 © CASE* PATTERN. THE PATTERN IS ENTERED A BYTE AT A TISE © 
54 * ON SWITCHES 348. THE SYITIAL SETTING OF SWITCHES TOA ¢ 
55 * SETTING OTHER THAN 00 “ELECTS THIS OPTION. THE INITIAL * 
56 * SWITCH SETTING IS KOT =“E FIRST BYTE OF PATTERN. AFTER * 
= 57 + THE -EP- HALT, THE SwIt©2+S CAN BE SET TO ANY DESIRED * 
: 58 * COMBIBATION, EVEN TO 00. YVHE BITE CF PATTERN THAT IS * 
r 59 * ENTERED IS THE SETTING <8 SWITCHES 3¢8 WHEN THE HALT ¢@ 
i 60 « IS RESET. THE -EP- HALT IS DISPLAYED FOUR TIMES, THUS * 
: 61 * ALLOWING THE CE TO CHOOSE THE FILL PATTERN. * 
ie 62 * s 
Ee 63 ¢ | ‘ 
: 6u « MEMORY PAILURES GILL BE INDICATED BY: * 
i « 65 * 1) PROCESSOR CHECK s 
i 66 * 2) *B* REGISTER PARITY CHECK * 
i 67 * * 
: ‘ . MS 69 * TRE SAR W COMTAIN THE FAILING LOCATION s 
: PLP OOM RMON OE RONEN OMEN F AST PAGE ~~ «ee wne eee SO CSCO Oe OO OOO ee Oe CO ee Coes wowwoas | ~ TLL erat : 
; ' DATE ‘TSSEP69 18N0 69 203AN70 138AR70 010CT70 28APR71 O1NAE72 PROG ID oosa-5 «| DATE 15S FP69 14NOV69 s0siN70 13HARTO etecr70 2BAPR71 owmar72 proce ID 0095-5 
BC NO. 816899 816559 816576 8 166 38 816756 816788 818693 PAGE 180 | EC WO. 616899 816559 816576 816638 Brees €16768 878693 PAGE 1408 
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C955. 


0900 
6063 
9009 


9200 
9200 
0203 
0207 
O20a 
620D 
0210 
6213 
0219 
021D 
0222 
8226 


0229 
9228 
022D 


¢c000 


0000 
0c0s 
0007 
0008 
S00E 
0011 
0078 
9018 
0018 
COTE 
$021 
0025 
00 28 
0028 
0022 


DATE 
gc a0. 


IBM MAINTENANCE DIAGNCSTIC PROGRAS PART NO. 2589926 
PAGE 14a 
CPU ARD MEMORY DTAGNOSTICS: PROGRAS 95 
ERk LOC OBJECT CODF ADDR STNT SOURCE STATESENT 
70 # 2 
71 «* THE RONNING TIME FOR PROGRAM 95 IS 4& SECONDS PER 8K CP CORE s 
72. s 
73 SKETCH SHSEEEKSE SHKSKSE STRESSES SHEE TESTE RESEE ETERS ESSESHHESEEEREKENSESEESEEEESE 
7a 
75 
76 
77 SHKEEKK TA TCEREREST SST HEE S SHS OOCEHRS EES HSSTEEETEEKESSESTEESSTEESTEEESEESE BESEREEE 
78 ®# s 
79 ® IPL LOADER FOR PROG 95 e 
80 * s 
81 * THE LOADER WILL READ IPL FORMATTED CARDS SEQUENTIALLY I8TO * 
82 MEMORY STARTING AT LOC -0000-. THE LOADING WILL TERAINATE WHER @ 
83 * HEX -1234- IS FOUND IN COLS -59860-. s 
ea * : e 
85 SESS SE SVE SE SSE KE SESSSKS SSTHSSOE STOKE KSESS SEKEE STHESSHEKSEEEESEEEEEESESSSEEESTEEE 
86 
87 
FO SF SD 88 HALTA HPL X'*Sp* ,x*SPr¢t «PROG 95 IPL HALT, HALTA 
OC’ 22 G2ZE 0038 89 SVC) =e LSTCRD( 4&7) , ERD eNOVE THE IPL LOADER TO LOC 
co 87 0203 90 8 515 -0200- THRU -O22E-. READ 
0200 91 USING HALTB,1 FIRST CARD 
0200 92 USING HALTB,2 PIRST CARD 
93 ORG $12 
FO 6F 76 94 HALTB HPL K* 76* ,X*6F* PROG 95 MFCU NOT READY ALT 
C2 01 9200 95 . La X*0200* ,xR1 «USE X*0200* AS BASE ADRS. 
D1 FO 00 96 TEST1 TIO HALTB(,X81),X°PO* -~HALTSSFCU ERROR, NOT READY 
71 FS 2a 97 LIo AD388(,XR1) ,X*F5° «LOAD ERZAD ADDRESS LSR 
F3 FT 4s 98 sto x°a5* ,xePt? eREAD NEXT CARD IN IPL MODE 
Di Fi 70 99 TEST2 TYG TEST2 (, XR1jp ,X*F1° eo WAIT HERE TILL BUSY DROPS 
OC 32 CO3B ORB 100 MOVE mY¥C 59 (60) , 443 MOVE DATA READ TO LOW CORB 
SE 01 76 2¢ 101 ALC MOVE*3 (2, X81) ,SIETY (, XR) e INCREMENT MOVE TO ADDRESS 
1D 01 GIEB 2E 102 crc 443(2) ,LSTCRD(, XR?) -GO TO LOC -0007=- IF LAST 
cO 81 0007 103 BE 7 CARD READ #AS *LAST* CARD. 
DO B7 07 104 8B TEST1(,ZR7) IF ROT,GO 2EAD NEZT CARD 
105 
106 
0180 O22A 107 AD3848 DC AL2 (384) 
603Cc O022C 108 SIXTY oDC XL 2*003¢c* 
1234 0222 109 LSTCRED pDC IL2*12348°¢ 
0007 110 £R1 £00 xr*O1* 
0035 111 ERD £0u xr*3B¢ 
12 
113 
114 S¢eeeteeeee8END OF IPL LOADER POR PROG 95.THE POLLOWING PROGRAS WILL BE 
115 ##eeeeeeeee¢LOADED APTER THE LCADEB HAS NOVED ITSELF INTO HIGHER CORE. 
116 
117 
116 
119° 
420 ORG 0 
co0o0 (121 OSING START,1 
C000 122 USING START,2 
3C 87 OOO0F 123 START SI IPLPLG¢1,xX°*S7* eSYS RESET ENTRY,ENABLE S4uS 
FO SF 5D 12% BEGIN HPL xX*SD*,x*5F* eHALT 96. IPL & ERD BALTS 
c2 03 CoCo 125 La 9,X°03° e INIT XR1 & XR2 
BO 00 BC 126 SNS DATASW(,IR2) ,X*0u* -READ ADDRESS SWITCHES 
F2 80 07 127 IPLFLG JC KONT6,X* 80° eENABLE SWS WHEB SYS RESET 
Bc CO EBC 128 NVI DATASW(,XR2) ,X*00* eIN NORMAL ROENING READ THE 
a8 03 EB BC 129 ANN DATASW-1(,XB 2), DATASH (, XR2) SWITCH TO SET CORSIZ ONLY 
BS 01 BB 130 KONT6 TBN DATAS W-1(,XR2),X*O1! TEST IP BYPASS SWITCH ON 
F2 10 8D 131 JT LOADER IF YES,GO TO NEXT PROGRAS 
BC FF BD 132 NVI CORSIZ~1(,IR2) ,X* FF* -DETERMISE ANOUBT OF CORE 
a6 00 BD BB 133 SZZ CORSIZ-1(,XR2) , DATASW~-1(,X R2) TO TEST ABOVE 256 BYTES 
89 FF EBC 138 TBP DATASH(,XR2) ,X* PP* «TEST IF CE WANTS TO INSERT 
F2 10 14 135 _ Jf KONT2 WC PATTERN.IF NCT, CONTIBUE 
FO 7c 3E 136 EPHALT HPL X°3E*,x* 7c* ENTER PATTZRW (EP) HALT.IP 
70 0C c9 137 SNS WCPTRN-2(,XR1),X*00* CE @ANTS HIS OWN PATTERS, 
ISS EP69 T8NOV69 207A870 T3MART70 O0T0CT7O 28APR7 1 OIMART2 PROG ID 0095-5 
816499 816576 816638 816756 016768 818693 PAGE 181 
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IBA SAINTFENANCF DIAGNOSTIC PROGRAR 


C955 
ERR LOC 


0031 
0035 
90328 
003C 
O03P 
OC 82 
0046 
00a9 
0048D 
051 
0055 
e059 
C05D 
0061 
00648 
0067 
OO06A 


COGE £ 


9072 
0075 
0079 
oc7c 
0080 
6083 
ORE 
0089 
OC8D 
9091 
00948 
60397 
9C9R 


COSE } 


NOA2 
OOS 
OA8 
SOAB 
OOAE 
9081 
O00Ba 
OO0R7 


OOPB 


COBD 
OO0RP 
00Cc3 
o0c4s 
occs 
00Cc7 
00c8 
oocc 
cocD 
00D1 
00D3 
00DS 
0 CD6 
OOrA 
CODB 
OODP 
- O0E1 


00£2 


DATE 
EC NO. 


OBJFCT CODE 


5c 00 CBR 
D2 01 01 
6D 09 C9 
FO 01 28 
BS OS BB 
ac 03 C2 
P2 90 08 
AP 03 C2 
AC 03 CR 
ac 03 £9 
c2 01 
AB 00 DS 
AC 01 DS 
BB 11 FI 
F2 90 2D 
RC 00 FI 


1000 


ocoo 
occo0c 00 
CO 

10 

9¢00 

40 

FP PFOO00 
co 
FFEFFFPFF 
cO0s 
0000 

00 
ococon0o 
00 
01010701 
1080 

00 


cg 


cD 


bo 


cB 
C2 
DA 


0100 


cy 


bo 
03 


ca 


DE 


CPU AND MEMORY DIAGNCSTICS: 


ADDR STNT 


OOBC 
0002 
OOBE 
00c2 
00c3 
coca 
00C6 
00c7 
oocB 
eccc 
Cobo 
cop2 
OODs 
cODS 
c0D9 
OODA 
OODE 
COEO 
0081 


CcooooCcOO0COOOCOO COFF 


1SSEP69 
8164899 


14NOVE9 


PROGRAN 


95 


WCPTRN-3 (,XR1),WCPTBK-2 (1,X8 1) 


1(,XR1) ,XR1 


EPRALT (, XB2) 
DATASW-1(,%B2) ,X*Ou? 
PATERN (,XR2) ,CHNGER(%,X R2) 
KONTS 

PATERN(,XR2) ,WCPTRW(&,XR2) 
WCPTRN (G, X82) ,PATERN(,XR2) 


RIPPAT(,XR2) ,RIPPAT#1 (9, XR2) 


256,XR1 


COUNT2(,XR2} ,COPSIZ~-1 (, XR2) 


COUNT1(,XR2) ,X1040 (2, X82) 
RPLAG(,XR2),X°11° 

KONTS 

RPLAG (,XR2),X*00° 

3(-XR1) ,RIPPAT(4,XR2) 
7(,XR1) ,3(48,XR1) 

POUR (,ZR2) -XR1 
COUNT1(,XR2) ,X0040 (2, XR2) 
PILL (,XR2) 

COUNT2(,ZE2) ,X10(1, X82) 
KONT3 (,XE2) 

RPLAG (,XR2),X°71° 

PILL (,XR2) 

7 (,XB1) ,CHNGER(&,XR2) 
7(,XR1) 6 3( 8, IRI) 
PILSOR(,XR2) 

RPLAG(,XR2) ,X°71° 

3(.X81) ,WCPTRN(&,XB2) 
RIPPAT (,XR2) ,X* FP* 
RIPPAT(,XB2) ,BCCUNT(%,XR2) 
PILL(,X82) 
DATASW-1(,XR2),X°02* 
KONTS(, X82) 

BEGIN (,XR2) ,X*FO* 
X0000(, X82) ,X°F5°® 

X°GS*, xePye 
TSTBSY (, IR2) .X° FT 

3 


DATA DEFINITIONS 


XL2*1000* 
x*02° 

XL2° 08 

XL&°O°* 

xL17°0° 
XL1°10* 
XL2*0° 
XL1°4a0* 
XL4°PrFPOOOO® 
XL1*O* 

XL 9° PFFFPPFF 
XL2*000@° 
XL2°0° 

XL1°9° 

XL&*QO* 

XL1*O° 
XL4°0101301701° 
XL2*°1080* 
ZIL1°O* 
DO NOT 
XL 30°08 


ALTER TEE ORDEE OF 


010CT70 
816756 


28aPR71 
816788 


SOURCE STATEARENT 
138 AYC 
139 LA 
180 cLc 
W461 BNE 
1482 KONT2 TBN 
183 SYC 
V4 JP 
185 SLC 
166 BYC 
147 KONTS s¥C 
148 KONT3 LA 
1489 NZZ 
150 svc 
151 Ten 
152 oP 
153 AVI 
158 AvC 
155 PILL NVC 
156 PILSOR A 
157 ALC 
158 BRE 
159 SLC 
160 BL 
164 TBP 
162 BT 
163 AVC 
164% SLC 
165 B 
166 KONTS ATI 
167 “VC 
168 TRH 
169 ALC 
170 BP 
171 T BN 
172 8ST 
773 LOADER TIO 
378 LIO 
175 sIto 
176 TSTSSY TIO 
177 B 
178 
179 
180 
181 
182 seenessenese 
183 
18a 
185 DATASW DC 
186 XR2 £00 
187 CORSTZ DC 
188 PATERN DC 
189 oc 
190 x10 be 
191 x0000 nec 
192 x0080 pbc 
193 WCPTRN DC 
198 pc 
195 CANGER DC 
196 FOOR bc 
197 COUNT? DC 
198 COUNT2 DC 
199 RIPPAT DC 
200 bc 
201 RCOUNT DC 
202 x1080 pc 
203 RFLAG DC 
204 seeeaneneees 
205 EXTRA DC 
20JAN70 13MAB70 
816576 816638 


ABOVE DATA 


OTM ART2 
818693 





PART 80. 
PaGE 


Spee 


2589926 
Tata 


THE -EP- HALT WILL COME OF 
4 TIMES.THE CE SELECTS ONE 
WCPTRN-2(10,XF1),@CPTRNO2(,XR2) BYTE OF PATTERW AT A TIBE. 


GHES -EP- HALT BESET, BYTE 
CHECK IP 
INIT 
e SKIP 
oINIT 


wC IP WC COMP WANTED 
WC PATTERN 


INIT RIPPLE PATTER 
eINIT XE1 

eINIT CORESIZE COUSTER 
«INIT SK COUNTER 


GANT BC CCAP PTRE 
UC COMPLEFERT PATTERS 


TEST IF NUMBERS RIPPLED.IP 
YES, FILL CORE WITH PATTERS 


SET FLAG TO RIPPLE 


HUBBERS 


e-SOVE BIPPLE PATTERN TO POS 


MOVE PATTERN FOUR BITES 
HIGHER & INCREREWT XIR1 
CHECK IP SK 

IP WOT, FILL SOME MORE 
« DECREAENT CORSIZE COUSTER 


OF CORE PILLED 


BEECH WHEN ALL CORE FILLED . 


-CHECK IF RIPPLIBG NUABERS 
IN CORE.IP YES,GO TO FILL 


COMPLEMENT THE FILL PATERS 


eee 


AND PLACE I® WEXT LOCATION 


«PILL MEXT GK OF CORE 


-RESET PLAG TO RIPPL wuBBRS f 
«HOVE PATTERN IETO POSITIONS 


eTEST IF ALL CHABACTERS 


RIPPLED. INCRESEST PATTERN € 
-GO FILL CORE WITH PATTERL 
eTESZ IF *LOOP* GPTIUB OB 
-LOOP PROGRAS IF *LOOP* O# 
-GO READ NEXT CARD AND 

BRANCH TO LOC 0900 

€ 
€ 
€ 
é 
€ 
€ 
¢ 
€ 
€ 
€ 
DEFINITIOBS 
€ 
TROG ID 0095-5 § 
+26B / 9ata 
2 





IBS SAINTERANCF DIAGNOSTIC PROGBAN : . PART NO. 2589926 
nh oie ; (a | PAGE 192 
0955 CPU AND NENORY CTAGNOSTICS: PROGRAN 95 

ERR LOC OBJECT CODF =» ALDR STMT SOURCE STATEMENT 


OFA CoL0000000000000 205 


OOF2 OCCNSCcCocoeccroo 205 
ocra Cooocooo00re 205 
PFPF 206 END 
DATE 1SSEP69 TENOVES 2034 N70 13 HARTO 010CTTO 28APR7 1 OM AB72 PROG ID 0095-5 
} £c #0. 616899 816559 816576 816638 816756 €16788 838693 PAGE 142 


oe 


%, 


- las ‘es <i = * s 
Se eg ie mr - : 





£~ 


a 


ey 


¢ 


TBS MAINTENANCE DIAGNOSTIC PROGRAM 


0955 


SYPROL 


AD368& 
RFGIN 


CHNGER. 


COPSTZ 
CCuntt 
COUNT2 
DATASW 
EWD 
PPHALT 
EXTRA 
FILL 
PILSOR 
FOUR 
HALTA 
HALTP 
TPLPLG 
KONT2 
KONT3 
KONTS 
KONTH 
KONTB 
LCADER 
LSTCRD 
HOVE 
PATERN 
RCCUNT 
RPLAG 
RIPPAT 
SIXTY 
STAPT 
TEST 
TEST2 
TSTBSY 
UVUEKYZ 
WCPTRN 
xR 


ER? 


xccoo 
x0040 
x10 

x10480 


TOTAL STATEMENTS 


DATE 
EC nO. 


ee2eoeeneee0ee0e2080 0 @ 


CPU AND MEMORY CIAGNOSTICS: 


wy 


a On>p mere ree wr ape eer eee yer vr ey >> yyy)» » Dw DD Dw 


3 


LEN V 


002 
003 
004% 
002 
002 
001 
C02 
01 
003 
030 
0048 
003 
002 
003 
O03 
0C3 
NO? 
Oca 
Cou 
003 
03 
903 
C0? 
COf 
804 
008 
001 
Oca 
C02 
008 
003 
F093 
103 
001 
0048 
001 


901 


002 
001 
001 
002 


1SSEP6 
8164899 


ALUE 


022A 
©0048 
copo 
COBP. 
Cons 
cops 
COBC 
CO3B 
CO2BR 
OOFF 
OO6F 
0072 
OND? 
0000 
9200 
COOE 
CO3P 
C055 
C051 
0078 
C0948 
COAB 
O22F 
0213 
COC2 
CODE 
COE 
COD9 
O2?2c 
coo0 
8207 
0210 
ooRS 


- 0000 


OnCcs 
0001 


00c2 


00Cc6 
00C7 
ooca 
COEC 


3 


DEFN 


0107 
0124 
0195 
0187 
0197. 
0198 
0185 
O719 
0136 
0205 
0155 
0156 
0196 
0088 
094% 
0127 
0142 
0148 
C187 
0139 
0 166 
0173 
0109 
01C9 
CFB 
0291 
0203 
0199 
0198 
0123 
CC96 
C029 
0176 
0002 
0193 
0710 


0186 


0191 
0192 
0190 
0202 


FLAGGED IN 


TaRNOV69 
816559 


07129% 0130 0133 0138 0182 0171 


PROGRAB 95 
CROSS-REPERENCE 
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IBA SAINTEWANCE. DIAGNOSTIC. PROGRA: PART 80. 2589926 \ IBS MAINTFNANCE DIAGNOSTIC PROGRAR ; PAST NO. 2589926 
ee ee a en ee Pe Sass ee ae Sp PAGE as . “ PAGE. 103A 
z . : fog an fg 7 
- 8955 CPU AND NENORY DIAGNOSTICS: PPOGRAAR 95 ke mS . C965 CPU AND MEMORY DIAGNOSTICS: PROGPAS 96 
OBJECT CARD LISTING f ERR LOC OBJECT CODF ADDR STAT SONRCE STATEMENT 
: shes ee { 0000 2 TIVUXYZ START O 
 $HE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE WOMERIC SAIPT. j 3 DPCK 8 
: : : } YY SOSH S SEES SEES ETEESEKESE HS SESSSHEOSKSE SETHE SETKESESSTEESESSELESEEEHSEEESSESEBEE 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 88 CL 49 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 96 | 5 « . 
6 * PROG 96 WORST CASE CORE TEST - LOWER CORE * 
j 7 ¢ s 
oe e 2 @eevpveeeeae ee eeoeaeceoeveneoeaeeeeoen 06 @eeeeneeeoenesveneo eee eeeeeeove eeeaeenegaesn @eeeo0oes i B ¢ = 
fC <@E')CBSB.- #08*B 0 81<09550001 =<. | 98 THIS PROGRAM DETECTS THE ABILITY TO READ AND WRITE UNDER WORST * 
10 « CASE CONDITIONS * 
e e 2 e ° ° ee oe eeeeevoesveave aeeee . | 11 e s 
T.-H>@F'G6O-DB (G 0 GGSH?}13)G1D 0 @ CRADSSAESO) SFP $.R2BA -~6/0%A- ants 19009550002 ¢ | 12 ¢ THE TEST HAS ITS OWN LOADER s 
13 @ e 
‘ ‘ Same we & ‘ * _- ‘ee - ‘ . | 14 * THE TEST WILL BE PERPORSED IW THE FPOLLOWIONG SASNER: * 
T+- 2]H* C"anPeH C BO .32- 38 .2 Y @>3> FeAs/B(PI= "D B*>eX®2UHELIA OFX 2NO 2CxK ES _BeD 91-09550003 C¢ | 15 @ 1) THE CORE IS PILLED WITH THE WORST CASE PATTERN; PFFFOOOO? 
16 ® 2) THE PATTERN IS VERIFIED (READ) AT EACH CORE LOCATION * 
ie a e cs «ene i - ee oar te. _ | 17 * 3) INDEX REGISTER 1 (XB1) IS USED TO POINT TO TEST BYTE *¢ 
T+-A535 AH#-D>:0 CO_C20 S? a.., | ~-O0D0C6),B SD DC N7EOAS¢B8D;G20B6 @ *ES OFRP <G @Q ASDS *D009550008 << 18 © 4) READ/REGEWERATE EVERY CORE LOCATION * 
19 © 5) READ/COMPLERENT/READ/COMPLESENT EVERY CORE LOCATION s 
. . ° . ° si ° ° ° | 20 * 6) STEPS & AND S ARE REPEATED * 
T+-BO )LG8 E>,0C NI*¢RHBNSOIS;s ESWO CA*A~ OFCBAYZ7AG /3 <C2ET*GESCE6) 8 -UPS8 ,?-DEG/a K 1°99 P, 809550005 | 21 * 7} ONLY THE AMOUNT OF CORE SFT Of THE LEFTHOST ADDRESS * 
3 22 * SWITCH WILL BE TESTED, THE OTHER ADDRESS SWITCHES WILL * 
a 2@e qeeenseenonee ®@ e eo eee e @eeeeoenea eevee cd eeeoeneneaneneoeee eeeeo cus = 23 s woT BE REAL e 
T+-C A"FEBWFLORt 1 A DC#SG ym"r"e OA 6D AJA €H- 09550006 2a ¢ Ry) TO GAIM CONTROL OF TIE CONSOLE ADDRESS SWITCHES, THE © ; 
te an Ae cg ! 25 * CE MOST IWITIATE A SYSTEM BESET AFTER LOADING PROGRAB * 
eevevevneoeee 08 e@wenoreatvens ode oe@een @@s @eoeeoeaovdeeeoa eee ee Seoweseecsccanveee @eeeceoesoeee@eoee e086 eoeooe,, 1 , 26 * 9) SET oe CONSOLE ADDRESS SWITCHES PRIOB To RESETTING s 
Tooc" £6 009550007 27 « THE *RALT RFSET® e 3 
: 28 « 10) PUNCTIONS OP THE CONSOLE ADDRESS SBITCHES (DATAS&) ARE:* 
eoe e008 @ ee ec0e ese @ eee eeeeeveeeece e@eoen0e 2 29 e : & 
E "8 eE7e=—PC"PHS ="THEF] 1 c rP& asc RA SO Q 21301012710 228720¢€809550008 39 * (LEPTAOST) * 3 
31 S¥ITCH 1 SUITCH 2 SWITCH 3¢94 * 
32 ¢ * 
33 * O TESTS CORE TO 4&K O PROGRAB EXECUTED 00 NORSAL POSITION, * i 
34 © #14 TESTS CORE TO 8K OSCE ONLT WC PATERS FILL. * 
35 * 2 TESTS CORE TO 12K 1 BYPASS PROGRAS XY ABY OTTER EsTRY * 
36 * 3 TESTS CORE TO 160K 2 LCOP PROGRAB SETS -EP- HALT AUD * 
37 * 4& TESTS CORE TO 20K & COSPLEREST FILL ALLOWS CE TO SE- # 
: 38 * 5S TESTS CORE TO 24K PATTERN GSED LECT FILL PATTERN * 
39 * 6 TESTS CORE TO 28K 6 LOOP & COMPLESEsT OB THESE TO SH., * § 
40 * 7 TESTS CORE TO 32K FILL PATTERN OSED A BYTE AT A TIRE, * 
2 41 * 8 TESTS CORE TO 36K POR A TOTAL OF 8 = ¢ 
ae 42 * 9 TESTS CORE TO SOK BYTES. 00 CAN BE * ¢@ 
43 * A TESTS CORE TO Sak USED AS A BYTE OF * 
ay * 8 TESTS CORE TO 88K PATTEGN AFTER -EP- & 
45 * C TESTS CORE TO 52K AALT SET (SEE 11) 2% = 
86 * D TESTS CORE TO SOK * 
47 * £ TESTS CORE TO 60K * 
~ 88 © F TESTS CORE TO 68K * 5 
49 * & 
2 50 * * 
we 51 * 11) NOTE: TURNING ADDRESS SWITCHES 3¢8 (RIGHTMOST) TOA * 7 
52 * SETTING OTHER THAS OO SILL SET AN -EP- (ENTER PATTERE) © 
53 * HALT WHICH WILL ALLOW TH™ CE TO ENTER HIS OWN “HORST & 
6 54 « CASE® PATTERN. THE PATTER: IS ENTERED A BSYTE AT A TINE © & 
55 * ON SWITCHES 348. THE INIT? *L SETTING OF SVITCHES TOA *& 
56 * SETTING OTRER THAN OC SELF: fS THIS OPTION. THE IBITIAL * 
€ 57 = SWITCH SETTING IS KOT THE FPIBST BYTE OF PATTERS. AFTER @ § 
58 © THE ~EP- HALT, THE SWITCHES CAN BE SET TO ANY DESIRED *® 
59 « COMBINATION, EVEN TO 00. THE BYTE OF PATTERN THAT IS  *® 
€ 60 * ENTERED IS TRE SETTING ON SWITCHES 3¢8 WHEN THE HALT & £€ 
61 * IS RESET. THE -EP- SALT IS Di: PLAYED FOUR TIMES, THUS * 
62 * ALLOWING THE CE TO CHOOSE Tic FIUL PATTERR. « 
€ 63 * e € 
64 «© * 
65 * SEMORY PAILURES WILL BE INDICATED BY: * 
€ 66 * 1) PROCESSOR CHECK * € 
67 * 2) °B* REGISTER PARITY CHECK . 
68 *« 2 
€ 4 69 « e 6€ 
aieateeetateteteted eee enn ene mene nnn wee teen es----- LAST PAGE -~--------- we tn nn pn nnn nn ere ee ene ew nnene Fe 
SATE 1SSEP69 THO VED 203aN70 138AR70 010CT70 28aPR71 O1MAR72 PROG ID 0095-5 € DATE TUSEP69 INNOVE9 203AN70 138AR70 010CT70 28aPR71 01M AR72 PROG ID 0096-5 ¢ 
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ree IBS ARINTERANCF DIAGNOSTIC PROGRANK PART NO. 2589926 3 . IRS HATNTENANCE DIAGNCSTIC PROGRAN PART #80. 2569926 
ae PAGE 1448 PAGE Tasca 
i 0965 CPU AND SEMORY DIAGNOSTICS: PROGRAN 96 C965 CPU AND MEBORY LCIAGNOSTICS: PROGRAH 96 
ERR LOC OBJECT CODE AITDR STHT SOURCE STATEMENT ERR LOC ORJECT CODE ALDR STMT SOURCE STATEMENT 
ae ; ' 
70 * THE SAR WILL CONTAIN THE FAILING LOCATION . | 902F 70 CO #2 138 SNS  WCPTRN-2(,%8 1) ,X°00* CE WANTS HIS OWUB PATTER, 
71 * = 0031 SC (CO £4 E2 139 AvC WCPTRN-3(,XR1) WCPTRN-2(1,281) THE -EP- AALT WILL CONE O 
72 * THE RUNNING TINE FOR PROGRAM 96 IS 1.5 SECONDS PER SK OF CORE * | 0035 D2 01 01 180 LA 1(,XR1) -XR1 & TINES.THE CE SELECTS ONE 
73 ~* = 0038 6D 09 £2 F6 141 CLC WCPTRN-2(10,X81) -WCPTREO2(,XR2) BYTE OP PATTERN AT A TIE. 
JR CHSEEEEKESRESSSESEEESSESSESLBESRASESK EE SHHKKESKE SEES ISS SEK SOTHSESSESOSHS SHOSRE | 003C EO 01 2B 182 BNE EPHALT (, XR2) WHEN -EP- HALT RESET, BYTE 
7 O03PF BB OB DL 143 KONT2 TBH DATASW-1(,XB2),X*O8?* eCHECK IP GANT WC COBP PTRE 
76 | 0082 AC C32 DB EQ 164 MVC PATERN(,282) ,CHNGER(&,X R2) oINIT WC COMPLENERT PATTERS 
7 0086 P2 9C 08 195 JF KONT3 eSAIP BC IP UC COMP WANTED 
JH SHECKS FHSS LTR SSSE ESSE STKS SKE SBEEKES HH KSE SSEVKST SSHKSSSHEESSE SSSR SKSEES SESS SE SESEKS 9049 AF 03 DB ES 146 SLC PATERN(, X82) ,WCPTRN(S,ZR2° eIBIT BWC PATERE 
79 * - COGN ac C3 EO DB 147 MVC ¥CPTRN (4,XR2) ,PATERN{,XR2) 
80 * IPL LCADER FOR PROG 96 . | 0051 RS 01 Fa 148 KONT3 L X0100(,XR2) ,XR1 INIT XR 
81 ¢ 7 0058 AB 00 FE D6 149 MZZ  «COUNT2(,XR2) ,CORSIZ-1(, X82) oIBSIT CORSIZE COCHTER 
82 * THE LOADER WILL READ IPL FORNATTED CARDS SEQUERTIALLY INTO - 0056 AC 01 ED PO 150 AVC COUNT1(,XR2) ,X1080(2, X82) INIT SK COUNTER 
ay * MEMORY STARTING AT LOC -0000-. THE LOADING WILL TERSIBATE WHEN * 005¢C 6C 03 03 Fa 751 nVC 3(,XR%) ,WCPTRR(&,XR2) oSOVE PATTERH INTO POSITION 
84 * HEX -1234- IS FOUND IN COLS -59860-. - 0060 SC 03 07 03 152 PILL VC 7(,%81) ,3(%,XR4) eMOVE PATTER FOUR BYTES 
85 ¢ . | 0068 B6 01 FB 153 PILMOR A FOUR(,XR2) 9XR1 HIGHER & INCRESENT XR1 
BE FEHOHS 96856 OF SS EHS TEEEEESEDSESSES SS OOCOEEOEENETSSEEESEESESEEOSSESBESEES 0067 AF 01 FD £0 154 ALC COUDST1(,XR2) ,X0080 (2, X82) eCHECK IP GK OF CORE PILLED 
87 O006R BO 01 60 155 BNE PILL (,XB2) IF wOT,PILL SORE AORE 
. 88 OO6F AF CO FE TD 156 SLC COUNT2(,XB2) .X10(1,X82) -DECRESENT CORSIZE COUNTER 
8000 FO SF 7D ; 89 HALTA APL X*7D* ,x*SPé ePROG 96 IPL HALT, HALTA 0072 £0 a2 80 157 BL KONT1 (,XR2) BRHCH GBHES ALL CORE PILLED 
0003 OC 2E-022F 00385 . 90—C—~*=“(“‘S avCc LSTCRD(47) . EXD o MOVE THE IPL LOADES TO LOC 0075 6C C3 07 F9 158 aV¥C 7(_XR1) >CHNGER(&,XR2) -COSPLESEST THE FILL PATERS 
CECS9 CO 87 0203 91 B 515 ~O200- THRU -O22E-. READ 0079 SP 03 07 03 : 159 SLC 7(,%R1) 3 (8, XR1) AND PLACE I8 BWEXT LOCATIO“R : 
0200 92 USING HALTB,1 FIRST CaRD . 0O7D FO 87 68 160 B PILHOR (,XB2) ~PILL BEXT 8K CF CORE ¢ 
0200 93 USING HALTB,2 FIRST CARD 161 
G200 o4 ORG 512 0080 AC 017 ED DT 162 KONT? MVC COUHT1(,XR2) ,CORSIZ (2,XR2) e INIT CORSIZE COUETER ; 
0200 FO SP 76 95 HALTB RPL K* 76" ,x*éPs ePROG 96 MPCO NOT READY ALT 008% BS 01 F& 463 ¥ X0100(,XR2) , KR? ~SET XR1 TO POIBT TEST BYTE « 
9203 C2 01 0200 96 LA X*°0200*,XR1 «USE X*0200" AS BASE ADRS. cor? Sc CO 00 00 16% SELECT MYC 0(1,XR1),0(,XR1) «EACH CORE LOCATION IS 
207 pi FO Ot 97 TESTI TIO HALTB (, X87) -X°FO?* «HALTIAFCS ERROR, #OT READY OCSR F6 01 F3 165 R ONE (,XR2),XR1 SELECTED THO TISES 
S202 71 F5 2A $8 LIO AD368(,X81),5°F5S* »LOAD READ &2DDRESS LSB COBE AF 01 FD P3 166 SLC COOUNT7(2, 222} ,-ONE(, XB2) « 
6205 F3 FI 85 89 STO X"45*,X*Pit READ NEXT CRED 38 IPL AGDE 0092 PO C1 87 167 BRE SELECT (,XB2) 
6270 Di FT 10 WOO TEST2 TIO TEST2(,XR1),X°F1" + BAIT HERE TILL BUSY DROPS ocss ac 01 EP D7 168 NVC COUNT1(, X82) ,CORSIZ (2,382) eIWIT CORESIZE CCURTZR . 
6213 OC 3B 003B 01BB 101 MOVE SVC 5960) ,893 eNOVE DATA READ TO LOW CORE . £999 RS O04 Fu 169 L 10100 (,XR2) , XR? ~SET XR1 TO POINT TEST BYTE 5 
0219 SE 01 16 2c 102 ALC MOVE4#3(2,XR1),STETY (,I8 1} o INCREMENT HOVE TO ADDRESS CO9C BC OO FE 170 MVE COUNT2(,XR2) ,X°008 «SET UP THO COUNTER 
$210 1D 01 OIRB 2E 103 cre 883(2) ,LSTCED({, ER?) -GO TO LOC -0007~- iP LAST COOF BC FP A? 472 KOKTS #VI CHNGR¢17(,XR2) ,X* FP* oCOBPLERERT THE DATA I” TEE 
@222 C0 871 C007 164 BE 7 CARD READ WAS *LAST* C&RD. COR2 OF CO AV 90 472 SLC CHNGR#? (1,ZR2),0(, X81) LOC&TIOR ZR? POIBTS TO « 
Q226 DO B87 07 105 B TEST1(,XR1) IF NOT,GO READ HEXT C&RD ocas 7¢ 00 00 ' $73 CHENGR BY 0(,%R1) ,#=-* 
106 oCad Sc CO CO 00 178 MVC 00(1,XR1) ,0(, X89) eRE-SELECT LOC ER1 POLETS 
107 = COAD AE 00 FE P1 175 ALC COUNT2 (1, XR2}),X8C (,ER2) eRESTORE (COSPLESEBT AGAI#) 
9229 0180 022k 108 AD388 pC AL2 (384) OOB? £O 01 9F 176 BNE KONTS(,ZR2} THE BYTE XR1 FOLETS TO 
€22B CO3C 022C 109 SIXTY DC XL2*003C! - S0BG RE 0 F3 4177 A ORE (,XR2) XB? eIXCEES EBT XR1 AED GO 
@22p 1234 022E 110 LSTCRD pC XL2*1239¢ : OCB7 AP 01 PD P3 178 SLC COONT1(,XR2) ,ONE(2,ZR2) COBPLESENT & RECORPLEREST 
0001 171 XR1 FOG = x*Q18 COBB £0 01 OF 179 SNE  KONTS(,X22) TILL ALL CORE TESTED 
603B 112 END EQU 3 8x*3B? OOBE BB 02 DS 180 TEN DATASH-1(,XBR2),X°02° eTEST IF *LOOP*® OPTICE OF ; 
143 o0c1 £0 10 $2 181 BT KOWT3(, XR2) -LOOP PROGBAB IF LOOP OB 
114 O0ce’ £1 FO 0a 182 LOADER TIO BEGIN(,ZR2),X*FO! eGO READ WEXT CARD AED 
115 *¢eeeeseee¢2END OF IPL LOADER FOR PROG 96.THE FOLLOWING PROGRAM WILL BE COC? B1 PS DF 183 LIO X0900(,XR2),X'PS* BRASCE TO Loc 0000 : 
116 *##4%8%8e¢8* LOADED APTER THE LOADEB HAS MOVED ITSELF INTO HIGHER CORE. COCA ¥3 F1 45 188 SIO -X*a5* X*FU* 
V7 N0cD ET F1 CD 185 TSTBSY TIO TSTBSY{,XR2) ,X*FY* 
118 00D0 CO 87 0003 186 B 3 . 
119 187 “e 
, 120 = 188 
$000 121 ORG 0 ; 189 y 
0900 122 USING START,1 € 190 : 
0000 123 USING START,2 191 seeeeeeceses DATA DEFINITIONS 
8000 3c 87 O0O0F 124 START VI IPLPLG+1,x°87° -SYS RESET ENTRY,EWABLE SNS 192 : 
9con FO SP 7D 125 BEGIN HPL X*7D*,x*Spre HALT 96. IPL & END BALTS [ 193 “i 
8007 C2 03 C000 126 La 0,X*03* eINIT XRT & XR2 0Op& 1000 o0npS 194% paTaS@ pc XL2*1000* 
0008 BO 00 DS 127 SNS  DATASW(,XR2) ,X*00° -READ ADDRESS SWITCHES 0002 195 xR2 FOU = x02 . | 
6002 F2 80 07 428 IPLFLG JC RONTE,X*80" ~ENABLE SWS GHEN SYS RESET $ 00D6 0000 COD? 196 CORSTZ DC ZL 2°09 we 
$917 Bc CO pS 129 AVI DATASW(,XR2) ,xX*°00* IN NORHAL BUNBING READ TRE 90Dp8 CC000000 CODB 197 PATERN DC XL&*O? 
901% AGB 03 Da DS 130 MHN 8 =©DATASW-1(,XR2),DATASW(, XR2) SWITCH TO SET CORSIZ ONLY oopc 00 oopc 198 pc XL7°9° ‘ 
9018 BE 01 DS 131 KONT6 TBR DATAS G1 (,XB2} ,X*O® eTEST IF BYPASS SWITCH OF € OODD 10 CODD 799 x70 pc XKLI*%o0° 
SO1B P2 10 AS 432 dT LOADER IF YES,GO TO KREXT PROGRAS CODE coo0e CODF 200 x0000 onc XL2*Oe 
i OO1E BC FP D6 133 RVI $CORSIZ-1({, 82) ,X'*Pr® .DETERSINE ABOUT CP CORE OOO 40 OOEO 201 x0080 pc XL1°40O® 
0027 28 CO D6 DY 1348 BZZ CORSTZ-1(,XR2), DATASW-1(, X R2) TO TEST ABOVE 256 BYTES t OOFT FFPFOO0O COES 202 WCPTRN DC XYL&* FFPPOOO0O? — 
‘ 0025 389 FF DS 135 TBF DATASW(,XR2) ,X' PF? eTEST IP CE WANTS TO INSERT OOFS 00 COES 203 pc XL1°O* 
; $028 P2 16 148 736 Jdt RONT2 WC PATTERN.IF NOT, CONTINUE COE6 FEPFFFFF COE9 208 CHNGER DC XL9° PPPPPPRP? a 
bs @O025B FO 7c 3E 937 EPHALT SPL K* 3E* ,x* jc* eENTER PATTERN (EP) HAUT. IF © OOFA 0008 CORB 205 FOUR pe XL2 *o000K* o 
ben 
be Poa’ . : a 
p BATE = ESEPED =— SNOWED =— 205AN70— 13MAR7O = O10CT7O = 28APR71— «O01 MAR 72 PROG ID 0096-5 © DATE  14SEP69 14NOV69 293AN70 13MAR70 010CT70 26APR72 O1MAR72 PROG ID n09s~5 3 
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GNOSTIC PROGRAN PART NO. 2589926 TBA MAINTENANCE DIAGNOSTIC PROGRAM | 7 PART WO. 2589926 
Oe Sn ee ese PAGE 185 a PaGE 1958 
O96S CED AND RESORT DIACHOSTICS: PROGRAN 96 0965 CPN AND SENORY DIAGNOSTICS: PROGRAN 96 
“ERE LOC OBJECT CODE ADDR STMT SOURCE STATERENT ig CROSS-REPER ENCE 
& @08C 0000, QORD 206 COUNT? DC %L2°0" | . | 
Sere os Gere SENT Coe SE Laine SYMBOL T LEN VALUE DEFN = REFERENCES 
DOF 1040 OOFO 208 x1080 DC  xXxL2*10808 _ 
OOrt 80: COF1 209 x80 DC xXLi*g08 eee es eee nace’ Ceaae 
00F2 0C01 OOP3 210 0NE DC  ¥xL2*0001° CRNGER A COS COFS 0208 07448 0158 
oneE oe GOEe ste MORSE ROW. coueee 3 |  CRNGR A 003 00a6 0173 01719 01728 
|  CORSTZ A 002 00D7 019 3% 0138" 0189 016 
213 #eeneseeeees DO HOT ALTER THE ORDER OF ABOVE DATA DEFINITIONS phe ae pd sen preg oie esas nacce aces o1ee 
OOPS COOCCCCCCCCCOO00 OOFF 2148 EXTRA DC  xXL11*08  Aaaands £001 CORES O0T, O1gbscDISEe 01T04 Blase 
a ee aaae eae ss DATASW A002 09DS 0198 —-0127* 0129* 0130 01308 0137 0138 0135 0183 0180 
- | BND  € 001 003B 0112 0090 
i 8PRALT A003 CO2B 0137 0182 
| EXTRA A 011 OOFF 0218 
- | PILL a 008 0060 9152 0155 
i PILAOR A 003 00648 0153 0160 
POUR A002? OOEB 0205 0153 
HALTA A 003 0000 0089 2 
RALTBE A 003 920C C095 6992 0093 0097 
TPLFLG A003 (OOF 0128 01248 . 
KONT? A 0C& 0080 0162 0157 ~ 
KONT2 A003 0O3P 0183 0136 
KONT3 A 0C3 0057 0188 0185 0181 
KONT6 & 003 0018 0131 0128 
KONTO A C03 009F 0171 0176 0179 
: LOADER A 063 00C& 0182 0132 < 
. LSTCRD A902 C22E 0110 0090* 0103 : 
MOVE A006 0213 0101 0102* 
ONE A902 COF? 0210 0165 0166 0177 0178 0212 
a PATERN A 00% COLB 0197 O1sue O66" 0187 . 
SELECT A COS 0087 0168 0167 
SIXTY A 002 C22C C109 0102 | ‘ 
€ STAPT A 00% 9000 0128 0122 9123 : 
TRSTT RCO} 0207 OC97 0105 
TEST2 A 003 0210 2100 0100 
€ TSTESY A003 O0cD 0185 0185 ‘ 
UYWIYZ A 001 COCO 0002 | 
WCPTRN A008 COPY 0202 0138* 0139 0139% 0181 0181 0186 0187¢ 0151 
€ XRT = C OCT «C001 0119  0096% 0097 0098 0190 0102 0102 0103 0105 0138 0139 0139 0180 > 
. 0190¢ 0101 0149* 0151 0152 0752 0153* 0158 0159 0159 0163+ 0168 eens 
0168 0165¢ 0169 0172 0173 0178 0178 0177¢ 2 
€ X82 C_:OC1 «0002: «0195 = 0127 0129. 0130 «0930 0131 0433 0138 0138 0135 0183 0182 0193 3 
0149 0146 0186 9166 0187 0187 0188 0189 0189 0150 0150 0153 
0153 0158 0158 0155 0156 0156 C157 0158 0160 0162 0162 0163 ; 
€ 0165 0166 0166 167 0168 0168 0169 0170 01712 0172 0175 0175 3 
0176 0177 0178 0176 0179 0180 0181 0182 0183 0185 
: x6000 A 002 CODP 0270 0183 
~ X0080 % 001 OPO 0201 0158 $ 
X0100 A 002 OOFS 0212 0188 0163 0169 
X10 a 001 OODD 0199 0156 | 
~ X1080 A902 OOFO 0208 0150 € 
180 A091 COPT 0209 0175 
7 s 
: TOTAL STATENENTS FLAGGED IN THIS ASSEMBLY = 0 ¢- 
ei € 
! e é 
@ 
: . ¢ 
Ge vac. Saceae. drcees” cceeaee” Rikese’ ete See seae oem ae 0096-5 ~ DATE 1 8SEP69 19N0¥69 203AN70 13MAR70 O10CT70 28APR71  01MAR72 PROG ID ooss-5 
Caras ra 185 EC NO. 816899 816559 816576 816633 816756 876768 818693 PAGE 1958 | 
es e 
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“Rl IBN MAINTENANCE DIAGNOSTIC PROGRAA PART NO. 2589926 | TBS MAINTENANCE DIAGNOSTIC PROGRAA® ‘ PART WO. 2589926 
s / PAGE 186 PAGE W860: 
a 0965 CPU AND MEMORY DIAGNOSTICS: PROGRAMS 96 0975 CPU AND MEMORY PIAGNHNSTICS: PROGRAR 97 
OBJECT CARD LISTING ERP LOC OBJECT CODF ALDR STAT SCURCE STATEMENT 
: : ae 0000 2 UVUXYZ START 0 
THR CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D EB H INDICATE WOMERIC SHIFT. es 3 DECK 4 
GB $OSSF 62694 FSS FF SEES ESTEE SES SCEOOHECES ESSE SES TEEKSOHETEEHHTEEEDES ORES OSS 
CL 1 THROUGH 16 CL 17 TREOUGH 32 CL 33 THROUGH 88 CL 49 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 96 5 s 
. ; * PROG 97 WORST CASE CORE TEST ~- UPPER CORE e 
e s 
fia ee e . @eensee 00 @eeeaee sean eeneoe see eeseeoeoeaneevenn eee @eeeseseneoee eo 82028800 @aeeoe 8 s THIS PROGRAS DETECTS THE ABILITY To BEAD & WRITE s 
TC <@E**CBSR.- tOn*B 0 @A<09650001 Zz 9 UNDER WORST CASE CONDITIONS. e 
10 # e 
7 ° e as e oe e ee es @eseensevea se eeee ee2eesn » B s e 
(»  PerH>@F'60-DB (G 0 GG5H?11J)G1D 0 @ CRAD>SSAESO) S&F @.£BA ~6/0*A- apts LY009650002 ¢ 12 SCHSHERERESEEKESHESE ROE SESKHSESSSESESESESSSSHESSSHSSSSSEHSSSSESS .. |. 
= 13 * S698 SHS CE SEE HEESETEOEEEEEESESESSOSETESNESEEEHEOESEEEOEHDESSD 2 
a e ° ec e ° ° e e ~* ee e e e 14 8 s¢ ose s 
£ Tee 3{H* C#A--*H C BO (P2- 38 (0 YF "LN> GH@/BW?7{" OD COS.X°S-HEEJA a)X SV¥O 8;.K SE _B;H L:409650003 ¢ 15 ee WARKISG oe es. 
e 6h ee 9 s 
3 hg 7 ae _ wt ee ‘ 4 - ‘e . 17 C8 9OSSSTKEEEHEEEETEE SESE SEES EEEOETEEESSEEESTESSHSSESSSSEEEEEOS e 
© %-aS9> AHS-DSHO C6=x20 S? "270, 1 UGSMATH- @© FR 37 OF <CIPOCAD*6 53> > 37-8 E-,0C>7;B B-FO &R009650008 < 18 FE SSSHE SESE EEE EHTES HOSES THEE SEE SSEES SOETHES SO HSTESETESESSEESS s 
2 19 ¢ se oe s 
; . « 2 ° eco e ° . eo © eee ecco ° ° 20 * *?¢ ALTHOUGH THIS PROGRAS HAS PROVISIONS TO RE- oe s 
Te-BO OnZPO<G =B GRHOA#) 35 7 _7G3,06_3= A/:0 A#)35 ~K@ #¢:8%:3; -~ H® = P H8 #?D 38709650005 . 21 9 se START APTER TRE CPU HAS BEEN POWERED DOUE, BO os * 
22 ¢ ee GUARANTEES ARE MADE AS TO THE COBTENTS OF CORE os s 
ce oF e* 7 « . e . @ e if ee eesee80e08002380 oe e e2ee ee @ 23 s se OR To THRE ABILITY TO RE~STAR&T THE PROGRAS oucez se s 
er Te-C,8 #2 -G3,06 38> AX€-BS+ ENSG VA.G57"419;613*B G <6 & A #88 Ccusee e# §& LKQ09650006 | 24 # ee THE CPO HAS BEEN POWERED DOUS. se s 
& 25 @ se : se s 
ee @eeee @aee @eeqgceoacea@ cave eoeaoen ee @eeeeoeonoecoeo eu seaaeen ao ee@eece see cee eacesnea2os @eeeoeeoeoaeee2 32 3eces @2eeooae 26 s ee Ir ERROR INDICATIONS ARE PRESENT APTER os s 
Toec* DOB D #€7809650007 |. 27 © *¢ POWERING UP--DO NOT TRY TO DETERSINE THE se Ss 4 
28 © +? CAUSE OF PAILURE--RELOAD THE PROGEASA. dd s 
eon e@2e eo ee ees @aee e see @eeeeoeeneneane sn @eeenosd 29 s =¢ es s 
FOne ee7e=.DC’PAS ="TNSP] i c r% ASC RA sO Q 213010412710 228720.3a09650008 30 2 SESESSKSSTHESESSESSE FOS EHETST ES OTESESSEEEESSEOETEESERESSEOEDES s 
31 SESS SKESS SETTERS EES FESS SSEEEOES SESESSHSEE HERS OESTAESEESESEEESS s 
32 ¢ = 
3s | 338 e 5 
38 AFTER THE WORST CASE PATTERN HAS BEEN PLACED IB CORE s 
: 35 * THE PROGRAS WILL : s 
; 36 * 1) READ/REGEN PROM EVERY LOCATION . 4 
37 * 2) READ/COMPLENEST/READ/COBPLENERNT ZYERY LOCATIOS es 
38 © 3) FILL CORE WITH WORST CASE COMPLENEUT PATTERS s 
: 39 « &) REPEAT STEPS (1) & (2) s 6 
- ao * 5) ONLY THE ANOUNT OF CORE SET ON THE LEFTSOST ADDRESS s case 
; a1 * SWITCH WILL BE TESTED, THE OTHER ADDRESS SWITCHES SIEL s 
= 42 * NOT BE READ * € 
. a3 ¢ 6) TO GAIN CONTROL OF THE CONSOLE ADDRESS SWITCHES, TEE s 
‘ au CE MUST INITIATE A SYSTEMS RESET APTER LOADING PROGRAS s 
- a5 « 7) SET UP CONSOLE ADDRESS SWITCHES PRIOR TO RESETTISG THE 2 @ 
P - 86 ¢ ‘HALT RESET® s 
; 47 *® 8) FUNCTIONS OF CONSOLE ADDRESS SWITCHES (DATASS) ARE: s ‘ 
7 88 ¢ * 
a9 * (LEPTNOST) 2 
50 * SWITCH 1 SRITCA 2 S¥ITCH 348 s 
€ 51 * ° §¢ 
52 * 0 TESTS CORE TO &K CG PROGRAMS }. ZECUTED 00 HORSAL PCSITION, © 
53 * 1 TESTS CORE TO 8K ORCE OULY UC PATERS PILL. ®& 
€ 54 * 2 TESTS CORE TO 12K 1 BYPASS PRD’:BAN XY ANY OTHER EuTayY © 
55 * 3 TESTS CORE TO 16K 2 LOOP PROGRAN SETS-EP-HALT AWD © 
56 * 4 TESTS CORE TO 20K & COBPLESENT FILL ALLOWS CE TO SE- © 
. € 57 * 5S TESTS CORE TO 28K PATTERN USED LECT FILL PATTERES § 
58 6 TESTS CORE TO 28K 6 LOOP & CONPL: SENT OW THESE T¥O SU.,% 
Rs 59 * 7 TESTS CORE TO 32K PILL PATTERR “SED A BYTE AT A TISE,* 
i : € 60 * 8 TESTS CORE TO 36K 8 LOOP ON HICaES*: 3SH POR A TCTAL OF & #& @ 
61 « 9 TESTS CORE TO SOK (SEE 10) BYTES. 00 CAB BE @ 
; 62 * A TESTS CORE TO 84K OSED AS A. BYTE OF? 
: € } 63 * B TESTS CORE TO 48K PATTERN AFTER-EP-* @ 
. j 64 C TESTS CORE TO 52K RALT SET (SEE 9) © 
; i 65 * D TESTS CORE TO 56K ° 
€ = 66 © EB TESTS CORE TO 60K . € 
e : } 67 * P TESTS CORE TO 68K ° 
} 68 * s 
: x € : 69 * 2s € 
PR OR OR in mmmmeane LAST PAGE oom eee ene ee me ene mee een em eee ene o nn cece noon 
. DATE 18SEP69 “TROYES 20TaN70 T38AaR70 8 8=0t0CT7O 28APR71 OUMAB72 PROG ID 0096-5 € ; DATE T4SEP69 1GNOV69 20 JAN70 13H AR70 010CT70 28AaPR71 OINART2 PROG ID 0097-5. € 
: 2C RO. 816899 BY€559 816576 816638 816756 816788 818693 PAGE 186 | EC RO. 816499 816559 816576 816638 816756 816788 818693 PAGS TS6A 
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PART RO. 2589926 
PAGE +87 
0975 CPU AND NEMORY DIAGHOSTICS: PROGRAA 97 
c.. ERR LOC OBJECT CODE ADDR STNT SOURCE STATENERT 
70 * 9) NOTEs TURNING DATA SWITCHES 3¢4 (RIGHTHOST) TO A s 
71 « SETTING OTHER THAN OO WILL SET AN -EP- (ENTER PATTERN) * 
72 * HALT @HICH WILL ALLOW THE CE TO ENTER HIS OWN *WORST *& 
73 8 CASE*® PATTERN. THE PATTERN IS ENTERED A BYTE AT A TIBE* 
74 @ ON SWITCHES 3¢%. THE INITIAL SETTING OF SWITCHES TO A # 
7S * SETTING OTHER THAN O00 SBLECTS THIS OPTION. THE INITIAL® 
76 @ SWITCH SETTING IS WOT THE FIRST BYTE OF PATTERN. AFTER 
V7 * THE -EP- HALT, THE SWITCHES CAN BE SET TO ANY DESIRED © 
78 ¢ COMBINATION, EVEN TO 00. THE BYTE OF PATTERN THAT IS *® 
79 * EWTERED IS THE SETTING ON SWITCHES 3¢8 WHEN THE HALT © 
80 * IS RESET. THE -EP- HALT IS DISPLAYED FOUR TIMES, THUS * 
.81 © ALLOWING THE CE TO CHOOSE THE FILL PATTER. s 
82 * fe s 
83 * “ig e 
84a * 40) ROTES s 
85 * FOR SWITCH SETTINGS & AND ABOVE, SWITCH 2 SETTING 8 s 
86 * WILL LOOP THE PROGBAS IN THE HIGHEST BSS OR SELECTED @ 
87 * PORTION THEREOP (SENORY BSH = 16K OF CORE). WHER s 
86 * SCHMOOING, THE MEXT BSH IS CHOSEN BY INCREASING TRE s 
‘ 89 * AMOUNT OF CORE TO EE TESTED BY 36K. THE PROGRAM WILL #* 
90 # THEN LOOP OR THE HIGHEST BSS. s 
91 * 
92 * EXAMPLES: : 2 
93 * SWITCH 1 SET TO 3, PROGRAS LOOPS 0 TO 16K s 
94 * SWITCH 1 SET TO 4, PROGRAM LOOPS 16 TO 20K s 
95 * SWITCH 1 SET TO 5, PROGRAS LOOPS 16 TO 28K s 
96 * SWITCH 1 SET TO 6, PROGRAMS LOOPS 16 TO 26K s 
97 * SWITCH 1 SET TO 7, PROGRAM LOOPS %6 TO 32K 2 
98 * SWITCH 1 SFT TO 8, PROGRAM LOOPS 32 TO 36K s 
99 * SWITCH 1 SET TO A, PROGRAM LOOPS 32 TO 88K es 
7100 « SWITCH 1 SET TO B, PROGRAM LOOPS 32 TO &8K * 
301 * SWITCH 1 SET TO C, PROGRAM LOOPS &8 TO S2k 3 
102 * SWITCH 1 SET TO F, PROGRAN LOOPS &8 TO 6&K s 
103 * s 
104 *# s 
105 * * 
106 * MEMORY PAILURES WILL BE INDICATED BY * 
107 * 1) PROCESSOR CHECK & s 
108 * 2) *B* REG PARITY CHECK * 
109 «* & SAR WILL CORTAIN THE PAILISG LOCATION. s 
110 * s 
Vi * THE PROGRAM WILL RON FOR 30 SECOBDS O8 A 68K 2 
112 * MEMORY & PROPORTIONATELY LESS TIME ON SHALLER s 
113 * A ESORIES. * 
16 * s 
B15 SE8E8 E0608 SET EEEETEEEEEEES OES EREESEEERE EHSEESTERETHES HESSESEE9SSESERE 
916 
17 
718 
119 
120 88OSOE 2942 SESEEEEEEESEREESES EERERESEEETES SHEFSEREEE EES OSESEESESBEE SECEDE 
121 * IPL LOADER FOR PROG 97 bd 
4122 # THE LOADER WILL READ IPL PORMATTED CARDS SEQUENTIALLY s 
123 * INTO MEMORY STARTING AT LOC -0000~-. THE LOADING WILL s 
124 * TERMINATE WHEN REX -1234- IS POUND IN COLS -S9 & 60-. s 
125 FREES EEEE EGER EKEEESEEESEGES SEERES SE EEEES CRESS EEETESESTEEEEEONSEREDESES 
06000 FO SF 07 126 HALTA HPL 1°07", X'SF® ePROG 97 IPL HALT, HALTA 
0063 OC 2E O22E 0038 927 ave LSTCRD (47) , END MOVE TRE IPL LOADER 
0009 CO 87 0203 128 B 515 TO CORE LOC -0200 THRU O22E-. 
455 * GO READ FIEST CARD. 
0200 131 OSING HALT2,1 
0200 132 USING HALT2,2 
9200 133 ORG 512 
138 
0200 FO 6F 76 135 HALT2 HPL X*70* ,X*6or?* -PROG 97 SFCU NOT READY HALT 
6203 c2 04 9200 136 LA X%*O200* ,XR1 OSE -0200- AS BASE ADDRESS 
0207 DI FO O00 137 TESTI TIO HALT2 (,XR1) ,X* FO? G2 HALT IF SFCU ERROE OR BOT READY. 
DATE TSSEP69 1aNOVE9 20JAN70 13M AR7O 010CT70 28APR7 1 O1SAR72 PROG ID 0097-5 
fC #0. 8165999 816559 816576 816638 816756 216786 818693 PAGE 187 
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0975 
FRR LOC 


020A 
0205 
0210 
0213 
0219 
021D 
0222 
0226 


9229 
0228 
022D 


9000 


0000 
o00s 
0008 
NCCE 
0012 
e015 
0079 


COTA 
ootTD 


6020 
0023 


0025 
OO 2A 
oc2D 
00322 
0035 
0038 
00 3B 


003E 
0041 


00su 
0087 
OOGA 
OCOaE 
00s 
0055 


0058 
005B 


0060 
0063 


0067 


DATE 
EC WO. 


CPU AND MEMCRY DIAGRCSTICS: 


PROGRAS 97 


SOURCE STATENENT 


OBJECT CODE ADDR STST 
7% FS 2A 138 
P3 F1 4S 139 
D1 PT 10 140 TEST2 
OC 38 C038 OTFR 141 MOVE 
Se 01 16 2C 142 
Ip 01 OBR 2B 143 
co 8&1 0000 144 
pO 87 07 185 
186 
0180 O72A 187 ADDIS 
c03c 022C 188 SIXTY 
12738 022—E 149 LSTCRD 
0001 150 xR1 
0038 151 END 
182 
153 
154 s4e2%08 
155 ee04¢8 
156 
157 
158 
159 
160 
C015 161 
0015 162 
3c co 01C7 163 PRSTRY 
3c 00 0107 168 
08 02 0106 0107 165 
C2 C3 C015 766 
#2 87 11 167 
FFFPOOOO 0018 168 WCPTRN 
00 0019 169 
170 
171 
PO SP 07 172 RESTRT 
173 
BO 00 F2 174 
175 
72 01 FI 176 
F2 10 C9 177 
178 
a8 00 F3 FI 179 KONT6 
B85 03 PS 180 
8C FF FF 0118 9181 SHIPT 
Ba’ 02 IC 182 
BC FF 1C 163 
BY 02 FD 184% 
EC @7 29 185 
186 * 
187 
BO fF F2 188 KONT? 
P2 10 18 189 
190 
FO 7c 32 191 PPHALT 
70 00 01 192 
Sc CO 00 91 193 
D2 01 01 1948 
6D 09 01 05 195 
EC 01 2F 196 
197 
BS 01 P4 198 KONT2 
2c 06 O000f FO 199 
200 * 
B6 01 FS 201 
5c 03 03 07 202 
203 #* 
208 
BS 08 F1 205 
T8SEP69 1QRCV69 203AN70 
8164899 81€559 816576 


LIo 
Sito 
TIO 
AVC 
ALC 
CLC 
BE 
B 


pc 
bc 
Be 
290 
BQU 


AD384 (,XR1) ,X*P5° 
X°US*, XePt?e 

TEST2 (,XR1) -X°P1° 
59 (60) 483 

MOVES 3(2,IR1) -SIXTY (,XB1) 
443 (2) ,LSTCED(,XB1) 
0 


TEST1 (,XR1) 


AL2 (388) 
XL 2°003C®* 
XL2°1238° 
1 

x*3B¢ 


PART #0. 


PAGE 1WS7A 


LOAD READ ADDRESS LSR. 

READ WEXT CARD IW IPL BODE. 

WAIT RERE TILL BUSY DROPS. 

MOVE THE DATA READ TO LOWER CORE. 

ISCRESERT MOVE TO ADCRESS 

GO TO LOC -0000- 
READ BAS 
GO BREAD B2XT CARD. 


IP LAST CARD 
*LAST® CARD. IP SOT, 


THE FOLLOWING PROGRAN WILL BE LOADED BY THE LOADER APTER 
THE LOADER HAS MOVED ITSELF I¥TO HIGHER CORE. 


ORG 


0 


USING WCPTRA-3,1 
USING WCPTRE-3,2 


SRS 
NYY 
aR 
LA 
J 
pc 
Dc 


APL 
SUS 


TBR 
JT 


TBP 
JT 


HPL 
SNS 
n¥C 
LA 

CLC 
SWE 


L 
avCc 


A 
Ave 


TBN 


138 aR70 
8166 38 


DATASB,X*00* 
DATASH,X*00* 
DATAS#-1, DAT ASY 
¥CPTRN-3,%°03* 
KONT6 

XL9* PFPFOOO0O® 
KL17°0° 


x°O7* ,K°SPF®* 
DATAS @(,XIR2) -X*00* 


DATASH-1 (, XR2) ,X°O1* 
LOADER 


CORSIZ-1(, XR2) -DATASB~1 (, XB2) 
CORSIZ(,X82) -X*03° 

255 (256, XR2) -¥C PTRBC252 
SHIPT¢&(,XR2) XR2 

SHIPT¢8 (,XR2) -X°PP® 

SETUP ¢3(,XR2) -XB2 

KONT? (,ZR2) 


DATASW(,XB2) ,X* FF* 
KONT2 


X°3E°,x*7C* 

WCPTBN-2(,IB1) .X°00* 

WC PTRN-3(1,XR1) -WCPTRN~2 (,X81) 
1(,XR1) IRI 


WC PTRN-2(10,X%R1) ,WCPTEN+2 (, X82} 


EPHALT (,XB2) 


CORSIZ (,XR2) ,XB1 
5, PRLOAD¢2(7,XB2) 


WEGS (,XR2) gXR1 
3(9,XR1) o 7 (4X81) 


DATASH-1(,XE2),X°O08* 


010CT70 
816756 


288PR71 
816788 


OIHART2 
818693 


»RRAD SUS 
eSASE OPTIONS 


SET BASE ADDR-SS 
-GO TO KOT 
e@ORST CASE PATTERE 


o°97* SALT 
oR2ZAD SES 


GO TO LOADER 
IP *Breass® SWITCH O8. 


e SET CORB SIZE 

«LOAD 281 & XR2 WITH CORSIZ 
«SHIFT THE PROGRAS TO THE 
HIGHEST 256 BYTES OF CORE, 
STORE XR2 TO RESTART APTER 
POGER DOWS, AND BRABCH TO 
KORT? XI8 THE RELOCATED 
PROGRAS. 


-GO TO KONT2 IF CE DORS NOT 
WANT TO ENTER O88 PATTERS 


-*EP* SALT 
THE CE SAY NOG ALTER THE 
FIRST CASE PATTER. 
sO TO KOST2 AFTER POUR 
*ge* SALTS. 


-BESET xR1 
-SET OP TO RELOAD 182 AED 
BRANCH BACK TO PROG. 
«FILL HIGHEST & BYTES OF 
TESTABLE CORE WITH THE 
WORST CASE PATTERS 


-GO TO PILL IF *CoasP® 


0097-5 
187— 


PROG ID 
PAGE 


2589926 
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“IBA MAINTENANCE DIAGNOSTIC PROGRAM PART HO. 2589926 , IBM MAINTENANCE DIAGNOSTIC PROGRAR | 7 | teen) Corte 
0975 CPU AND MEMORY DIAGNOSTICS: PROGRAM 97 0975 CPU AND HENORY DIAGNOSTICS: PROGRAS 97 
ZRR LOC OBJECT CODE ADDR STAT SOURCE STATESENT c : CROSS-REPERERCE 
006A F2 90 08 206 JP PILL SWITCH MOT SET. «SYMBOL T LEN VALUE DEFN RPPERENCES 
006D 6C 03 03 FB 207 KONTX AVC 3(9,XR1) ,XFFFP(,XR2) . -COBPLENENT THE WORST . 
0071 SF 03 03 07 208 SLC 3(4,1R1) 67 (6XR1) pene rereeee | Cheat 2.003 Oo) Osan 2008 02028 
209 
: | * 0242 
0075 B6 01 F9 210 FILL A NEGS (,XR2) -XR1 - FILL & CORE LOCS & |  CRNG2 A 002 COMPS 0285 0281 
0078 SC 03 03 07 211 AVC 34, 84) 9 7(9 X81) GO TO KONTY IF ALL CORSIZ A 002 0109 0266 0179 0180 0198 0228 0236 
007C FO 81 82 212 BE KOBTY(,XR2)_ CORE LOCS ARE FILLED. | PATASH A 002 0107 0265 01634 OTEHe 0165 O1S* 178 0176 C179 0188 0205 0219 0231 O28 
g 213 
: OO7F BS 01 FD 218 ST PAD (, XR2) ,XR1 -GO 10 PILL IF Not on | emp © 601 0038 0154 0127 
CO82 BS FF FD 215 TBP PAD(,XR2) ,X°* FF* A 4K BOUMDARY. Go TO | EPRALT A 003 0048 0191 0196 
s 0585 BO OF FC 216 TBF = PAD-1(, XR2) -X*OF* KONTE IF ON A SK | FILL  & 003 0075 0210 0206 0217 
2 0088 F090 60 217 BF PILL (, XR2) BOUNDARY. | FRSTRY A OC’ 0CO 0163 
fe 008B B6 01 F9 218 KONTE A NEGG(,XR2) ,XR1 HALTA & 003 0000 0126 a nee 
OO8E RE 08 FI 219 TBR DATASW-1(,XR2),X*08" «GO TO KONTX UNLESS SwW2 IS |  HALT2 & 003 0200 0135 0131 0132 
0081 B9 30 FC 220 TBF PAD-1(,X82) ,X*30* 8 & OW 16K BOUNDARY. |  KONTA 4 003 0088 0236 
0098 £0 90 5a 221 BP KONTX(,XE2) OTHERWISE GO TO KONTY | KONTB A003 O0C6 0280 0228 
222 KONTD 
0097 2C 06 0006 FO 223 KONTY AVC 6, PRLOAD¢2 (7,XR2) | -PUT BR INSTR IN LOC 0, 162 |  orrr A 003 0088 0218 
ococ B5 01-FU 224 . CORSTZ(,XR2) -R1 -RESET xR1 |. Kowro A 003 0089 0253 0239 
225 KONTX A 
COSF BE 01 F9 226 KONTZ A HEGS(,1R2) ,XR1 ~READ/REGEN & CORE LOCS & |  kowny 4 005 0097 0223 ©0212 
90A2 SC 03 03 03 227 SELCTA MVC 3 (4, ZR1) 93 (p XR1) GO TO KONTB IF ALL CORE |  KoNwTZ A903 COSF 0726 0238 
OOA6 F281 1D 228 JE KOWTB LOCS RAVE BEEN TESTED. | RoNT2  -k 003 0058 0198 0189 0252 0258 
229 KONTG6 A 
OCR9 B’ O1 FD 230 ST  PAD(,%R2) ¢XR1 -GO TO KOKTA IP aT 16 & | ONT? «4003 0032 0188 ©0985 
QOAC BS 08 FI 231 TBN  DATASW-1(,XR2) ,xX*08° BOUNDARY & CE DESIRES TO | LOADER A 003 COEP 0256 0177 
COAF B9 FF FD 232 TBP PAD(,XR2) X°PP* LOOP ON UPPER 16 K. |  LSTCRD A 002 022F 0189 0127* 0183 
0082 BY 3F FC 233 TBP = PAD-1(, XR2) -X*3P* OTHERWISE, GO BACK Oe ae ee ea 
: riers tg 335 Sy “Sgn eee 1 PAD = & 002 0412 0270 6218* 0215 0216 0220 0230 0232 0233 0287* 0289 0250 
i OORS BS 01 P4 236 KONTA L CORSI2Z(,XR2) ,XR1 | eRESET 3R1 _ | PRLOAD A 003 0103 0262 0199 0223 0237 
a COBB 2C 06 0006 FO 237 NVC 6, PRLOAD¢2(7,XR2) -PUT BR INSTR IM LOC 0,162. C j{ RESTRT A003 901A 0172 0256 0262 
0OCO BE 01 FB . 238 KONTD A XPPFP(,X82) ,XR1 -GO TO KONTC IF ALL CORE SELCTA A 008 OOA2 0227 
00C3 80 20 ne 239 BROL KONTO (,XR2) HAS BEEN TESTED . SETUP A 008 OOFF 0261 01888 
00C6 BC FF BD 240 KONTB SSVI  CHHG14¢1(,XR2) 9X" PP! -SETUP FOR DOING THO 2 SHIFT A 005 902D 0181 0182* 0183% 
80C9 9c 00 CO 00 281 AVC © CHNG2#1(1,XB2) , 0 (,XB1) RRAD/WRITE COMPLESESTS. SIXTY A 002 022C 0148 0182 
OOCD AP 00 BD CO 242 SLC CHNG1#1(1, X82) ,CHNG2¢1(, 2R2) . TES?1 £003 0207 9137 0185 
a 243 » ’ 
- 00D1 7c CO 00 244 CHNG] AVI 0(,X%R1),#-3 DO READ/WRITE COAPLEREST TSTBSY A 003 OPA 0259 0259 | 
eee re ae ee eee Rt Raven ge Caer tere c GEpERN GGou><CbIa:;Diea~ «coNe) 0162 0166 0181 0192® 0193 0193¢ 0195 0195 
00D7 BR 01 FD 247 ST PAD (,XR2),IR1 -GO TO KONTU IP AT 16K XPFPP A 008 010D 0267 0207 0238 
182 0132 0183 0185 0192 0193 0193 0198 
e0ED a9 SF Fs as ae SL ee "20 8: OYRERUISE, GO € Dee Sith ae BAe SOARS nye G1SBEOs0 te O20o 0202 0207 0208 0208 0210° 0211 0211 
pueo are oe. apie ad eae : 0218 0218* 0224* 0226 0227 0227 0230 0236* 0238¢ 0281 0288 0285 
OOF B9 3F FC 250 TBP PAD-1(,X22),X°3F° To KowTD oats 
O0EG-n0 a7 83 352 =. BOWE? {,Ea2) ¢ TR2 € 9C1_ 0002 0271 0178 0176 0179 0179 0180 0161 0182 O18: 0163 0188 188 0185 
cece Sees nee Pace se veeee yen ters euRcRORD 0216 0217 0218 0219 0220 0221 0223 0223 0226 0230 0231 0232 
eee ee 355  Cenricnne, Peta C 0233 0238 0236 0237 0238 0239 0280 0281 0282 0282, 0207 0288 
. s 
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C975 CPU AND MEMORY CIAGNCSTICS: PROGRAM 97 OAQS CPU AND MPXORY DIAGNOSTICS: PROGRAM AO 
OBJECT CARD LISTING ; ERR LOC OBJECT CODE ADDR STMT SOURCE STATEREST 
{ 
. Pore | coco 2 UVUXYZ START O 
TRE CHARACTER INDICATES A BLANK COLUS® AND THE CHARACTERS D E H INDICATE WOMERIC SHIFT. 3 DECK 4 
| y ecveedecss seaaeeeeeenen se OeGsesseeeseseseessesseeseessseessaseessseseee 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 TAROUGH 48 CL @9 THRONGH 64 CL 65 THROUGH 60 CL 81 THROUGH 96 | : ce eiuenee Gabes weet pegs 
a PROG AO In 
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Te-C, "FU" 4RSS,4 A'BOF $0_-GB8BL m?y='X C Ha 7#A @ Aa BY ~68BIF 9*"694,%3-UH?2-/4¢ 68 27D HI<09750006 | nee ae OO2A . oes DC ae aA eel se eat eae eevee : 
: Hi HPL x°3P*,x*3B* . * 
@ ee oe eee s ee cesecenaoesn eo © @eeoaosceneaeve2 eo 82 ee eo O02F co 67 0083 26 B BOOT BRANCH TO BOOTSTRAP. ‘ 
TI-DKEAACS= EX=P #9°EES-CTON® OH B C-/08 = @ @hM wang )3%09750007 0083 s poor Ff00 131 é 
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0A15 CPU AND MEMORY DIAGNOSTICS: PROGRAS At OAtS CPU AND MEMORY DIAGNOSTICS: PROGRAS Al 
PRR Loc OBJECT CODE ADDR STAT SOURCE STATEMENT i : CROSS-REPERENCE 
0000 = OvaxYZ eee : SYMROL T LEN VALUE DEFN REPERENCES 
. 8 SRHHKKSEERES SHKSEKECKSKS STE SKSTE SHH SS ESEKESSE HEKESSEEERESTEESSESESSHSENEESSESHESESSSESESEE BOOT Cc N04 0083 00488 0038 
5 seeee2 eteree BRBACK A 0CO4 0021 0081 0018 
6 se0088 PROG Al PARITY CHECK CIRCUIT TEST oeeses HLT? A 003 0000 0010 
7° esteee eee HLT? A 003 0017 0035 
8 SHKSSSEKCESS SSS SKKKSLSHSSETKSE FSET SESS SKE SSE SSKVSESEESKEKSETESEHSEKESSS SHSKESSERESS oPpo A 002 0012 0029 0019 
9 SARDAT A 01O2 0023 0082 0016 
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20 * RESULT (HEX -0815-) FORNS TRE 
21 # OP & Q BITES OF RSI. ae 
22 
23 
26 * *NOTE- IAR IS ALTERED TO HEX -O4815S- : 
25 ¢ * WITH BAD PARITY. 
26 
27 z 
28 
0011 oCco0 C012 29 OPO DC XL2*0000° SHUD CONTAIN HEX -0&815-, ZAZ INSTR. 
0013 SFEFFFFF C016 = 30 pc XL9°PPFPPFFF* ADRS BYTES OF ZAZ INSTR. THIS DATA 2 
31 * PORCES ADRS. CHECKS WHEN SAR LOADED. iz 
32 
33 < ¢ 
38 * . 
0017 FO 38 3P 35 HLT2 HPL X°3P*,x*3B? ENDING HALT. ‘HA* DISPLAYED. 
36 < . 
37 ~ 
OO1A CO 87 0083 38 B BOOT BRANCH TO BOOTSTRAP. 
39 « . £ 
2 80 
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OBJECT CODE ADDR STAT SOURCE STATENEST 
0000 UV#XTZ START 0 
DECK & ; 
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SOe¢6e / Seeoees 
tess Seseee 
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SYMBOL T LEN VALUE DEFH REFERENCES | 2 ae c THE CRARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E # IBDICATE WONERIC SHIFT. 
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18M MAINTENANCE DIAGNOSTIC PROSRAM PART NO. 2589942 | = IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589942 
PAGE robs PAGE ia 
DUPO DIAGNOSTIC UTILITY PROGRAM Des DUPO DIAGNOSTIC UTILITY PROGRAM 
-) 
ERR LOC CBYJECT COLE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ACCR STMT SOURCE STATEMENT 
2 OECK 4 | 0187 3D OC 1C30 70 CKC CLI WORK,X*0OC® *CK FOR AND BRANCH IF NOT 
3 SEQ 6 START SEQUENCING AT 6 0188 F2 01 04 - 7 JNE INIT *COMPARE OPTION WANTED 
010¢ % DUPO START X*10C8 ae O18E 3A 20 1C€93 72 SBN  FLAGS2,FLAGI2 
5 SEETEREKLSKEELHE ETERS RATE SE SESE KR EKER SK EKEK SEES ARERAEASHSEARHKAREREHAE EES “y 73 
6 * 0192 3C 00 1€31 7 INIT MMVI COUNT sX*008 INITIALIZE CCUNT 
7 * SYSTEM RESET/START WILL CAUSE A RESTART WHICH WILL 01°96 C2 01 0969 75 DON LA RDAREA,XR1 INITIALIZE XR1 
8 t RESULT IN A -80- HALT WHICH ALLOWS FOR SWITCH SETTING va 019A Cl FO O11C 76 CKGO TIO HSHALT,X®FO# 
9 * | O19E 31 F5 1CAO 77 LIO LORD,X*F5# READ 
10 * O1A2 F3 FL 05 78 READ SIO X*95*,X*F 18 READ A CARD FROM PRIM 
ll * ~80-HALT- INITIAL HALT TO SET SWITCHES OLAS 3A O1 01A4 79 SBN READ4+2,xX* O18 
12 * ~81-HALT- MFCU PRIMARY NOT READY O1A° C1 Fi O1A9 80 TIO 8=-*,X*FL® WAIT UNTIL READ IS DONE 
13 * ~82-HALT- MFCU SECONDARY NOT READY OLAD 30 F3 1€30 81 SNS WORK,X*'F38 
14 * ~83-HALT- READ CHECK WHILE READING FROM PRIMARY 0181 39 06 1C€30 82 TBF WORK,X*06! 
iS * ~84-HAL T- PUNCH CHECK ON LAST CARD STACKED ' 0185 CO 90 O19€ 83 BF CKGO+4 
16 * ~85-HALT~ TEXT CARD ID AND LEVEL NOT LIKE HEADER CARD feos 0189 38 80 1C€30 84 TBN WORK,X*8C0* 
17 * -86-HALT- END CARD 1D AND LEVEL NOT LIKE HEADER CARD 0180 F2 90 06 85 JF OK 
18 * ~87-HALT- CAPD TO BE PUNCHED INTO IS NCT BLANK 01CO FO 7F 57 86 HPL = X*57*.X*7Fe HALT ~—83- 
19 * NOTE: NON-BLANK CARDS ARE SELECTED TO STACKER 4. 01C3 F2 87 3C¢ 87 J CkKG6O1 
20 * NO HALT GCCURS IF LESS THAN 3 COPIES ARE BEING MADE. ; 01C6 4C 5F SF 10DF 88 OK MVC] =—- 95a XR1L),ROFD4+95(96) MOVE CARD DATA TO NEXT AREA : 
21 * O1CB 38 20 1€93 89 TBN = FLAGS2,FLAG12 *CK FOR AND BRANCH 
22 * ~88-HALT- READ CHECK WHILE READING FROM SECONDARY O1CF F2 90 34 90 JF COLOR *IF COMPARE OPTION NOT WANTED 
23 * ~@O-HALI- NON-COMPARE WHILE USING COMPARE CPTION ac O1D2 31 F5 1CA0 91 CKEM LITO LODRD,Xx*FS5# 
24 * ~B8A-HALT- COMMENT CARD ID AND LEVEL NOT LIKE HEADER CARD. 0106 F3 FO 06 92 SIO = X*06,X*FO8 READ A CARD FRGM SECONDARY 
25 * 01D9 C1 F9 0109 93 TIO =* Xt FOF 
26 * RESETTING THE -80- OR THE -S1— HALT WILL CAUSE THE FOLLOWING 9 01DD 20 F3 1€30 94 SNS WORK,X*F3° 
27 * OPTIONS 12 BF SELECTED IF THE SWITCHES ARE SET AS DEFINED. Bosc O1EL 39 06 1030 95 TBF WORK,xX*06? 
28 * 7 O1E5 CO SO 0102 36 BF CKEM 
20 * ~XX02- 2 COPIES WILL BE MADE a O1E9 38 80 1C€30 97 TBN WORK,X'30# 
30 * -XX03- 3 COPIES WILL BE MADE Q1ED F2 90 OT 98 JF comp 
31 * -XXO3- REPLACE PLAIN CARDS WITH COLORED CARDS FROM SECONDARY O1FO FO 7F TF 99 HPL = X*7TF*,X*7F HALT -88- 
32 * —XXOC- COMPARE CASDS READ FROM SECONDARY WITH CARDS FROM PRIMARY n 01F3 CO 87 0102 100 B CKEM 
33 * ~XXOD- MULTIPLE COPIES WILL BE MADE OF THE 1 CARD READ O1F7 4D 5F SF ILDDF 101 COM> CLC 95(,XR1),2°DFD+65( 96) 
34 * O1FC F2 B81 03 102 JE CKGOl 
35 * ~FFXX- STRAIGHT DUP AND INTERPRET “* OlFF FO 7F SF. 103 HPL = X*5E%,X97F9 HALT -89- 
36 * ~ 0202 CO 87 O19A 104 CKGOL 8 CKGO 
BV HEREREREREEREREGEEAE EE SEES REE RRR EER EERE RE EEEEESRER ERS EKER SERRE OES 9206 48 O1 1093 105 COLOR TBN FLAGS2,FLAGLT a St ee tet ends 
010¢ OC 03 9003 1CDl1 38 MVC 3yREST#3(4) 020A F2 90 23 106 JF nocome , 
7 0112 3C 40 ©0900 39 MVI SAVEM4+128 ,X*408 , 7 0200 OD SF LDDF 1€91 107 CLC RDFD+95 ,BLANK(96) 
O116 FO 7F 6F 40 SEVEN2 HPL X"6F',x'*7FS HAIT -80- 0213 CO 01 019A 108 BNE CKGO 
C119 F2 87 03 41 J BEGIN 5 0217 3¢ F3 1¢30 109 SNS WORK,X*F3¢ 
O11C FO 7F 03 42 HSHALT HPL = X*03%,X"7F2 HALT -81- 0218 38 1¢ 1C2F 110 TBN WORK-1,X'108 
OL1FE OC OO LFBA 102C 43 BEGIN MVC LEVELsSAVEIDO1) RELOAD LEVEL IN CASE OF SYSTEM RESET - O21F F2 10 03 111 JST INSERT 
O125 3A GL OLAG 44 SBN READ+2,X*O1# * 0222 F3 FR 05 112 SIO = X*O5* Xt FBS 
C129 3C 40 1091 45 MVI BLANK 9X*49! os 0225 F3 F8 05 113 INSERT SIO X*OS*,X#F Et : 
012D CC SE 1090 1C91 46 MVC —s- BLANK~-1, BLANK(95) 0228 3B O1 01A4 114 SBF READ+2,X" O01" 
C132 21 F4 109 47 LIG  LOPR,X*F4S PRINT - 022C CO 87 019A 115 i) CKGO 
9137 OC 06 1FDB 1091 48 MVC PRFD+91_,BLANK(7) CLEAR AREA BEHIND EC NUMBER 0230 CE CO 1C31 1CAl 116 NOCOMP ALC COUNT,ONE(1) ADD 1 T9 COUNT 
013D 28 F7 1092 49 SBF FLAGS1,X*FT7® TURN OFF FLAGS 236 3D 32 1C€21 117 CLI COUNT »X*32! *CK FOR AND BRANCH IF 
0141 38 3F 1093 50 SBF FLAGS2,X"3F? TURN OFF FLAGS = 023A F2 81 08 118 JE MAKEM *50 CA2LS ARE READ 
0245 30 09 1€30 51 - SNS  WORK,X*00# 023D C1 FO 0248 119 TIQ MAKEM,X*FOS BR IF PRIM NOT READY 
0149 20 FF 1C2F 52 CLI WORK~19X*FF® 0241 D2 O1 60 120 LA 96—gXR1),XR1 INCREMENT TG NEXT CARD LOCATION 
0140 F2 O01 04 53 JNE NORM = 0244 CO 87 O1OE 121 B CKGO+4 BR BACK TO READ NEXT CARD 
0150 3A 01 1092 54 SBN  FLAGS1,FLAG7 122 
0154 30 ©2 1C€30 55 NORM CLY WORK X*028 0248 C2 01 0969 123 MAKEM LA RDAREA,XR1 INITIALIZE XR1 
0158 F2 O01 04 56 JNE = €K43 = 024C F2 87 03 . 124 _ J NEXT1L 
0158 3A 20 1092 57 SBN -FLAGS1sFLAG2 ig 125 
O15F 3D 03 1C€30 58 CK43 CLI WORK,X*03¢ 024F D2 O1 60 126 NEXTCD LA 960 4XR1)_XR1 INCREMENT TO NEXT CARD LOCATION 
D 0163 F2 01 04 5 JNE CKD 3 0252 OC 09 1F8C 1CC1 127 NEXT1 MYC PRFD412,ECLEV(10) PUT - LEVEL - INTC PRINT AREA 
0166 3A 10 1092 60 SBN FLAGS1,FLAG3 0258 OC OO 1F8A 102C 128 MVC =: PRF:0+ 1041), SAVEID 
016A 30 OD 1C€30 61 CKD CLI WOPK,X*OD® O25E 3D 00 1€31 129 CLI COUNT »X*008 4CK FOR AND BRANCH IF ALL 
O16E F2 01 O08 62 JNE CKBL o 9262 CO 81 0192 130 BE INIT =CARDS ARE PUNCHED 
: O171 3A 02 1092 63 SEN FLAGS1eFLAG6 0266 OF OO 1C€31 1CAl 131 SLC  COUNT,ONE (1) DECREMENT THE CARD COUNT 
iL C175 3C 31 1C31 64 MVI «= COUNT, X*31° O026C Cl FT 026C 132 TIO =, XCF TP ; 
e 0179 F2 87 1A 65 J DON 9) 0270 1C 5F 1O0DF SF 133 MVC RDFD+95,°5(96_XR1) 
O17C 3D CB 1C30 66 CK8L CLI WORK »X*0Bt 0275 1C 5F 1FSF 5F 134 MVC) —- PUFD#95.495(96_XR1) | 
C189 F2 01 04 67 JNE CKC O27A 38 O1 1€92 135 TBN  FLAGS1,FLAG7 
r 0183 3A O01 1C€93 68 SBN  FLAGS2»sFLAG17 “) O27E F2 90 56 136 JF CK5 
69 arent 0281 OD 03 1LODF 1CEE 137 CLC =RDFD+95(4),0DEND END CF DATA DECK? 
G oO 
DATE C1OCT7O . PROG 1D oDuP-c 7 DATE 010CT70 PROG 10 ODUP-0 
EC NO. 816760 PAGE 1 EC NO. 816760 PAGE 1A 
C: 


9 


DUPO 
ERR LOC 


0287 
O22A 
028E 

} 0292 
0295 
0299 

3 0290 
0243 
02Aa7 

* O2AA 
0280 
0283 

* 0287 
0280 


nAnAr 
Go2C1 


: O2C7 
02cD 
0203 


0207 
0200 
02E0 
02E6 
029 
O2EF 
02F3 
O2F6 
C O2FC 

0300 

0364 
< 030A 

0310 

0316 
c. 031C 

9320 
0323 
0329 
032F 
0335 
0338 
033E 
0341 
0345 


Cp 


Oo 


oO ty 


Qo 


0348 

Cc 034C 
034F 

0353 

C 0356 
935¢ 
0362 

Cc 0265 
0368 

036F 

C 0373 
ai 0377 
0378 

Ct O37F 
0383 

0386 

Cc O38A 
O38E 

0392 

C. 0396 
0399 

0390 

c 03A3 
O3A7 


DATE 
EC NO. 


Cc 
86 eeeeeeee ee 


OBJECT CODE 


F2 
30 
3D 
F2 
38 
3c 
oc 
33 
F2 
oo 
F2 
3A 
oc 
co 
oc 
oc 
06 
co 


01 
00 
FF 
8 
1 
87 
1F 
06 
10 
02 
01 
08 
o7 
87 
OT 
O7 
3C 
a7 


Q3 
81 
03 
81 
03 
04% 
90 
SF 
04 
40 
11 
04 
G2 
03 
80 
90 
00 
02 
03 
81 
03 
01 
80 
87 


02 
90 
E2 
01 
io | 
03 
Ct 
02 
87 
C2 
81 
5C 
81 
E3 
81 
cs 
81 
87 
40 
90 
Fl 
12 
40 
87 


19 

1030 
1C2F 
04 

1092 
0683 
LFFF 
1€93 
17 

1082 
20 

1¢93 
C968 
O24F 
1DDF 
1F5e 
0968 
0672 


LODF 
OF 

LOOF 
06 

OSé8 
1¢92 
Ok 

1FOF 
1¢€92 
1F9F 
1FSE 
LFSC 
1LF97 
1LFDF 
1c92 
25 

LFOF 
1F82 
1DBF 
oe 

LOBF 
66 

1€92 
10 


1093 


C1act7o 
816760 


0840 


1cB7 


100F 
0°68 
0S68 
1¢¢c9 
1cc2 
1C05 


1ODF 


6960 


1F9F 
O7CE 
0708 
1¢c8 


10ec 
108F 
1c09 


1CEE 


1OBF 
1CCD 


icoc 


O7DB 


IBM MAINTENANCE OLAGNOSTIC PFIGRAM 


DIAGNOSTIC UTILITY PROGRAM 


ADDR STMT 


138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
172 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
134 
185 
186 
187 
188 
189 
190 
191 
192 
193 
1°4 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 


Bs dhgeleciace int Pease 5 eared baat, et cine (sate taeda Nace aeg ipige 


SOURCE STATEMENT 


TWINKY 


TWINK 


INCRE 


DUPAL 


CKS5 


SKAVE 


DONE XT 


IPLEND 


CARD 


XXX 


CKB 


CKl 


DUPAIL 


JNE 
SNS 
cul 
JE 
SBF 
MVI 
MVC 
TBN 
JT 
cLc 
JNE 
SEN 
MVC 
8 
MYC 
MVC 
AZ 


MVC 
MVC 
cic 
JE 

cic 
JNE 
SBF 


TEN 
JF 
cLY 
JNE 
MVC 
CLC 
JNE 
MVC 
B 
CLI 
BE 
CLI 
BE 
cul 
JE 
CLI 
BE 
8 
TBN 
JF 
MvVI 
MVC 
SBF 
8 


TWINK 

WORK X*008 
WORK~-1—9X*FES 
TWINKY 
FLAGSI1»sFLAGT 
EDDECK+1,X"87" 
FOURTH sDDEMSG(32) 
FLAGS2_FLAG14 
INCRE 
RDFO+2,SEQ(3) 
NUP AL 
FLAGS2,FLAG14 
SAVE, ROFD+95( 8) 
NEXTCO 

RDFD+S5 eSAVE(®) 
PUFD+95~sSAVE(8) 
SAVE (49,0101) 
DUPALL 


RDFD+95(4),FURBL 
SKAVE 
RDFD+95(4),OLEND 
SKAVE 

SAVE(4) s2DFDt95 
FLAGS1_ FLAGS 
DONEXT 
PRFD+95,SAVEIT(96) 
FLAGS 1, FLAGS 
COTYPE ,X* 408° 
COTYPE-1,CDTYPE(18) 
COVYPE-3,17L-13(5) 
CDTYPE-8, IPL(3) 
NUMBER, ZERO(4) 
FLAGS1,FLAGO 

CARD 

NUMBER »RDFD460(1) 
CDID»RDFD+63(3) 
ROFD+63,0LOCPUL4) 
IPLEND 

RDF 04+63,90END(4) 
DUP AL 

FLAGS1,FLAGO 

XXX 


FLAGS 2,FLAC14 
CK1 
RDOFD+59,X"E2* 

CKB 
NUMBER, RD FD46302) 
ROFD+463,LAST(4) 
DUPAL 

CDTYP E-8(3) »ENOCD 
GOOD2 

RDFO,xX*C2° 

LOADER 

RDFD, x*5C*# 
LOADER 

RDFD,X*E3°* 

TEXT2 

RDFO,xX*C5* 

END2 

DUPALL 
FLAGSL,FLAGL 

TEXT 

NUMBER, X*F1® 
COTYPE,IPL(19) 
FLAGS1,FLAGL 

pup 


{) 
} 
PART NO. 2589942 
PAGE 2 ray 
ey 
STRAIGHT. INTERPRET 
STILL SET? 
TURN OF STRAIGHT INTERPRET 
eTUPN CN BRANCH TO PRINT THE 4TH LINE 
eENTER 4TH LINE MESSAGE IN PRINT FLO 3 
Rk ig 
| . 
i 
5 
SERIALIZATION BLANK? 
OR 9997 : 
| ey 
CLEAR CAPD TYPE PRINTOUT | 
MOVE IN WORD -CARD- ea 
eEND CARD SF OLD CPU-MEM DECK (00A1)? 
eEND CARO OF IPL DECK? 4 
ie 
a 
Ss 
r | 
: ‘: 
| 
T [<4 
i 
E : 
& By 
*CK FOR AND BRANCH IF PREVIOUS CARD i..’: 
*WAS NOT A 1 CARD PROGRAM HEADER CD j{ -) 
PUT OCCL IN 1 CARD PROGRAM . 
SETUP CARD TYPE PRINTOUT 
! ay 
| “ 
| 
| 
ae 
PROG ID Opup-c | - 
?AGE z 


| 
@ € @ @ & : } 
Q 


IBM MAINTENANCE 


DuPO 
ERR LOC 


O3AB 
O3AF 
03Bz 
03B6 
O38C 
O3BF 
93C2 
03C6 
O3CC 
0300 
0304 
0307 
0300 
C3E0 
O3E3 
O3E7 
O3ED 
C3F3 
O3F9 
O3FC 
0402 
0405 
0408 
0411 
0417 
0410 
0423 
0429 
042F 
0435 
0438 
0441 
0447 
044D 
0451 
0454 
0458 
045C 
O45F 
0463 
0466 
0468 
046D 
0471 
0474 
0478 
O47C 
0482 
0485 
0488 
048E 
0492 
0498 
049E 
0444 
O4AA 
0480 
C486 
O4BC 
C4C2 
04C5 
c4C9 
C4cc 
C4D0 
0403 
0409 
O4DC 
C4E2 


PATE 
EC NO. 


eee tit*s 


OBJECT CODE 


30 
F2 
3B 
oD 
F2 
FO 
co 
oc 
co 
30 
F2 
oD 
F2 
FO 
co 
oc 
oc 
oc 
F2 
0D 
F2 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
3D 
F2 
3A 
3c 
F2 
30 
F2 
3D 
F2 
3A 
F2 
3A 
co 
oD 
F2 
oD 
F2 
3A 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
F2 
30 
F2 
3D 
F2 
oD 
F2 
oc 
oc 


E3 
01 
04 
03 
81 
TE 
87 
03 
87 
5C 
ol 
C3 
81 
7F 
87 
06 
iF 
03 
87 
04 
1 
03 
03 
14 
OA 
04 
1A 
02 


00: 


1F 
oc 
00 
02 
5C 
cl 
02 
40 
87 
Fl 
al 
Fl 
Ol 
40 
87 
80 
87 
c3 
81 
04 
o1 
ol 
03 
06 
24 
1F 
02 
co 
oc 
93 
87 
cs 
81 
E2 
o1 
02 
81 
09 
03 


me a a a er ae et oe 


1D80 
1E 

1693 
1€2C 
07 

5D 

0192 
1F97 
042 
1D80 
25 

1C2C 
07 

3F 

0192 
1F°7 
LFFF 
1F DF 
7C 

1084 
77 

1CEE 
1CCD 
1FD4 
1FOF 
LF BF 
1FBA 
1F82 
1F8A 
1FFF 
1F97 
1C2¢ 
128 


10BA~ 


OB 
1¢c93 
1FBA 
19 
10DF 


O10cT70 


816760 


1008 


0806 


1006 


ICCA 
109F 
1DDF 


1CEl 


1DD6 
1DDF 
10°F 
1CC& 
1c91 
10BA 
10BE 
1088 
0826 
0853 
1DBB 
1DBE 


10D6 
ic9l 
1D9F 
105F 
10DA 
1008 
C853 
1D08 


1cFl 


1CFB 
1D06F 


DIAGNOSTIC PROGRAM 


DIAGNOSTIC UTILITY PROGRAM 


ADDR STMT 


206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
243 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 


SOURCE 
TEXT 


TEXT2 


GCOoD 


COMCD 


COMCK 


HDCD1 


ONECD 


REG1CD 


REG1 
DUP4B 
HDSECT 


HOHUM 


END 


AGO 


Sm Re near ka erm tte Re mgt ent a nA Ee RA a a pe pe ce cn atin et i Me eee it ee Hee 


STATEMENT 

CLI ROFD,X*"E3* 

JNE COMCD 

SBF FLAGS2—sFLAG15 

CLC SAVEID,RDFO+91( 4) 
JE GOOD 

HPL X*5D* ,X*7EF& 

B INIT 

MVC COTYPE-8, TEXTCD(4) 
B AGO 

CLI RDFD,xX*5C® 

JNE HDCD1 

cLc SAVEID, RD FD4#91(4) 
JE COMOK 

HPL X*3F'sx*7Fe 

B INIT 

MVC COTYPE-8 5 COMENT(7) 
MVC FOURTH, ROFD4+31(32) 
MVC NUMBER» RDFD+95(4) 
J DUP4B 

CLC RDFD+4-_ BRZRO(5) 
JNE HOSECT 

MVC ODEND sRDF D+ 8614) 
MVC LAST(4) sRDFD+95 
MVC ECyRDFD4+31(21) 
MVC NUMBER,ZERO(11) 
MVC PRFD+63, BLANK(5) 
MVC NAME-5,RDFD45 3(27) 
MVC COID,RDFD+62(3) 
MVC LEVEL sRDFO+59(1) 
MVC FOURTH sREMOVE (32) 
MVC COTYPE-8,HEAD(13) 
MVC SAVETDsROFD45S9(1) 
MVC SAVETD-1-¢RDOFD+62( 3) 
CLI RDFD+58,X*5C! 

JNE ONECD 

SBN FLAGS2,FLAG16 

MVI PRED+58 9X *40# 

J DUP4B 

CLI RDFD+S5 ,X"F1® 

JE REGICD 

CLI RDFD+33,X"F1* 

JNE REG 

SBN FLAGS1,FLAGL 

J DUP4B 

SBN FLAGS1L»FLAGO 

B DUP4 

CLC RDFD+3,FIRST(4) 
JE HOHUM 

CLC ROFD+4(5) 5 DOHED 
JNE END 

SBN FLAGS1,FLAG7 

MVC OCDEND, RDF D+86 (4) 
MVC PRFD+91 gBLANK(7) 
MVC EC,ROFD4+31021) 
MVC NAME, 2DFD+4+63( 32) 
MVC COID,ROFD+90( 3) 
MVC LEVEL »ROFO+91(1) 
MVC COTYPE-@,HEAD(13) 
MVC SAVETDsROFD+91(4) 
J DUPA 

CLI ROFD,Xx*Cc5* 

JE END2 

CLI RDFD,C*S?® 

JNE MCARD 

CLC RDFD+2sSSW(3) 

JE MCARD 

MVC CDOTYPE-8(10),ESL 
MVC NUMBER, RDFD+95(4) 


®eeeeeoeaeoeaee*r----- 


PART NO. 2589942 
PASE 2A 


*CK FOR AND BRANCH IF 
*NOT TEXT CARD 


*CK FOR AND CONTINUE IF TEXT CARD 
*10 AND LEVEL IS SAME AS HEADER CO 
HALT -85- 


SETUP CARD TYPE PRINTOUT 


*CK FOR AND BRANCH IF 
*NOT COMMENT CARO 


HALT -8A- 


SETUP CARD TYPE PRINTOUT 


*CK FOR AND SRANCH IF NOT 
*IPL STAND-ALONE PROG HEADER CARD 
eENTER END CARD SEQ # FROM HDR CARD 


MOVE IN EC AND PN 


MOVE IN PROGRAM NAME 
MOVE IN ID 
MOVE IN LEVEL 


BLANK OUT * 


eCHECK IF REGULAR 1 CARD PROGRAM (21 IN 
COL 96 OF HEADER). 

eCHECK ITF CLO 1 CARD PROGRAM (1 IN COL 
34 OF HEADER). 
eo TURN ON FLAG 1 FOR 1 CARD IPL PROG 
eTURN ON FLAG O FOR MULT CARD IPL PROG 


e IF SECTION HEADER CARD 
JUMOE TO *HCHUMS. 

eIF DATA DECK HEADER CARD (#8Og, S")y 
SET STRAIGHT INTERPRET FLAG AND SAVE 
THE LAST CARD SEQ # (LAST 4 COLUMNS) 
FOR END CARD COMPARISON. 

eCLEAR DATA DECK RESIOUE FROM HOR CRD 

eENTER PART NUMBER AND EC NUMBER 

e ENTER PROGRAM NAME 

eENTER PROGRAM ID (3 DIGITS) 

eENTER EC LEVEL 

eENTER "HEADER® AS CARD TYPE 

«SAVE HEAD ID AND LEVEL FCR TEXT COMP 


C* GSK) TAKE 


*CK FOR AND BRANCH IF NOT 


THIS A ESL CARD? 


PRCG ID 
PAGE 


onuP-O 
Za 








Ni cc sats A So re as od oN 


We BREN a agp aceon 


oe meerer gene nna he ET 


’ 
t 


ee 


2 
2 
3 
18M MAINTENANCE DIAGNOSTIC PROGRAN 
o 
DNUPO OLAGNOSTIC UTILITY PROGRAM 
7 ERR LOC OBJECT CODE ADDR STMT 
* O4E8 F2 87 38 274 
04EB OD 03 1C2C 10DB 275 END2 
ad O4F1 F2 81 O7 276 
™ O4F4 FO 7F 70 277 
04F7 CO 87 0192 278 
O4FB OC O02 1F97 1C0C 27§ GOOD 
m 0501 OD 03 1DDF 1CD5 280 
0507 F2 O1 OF 281 
O50A 06 30 0568 1CC9 282 
f 0510 CC 03 1LFDF 0968 283 
0516 F2 87 %6 284 
0519 OC 03 LFDF 1DDF 285 NEND 
Cc OSIF 38 02 1€93 266 GO0D2 
0523 CO 87 0686 287 DUPA 
ee 0527 3D 04 1D80 288 MCARO 
Cc 052B F2 CL BE 289 
O52E 3D FO 1081 260 
0532 FZ BL 47 291 
Cc 0535 3¢ 40 O7FB 292 
0539 3D 40 1081 293 
0530 F2 81 OB 294 
CQ 0540 30 C5 1081 295 
0544 F2 O01 89 296 
0547 3C CS O7FB 297 
C 0548 OC C2 1F82 LDDA 298 MB 
0551 OC C3 1F88 1C9l 299 
eee 0557 3C 60 1F83 300 
Cc 0558 CC 00 1F84 1008 301 
0561 OC 53 1FDA 1D07 302 
0567 CC 03 1FOF 100F 303 
Z: 056D CC OA 1FFE 0802 304 
C573 CC 14 1FF4 08D4 305 
0579 F2 27 83 306 
C. CSIC OC TF OBFF 0909 397 MO 
° 0582 OC 14 C5&D4 1N9F 308 
0588 CC 09 OR8C 1CC1 309 
CC O58E CC 1F O8BF 1OBF 310 
os 0594 OC G2 ORf2 1004 311 
059A OC O00 088A 1008 312 
c OSAO CC 12 C89F OTEE 313 
OS5A6 CC O3 ORDF ICCB 314 
O5AC OC 93 1C2C 1D08 315 
C 0582 CC 17 O8FT 1007 316 
0588 38 10 1C€93 317 
OSBC 3D F4 10C4 318 
C 05CO F2 81 09 319 
05C3 OD 17 1007 1C91 320 
05C9 F2 O1 04 321 
€, C5CC 3A 10 1C€S3 322 SET13 
ee C500 CC CO O88E 1081 323 MX 
C506 CC 7F 1FFF O8FF 324 
cj O5D0C CC C3 1FOF LODF 325 
OSE2 38 10 1C93 326 
OS5E6 F2 10 SD 327 
€ OSEO F2 87 13 328 
O5EC 30 09 1080 329 REPCD 
OSFO F2 01 OF 330 
€: OS5SF3 OC 06 1F9S7T 0820 331 
OSF9 OC 1F LFFF 1D9F 332 
OSFF F2 87 65 333 DUP4A 
go 0602 CD 03 1983 1CE5 334 SWWCD 
0608 F2 81 10 335 
0608 38 04 1€93 336 
¢ Q60F F2 90 69 337 
0612 OC 00 1FDF 10BF 338 LOADER 
0618 F2 87 3F 339 
& 340 
age 0618 OC 1F 1FBF 1C°1 341 LONL 
DATE  OLOCTTO 
EC NO. 816760 


J 
cLC 
JE 
HPL 
B 
MvC 
CLC 
JNE 
Az 
MVC 
J 
MVC 
SBF 
B 
cL! 
JNE 
CLI 
JE 
MVI 
cLI 
JE 
CLI 
JNE 
MvI 
MvC 
MVC 
MVI 
MVC 
MVC 
MVC 
MVC 
MVC 
J 
mvC 
MVC 
MVC 
MVC 
MVC 
MVC 
MVC 
MVC 
MVC 
MVC 
SBF 
cul 
JE 
cic 
JNE 
SBN 
Mvc 
MVC 
MVC 
TBN 
JT 
J 
cL 
JNE 
MVC 
MVC 
J 
CLC 
JE 
TBN 
JF 
MVC 
J 


MVC 


PART NO. 2589942 
PAGE 3 


SOURCE STATEMENT 


DUPA 

SAVETD,RDFD4+9104) #CK FOR AND CONTINUE IF END CARD 
eooDl *#1D AND LEVEL 1S SAME AS HEADEK CD 
X*7D"X*7F HALT ~-86~- 

INIT 

COTYPE—@, ENDCDC3) SETUP CARD TYPE PRINTOUT 
RDFD4+95(4),0LEND 999? 

NEND 


SAVE(4) DIOL) 
NUMBER (4) sSAVE 


GooD2 

NUMBER ,RDFO+95( 4) 

FLAGS2 sFLAGI6 

buP 

ROFD, X"D4® *CK FOR AND BRANCH IF NOT 
REPCO *TAP CARD 

RDFD+1eX"FO® *CK FOR AND BRANCH IF 

MO x40 TAP CARD 


MARD~7_X"408 
RDOFO+1,X*40® 

MB 

RDFO+1,»x*Ccs* 

Mx 

MARD-7-X*C5S* 
COID,ROFO+90(3) 
PRED+8, SLANK(4) 
PRFO4+2,X'60* 
PRED+4,RDFD49101) 
PRED4+90,R DFO+87(84) 
NUMBER ZROFGHS5S(4) 
PRFED+126, MARD(11) 
PREDF1L16,5 SAVEM*+84(21 ) 
DUP4A 

SAVEM4+127 gSAVEM41281 128) 
SAVEM484, RDF D431021) 
SAVEMF12,ECLEV(10) 
SAVEM 46 3, RDF D463( 32) 
SAVEM+4+2 »ROFO+903) 
SAVEM4+10,280F0+9101) 
SAVEM431, TAPCO(19) 
SAVEM495, ZEPO(4) 

SAVE I C,ROFDF91(04) 
SAVEM411° gQOF D487 (24) 
FLAGS2~eFLAG1I3 
RDFD+68 »X *F4* 

SET13 

RDF D487, BLA IK(24) 


Mx 

FLAGS2,FLAGI3 

SAVEM4+14,R0FD4101) MOVE IN 4 CARD NUMBER 
PRFD+127, SAVEM#127(128) 

NUMBER gRDFD+95(4) 
FLAGS2,FLAGL3 

ouP 

DUP4A 

RDFD,xX*D9* 

SWKCD 
COTYPE-B,REPLAC(T) 
FOURTH,RDFD431(032) 
DUPS 
ROFO+3,BABB(4) 
LONI 

FLAGS2,FLAGI5 
OUPALL 

NUMPER sRDFD+63(1) 
SPANG 


*CK FOR AND BRANCH IF NOT 
*REPLACE CARD 
SETUP CARD TYPE PRINTOUT 


*CK FOR AND BRANCH IF 
*DC® FIRST CARD 


MOVE IN CARD NUMBER 


NAME ,BLANK(32) 


PROG ID ODUP-5 
PAGE 3 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


DUPO 
ERR LCC 


5621 
0627 
62D 
0630 
0636 
063C 
0642 
0648 
O64E 
0654 
O&5A 
0660 
0664 


O667 
C66B 
O66F 


0672 
0678 
O6TE 


0682 


0686 
068A 


068) 
0690 
0694 
0698 
o69C 
O69F 
O6A3 
Q6AT 
O6AA 
O6AE 
06B2 
O6B6 
O6BA 
o6co 
06C3 


o6cT 
06cB 
O6CE 
0602 
0605 
060% 
o60C 
O6E0 
C6ES 
O6E®@ 
O6EE 
C6F2 
O6F6 


O6F9 
O6FD 
o701 
0705 
0708 
O7O0F 


DATE 
ec NO. 


GBJECT CODE 


oc 
oD 
F2 
oc 
9c 
oc 
oc 
04 
oc 
oc 
oc 
3A 
F2 


3c 
3C 
F2 


oc 
oc 
3A 


co 


3c 
F2 


FO 
cl 
30 
38 
F2 
31 
C1 
F3 
Cl 
30 
39 
co 
oo 
F2 
co 


38 
F2 
38 
F2 
38 
F2 
30 
38 
co 
oc 
3A 
3A 
F2 


30 
38 
co 
oc 
38 
38 


05 
03 
ol 
04 
14 
02 
00 
30 
02 
00 
08 
04 
87 


26 
80 
87 


5F 
EF 
04 


80 


06 
87 


TF 
F8 
F3 
10 
10 
F5 
Fa 
F9 
Fl 
F3 
06 
so 
5F 
01 
87 


80 
10 
40 
10 
08 
10 
F3 
40 
10 
7F 
08 
80 
87 


F3 
80 
10 
TF 
os 
80 


1FB61 
1DBE 
06 

1FBO 
LFD4 
1LF82 
1F8A 
1FOF 
1€28 
1c2c 
1F97 
1093 
1F 


0721 
0683 
iE 


0960 
LFOF 
1cs2 


0667 


010CT70 
816760 


1DBA 
1CFF 


1004 
10B4 
1DBE 
1DBB 
iccs 
1DBE 
1DEB 
OTF7 


LFDF: 
1D0F 


1091 


1FFF 


1FFF 


DIAGNOSTIC UTILITY PROGRAM 


ADDR STMT. 


342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
379 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 


SOURCE STATEMENT 


FIRST 


SP ANG 


MVC 
CLC 
JNE 
MVC 
MYC 
MVC 
MVC 
ZAZ 
MVC 
MVC 
MVC 
SBN 
J 


PRFD+49 ,R DFD+58( 6) 
RDF D+62, 1 D3 FFFI4) 
FIRSTL 
PRFD+48, OCP ID(5) 
ECsRDFOFS 2021) 
CDID,ROFD+62( 3) 
LEVEL ,ROFDt59(01) 
NUMBER(4) ,D101) 
SAVETD-1,RDFD+62(3) 
SAVEID,RDFD+59(1 } 
COTYPE-84 LOADOC (12) 
FLAGS2,FLAGI5 

DuP 


PART NO. 
PAGE 


2589942 
3A 


eIS THE PROGRAM DCP AT LEVEL 3? 
IF NOT, BYPASS ENTERING (OCP) 
IF YES, ENTER (DCP) 


SETUP CARD TYPE PRINTOUT 


eEKHEAREAAEHAE REHE AERA SAEREEER REESE EE ERAREREREESS SEES SAE SERE TE SEAT EES 
PRINT AND PUNCH NEW CARD 
RRRARRAESE AEA H ERE ERE KEKE ERE EASE AE ERS CERES THEE SS EAA EEE STE EAST TAS ESS 


x 


DUP4S 
DUPALL 


EDDECK 
* 
puP 


NOTRDY 
MAKE 
WAIT2 


GO 


SET2 


MVI 
MMVI 
J 


MYC 
MVC 
SBN 


BC 


MVI 


HPL 
T10 
SNS 
TBN 
JT 

Lio 
T1a0 
sia 
T10 
SNS 
TBF 
8F 

cic 
JNE 


TEN 
JST 
TBN 
JT 
TBN 
JT 
SNS 
TBN 
BT 
MVC 
SBN 
SBN 


SNS 
TBN 
BT 

MVC 
SBF 
SBF 


X1C#2 9X*26" 
EDDECK+1,X*80* 
MAKE 


SAVEIT,PRFD+*95( 96) 
PRFD+95 »RDFD+95 (96) 
FLAGS 1, FLAGS 


DUP4,X*80* 


X104+2,X*06* 
MAKE 


X*76% sX"7FP 
NOTRDY,X*F8* 
WORK, X*F3° 
WORK-1,X" 10° 
6o 
LORO»X*F5® 
NOTRDYsX*F8* 
X*OO",X*F 9! 
*yX*FLE 

WORK »X*F3° 
WORK ,X*06* 
NOTROY 
ROFD+95 ,BLANK( 96) 
NOTBLK 

WAIT2 


FLAGS 2,FLAG10 
CONTIN 

FLAGS 2,FLAGLIL 
LOAD 
FLAGS 1, FLAG4 
SET1 

WORK, X*F3°* 
WORK-149X* 40° 
SET2 


eRESET BRANCH DUE TO END OF DATA DECK 


SAVE THE NORMAL PRINT DATA 


eACTIVATE TO PRINT 4TH LINE ON THE 
LAST CARD IN THE DATA DECK. 


HALT -82- 


*CK FOR AND BRANCH 
*IF THERE IS A 

*CARD IN WAIT 2 
READ 


READ CARD FROM SECD 


*#CK FGR AND BRANCH TF 
*#CARD IS NOT BLANK 


PRINT#255 ,PRFEDt1 271128) 


FLAGS 1, FLAG4 
X1G#2X*80* 
LGAD 


WORK, X"F3° 
WORK-1,X* 80° 
SET 


PRINT4127 ePRFED+12 70128) 


FLAGS 1, FL AG4 
X1O+2eX*80"% 


PROG ID 
PAGE 


oDYyP-C 
3A 


eve db cmt 28 


7 ine wetncneeSab oe SpE ct teat deta see. 
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18M MAINTENANCE OTAGNOSTIC *ROGRAM PART NO. 2589942 | IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589942 
Co . PAGE 4 oe) - PAGE 4A 
mi OuPO DIAGNOSTIC UTILITY PROGRAM Jove puPO DIAGNOSTIC UTILITY PROGRAM ; 
+ 
. ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
‘O O713 38 40 1C€93 409 LOAD SBF FLAGS2,FLAG11 i O7F8 4040044040C3C1D9 0802 471 MARD oc CLI1®* M CARD * 
OT1L7 31 F6 1C9E 410 Lia LDOPU,X*F6* | Osco C44040 471 
6713 31 F5 1CA0O 411 LI0 LDORD,X*FE® READ | 0803 E3C5E7E3 0806 472 TEXTCD OC CL4*TEXT?® . 
O O71F F3 FF 86 412 x1I0o S10 X"86*  X*FFe READ/PRINT/PUNCH 0807 DICSD4D6E5C540E3 0826 473 REMOVE DC CL32*REMOVE THIS CARD BEFORE RUNNING ° 
O722 Cl Fl O722 413 T10 *,X*FL® ! OSOF C8C9E2Z40C3C1LDIC4S 473 
0726 30 F3 1C€30 414 SNS WORK »X*F38# *CK FOR AND BRANCH ae 02817 40C2C5C60609C540 473 
Cc O72A 39 66 1C30 4i5 TBF WORK» X*06° *IF NOT HOPPER CHECK i : O81F D9E40505CY9D5C 740 473 
; O72E F2 i0 17 416 JT AGAIN *OR FEED CHECK 0827 D9C5D07D3C1C3C5 C82D 474 REPLAC DC CL7*REPLACE® , 
mee 0731 38 O02 1C€30 417 TBN WORK, X*02° *CX FOR AND BRANCH Re ie O82E 40404040494040C4 084D 475 DODEMSS DC CL32* DATA DECK END CARD s * THESE MUST BE 
C. 0735 F2 10 08 418 JT SETL1 *1F FEED CHECK 0836 C1E3C140C4C5C302 475 
0738 3A 80 1C€S3 419 SBN FLAGS2,sFLAG1O TURN ON HOPPER CHECK FLAG : O83E 40C505C440C3C1D09 475 
073C CO 87 0680 420 8 NOTROY ‘ : C846 C440404040404040 475 
C: C740 3A 40 1C€93 421 SET11 S®@N FLAGS2,FLAGI1 C84E C8C5C1C4C5D9 0853 476 HEAD DC CL6*HEADER® * TOGETHER ALWAYS 
0744 CO 87 0680 422 B NOTROY i ; 477 
0748 30 F3 1C€30 423 AGAIN SNS WORK »X*F3¢ : : 477 
Cc 074C 38 40 1€30 424 TBN WORK ,X*40° 477 
0750 F2 90 06 425 JF TRY ; G78 FXEKEREERKEE EAAEKREAEAREREE RAE EKA EKERH SES SALE HR EKEK SHAKES ELK KKE REAR SEK 
0753 FG TF 18 426 HPL X®*1B*,xX*7Fe HALT -84- 479 * RESERVED STORAGE AREA 
C 0756 F2 B87 68 427 J LOADA GEO EEERERERREEKEE EAR EKER AERERK AERA KRKASEAKSEREREKKS REE HKKRER EAR HECK ES EK HES 
ahd 428 ; ; 08s0 481 ORG X*O8ROF osas8o TO C900 MUST NOT CCNTAIN 
oy Sis 0759 OD SF LODF 1C91 429 TRYL CLe RDFD+95¢ BLANK(96) *CK FOR AND @RANCH IF 0880 482 SAVEM ECU * CODING OR CONSTANTS 
a O75F F2 81 19 430 JE CONTIN *CARD IS BLANK 0880 0900 483 DS CL129 
0762 31 FS 1CAO 431 NOTBLK LIO LORD, X*F5® READ osol - ©960 484 SAVEIT DS CL96 ‘ 
0766 F3 FO 04 432 S10 X*C49 Xt FSF : 0961 , 0968 485 SAVE DS CLs 
Cc 0769 Cl Fl O7T69 433 TIO x eXtFLt 0969 486 RDAREA EQU * 
0760 38 10 1C€92 434 TBN FLAGS1,FLAG3 0969 1C28 487 DS 50CL96 
O7T71 F2 ©O 03 435 JF BAD1 aye 1¢29 1C2C 482 SAVEID DS CL4 
C O7T74 FO 7F OT 436 HPL XSOTEXETEE HALT -87- ae 1¢€20 1¢30 ©4489 WORK DS CL4 
O77? CO 87 O759 437 BADI 8 TRY1 1¢€31 1€31 490 COUNT OS ctl 
438 : 1€32 1C91 491 BLANK ODS CLO6 
CO: O778 3B 80 1CS3 439 CONTIN SBF FLAGS2,;FLAG1O i 492 
C77& 38 O02 1092 440 TSN FLAGS1_sFLAG6 : ee : 492 
ane ‘0783 F2 10 3B 441 JT LOADA : GOB ERKERKE RRA A AEERE KERR AKER EERE KKH HERAK SAR DARKS KK SE SKASE ASKS KE SEHK ESHER EK K 
= O786 328 20 1092 442 TBN FLAGS 1, FLAG2 ee ; 494 * FLAGS 
O78A F2 10 OF - 443 JT CK2 . GQ5 KREREEAKEEKARKEEEKSERKSER AR AE ES KE SAREE TERE SEA ESE SERERKAE RAKE AH EELS RHE 
o789 38 10 1€92 444 TBN FLAGS1,FLAG3 d 1€92 09 1€92 496 FLAGS1 OC XL1*00* rm - -- i 
Cc o791 F210 13 445 JT ck3 2 * 497 * FLAGG BIT O-MULTIPLE CARD IPL STAND-ALONE PROG. 
0794 CO 87 O7C5 446 B PROPT . 498 * FLAGI BIT 1-1 CARD PROGRAM HEADER CARD 
447 t Rue 499 * FLAG2 B8I1T 2-2 COPIES ARE TO BE PUNCHED 
Cc 0798 38 O07 O721 448 CK2 TBN X1042,X*OT® 3 oh 50C * FLAG3 BIT 3-3 COPIES ARE TO BE PUNCHED 
o7sc co 10 O7C5 449 BT PROPT : 501 * FLAGS BIT 4-ALTERNATE BUFFER FLAG 
O7AO 3A OT OT21 450 SBN X1O4+2,—,X*O7* . 502 * FLAGS BIT S-RESTGRE NORMAL PRINT D&TA AFTER A DUPALL 
#3 O7A4 F2 87 1A 451 J LOADA os 503 * FLAG6 BIT 6-CONTINUE TO DUP 1 CARD 
‘ 452 504 * FLAG7 BIT 7—-PRINT CINTERPRET) CONTENTS OF CARD ONLY 
OTA? 39 03 O721 453 CK3 TBF XIO+2_X*038 1€933 00 1€93 505 FLAGS2 DOC XL1*008 = 
© O7AB CO 10 O7C5 454 BT PROPT . a 506 * FLAG1O BIT O-THERE WAS A HOPPER CHECK 
O7AF 38 O7 C721 455 TBN XIQ+2—X*O7* 507 * FLAG1LI BIT 1-THERE WAS A FEED CHECK 
0783 F2 90 O07 456 JF SET3 508 * FLAG12 BIT 2-COMPARE OPTION SELECTED 
© O786 38 03 0721 457 SBF X1042,X*03* : * 50¢ * FLAG13 BIT 3-PRINT ONLY 3 LINES CN TAP CARDS 
O7BA F2 87 04 458 J LOADA oe 510 * FLAG14 BIT 4-SEQUENCE NUMBER OPTION 
459 seos 511 * FLAGI5 BIT 5-LOADER CARDS 
CS O78D 3A OT O721 460 SET3 SBN XIO#2,X*O7# a . : 512 * FLAG1O BIT 6-SOFTWARE DIAGNOSTIC HEADER CARD 
O7C1 CO 87 O713 461 LOADA B LOAD 513 * FLAGI? BIT 7-INSERT COLORED CARDS 
Oo7C5 CO 87 O24F 462 PROPT 8B NEXTCD 514 
6) 463 ny 514 
463 514 
463 1094 C30604D04C505E3 1C9A 515 COMENT OC CL7*CQMMENT®* 
C GOOG KHEERKEEEARE EAE EE KEES REAEEEKESREE EEE EKER SEES ERKEEKHEAERAEREEE EE KEKE LR K o S16 ERERKERERAEA ARAKEK EAS KEKE SEERA ASEA SRE SE SEAS SE EAEKSEHAERSS AHS EKER SEEK HRS 
465 * MESSAGE INSERTS 517 * ADDRESS CONSTANTS 
466 RERKEEEERKEKEERKEKAEKKERESE AREER SAS ASRAEEAEKALSE SEK SS SE REA KARE RKEK HE EK SE HK 5S1Q EXEKEA KARR ERE AEE ARERACKR HERS HESS SES SESH S FESSSARKASEKKK LE SHES HAE HRS 
C O7TC9S FLI4OC3C1IDSC440D7 OCT7TDB 467 IPL oc CL19"1 CARD PROGRAR--—IPL®* 1CSB 1E00 1ce¢c 519 LDPR DC AL2( PRINT) 
bw 0701 D906C709C1D46060 46T ; 1C9D 1FCO 1C9E 520 LOPU OC AL2(PUFD) 
0709 C9D0703 467 1C9F 1080 1cCAQ 521 LORD OC AL2(RDFD) 
Cc O7DC D4&FO40E3C1D740C4 O7EE 468 TAPCD DC CL19*MO TAP DECK CARD ° * THESE MUST * “ 522 
O7E4 C5C3D240C3C109C4 468 522 
OTEC 404040 468 523 KREKAKHKAAERERERKESRESREAE KAKA RAEKAESAKKARHAKKE RAAT AAHKK KSSH SRSA KE HKERA TKS 
Cc OTEF 404040 O7F1l 469 oc ci3* 8 = BE TOGETHER * } 524 * CONSTANTS 
O7F2 D3D6C1C4C509 O7FT 470 LOADDC OC CL6*LOADER® ; * ALWAYS * 7 525 KEEREREAKAEREE REAL SEKREKSAERKES RE AAAS RK SH SETSE SKEKEKEAKE ETRE KKH SE KEK KKTRE SE 
SY 
DATE .01CCT70 i PROG ID oDuP-0 . DATE O10CT70 PROG ID ODUP-0 
EC NO. 816760 / : PAGE 4 EC NO. 816760 PAGE 4A 


; C 4 aoe . 
©0808 8C8O8H8SSCHHSSCHCHCS HOH OSCO OOOO OOOO OSES ES 
ee rere ener ; 
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164 MAINTENANCE DIAGNOSTIC PRaoceaAM PART NO. 2589942 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589942 \ 
Cc PAGE 5 Mi PAGE 5A : 
DUPO OIAGNOSTIC UTILITY PROGRA’ ; DUPO DIAGNOSTIC UTILITY PROGRAM 
. ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT CROSS-REF ERENCE : 
: { 
Cc ICAL O1 1CAl 526 ONE DC XL1l*O18 SYMBOL T LEN VALUE DEFN REFERENCES 
1CA2 C4E4D7F1 1CA5 527 FF8L dC CL4*DuUPL® hey . 
Rees 1CA6 C6C6COF1 1CA9 528 FFFL OC CL4*FFFLE en AGAIN A 004 0748 0423 0416 { 
C 1CAA C5D°D7F1 1CAD 529 ERP1 OC CL4tERPL® i AGO A 006 O04E2 0273 0214 
1CAE C3DTE4 1CBO 530 CPU DC CL3*CPur | BABB A 004 1CE5 0544 0334 
1C81 40C7C202 1CB& 531 FIRST DC XL4*40C7C 202° BADL A 004 O777 0437 0435 f 
Cc 1C85 €2C5D8 1CB7 532 SEQ oc CL3°SEQ? BEGIN A 006 O11F 0043 0041 a i 
1C88 40D03C5E5C5D3%040 1CC1 533 ECLEV DC CL10* LEVEL ® *MUST BLANK A 096 1C91 0491 0045* 0046 0046* C048 0107 0231 0258 9299 0320 0341 0385 0429 
1CCO 4040 533 BRZRO A OC5 1CEL 0543 0225 : 
Cc 1CC2 40 1CC2 534 FURBL OC cure ¢ *STAY CARD A 004 0348 0182 0172 
1€C3 4040 1WC4& 535 oc cr2* ¢ * CDID A Of1 1F82 0567 0174* 0233%* 0261* 0298* 0347% 
1CC5 FOFOFOFO 1CC8 536 ZERO DC 4XL1"*FOe © * TOGETHER COTYPE A OC1l 1F°SF 0566 0166* 0167 0167% 0168 01469% 018°* 0203* 0213* 9221% 0236% 0263% 0272" 
Cc 1CC9 Fl 1CC9 «537 DI DC XLI'Fle * AI WAYS 0279* 03314* 0352* t 
1CCA 00000000 1CCD 538 LAST DC XL4*CO8 CKB A 004 O036F 0191 0185 i 
aba 1CCE CO 87 0116 539 REST 65 SEVEN2 CKBL A 004 O17C 0066 C062 
C “1002 FOFCFSFO 1CDS 540 CLEND 0C CL4*0999# CKC A 004 0187 0070 0067 
1C06 FOFOCLFL 1CD9 «541 OLOCPU DC CL4*COAL CKD A 004 O16A 0061 0059 : 
1CDA C5D5C4% 1CDC 542 ENDCD OC CL3"ENDt CKEM A 004 0102 0091 0096 0100 i 
a 1CDD FOGF6F40CT7 1CE1 543 BRZRI OC ALS*FOGF6FS4OCT# CKGO A 004 O19A 0076 0083 0104 0108 0115 0121 
1CE2 €2C14040 1CE5 544 BABB 0C CL46'BA ¢ CKGOL A 004 0202 0104 0087 0102 
1CE6 FO6B6840C7 1CEA 545 DDHED 0C CL5*Cyy G* ee ERE A 004 0392 0200 0183 
C. 1CEB Oo0CDC00 1CEE 546 DDEND DC XL4*ct CK2 A 004 0798 0448 0443 
1CEF E2E2E6 1CFl 547 SSW DC CL3"*SSwt CK3 A 004 O7A7? 0453 0445 
ICF2 DSCSD3DEC3C1E3CS 1CFB 548 ESL pc CLIO*RELOCATION® CK43, A 004 O15SF 0058 0056 : 
C 1CFA D6E5 548 a CKS5 A 006 0207 0157 0136 i 
1CFC F3C6C6C6 1CFF 549 ID3FFF OC CL4°3FFFE COLOR A 004 0206 0105 0090 : 
no 1000 4D0C4C3075D 1004 550 CCPID OC CL5*(DCP)* COMCD A 004 0300 0215 0207 
Cc 1080 551 ORG xX*19808 *t*%% DO NOT GO PAST 1080 «*x4* rh CONENT A OO7 CSA 0515 0221 
1080 552 RDFD €QUuU) x COMOK A 006 O3E7 0221 0218 
1080 LOFF 553 DS CL128 comP A OCS OFT O101 0098 
“ 1ECO 554 PRINT EQU) * MUST BE ON 256 BYTE BOUNDRY oy CONTIN A 004 O©778 043¢ 0390 0430 
1ECGO LEFF 555 os CL256 ‘ COUNT A 001 1C€31 0490 0064* 0074* 0116* 0117 0129 0131*% 
1FOO 556 PUFD EQU- * Cey A 003 1CBO 0530 
C 1F00 1F7F 557 DS CL128 car DCPID A 005 1004 0550 0345 
1F80 558 PRFD EQU” * DDEMSG A 032 084D 0475 0144 
1F80 lFFF 559 DS CL128 DDEND A 0C4& 1CEE 0546 0137 OL77 0227* 0257% : sete ae 
C. 560 DDHED A 005 1CEA 0545 0254 : 
ee: 560 DON A 004 0196 0075 0065 
561 SEEKER EREAHEH EKER RAKES REESE KEE SEES EERE SE REESE EEE EERE SEREEERERKE SEEKER DONEXT A 004 0300 0166 0163 
Cc 562 * EQUATES a pup A 004 0686 0370 0205 0287 0327 0354 
563 SEESHKEKEREKSEREREEAKEREKA EKER ERE EEE AKER EERE SERE RARE RAEEREKEEKAREK ESSE DUPA A 004 0523 O287 0265 O274 
0001 564 XR EQU xtoL? DUPAL A CO4& 0203 0155 C148 
CG 1LFOF 565 NUMSER EQU = PRED+9S 5 DUPALL A 006 0672 0363 0155 0199 0337 
1FOF 566 CDOTYPE EQU = PRFD+31 a DUPAL A 004 O03A7 0205 0178 0188 
1F82 S67 CDID EQU PRFD42 DuPO A OOl 010C 0004 - 
Cc 1F0% 568 EC EQU _ PRFD+84 5 tes DUPS A 004 0667 0359 0251 0333 0367 
1FBF 569 NAME EQU ~~ PRFD+63 DUP4A A 003 OS5SFF 0333 03206 0328 
1F8A 570 LEVEL EQU  PRFD+10 DLP4B8 A 004 0478 0251 0224 C243 0249 
Cc 1FFF 571 FOURTH EQU = PRFD+127 o3 D1 A001 1CC9 0537 0154 0282 0349 
C080 572 FLAGC EQU- x*B8OF EC A 001 1FD4 0568 0229* 0259% 0346% 
0040 573 FLAG1 EQU  X*"40* ECLEV A010 1C€C1 0533 0127 0309 
c 0020 574 FLAG2 EQU x*#208 3 EDDECK A 004 0682 0367 0143* 0360* 
OC10 575 FLAG3 EQU- x*lo® END A 004 04C€5 0266 0255 
OCO08 S76 FLAG& EQU x*08BF ENDCD A 003 1CDC 0542 0189 0279 
Cc C004 S77 FLAGS EQU x*'C4? oS END2 A 006 O4E8 0275 0198 0267 
en 0002 578 FLAG6 EQU- x02" 3 ERP1 A004 1CAD 0529 
0091 S79 FLAG? EQU- x*Ol? ESL A 010 1CFB 0548 0272 
Co OC80 58C FLAGIO EQU. x*80* 2 FFFL A004 1CA9 0528 
C040 581 FLAGI1L EQU = xX*4O* FF81 A 004 1CA5 0527 
0020 582 FLAGI2 EQU) xX*208 FIRST A 004 1C€84 0531 0252 
Cc 0010 583 FLAGI3 EQU x*"108 FIRSTL A 006 0636 0346 0344 ae 
OCO8 584 FLAGI4 EQU x08" FLAGSL A 001 1C€92 0496 0049* 0054* 0057* 0060* 0063* 0135 0142* 0162 0165* 0171 0179% 0200 
00C4& 585 FLAGIS EQU  X*04* C204* 0248% 0250# 0256* 0365* 0393 0399* 0407* 39434 0449 0442 (C446 
C C002 586 FLAGI6 EQU x02" 3 FLAGS2 A 001 1€93 0505 0050* 0068* 0072* 0089 0105 0145 0149* 0182 0208* 0241* 0286* 0317# 
f 0001 S87 FLAGI? EQu- xto1t 0322* 0326 03326 0353* 0389 0391 0409* 0419* 0421* C439" 
@ FFFF 588 END FLAGO 001 0080 0572 0171 0179 0250 


Cc 
3 FLAG) C O01 0040 0573 0200 0204 0248 
aes wre FLAG10 C 001 0080 0580 0389 0419 0439 


Lo eel 
DATE o1ccT7o 


PROG 10 ODUP-0 : DATE o010CT70 PROG ID CDUP-0 
EC NO. 816760 PAGE 5 EC NO. 816760 PAGE 5A 
Cc 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589942 IBM MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 2589942 { 
© PAGE 6 m PAGE 6A ; 
t i « 
‘'** puPpO —- DIAGNOSTIC UTILITY PROGRAM "S, DUPO DIAGNOSTIC UTILITY PROGRAM é 
- CROSS-REFERENCE CROSS-—REF ERENCE 
Cc SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE ODEFN REFERENCES 
FLAGI12 C COOL 0040 0581 0391 0409 0421 PROPT A QO0& O7C5 0462 0446 0449 0454 
Cc FLAGI2 C 001 0020 0582 0072 0089 a PUFD A O01 1F00 0556 0134* 0153* 0520 
FLAG13 C COl C010 0583 0317 0322 0326 RGAREA A O01 0969 0486 0075 0123 
FLAG14 C 001 0008 0584 0145 0149 RDFD A O0C? 1080 0552 0088 0101 O107 0133* 0137 0147 0150 0152* 6157 0159 0161 0173 
C FLAGI5 C 001 0004 0585 0208 0336 C353 oF 0174 0175 O177 0184 0186 0187 0191 0193 0195 0197 0206 0209 
' FLAG16 € OC1 00C2 0586 0182 0241 0286 . 0215 0217 0222 0223 0225 0227 0228 0229 9232 0233 0234 0237 
‘t+  FLAGI7T C 001 0001 0587 0068 0105 0238 0239 0244 0246 0252 0254 0257 0259 0260 0261 0262 0264 
FLAG2 C 001 0020 0574 OC5S7T 0442 0266 0268 0270 0273 0275 0280 0285 0288 6290 0293 ©6295 0298 
FLAG3 C 001 0010 0575 0060 0434 0444 0301 0302 0303 0308 0310 0311 0312 C315 9336 0318 03206 0323 
FLAG4 C 001 0008 0576 0393 0399 0407 ; 0325 0329 0332 0334 0338 0342 0343 0346 0347 0348 0350 0351 
Cc FLAGS C 001 0004 0577 0162 0165 0365 “ 0364 0385 0429 0521 
FLAG6 C 001 0002 0578 0063 0440 “READ A 003 O1A2 0078 0044* 0079* 0114* 
FLAG? C 001 0001 0579 0054 0135 0142 0256 eh REG1 A 004 0474 0250 0247 
Cc FOURTH A 001 FFF 0571 0144* 0222* 0235* 0332* ; REG1ICD A 004 046D 0248 0245 
“FURBL A 002 1CC2 0534 0157 REMOVE A 032 0826 0473 0235 
GO A004 06C7T 0389 C377 REPCD A 004 OS5EC 0329 0289 
Cc GOOD A 006 036 0213 0210 REPLAC A 007 082D 0474 0331 
GCODl A 006 O04FB 0279 0276 REST A 004 1CCE 0539 C038 
‘*'* 60902 A 004 O51F 0286 0190 0284 , , SAVE A O0C8 0968 0485 0150* 0152 0153 0154* 0161* 0282* 90283 
C HDCDL A 0C6 O3FC 0225 0216 o SAVEID A 004 1C€2C 0488 0043 0128 0209 0217 0237* 0238* 0264* 0275 0315* 0350* C351* 
HDSECT A 006 047C 0252 0226 SAVEIT A 056 0560 0484 0164 0363* ‘ 
HEAD A 096 0853 0476 0236 0263 SAVEM A 0OL 0880 0482 0039* 0305 0307 0307* 0208* 0309* 0310* O311# 9312* 0313* 0314* 0316* 
C HOHUM A 006 0468 0258 0253 CC 0323* 0324 : 
HSHALT A 003 OLIC 0042 0076 SEQ A 003 1C87 0532 0147 ° 
ID3FFF A 004 CFF 0549 0343 ‘'' > SETL A 004 O6F9 0403 0394 0405 
Cc: INCRE A 0C6 02C1 0152 0146 y SET11 A 0904 0740 0421 0418 
INIT A 004 0192 0074 CO71l 0130 0212 0220 0273 SET13 A 004 O5CC 0322 0319 
INSERT A 003 0225 0113 O11l SET2 A 004 O6DC 0395 0397 
Cc TPL A 019 O7DB 0467 0168 0169 0203 cP SET3 A 004 O7BD 0460 0456 
_  TPLEND A 004 0341 C179 0176 5 SEVEN2 A 003 0116 0040 0539 
LAST A004 1CCD 0538 0187 0228% SKAVE A 004 O2EF 0162 0158 0160 
C LONL A 006 0618 0241 0335 i} SPANG A 006 065A 0352 0339 
CPR A 002 1C9C 0519 C047 ~ SSW A 003 ICFL 0547 0270 2 
toPpy =A 002) «ICSE «00520 0410 SWWCD A 006 0602 0334 0330 r iment 
C LORD =A 002:«1CAD «0521 0077 ©0091 0378 411 0431 iy  TAPCD A019 OTEE 0468 0313 
LEVEL A Ol 1F8A 0570 C043* 0234% 0262* 0348% . at TEXT A 004 O3AB 0206 0201 
LOAD A 004 0713 0409 0392 0401 0461 .: 2) TEXTCD A 004 0806 0472 0213 
C LOADA A 0C4 O7C1 0461 0427 9441 0451 0458 3 TEXT2 A 004 0382 0208 0196 
LOADDC A 006 OTF? 0470 0352 TRYL A OC6 0759 0429 0425 0437 
LOADER A 006 0612 0338 0192 0194 TWINK A 004 02A3 0145 0138 
C MAKE & 004 0690 0374 0361 0371 ry TWINKY A 004 0299 0143 0141 
MAKEM A 004 0248 0123 0118 0119 : WAIT2 A 004 0694 0375 0387 
MARD A Ol} 9802 0471 0292* 0297* 0304 WORK A 004 1C€30 0489 0051* 0052 0055 0058 0061 0066 0070 0C81* 0582 0084 0094* 0095 
C MB A 0U6 0548 0298 0294 9 0097 0109* 0110 0139% 0140 0375* 0376 0382* 0383 0355* 0396 C0403* 
MCARD A 004 0527 0288 0269 0271 0404 0414* 0415 0417 0423* 0424 
: MX A 006 0500 0323 0296 0321 x1o A 002 O71F 0412 0359* 0370* 0400* 0408* 0448 0450* 0453 0455 0457* C460+ 
Cc MO A 0C6 0576 0307 0291 .O XR1 C 001 0001 0564 0075* 0088 0101 0120 0120# 0123* 0126 6126* 0133 0134 
; NAME A OOL 1FBF 0569 ©232* 0260* 0341* fyacus 9 RX A 006 0365 0189 0180 eae 
NEND A 0C6 0519 0285 0281 ZERO A OOl 1CC8 0536 0170 0230 0314 
Cc NEXTCD A CO3 024F 0126 0151 0462 ' oO} 
NEXTL A 006 0252 0127 0124 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
NOCOMP A 006 0230 0116 0106 
Cc NORM & 004 0154 0055 0053. = ag 
NCTBLK A 004 0762 0431 0386 
NOTRDY A 003 068D 0373 0374 0379 0384 0420 0422 : 
Cc NUMBER A 001 FOF 0565 0170* 0173* 0186* 0202* 0223* 0230* 0273* 0283* 0285* 0303* 0325* 0338+% by : 
0349* c 
oK A005 01C6 0088 0985 r 
Cc OLOCePU A 004 1CD9 0541 0175 CO I 
- .» OLEND A 004% 1C€D5 0540 0159 0280 ite i 
ONE A OOl 1CAl 0526 0116 0131 é 
€  ONECD A 004 O045F 0244 0240 oO 
PRFD A 001 1F80 0558 0048* 0127% 0128* 0164* 0231* 0242* 0258* 02°99* 0300* 0391* 0302* 0304* - i 
0305* 0324* 0342 0345* 0363 0364* 0398 0406 0565 0566 0567 0568 : 
Cc 0569 0570 O571 o i 
PRINT A 001 1E00 0554 0398* 0406* 0519 ~ 


DATE O1CCT70 PROG ID ODUP-O 
EC NQ. 816760 PAGE 6 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM 


EOA3 ONE CARD RIPPLE PRINT 


ERR LCC GBYECT CODE 


2 

0000 3 EOA3 
ocoo 4 
oco00 5 

6 eS 

7 * 

8 agi 
6000 C2 03 0100 9 

C004 74 O1 FF 10 Looe 
0007 36 O1 OO3A 11 
0908 CO 01 0004 Sy 12 
OOOF AC 7F TF FF ; 13 

14 * 

0012 F3 EO Cl 15 vLcoP 

0016 6C 83 FF FF 16 LOOP 
OOLA 71 E4 03 17 
QOLD 7 E6 38 18 
0020 F3 E2 00 19 

0023 D1 E2 23 20 BUSY 
6026 AC 00 78 FF 21 
002A AC 83 FF FE 22 
OO2ZE eW8 OF 80 23 
C031 00 10 13 24 
0034 DO 87 16 25 
26 

27 F*2% 


ocol 28 XR1L 
oce02 29 XR2 


. : PART NO. 
PAGE 


ADDR STMT SOURCE STATEMENT 


DECK & 

START X*O000* ~~~ ora 

USING Asli 

USING Ao2 
SEKEESEREER SERS FELLER ERSTE SE 
1 CARD RIPPLE PRINT CHAIN CLEANER 


1 ene Sae TESA EHSEEES SOLES SERAEESEES ESSE EEEA ASSETS SES OE SESE SEES SS 


LA X*100', X'03* SET BOTH REG.S TO 256 


1 st 255 eXR1)eXR1 GENERATE 255 HEX CHARACTERS 
A NEG1,XR}2 
BNZ tooPl1 
MVC 12701289XR2) 22580 —XR2Z2) PUT 128 IN IMAGE AREA 
2 sia X*O1*»sX*E0* SPACE 1 
3 mvc 2551132 9XR1) 92550 _XRZ2) PUT FIELD IN DATA AREA 
Lic A43(gXR1L) eX ESS LOAD IMAGE ADDRESS 
Lio DARACsXRL) eX" E6® LOAD DATA ADDRESS 
S10 X*00%,X*E2® PRINT A LINE 
TIO BUSY (sXR1) oX*EZ® WAIT FOR BUSY TO OROP 


MVC X*7B*C Le XR2) eX*FE OC gy XRZ2) RIPPLE THE PRINT FIELD 
MVC KEE (L32eXR2eX* FEN (gy XR2Z) 


TBN X* SO! (,XRZ2) eX° OF® IS THIS THE L6ND LINE? 
BT LOOP 2(,XR1) 
B LOOP3(.XR1) 
EEREHERES ESE GEEEESEEEEEERESS ESSERE SESS TESTS SHEERS TREE LESS TES SESE ES 
EQU 1 
EQU 2 


0037 COTC 0038 3C DARA oc XL2*007C® 
0039 FFFF 003A 31 NEGI oc XLZ2*FFFF® 
0000 32 END A 
DATE Q60CTE9 ZOJANTO O2MARTO O1NOV70 PROG ID 
EC NO. 816502 816548 816631 816764 PAGE 
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PART NO. 
PAGE 
£0 A3 ONE CARD RIPPLE PRINT 
CROSS—REFERENCE 

SYMBOL T LEN VALUE ODEFN REFERENCES 
A A 004 0000 0009 0004 0005 O017 0032 ig 
BUSY A903 C923 0020 0020 
DARA A 002 0035 0030 0018 
EOA3 A 001 0000 0003 
Loop: A 003 0004 0010 0012 
Loop2 A 003 0013 OO1s 0024 
Loops A 004 ©0016 0016 0025 
NEGL & 002 003A 06031 0011 
xR C 001 oocl 0028 0010 0010 0011* 0016 0017 0018 0020 G024 0025 
XR2 C 001 0002 O0C29 4013. 0013 0016 0022 OC21 0022 0022 0023 
TOTAL STATEHENTS FLAGGED IN THIS ASSEMBLY = 0 
DATE O60CT69 20JANTO O2MAR70 O1NOV70 PROG ID 
EC NO. 816502 816548 316631 816764 PAGE 


2589946 
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IBM MAINTENANCE DL AGNCSTIC PROGRAM 
PAGE 2 
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weap ee PT ep ree 


S 
c . PART NO. 2589946 
Cc 


EOA3 ONE CARD RIPPLE PRINT 
OBJECT CARD LISTING 


f MERE ot Loisensse tele a. 


he 


CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 459 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 


+7 ae 


Cc 
C THE CHARACTER INDICATES A BLANX CCLUMN AND THE CHARACTERS D € H INDICATE NUMERIC SHIFT. 
° 


: e e e ee e e e e e. 
T#- 20-<A GEAM3Q A Ce & D»Ge™™| -— O2C""919 CLOTT 38-CIJBS4+Z G2%*,eHi "*%,-1-t ED*BGE-A 3a""a *D OE OA30001 
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E A*ET#=.DC"PH$ ="7MEFI { Cc FZ ASC R A SO Q 17581007701 01670*LdEOA30002 
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deed 
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2589951 


PART NO. 
PAGE 1A 


£013 £203 LINE PRINTER FUNCTION TESTS 


E013 5203 LINE PRINTER FUNCTION TESTS 


ERR LCC GBJECT CODE ACOR STMT SOUKCE STATEMENT 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


DECK 4 














2 OA S86 OA OA86 70 0c IL1*10° 
0 AOO 3 €013 START xX*agg® 3A87 1801 OA8B8 71 DC AL2C MAP) 
fg REHTTES TERK TESST THRESH EESERE ELSES HS ES REESE SAA AESSESEEERLKES EES KEE EASE TES OA89 CO 87 0222 72 HALIT 8B HALT 
5s SECTION PREFACE * OA 8D E COE OA 8E 73 oc XL2 * E00 E* 
6 SERWBSSSIVESRSESRKSTHRSSHKSEKKE SESS SKASEKEKKSESKSSSSHKEKSECHESSHKKESHKSERERES KS KS HKKSES OASF co 87 0216 74 OKYDOK B LENK 
7 * THIS AREA CONTAINS INFORMATION NECESSARY FOR SECTION OPERATION. % 15 
8 THE PROGRAM IDENTIFICATION: FLAGS ANO FIRST ROUTINE ADDRESS * TG FEET EEKEECEREESREERSE RECESS SEKECHES SHRESEKEKRKAHKT ERR AGRA KLEE SSK SE HKAKTE 
9 * ARE LOAD®O BY ASSEMBLED DATA. THE CURRENT ROUTINE NUMBER IS * 77 * 
10 * SUPPLIED &8Y THE CONTROL PROGRAM. SECTION UOT ENTRIES ARE * 78 * ROUTINE 2 - TIO TO NOT READY DEVICE * 
ll 2 DEFINED PARTIALLY BY THE SECTICN SO THAT THE CONTROL PROGRAM + 19 * (PRINTER MUST BE NOT READY BEFORE EXECUTING) * 
12 * CAN SUPPLY CPTION BYTES. * 80 # * 
132 POSSESSES SHE SHE REESE SSE ESERSERERERS ERK HAKSE ES HERS ES EHELSEREKSEKA TH SLRS SEH BL ERRKSKHE CAKE TKSAKA KKH RESASSERKERKSTSHKSEKRKKSEAKSEERSS SERKKKARHESHKKHKK*KEREE ERE EES 
oacc €013 OAOl 14 Oc XL2*E€O13° PROGRAM IDENTIFICATION OA93 02 OA93 82 RTN2 oc xLie2e ROUTINE NUMBER 
CAd2 CO CAG2 1s oc xXLit oF FLAGS CA94 80 OA94 83 OC. ML 1*sot FLAGS - MANUAL INTERVENTION 
OAO3 OL 0 AO3 16 RNUM Oc MLitze CURRENT ROUTINE NUMBER OAQ9E OAE2 OA96 84 Doc AL2 (RTN3 ) ADDRESS OF NEXT ROUTINE PREFIX 
i, OLC4 GCOC OA0S 17 OC xL2*0O° RESERVED G5 SHKHRRAEKKERERESEEASAESALER RE SRSKHKKKKKKKHKAKARSSESKEKHKTK KE SRK KKSE KSSH SKSES SER 
be 3AG6 CAOF OAO? 18 oc AL2(RTN1) ADDRESS OF FIRST ROUT!AG “REF IX OAS? Cl EO OADE 86 T1Io RINRDY,NRDY SHOULD BRANCH ON TEST OF NOT READY 
ae OAOE LESI QA09 19 oc AL2(ERT1) AODRESS OF ERROR RECORDING TABLE OA9B 38 04 0208 87 TBN SBYTEO «SSWO05 PRINT ON MFCY 
td OAOA £65000 CA OC 20 SPYOT OC XL3*®E950008 UNIT DEFINITION TABLE - PRINTER OAQSF F2 90 10 88 JF LOARR JUMP TO SKIP PRINTING 
re Ql SP TESHERRERRES ETERS THAT HTRAKSEL ARSE KS HSREAH SSS SHAKES SHE ATHRSELHER ERAGE RHEE KE OAA2 OC O02 1891 18AD 89 MVC RORN{3),TON PUT NOT IN SG. 
1s & 22 * * OAA8 CO 87 O21A 90 B PRINT PRINT MAKE NOT READY 
if 23 * ROUTINE 1 - SENSE COMMAND TC PRINTER * OAAC 41 OAAC 91 DC XL1°415 
he 24 * (RESTORE CARRIAGECS) BEFORE EXECUTING) * OAAD 13 OAAD 92 Dc IL1*19° 
& 25 8 * OAAE 1697 OAAF 93 OC AL 2(NANORE) 
' 26 EERRERKEEKE SHEE EATEAS AREER SRAE RESET CSR AERA REE KE EH RERE RHEE RK SECA KES CABO EOEO OABL 94 Cc XL2*EQEO! 
. OAOD O1O1 OAOE 2T €xP12 OC xXxL2*O101° CAB2 FO 7C 6F 95 LOARR HPL X° 6F* gX* 7C# NOT READY HALT 
i 28 OABS Cl EO OADE 96 T10 RINRDY,NRDY IF PRINTER OK, SHOULD BRANCH 
é JAOF Of OAOF 29 RTN1L DC XLLFfF Le ROUTINE NUMBER OABS 38 04 0208 97 TBN SBYTEO »SSHOS PRINT ON MFCU 
é OALO 00 OALQ 30 oc XL1*oO?* FLAGS OABD F2 90 18 98 JF TALT 
. OAL OA93 CAL2. 31 DC AL2 {RTN2) ADDRESS OF NEXT ROUTINE PREFIX OACO CO 87 O2Z1A 99 8 PRINT PRINT NOT READY ERROR 
. FQ SPHEPSE SAT SEE SAKE SREKREEASSERR ESKER LESSEE REKKAKHEKERE STKE ERE ESE KKRK ALA EARE OAC& C1 OAC4 100 DC xXL1°«C 1° 
re OAL3 38 01 CACC 33 TEN SPUDT,B*i* DUAL FEED OACS 1A OACS 101 oc ILi'26* 
i VAL? F2 10. 04 34 JT NIGEB OAC6 1681 OAC? 102 pC ALZ(CCRINS ) 
& OALA 3C OO GAOE 35 AVI EXP 12,x*00* OAC8 E031 OACO9 103 DC XL 2*EO31* 
OALE 30 50 1+95 36 NIGEB SNS STAIX 9X * EO * SENSE FOR CARR.LOC. OACA CK O1 18D1 1803 104 MVC MAP (2 2, CHT 10 PUT CHART NO. IN MSG. 
oF DAZ2 CO OL LF9S OAOCE 37 Cie STALE X(2) sEXPL2] ARE LINE COUNTERS AT LINE 2 0AD0 CC 87 O21A 105 B PRINT PRINT PRINTER MAP CHART NO.w 
. OA28B F2 Bl 25 38 JE SPALT JUMP QVER HALT OAD4S 81 CADS 106 DC xXxL1°*81° 
a QA2B 38 C4 0208 39 TBN SBYTEO, SSWOS PRINT ON MFCU OADS OA CADS 167 oc IL1 *10° 
Ai OAZ& F2 90 18 40 JF GRALT Q0AD6 18D) OAD? 108 DC AL2( MAP} 
OA32 CO 87 O2Z1A 41 B PRINT PRINT "CMD DECOOE ERROR ® OADS CO 87 0222 109 TALT B HALT *ERROR - TIO FAILED TO BRANCH 
5 OA36 Cl OA 36 42 DC XLE°Ccit O4£0C E031 CADD 110 OC XL2*EO31°* 
2 OA37 10 OA37 43 oc IL1*16°* OADE CO 87 0216 111 RINRDY B Lt INK GG TGQ OCP TO LIWK TO NEXT ROUTINE 
ab OA38 1684 0A39 944 oc AL2 (REDCP) 112 
a OA3A £030 OA3B 45 OC XL2"EO308 LIB SHERARESREKAG ERA AEKHESEKAE EKER EKSEKRERKRE KSSH HAE SKK SEK EKSE RH SERGE SS SEEKS HES 
e OAjC OC O1 18C1 1807 46 KV C MAP (2), CHT13 PUT CHART NO. IN MSG. 114 # * 
a OAG2 CO 87 O2ZIA 47 8 PRINT PRINT PROCESSOR CHK.MSG. 115 * ROUTINE 3 ~ TIO GN BUSY TO NOT READY DEVICE * 
OAGO Bl OA46 8648 oC XL1's8le 116 4 * 
OA4T CA OA47 4$ oc ie Be LIT SRRERELLKHRSERKH SAREE KKK T SHH ERSTE EKA SRAR AER SEEKS SKE EK SHES SKE SKE KEES 
a OA“8 1801 OA4SS9 50 oC AL2ZCKAP) OAE2 03 QAEZ2 118 RTN3Z DC XLif3' ROUTINE NUMBER 
an OAGA CO B87 0222 51 GRALT 8B HALT INVALID *N*® FIELD IN SENSE COMD. OAE3 OO OAE3 119 oC ML1'O* FLAGS 
OAGE £030 OA 4F 52 OC XL2 *E030* OAE4 OCBLE OAE5 120 oc AL2 (RTN4) ADDRESS OF NEXT ROUTINE PREFIX 
QA50 Ci E2 OA5S& 53 SPALT TIO JEXT,PBBUSY LZ] FRESE EERE A EKA EE EAA AHEKHRES SRK KEKE SRS ERAAKEKSEKAKLS ASKS RES ESERKE RS 
OAS 30 FF O878 54 JEXT CLE UCSFLG, X*FF® 120 CHAR.IMAG OAE6 Cl E6 OAED 122 T10 PRECU,BUSY BRANCH SHOULD NOT OCCUR 
OASB F201 04 55 JNE SESTAT OAEA F2 87 25 123 J RZ EXIT 
OASB 3C 39 OA63 56 MVI TECHBI, X*39° SET TEST FOR BIT OFF QOAED 38 04 0208 124 PRFCU TBN SBYTEC, SSWO5 PRINT ON MFCU 
CASF 30 €3 IF93 57 SESTAT SNS STATO »X°ER* SENSE STATUS BYTES OAF1L F2 90 18 125 JF R2BUSY 
9A63 38 04% 1F93 58 TECHBI! YBN STAT6,8°100° TEST 48 CHAR.BIT CN OR OFF OAF4 CO 87 O21A 126 B PRINT PRINT BUSY ERR 
OACT £2 10 25 59 JT CKYDOK OAF8S Ci OAF8 127 oc MLIPcit 
OAGCA 38 04 0208 $0 TBN SBYTEO,SSWOS PRINT ON MFCU OAFS 16 OAF9 128 oc ILi*22* 
OAGE F2 90 18 61 JF HALIT OAFA 18C7 OAFB 129 oc AL2(BABUSY) 
OA TL CO B87 O2LA 62 B PRINT PRINT CHAIN CHK.ERR OAFC €032 OAFO 130 DC al 2*E032° 
OATS Cl OATS 63 oc XLifc1® OAFE OC 601 1801 1800 132 MVC MAP (2) .CHT17 PUT CHART NO. IN MSGe 
OATe 2 OATO 64 OC w1¢37¢ 0B04 CO 87 O21A 132 B PRINT PRINT PRINTER MAP CHART NO. 
OAT? 100 CATS 65 Cc 8L2 (CHACHE ) Osos 81 0608 133 OC XL1*81° 
DATO LOOE CATA 66 OC XL2*"EQOOEF O809 CA OBOS 134 oc 111°10°* 
OATB OC O1 18601 1BOF 67 MVC MAP (2},CHT 19 PUT CHART NO. IN MSG. OBOA 1801 OBOB 135 OC AL 2(MAP ) 
CAB1L CC BT O2ZI1A 68 8 PRINT PRINT PRINTER MAP CHART NO. OBS CO 87 0222 136 R2BUSY B HALT *ERROR - TEST 1/0 ON BUSY FAILED 7 
DABS 81 OA85 69 OC xL1"°8lt 0810 £032 OB1I 137 oc XL2*E032* 
OATE 2SAUG69 310CT69 28NGV69 O2MARTO OLNOV 70 1ONGVT71 PRG 10 OEO01-3 DATE 25AUG69 31 0CT69 28NOV69 O2MAR70 OLNOV70 ISNOVT71 PROG ID 0E€01-3 
EC NU. 616485 816529 816542 816631 B8LOT64 818677 PAGE 1 EC NO.w 816485 816529 816542 816631 816764 818677 PAGE 1A 
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2589951 PART. NO.« 258995. Rah es 
PAGE 2. PAGE 2a o 
ECL3 © $203 LINE PRINTER FUNCTION TESTS E013 5203 LINE PRINTER FUNCTICN TESTS 
ERK LOC OBJECT CODE ADDR STMT SCURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
ie CBl2 CO 87 0216 138 R2EXIT 8B LINK GO LINK TO NEXT RTN VIA DCP O0BB4 Cl EC OBDB 206 TI0 BUSRI -RICABY RIGHT CARR .BUSY 
F 139 OBB8 F2 87 30 207 J TEPCU 
We 140 SPERSSAHESEES SEE SHEKEAKHEREE SELES GSES SE SHSESSSEKSEKEK KER SES EE HSE RISE KES SK SEKKS OBBB OC O7 1COC LB6A 208 UFERR MVC. PBCA(8),BUFF PUT BUFFER IN BUSY MSGe. 
141 * * OBC1 3C 37 OBFB 209 MVI = BERALT »X*37° SET BUFFER HALT ID. 
142 * ROUTINE 4 - TIG TG READY CEVICE * OBCS F2 87 23 210 J TEPCU 
i 143 % (PROGRAM HALTS TO INDICATE PRINTER MUST BE MADE * oBbcs cc O07 1COC 1BS5A 211 BUSLE MVC PBCA(8), CARR PUT CARR.IN BUSY MSG 
{ 144 * READY, THEN ISSUES TEST I/0 GN NOT READY) * OBCE OC 04 1C03 1B74 212 MVC RRAC(5) »TFEL PuT LEFT IN BUSY MSG . 
bee 145 *% , * 0B6C4 3C 38 OBFB 213 MVI BERAL T,X*38!* SET LEFT CARR.HALT 10 2 
a a ; 1Q6 SOSH CEEEEEEEEEUESEHEES EEEEETESESSEEERESEESESESESEEERESEASCERER EEE SELES EE OBD8 F2 87 1C 214 J TEPCU : 
OB16 C4 OB16 147 RIN4S DC XL1L*4* ROUT INE NUMBER OBDB OC O7 1COC 1BS5A 215 BUSRI MVC PBCACE) zCARR PUT CARR IN BUSY ASG. 
OB17 80 OB17T .148 DC xL1*80° FLAGS — MANUAL INTERVENTION OBE1 OC 04 1C03 1B86F 216 MVC RRAC(5)¢THGIR PUT RIGHT IN BUSY MSG 
0818 OB 68 OB19 149 OC AL2 (RTNS ) ADORESS OF NEXT ROUTINE PREFIX OBE? 3C 39 OBFB 217 MVI BERALT -X* 39° SSET RIGHT CARR.HALT ID 
150 OFF EREEEESEEEEESEESEECTERSE EEE EASE KER ARESH RSS EE REEK EERE ES ADA KE AERSERESEE OBEB 38 04 0208 218 TEPCU TBN SB YTE O, SSWC5 PRINT ON MFCU 
OB1A Cl EO 0821 asl T10 TYBS,NRDY OBEF F2 90 18 219 JF JUSALT 
OBIE F2 87 1A - 152 J R4 CHK GO ON IF PRINTER READ* OBF2 CO 87 O21A 220 B PRINT PRINT NOT BUSY ERR 
OB2Y 38 04-0208 153 TYBS TBN SBY TEO,SShO5 PRINT ON MFCU OBF6 Cl OBF6é 221 DC XL1°C1* 
0B25 F2 9C 10 154 JF R4NRDY ‘ OBFT 29 OBFT 222 Oc 111°41° 
0828 OC G2 1891 1LA29 155 VC RORN(C3) sKNALB BLANK NOT IN READY MSG OBF8 1C22 OBF9 223 OC AL 2UREBUSY) 
O82E CO BT O21A 156 B PRINT PRINT MAKE READY MSG OBFA E000 OBFB 224 BERALT DC XL2*E000* 
0832 41 0832 157 oc XL1L* 41° OBFC OC O01 1801 18DD 225 MVC MAP (2) ,CHT17 PUT CHART NO~ IN MSGe 
0633 13 0833 158 oc IL1*1s98 OCO2 CO 87 O21A 226 B PRINT PRINT PRINTER MAP CHART NOW 
: OB34% 1897 0B35 159 oc AL2 (MANORE) ocoé 81 OCO6 227 oc XL1°81° 
ve 0836 EOE] 0837 160 oc XL2°EOEL° OCOT OA OcOo? 228 OC ILi*10° 
B 0B38 FO TC 03 161 R4NRCY HPL X*O3*,X*7C § MAKE READY HALT occs 1801 ocog 229 DC AL2(MAP} 
; 0838 Cl EO 0B42 162 R4CHK TIO JIVE sNRCY TEST 1/0 AND BRANCH ON NOT READY OCOA OC 0O OC15 OBFB 230 JUSALT MVC YECW(1) sBERALT PUT ID INTO HALT 
OB3F F2 87 25 163 J RSEXIT ~SHO NCT BRANCH ©clo CO 87 0222 231 8 HALT 
OB42 38 04 0208 164 JIVE TBN SBYTEO »SSWUS PRINT ON MFCU 0C14 £000 0C15 232 YEOW oc xL2*EOO0* 
0846 F2 90 18 165 JF ERR41 OClL6 CO 87 0216 233 RS5SEXIT B L INK GO TO NEXT ROUTINE VIA DCP 
0849 CO 8T O21A 166 B PRINT PRINT READY ERROR 234 
Ob40 Cl CB40 2167 oc xL1°*c1?* 235 RERERAAARKKAKEKE SS EKGRESEHS RSS ESEESSKHSE RAS SSE KSLERTL SS SESKSERKESK EK ARER TRS 
OB4E 1A OBSE 168 oc IL1°26° 236 * . 
OB4F IBFO O850 169 cc ALZUSNIROC) 237 * ROUTINE 6 - LIO*S TC A READY DEVICE = 
O85) £010 OB52 170 oc xL2° E0108 238 * . 
0853 GC O11 LEC 1603 171 MVC MAP (2),CHT10 PUT CHART NO. IN MSGo 239 SRERLSARS ERAS SKESHAEREEGSLAS SK EKEEARERES TERS SAKEKLES HEKEKS EES SA TES ERS SS 
06859 CG 87 O21A 172 6 PRINT PRINT PRINTER MAP CHART NG. OC1A 06 OCIA 240 RTN6 DC XL1* 6* ROUTINE NUMBER 
QB5D 81 css0 173 oc XL1* 81° ociB8 00 OC1IB 241 DC XL 1°O? FLAGS 
OBSE CA OBSE 174 OC IL1L*10° Oocic OCF6 ocio 242 DC AL2 (RTNT7) ADDRESS OF NEXT ROUTINE PREFIX 
O85F 1601 OBS&C 175 oc AL2 (MAP) 243 FERKEREREAESEASERERESEE SES TEAS CHEESES ESSE GEASS SES EES FESS TS THESSTES SES HL EES 
Of61 CO BF 0222 176 ERR41 8B HALT * ERROR OC1lE CO 87 140A 244 B BR OUT 
Obes ECIC 0866 177 oc XL2°EQ10* 0C22 31 E4 1846 245 GIDDAP LIG LPIADRsLPIAR LOAD IMAGE ADDR. REG. 
Of67 CO BT 0216 178 R4EXIT B LINK GO TO NEXT RTN VIA CONTROL PGM 0C26 OC O1 1 BDL 1807 246 MYC MAP (2) sCHT13 PUT CHART NO. IN MSGe 
179 oc2C 30 E4 iF95 247 SNS STAIXsX"E4°* GRAB IMAGE ADOR.REG. 
LBD FEAR EH ET SHEEE SLOG HSE ERSEEE EEE SHEE SE EERE SS SRSREERESRERKESERERSETERER 0C30 00 01 1F95 1846 248 cLC STA IX(C2),LPL ADR IMAGE REG.LOADED CORRECTLY 
181 * * O0C36 F2 81 3F 249 JE Got 10 YES, TRY DAR 
b 182 *¢ ROUTINE 5 - TEO ON BUSY TO READY DEVICE * 0C39 38 04 0208 250 TBN SBYTEO ,SSHO5 PRINT ON MFCU 
; 183 * (PRINTER SHOULD BE READY. TEXT 1/0 ON BUSY SHOULD * QOC3D F2 90 32 251 JF IMALT 
184 * NCT SRANCH) * 0C40 OC 04 1C€31 1C2C 252 MVC LEBAL (5), EGAMI PUT IMAGE IN MSG 
185 © * 0C46 CO 87 OZ1A 253 8 PRINT PRINT IMAGE ADDR.ERR 
1 8H SHHSHESSSSSASEHLSSISSESSOKRSSSSSOKSSHSSESAHKLEKSSKSHSEKSKKSKS HKAEKGKEKKEERKEKSEKEKEEEK OC4A Cl OC4A 254 oc xL1°E38 
96668 O05 CB6B 1867 RINS OC xLa°s* ROUTINE NUMBER OC4B 16€ OC4B 255 cc ILL*®22¢ 
OB6C 00 OBC 188 DC XL1*O* FLAGS Oc4Cc 1C42 Oc4D 256 DC AL2CARWAL) 
OB6D CCIA OB GE 189 oc AL2(RTNO} ADDRESS OF NEXT ROUTINE PREFIX OC4E EO3A OC4F 257 OC XL 2°EQ3A* 
19D FOO OOS EOESEE ETERS ES HEE SHESE ERE KHEKSHSHERETATSE SKEAERSERASETHEAKKHERERKHEKRETE STE 0C50 CO 87 O21E 258 B UNPACK ACTUAL IMAGE ADOR 
ObeF Cl EO OBT76 191 Tia ERR51, BUSY TEST 1/0 ON SUSY-SHD NOT BRANCH 0C54 02 0C54 259 OC ILit2* 
0873 F2 87 AO 192 J RSEXET Oc55 1F95 Oocsé 260 boc AL2(STAIX) 
OK}7e OC O1 1F9C 1850 193 ERRSL MVC MS ECS (2), SFHU ocs7? 1C49 oss 261 oc AL2 (DIRIS) TO 
OB87C CO FF O8LO CROCE 194 Tw CLC = LPE(2563,LPI DELAY 0C59 CO 87 O21E 262 8 UNP ACK EXPEC TED 
Or62 OD 3B 0890 0600 195 CLC LP 1060) LPI 7.5 oc50 02 OC5D 263 oC IL1*2°* 
CKhEB OF O1 1F SD 1823 196 SLC MS ECS (2 3, ONE SECS OCSE 1846 OC5F 264 DC ALZ2(LPIADR) FROM 
Dee ECO ee BTS 1S7 BH TW OC60 1C55 OC6l 265 DC AL 2(D IRSB} TO 
OBI92 F2 BB? O00 198 J RAELC END OF IR #/SIO SKIP OPEN J.R.G. OC62 CO 87 O2I1A 266 B PRINT PRINT REG IS & SHD.BE 
ObS5 Ci Ee CROC 199 RAELC TIC STILtL,BUSY OC66 BL CC66 267 Oc xL2°81° 
95699 F2 87 7A 200 J RSEXIT océ7 13 CC67 268 DC IL1*19° 
OBSC CC O7 ICCC 1 B62 201 STILL ‘MVC PBCACBd,PRIN PUT PRINTER IN BUSY MSG. océs 1C55 O69 269 OC AL2 (DIRSB) 
OBA? OC 0% 1€C03 1A29 202 MVC RRAC (5) »KNALB BLANK Ut/R CARRK< OC6A CO 87 OG21A 270 B PRINT PRINT PRINTER MAP CHART NO. 
CRAt 3C 13 OBFB 203 MV I BERALT,X*11° SET PRINTER HALT 10 OCé6E 81 OC6E 271 oc Xi1*81* 
OBAC Cl E2 OBBAR 2C4 Tia UFERR »PBBUSY PRINT BUFFER BUSY OC6F OA OC6F 272 oc I£1*10° 
C8eO Ci €& O6CB 205 T10 BUSLE,CABUSY LEFT CARR. BUSY oc70 1801 oc7l 273 oc AL 2UMAP}) 
DATE 2 SAUG 69 310CT6S 28NOV69 02 MARTO 01NOV70 19NOV71 PROG 1D OE 01-3 DATE 25AUG69 3100 T69 2 8NOV69 O2MARTO O1NOV7O 19 NOV7T1 PROG ID OEO1- 3 
EC NO. 8616485 816529 810542 816631 616764 8168677 PAGE 2 EC NG. 816485 816529 816542 816631 816764 818677 PAGE 2a 
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IBM MAINTENANCE OIAGNOSTIC PRIGRAM PART NO. 2589951 :BM MAINTENANCE DIAGNOSTIC PROGRAM PART NOW 2589951 
PAGE 30 . PAGE 3A 
€C13 52C3 LINE PRINTER FUNCTION TESTS E013 5203 LINE PRINTER FUNCTION TESTS: 
ERR LOC CBJECT COCE ADOR STMT SOURCE STATEMENT ERR LOC OCBJECT CODE ADDR STMT SOURCE STAT EMENT 
OC72 CO 87 C222 274 IMALT 8B HALT IMAGE ADDR .REG-ERROR HALT 342 * ROUTINE 8 - CARRIAGE SPACE-SKIP TEST * 
“CCT76 EO3A ec7? 275 ; oc XL 2°EC3A* 343 * * 
OC76 31 E6 1LE4A 276 GGLIGO LIO LPOADR,yLPDAR LOAD DATA ADOR.REEG. 344 RREKKEEERAERKERRERSSSARALRAE RE SERSSE SHE SEATAH LASSER KH AE HHESS ESSE ELSESES SS 
OC7TC 30 EE 1F9S 277 SNS STAIXsX* E6* GRAB DATA AODR. REG. ODOA 08 ODOA 345 RTN8& oc XL1*8* ROUTINE NUMBER 
OC&O OO O1 1°95 184A 278 CLC STA IX¢2),LPDADR DATA REG.LGADED CORRECTLY opcs oOo ODOB 346 - DC XL1*O°* FLAGS 
OC 8&6 F2 81 3F 279 JE FCLIC YES, TRY NO-OP LATCH oooCc QE8O OD0D 347 Oc AL2(RTN9) ADDRESS OF NEXT ROUTINE PREFIX 
0C69 38 04 0208 280 TEN SB YTEG,SSwWO5 PRINT ON MFCU 348 HEL EREERERERS SSE EEAEEEE ASSESSES SELAE SELES HESS SSS SARE HE RE EREES ESSE SEARS ES 
OCB8D F2 90 32 281 JF LSMFT ODOE CC 87 1432 349 B x10 MAKE SURE CARR.IS 
OC9Q OC O04 1C21 127 282 MVC LEBAL(S),ATAD PUT DATA IN MSG. OC1l2 £401 0013 350 DC XL 2°E401° ON LINE NO. 1 
GC96 COFB7 A214 283 8B PRINT PRINT CATA ADOR.REG.ERR 0D14 3C O1 1FA1 351 MVI LICTR,X*O1 SET LINE COUNTER AT 1 
OC9A Cl OC9A 284 oc xL1°*c1* : 0018 C2 O01 1FC6 352 LA SPSK~-2 2 XRL LOAD CMD.ADDR.REGe 
OC9B 16 CSB 285 OC ILi*22t ODIC 36 O1 1825 . 353 BACGO A TWO, XR1 UPDATE CMD. ADDR.REG. 
ocesc 1C4&2 Oocg9dD 286 Cc AL 20 ARWAL ) 0020 ic O61 1F97 Ol... 354 MVC CMDS AV(2)910,XR1) SAVE THE CMD. 
CC9E EG34 OCS9F 287 oc XL2°E034* 0025 C2 O02 0883 355 LA LPO+7 ,XR2 LOAD MSG.AODR.REG. 
QCAO CO 87 O21E 288 B UNPAC K ACTUAL. AGDR.REGe od29 30 EO 1F8D 356 SNS STATO,X*EO* GRAB LINE COUNTERS 
OCA4 O2 OCA& 289 OC w1lt2* op2D 38 80 0209 357 TBN SBYTE1,SSWOB . RIGHT CARR. 
OCAS 1°95 OA6 250 DC AL2ZUSTAIX) FROM 0031 F2 90 OB 358 JF FRANG 
OCAT 1C49_ OCAB 291 OC AL 2¢DIR 1S) TO 0034 CO 87 1389 359 5 cvDd CONVERT RIGHT LINE CTR. 
CCA9 CC 87 O2I1E 252 8 UNPACK EXPACTED DATA ADDR. 0038 1F8D 0039 360 DC AL2 (STATO) FROM 
OCAD G2 CCAD 293 oc IL1¢*2°* OC3A 186A 003B 361 DC AL 2(DASH) TO 
OCAE 184A OCAF 294 oc AL2(LPDAOR) FROM O03C F2 87 O08 362 J MODASH 
OCcBRO 1€55 ocBl 295 DC AL2 (OIFRSB) To OD3F CO 87 13B9 363 FRANG B CvD CONVERT LINE NO. TO DEC. 
OCE2 CO. 87 O21A 296 B PRINT PRINT REG.IS & SHD BE 0043 1F8C 0D44 364 DC AL2(STATO-1) 
ocBé 61 OCB6 29T oc XL1E*81° OD45 186A 0046 365 ° OC AL2 (DASH) To 
oce7T 13 OCB? 298 oC It1*1s° 0047 8C O07 OO 186A 366 MODASH MVC | C(8,XR2),DASH MOVE INTO PRINT AREA 
OCBB iC55 ocB9 «299 oc ALZC(OIRSB) OD4C CO 87 1389 367 B CvD CONVERT LINE COUNT OF CMD.TO DEC. 
OCBA CO 87 O21A 300 B PRINT PRINT PRINTER MAP CHART NO. oDs¢c 1F97 0051 368 DC AL2 (CMDS AV) FROM 
OCEbE 81 OCBE 301 oC xL1*el* 0D52 188E 0053 3&9 DC AL2( SKLINO) TO 
CChf OA OCCBF 302 OC IL1*10°* 0054 OC OO 1882 I188E 370 “MVC SPOP( 1) sSKLINO MOVE COUNT INTO SPACE MSG. ALSO 
occo 1801 occ il 303 oc AL2 (MAP) OD5A 36 O2 182F 371 A TWLVE 9X R2 UPDATE MSG.ADDR REGe 
1s occ2 CO 87 O222 304 LSMFT 8B HALT DATA ADDR.REG.ERROR HALT ODSE 8c OB OO 1882 372 MVC 0(12,XR2),S POP PUT SPACE MSG. IN PRINT AREA 
OCC6 £EC34 Oocc7 305 oc XL2"E034* 0063 GE OO 1FAL 1F97 373 ALC LICTR(1) eCMDSAV ADD SPACES TO LINE COUNT 
occa 3C £3 1F93 306 FOLIO SNS STAT6,X*E3!* GET STATUS BYTES OoD069 OD OO 1FAl 1841 374 CKOUNT CLC LICTR(1), FOLG LINE COUNT FULL 
occc 38 O11 1F92 307 TBN STAT6-1,8'1°* NO-OP CHECK OD6F F2 04 CC 3T5 JNH JUMRES 
ocoe Fe 90 IF 3068 JF RSEXIT 0072 OC O1 ODTD OOGE 376 MVC R SOUN T+ 5€ 2) gC KOUNT#5 
OoCC3 38 04 0208 309 TBN SBYTEC, SShC5 PRINT ON MFCU 0D78 OF OO 1FA1 0000 377 RSGUNT SLC LICTR(1 ), *-* RESET LINE COUNT 
CCO7 F2 GO 12 310 JF LALT OD7TE 78 04 00 378 JUMRES TBN Cl gXR1L) »X* 04" IS THIS A SKIP 
O9CDA CO BT OZIA 311 B PRINT OD81 F2 90 53 379 JF ITSASP JUMP IF ITSA SPACE 
OCDE Ci OCDE 312 oc xLifcis 0034 8C OB 0O 188E 380 MVC 0 (12 2XRZ2) eSKLINO PUT SKIP MSG.IN PRINT AREA 
OCDF 22 OCOF 313 oC 1i1°34* CD89 OC 00 iFAl 1FS7 381 MVC LIC TROL) eC MDSAV MOVE IN LINE NO. TO SKIP TO 
OCLO 1C77 OCcCE1 314 Oc AL 2(NOPLIO) OD8F 70 2A O01 382 CLI 1€_XRL DS X*2A® IS THIS A SKIP TO LINE 42 
OCE2 E03C Oce3 315 oc XL2*EO3C* 0092 F2 01 15 383 JNE NEXLEN JUMP TF NOT 
Ocks CO 87 O21A 316 8 PRINT PRINT PRINTER MAP CHAST NG 0095 OC O01 14C2 1854 384 MVC FRMLE4+3(2) sADFL 42 PUT 42 ADDR.IN LIO 
octa 61 Oces 317 OC xtL1*s8it oD9B OC O01 ODOC 1854 385 MVC FRADD{2 1, ADFL42 PUT THE FROM ADOR.IN FORM LEN.LINK. 
Oct gs CA OCES 318 cc IL1L*10° OCAl OC 01 OD6E 1854 386 MVC C KOUNT+ 5€ 2) sADFL42 
OCLA 1801 OcEB 319 oc ALZUMAP} ODA? F2 87 2D 387 J ITS ASP JUMP YO CONVERT TG OEC. 
ocec CO et G222 320 LALT B HALT NO-GP WALT ODAA 70 55 O1 388 NEXLEN CLI i€yXR1L) »X*55° iS THIS A SKIP TO LINE 85 
OcfFoO £02C OCFL 321 pc XL2°EO3C* OCAD F2 01 15 389 JNE 00112 JuMP TF NOT 
OCF2 CO 87 0216 322 ROEXIT B LINK GO TO NEXT ROUTINE O0BO OC O1 14€2 1856 390 MVC FRMLE+#3 (2), ADFL85 PUT 85 ADDR.IN LIO 
323 ODBe OC OL ODDC 1856 391 MVC FRADD(2) ,A0FL85 PUT THE FROM ADDR.IN FORM LEN-LINK. 
324 SERRSERESHEERES EEREEREEEEHES TECHS SE EEERERESERKERSES ES SESS ESHKELKTE SPER SS OD&C OC 01 OCG6E 1856 392 MVC CKOUNT ¢5(2 }, ADFL85 
325 *@ * O0C2 F2 87 l2 293 J ITSASP 
326 * ROUTINE 7 - CCMMANDS TEST FROM TABLE * oocs OC 01 14C2 1858 394 00112 MVC FRMLE#3(2) sADFOLG PUT 112 ADDR. IN LIO : 
327 * (PROGRAM ISSUES COMMANDS SEQUENTIALLY FROM TABLE * oocs oO O01 ODDC 1858 395 MVC FRADO(2 ),ADFOLG PUT THE FROM ADOR.IN FORM LEN.LINK. 
328 * ~CMDTAB-) * ODD1 OC 01 OD6E 1858 396 MVC C KOUNT+ 5(2) sADFGLG 
329 * * ODD? CC 87 13B9 397 ITSASP B CVD CONVERT TO DEC.FORM LEN. 
320 POORREEEEEE REESE EE SEES SEEES ESE RSESERSEERESERRETERSEE SETHE STEELE ST SERS SS ODDB C000 ODDC 398 FRADD OC xL2* 0" FROM ADDR. 
CCfo OT OCF6& 331 RINT oC xL1°7° ROUTINE NUMBER OOOD 18F1 OODE 399 OC AL 2(LNGTA) TO ADOR. 
vt T Ce OCF? 332 CC XLL*o° FLAGS OOGSF 36 O02 1831 400 A SVNT EN, XR2 UPDATE MSG.ADDR.REG. 
ICF8 ODOA OCF9 333 oc ALZ2(RTN8) ADORESS OF NEXT ROUTINE PREFIX 090€3 8C 10 GO 18Fl1 401 MVC O017_,XR2) gL NGTH PUT FORM LEN. MSG. IN PRINT AREA 
334 DORDAEDSSSEESEEESEESRESSESESEEERTEREEEESSESEESS EET EERE ESS ERSEHE SHEE EHTS ESS ODE8 CO 87 1438 402 B SKIXIG PRINT A LINE 
OCFA 3 O1 IFA] 335 MVI LICTR,x*Ol® SET LINE COUNTER TO 1 ODEC €200 QDED 403 oc XL2*E 200° 
OCFE C2 O1 LF AG 336 LA CMO TAB, 1 SET UP COMMAND TABLE POINTE? OOFE 1C 01 ODFS Ol 404 MVC PUTSUM(2}5 1€- XK 13 PUT A CARR. CMD.INTO LINKAGE 
OLO0Z CO bT 12A3 337 e CcKCHD GO ISSUES COMMANOS FROM THIS TABLE OOF3 CO 87 1438 405 B SKIXIG DO CARR .CHD. 
OLCe CO B87 O216 338 8 LINK LINK TO NEXT ROUTINE OOFT 0000 OODF8 406 PUTSUM DC XL2*O° CMD. PARAMETER 
339 OOF9 30 EO 1F8D 407 SNS STATO, X ®EO* GRAB CARR-LINE COUNTER 
340 BESSEEERESESESEEERESEESSSDERESEEESSEESESHHEEESSEESEAEESERESESHESSES TEESE SE SE ODFO 38 80 0209 408 TBN SBYTE1 »SSWO8 RIGHT CARR. 
34] * * OEOl F2 90 12 409 JF LEFLIC 
CATE 25AUGO9 310CT69 28NOV 69 CZMAR 70 QiNOVTO 19NOV71 PROG 10 0E£01-3 DATE 25AUG69 310CT69 28NOV69 02 MARTO 91LNGV70O 19NOV71 PROG ID 0€ 01-3 
EC NOW 81¢485 816529 816542 81663) 816764 8186TT PAGE 3 EC NO. 816485 816529 816542 816631 816764 81867T PAGE 3A 
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IBM MAINTSNANCE DIAGNOSTIC PRO GRAM ’ : : PART NO. 2589951 IBM MAINTENANCE DIAGNOSTIC PROGRAM ‘ PART NO. 2589951 
PAGE 4 i PAGE 4A 
£013 &2C3 LINE PRINTER FUNCTION TESTS £013 5203 LINE PRINTER FUNCTION TESTS 
* ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
a O£04 OC C4 18CB 186F 410 MVC wICH-1 (5) » THGIR : ; OED8 3C £3 OEB4 478 MVI ROCON+41,C *T* PUT T IN PRINT LINE 
ae OEOA OC OO 1F8D 1FAL 4il CLC = STATCO1)SLICTR RIGHT LINE LOC.CGRRECT OEOC C2 C2 CBTA. 479 LA LPD-2 eX RZ LOAD PRINT ADDR- 
eb 0610 F2 O1 10 412 JNE MUSTU JUMP IF NOT OEEO 3C 40 O8FE 480 MVI  “PRDAT-1,X* 40° 
. OEL3 F2 87 OF 413 J ISLAS CEES 04 10 1BLA 1851 481 ZAZ HANO( 2), O0ECZROC1? . ZERG HAMMER NO. 
OE1L6 OC O04 18CB 1B7% 414 LEFLIC MVC WICH-105), TFEL " OEEA 36 O2 1829 482 NEAMR A FOUR » XK2 INCR.PRINT ADOR. 
a5, O£1C OD OO IFSC IFAL 415 CLC STATO—1 (1) ,L ICTR LINE LOCATION CORRECT GEEE G6 10 1B1A 1852 483 AZ HANO( 2) gDECONE(1) ADD 1 TO HAMR.NO. 
8.) O£22 F2 O1 OF 416 JNE MUSTU OEF4 S&C O1 00 LBIA 484 MVC 0(2sXR2 }_ HANO © PUT HAMMER NO. IN PRINT AREA 
0E25 7D OO Cl 417 ISLAS CLI 1 (py XR1L}_ X*00® LAST CMD. OONE OEF9 30D 40 O8FE 485 CLI PRDAT-1 »X* 40* END OF PRINT LINE 
OE28 CO 81 OET6 418 BE CLINK EXIT OEFD CO 81 OEEA 486 BE NEAMR 
QE2C CO B87 OLCIC 419 B BACGO OFOL CO 87 1432 487 00M B x10 PRINT HAMMER NUMBERS 
O£30 3A O1 2F 8B 420 MUSTU SEN  TAGS»TAG7 SET 1ST LINES ONLY FLAG OFO5 E201 OFO6 488 oc XL2°E201° 
0€&34 OC OO 1780 OE7L 421 MVC HLTIOC1) »LUKE PUT HALT 10 IN MSG OFO7 CO 87 CE92 489 B F.INFF 
OEZA CO 8&7 1732 422 B PSTERR GO PRINT STATUS OR 1ST LINES OFO08 CO 87 O21A 460-GETOUT 8 PRINT BR TO SPACE 4 
OE3E 38 O2 1F 8B 423 TBN TAGSsTAGE WAS THERE A STATUS ERR OF OF 14 OFOF 491 oc XL1°14® : 
OE42 F2 10 OD 424 JT STBEP JUMP TO LOAD SHORT MSG.COUNT OF1O CO 87 0216 492 B LINK 
O£45 3C 2D OES5B 425 MV I LCML,45 SET A MSG.COUNT OF 45 493 
CE49 OC O5 18CC 1A29 42€ MVC WICHC6) eKNALB 494 EE RAEEAEEEAEEA HE EEE EE SEGREE EEE SEES EEE ERSE EERE EEE SEES TEE SES EEE TEES ESS 
OE4F F2 87 04 427 J TN IRP JUMP TO PRINT 495 * : * 
OES52 3€ IA CE5B- 42@ STBEP MVI LCML,26 SER MSG. COUNT OF 26 496 * ROUTINE CA - PAPER SETTLING TE ST * 
9£56 CO 87 O21A 429 TNIRP 8B PRINT PTINT LINE COUNTER ERR 497 * . * 
OESA 81 OESA 430 cc xL1*81° 498 EERRERAEASHEREE RE EERKERERES GEESE TEE REEEE EEE EREETEEE EE EEEE SELES ERE AEE SSS 
CE5B CO O&FS5B 431 LCML DC XL1*0* COUNT OF14 CA OF14 499 RTNOA DC XLLEAS ROUTINE NUMBER 
OE5C 18EO OE5D 432 oc AL 2(L ICOER? OF15 00 OF15 5CC Dc XL1° Of FLAGS 
GCESE OC O1 1801 1809 433 MVC MAP (2 3, CHT i4 PUT CHART NO. IN MSG. OF16 OFES QF17 501 DC AL 2(RTNCB) ADDRESS OF NEXT ROUTINE PREFIX 
D E64 CO 87 O21A 434 B PRINT PRINT PRINTER MAP CHART NO}, ; 502 EEEEHERERAAEDE GE SHEE EKESEEESSEAAGAE ESS ERSTE ESSE E LES EELS SEER SEES SESS 
OE6S 85 O£68 435 oc XL1L°85°* — : OF18 CO 87 021A 503 8B PRINT PRINT TITLE 
O£69 GA OE69 436 Oc TLL*10° OFIC 42 OF1C 504 oc XL1*°42* 
OEGA i BDL OE6B 437 oc AL 2(MAP } OF1D 13 OF1D 505 pc IL1*19* 
OE6C CC 87 0222 438 ) HALT LINE COUNTER ERR HALT OFLE 1917 OFIF 506 OC AL2(0TITiAS 
O£TO £033 OE71 439 LUKE OC XL2*E033* oF 2c EOCO OF21 507 DC XL2*E€000* 
O£72 CG 87 OE25 440 a ISLAS OF22 38 80 0209 508 TBN SBYTE1,SSHO8 PRINT ON RIGHT CARR. 
OET6 CO 87 1432 441 CLINK 8B xI0 OF 26 F2 90 OF 509 JF ITSCEF 
CETA £G02 OETB 442 . oc XL 2*E002* SPACE 2 OF29 3A O8 OF8FE 510 SBN PSSIG1L4+1,8'1000° SET MODIFIER BIT ON 
OE7 CC at 6216 443 8 LINK OF2C 3A O8 OFOL 511 SBN SBUSY4+1,B8* 1000* SET MODIFIER BIT ON 
444 ; OF31 3A O8 CFSO 512 SBN PSS 10241, B°1000° SET MODIFIER BIT ON 
445 GERERERESEEESASEHEL CAGE REARS SEAT EES EERE ERENT EEE EERE AEE REESE ESET ES ES OF35 F2 87 OC 513 J OGOG 
446 * & 0F38 38 O8 GFSE 514 ITSLEF SBF PSS 1014178 *1000* SET MODIFIER BIT OFF 
447 * ROUTINE 9 — *H* & *T* PRINT TEST * OF3C 38 O8 OF91 515 SBE SBUSY+1,.B*1000° SET MODIFIER BIT GFF 
448 * * OF40 3B 08 OFSD 516 SBF PSSI02+1,8*1000* SET MODIFIER BIT OFF 
s 449 SSEREESEEESG FEREEES ASE EEEEEESES AUER ER SERE EEE EE REEE EERE RE EEE ETE REESE EES OF 44 3B FF 1F99 517. GGOG SBF FINDEX, X*FF® ZERO COUNTER 
x, OE6O O9 CE80 456 RINI oc XL1LE gt ROUT INE NUMBER OF48 39 30 OCAOC 518 SIOST TSF ' SPUDT,sB*2110000* 100 &PM PRINTER? 
# OESi OO OE81 453 oc XL1*O® FLAGS OF4C F2 10 1E 519 JT COM 4 : 
i GE82 CFS CE83 452 DC AL2 (RTNOA) ADDRESS OF NEXT ROUTINE PREFIX OF4F 30 E2 1F93 520 SNS. STAT6 eX *E2® GRAB THE SENSE BYTES 
i 453 MEGASEAESEREEE GEER EREEE SERRE EER ES THERE ESSERE EEE EARS LEAS ERE ERE EGER EES ESS CF53 38 O1 1F93 §21 TBN STA T6,8418 HAMMERS IN RIGHT SHIFT POS « 
be CESS CO ST O21A 454 8 PRINT PRINT TITLE OFS? F2 1017 522 JT HANS 
cERese 42 o-se 455 oc XLL®°42¢ OFSA CC 87 1432 523 B xXiG PRINT A BLANK LINE 
Oo€B9 10 OE89 456 Dc IL1°16% OF5E £200 OF5F 524 DC xL2 "E200 
CEBA 1904 CEBB 457 oc AL2(TITLYO) OF 60 CO 87 CF48 525. 8 SIOST 
oesc ECCO CE8C0 458 oc xt2*ECcOoCc® OF64 CO B87 0222 526 PRNRDY 8 HALT BR TO CHECK HALT ON ERROR 
OEBE 3C CB OER 459 MHVI ROCONt1,C *H* PUT H IN PRENT LINE OF68 EO1O OF69 527 DC XL2*EO10* AFTER NOT READY 
OE92 328 FF 1F9S 460 FINFE SBF FINCEX «X * FES ZERO COUNTER OF 6A F2 87 C4 528 J HANG 
0E96 39 30 OAOC 461 T6F SPuUDT,Bfi1LCOCC® 100 LPM PRINTER? OF6D CO 87 1275 52S GOM4 B M4DEL 
OEGA F2 10 12 462 JT SUNERD OF71 Ci EO OF64 530 HANG T1I0 PRNRDY,NRDY NOT READY 
OESDB 30 E2 IF BF 463 SNS STAT2 sX* Ez? GRAB TIMINGS | OFT5 CO 87 140A 521 B BROUT 
CEAL 38 O1 LFBF 464 TBN STAT2,8°1°* HAMMERS IN %4 OF79 3C 4B O8DB 532 MVI ATEATEsC*®.* PUT A PERIOO IN 96 
OEAS F2 90 59 465 JF MOOM OF7D OC 5B O8D7 O8DB 533 MYC ATEFIV-1(92) AT EATE PROPAGATE IT 
OEAB 39 30 OAC 466 AGCGR TBF SPUDT, 82110000 * 100 LPM PRINTER? OF83 3C 4B 1F77 534 MVI EDI MAG ,C*. ° PUT A PERIOD IN IMAGE AREA 
QEAC F2 90 04 467 JF ROCON OF87 OC 76 LFV6 LFT? 535 MYC ED IMAG- 14119) ¢ EDI MAG AND PROPAGATE IT 
OEAF CO 87 1275 468 SUNERD B M4DEL OF8D F323 EO OF 536 PSSIOL SIO X*OL* »X* £O* SPACE 1 
OEB2 3C OO C&FF 469 ROCON AVI PRDAT 9* -—* INSERT AN "H* OR A ST* OF9O0 Cl E4 CFSOO 537 SBUSY TIO SBUSY »CABUSY WAIT 
ERT OC 83 OBFE OBFF 470 MVC PRDAT-1(132) »PRDAT PROPAGATE IT OF94 C1 EO OF 64 538 ‘ 16 PRNRDY ¢NROY IS PRINTER READY 
OERD CE OO 1F9S9 1823 471 Aic FINDEX(€1},0NE ADD 1 TO COUNTER COF98 31 E4 184E 539 7 Lio SIADD,LPIAR IMAGE ADDR. 
OEC3 CC 87 1432 472 B xia BR TO PRINT A LINE OFSC F3 E2 OC 540 PSSIO2 SIO X*00",X*E2* PRINT A LINE 
OECT E201 OEC8 473 Oc XL 2*E2O1® OFOF 35 O1 1821 541 L ZERC»XR1 
O£EC9 39 19 IFSS 474 cul FINDEX eX *19* 25 LINES PRINTED OFA3 Cl £6 OFAA 542 TEGAN TIO BZGOP eB USY CHECK BUSY 
OECD CO Ol OEAB 475 BNE KCCOR OFAT F2 8&7 OE 543 J SATCH BR TO SET UP ANOTHER PRINT COMMMND 
OECl 30 E3 OEBS 476 cLI ROCON41,C® TF? HAVE T®S BEEN PRINTED OFAA 36 01 1823 544 BZGOP A GONE ,XR1 WAIT FOR 1-4 SECe 
CEDS F2 81 33 “477 JE cETOUT OFAE CO O1 OFAS 545 BNZ TEGAN TO CLEAR BUSY 
DATE 2 5AUG69 aiocté9y 23NO0VES O2MAR7C CINOV7O 1SNOVT71 PROG 10D 0E01-3 — DATE 25AUG 69 310CT69 28NOVE9 O2MARTO OINCV70 19NOV71 PROG ID oEOI- 3 
EC NO. 816485 816529 816542 816631 816764 818677 PAGE 4 EC NG. 816485 816529 816542 816631 816764 818677 PAGE 4A 
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$203 LINE PRINTER & UNC TION TESTS. 
GEJECT coce 
0222 


co 87 
EQL* 
wm oF 
oC $8 
CO 67 
— 201 
30 14 
‘€2 Bh 
OE co 
co e 
co ef 


12 
‘CO B67 


ONDA 
08vs 
1432 


1F99 
OA 
1-99. 


0216 


1FS99 
oec3 
oa8c2. 


0878 
1825 
1627 
60 00 
it98 
1t SB 
100€ 
osc3 
1432 


1-99 
OA. 
1499 
CFF 6 
O21A 


oc 
co 
10F% 


2 5A UG 69 
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10r4 


OBDA 


1623 


7 OF4B 
O21A 


08c3 


1432 __ 
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1823 
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O21¢é 


LUC T6 
816529 


Meo ee erty By, 
r Ra in ene ms i , cee 
546 SATE MVE > ATEATBoL Ceo eT ads | pur 5 1" para ana, on ye 
649 pe UAE tae PROPAGATE Plaad TES 
660 2 BIO . ae 
OFC 9 551 | DC. KU2* E2028 ©: ” : 
°" - §82 . (Cit FINDE Xe20_ i 20 une “PRINTED | The 
 §53 ° -; d& 0. tHrout. . BR TO LEAVE "ROUTINE. we 
- 654 : ALC": BINDER(E§ 2ONE t ae a To hea COUNT. es Wake als 
555 oy: SHOST- ae as! CPi? Hee ge eo tae. 
556 THROUT - PRINT : se “selice 2. ee che ned 
OFOF 557 .0C oo Msaze needs 4 ee ee eee mar as 
558 "B (LINK a eee a ote ee re ae 
res . Pe ed i fy ties : 
‘560 setensensesserscensasensonscesenseessonsseensaenssonsesssntegsssnsess 
‘Sole | buns 
562 ¢  ROUTENE OB ~ WORSE CASE PRINT rest. 
563 9 . 
504 tsevsensendsereravenasacorenensenenseensonsonssssonsansenenasnsensens 
OFE4 565 RINOB DC xKLI*B? ‘ ROUTINE NUMBER ee 8, 
OFES 566 ; pc Fok 08 FLAGS | es 
OkE7 567 oC, “AL2¢RINOC) _>. ADDRESS OF wane ROUT INE PREFIX 
5B FOF OOSOSFOSNEEREED ODED OEESEOERORSEREREHEEEES thOEEE ERENEREOEEESESOEEESS 
569 -B- PRINT PRINT "WORSE CASE PRINT Teste 
OFEC 570- OC ° |. xLite2e Ladies 
.OFED 571 oc. iLat2re oe ed 
OFEE 972. OC - ALZ(TITLBS eo ee yee ee 
-OFFL 573 OC .* %..2°EO008 8 a ee ee 
57% - . SBF." FINDEN, X*°FFe + =. ZERO LINE COUNTER. *. 
", 575 GETAH MVE DASTU,C*H® -°° = ° INSERT“AN "HO =e 
- 5T7o -- MVC, © DASTU- 1071) gDASTU “PROPAGATE IT Nag. 0S 
. 577 _ B..° xt0 a S073 PRINT A LINE ANO SPACE 1 
1005 578 oc :- ML2*EZON® a 
2 TD LA.“ LPEexR2 ~~ .... *. ‘LOAD IMAGE ADDRESS “a 
. $8605. LA "LPD-1 eXR1 “LOAD DATA ADDRESS oes 
* .681 NADUN A. TwO~xR2 ADD -2 TO LMAGE ADOR. cz 
: 562 . Of ‘TREESXRI , DO 3 TO DATA ADDR,. . 
583... MVC =| OL 39 XR1 DOC gKR2) ' MOVE 3 CHAR. INTO DAT A AREA 
* $846 ' §$T . SIMDEX, M2 . SAVE IMAGE ADOR. . 
585 - ClO. S INDEX (2) ¢TUFORE” _ IMAGE ADDR. UP 48. 
596) , BL NADUN ‘BR TO MOVE IN 3 MORE . 2 - ., 
587 mv I LPD+71, X*4C* BLANK PRINT POSE TION 72 " . 
588 ‘Bo x10 PRINT A LINE AND SPACE 2 
103% 589° - oC’ , m2*E 262° 
590 | “cul F INDEX, X*19¢ 25 TIMES THRU 
593 JE ==. 21G OUT : 
592 ALC = FINDEX01) ONE INCREMENT LINE COUNTER . 
- 693 8 _GETAH 
594 21GOUT B PRINT: SPACE 2 
"1067 $95 - OC XLLeize 
596 8 LINK 
597 : 
598 sen eeseesecencenseeneessssanessessesenssaenasssannnessenenessanenssnees 
555 9. * 
600 * ROUTINE OC --RIPPLE PRINT FATTERN 2 
601 ¢ (PROGRAM PRINTS ROUTINE TITLE AND THEN PRINTS ALL * 
602 * CHAIN CHARACTERS IN A RIPPLE PATTERN. EACH LINE *# 
603 * CUNTAINS THE CHAIN IMAGE REPEATED AS MANY TIMES *& 
604 * AS POSSIBLE IN THE PRINT LINE. SUCCEEDING LINES # 
605 * ARE DISPLACED ONE CHARACTER TO THE RIGHT TO ft 
ob + . PEROVIOE A LEFT TO RIGHT RIPPLE. THIS ROUTINE 1S # 
607 * ESPECIALLY USEFUL OURING PRINT CHAIN CLEANING.) # 
©08 ¢ * 
CY MERE SET ES EEL EEE E SET ESE USES E ier rvevirissiriTrTrrti ttt erty tT Tt} 
104 «61C RINOC OC xLi‘ce ROUTINE NUMBER 
106D 611 ar xL1°08 FLAGS ~ NONE 
104F 612 oc AL2 tRTNOD) “ADDRESS OF NEXT ROUT INE PREFIX 
‘613 Tee VOR et Ree eee TOP AS CRMC eNeeoeeResSReRe PRO ee eee sets ceseteseeeseesesss 
$ 2enoves _ oonaato oi keveo 19NOV7E - PROG 10 CE 01-3 
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ORO OBS Pater ae 
TR ae AL2 (HSOC) . in 
618 | “ML2°E000" — | PS Re Meanie te 
619 0: “s $pu 0B*210°. 96 PRT »POS.DEVICE? | 
oo e os SEFILO: . ‘ Pat gt ae ee ee ee 
O22 cy RESET as het 
. 62200,  RESETZ¢4 9 A32, 
Sy OSS (ho . FRSMVO29131° - De PS: 
. 6240 ~ guDMvese 132.2 EE” ees 
- oe SPUDT,»Bt10¢ oe ae sae mt POS .DEVICEY . 
626 © te Slemo . : ee memset BE nee, 
py RESET Let 119 » ; Lie 
= . RESET2¢1,119 
629°  FRSMV42,119 ee 3 _ 
630 aah. | - SNOMV4#3912000 
631 SEFILD MVC. PFIELO( 48) ,ATETUF SET uP 46 CHAR.RIPPLE rei 
632 . MVC PFIELD-48(84),PFIELD | 
633 - CLE: UCSFLGexX*FFe THIS A 120 “CHAR.CHATI 
. 634 7° SNE. DORIPL 
635 MVE - BETELOC120 ) 9ATSYRS Set up. 120 CHAR RIPPLE erewo 
636 |. MVC. PPIELO~120(12) ¢PFAELD ig 
637 DORIPL LA LPOeXR} LOAD. DATA ‘AREA ADOR. ©: oo 
638  - LA . PFIELD-1325XR2 . - LOAD PRINT FIELD ADDR » oe 
639°. MYT UPD 1310132) 9 PFEELD. FELL: DATA FIELD 
640 RESET] MVI -FRSMV 41595 a RESET 1ST MOVE COUNT: 
641 RESET2 MVI . FRSMV43 995 (Sols: RESEY UST MOVE DISPLe 0° pene 
(ut (AVI SNDMV41—9xK008 =. RESET 2ND MOVE COUNT = eo. lee 
2. MVE SNDMV42 eX*00% | . RESET 2ND MOVE OLSPL eo ee 
644 RPLOOP B =» x10 age Pe PRENS THE LINE oe 
645... OC * xL2*E201° 4 
646 “SLE ERSMV41 (1), ONE DECK AIST MOVE COUNT , ne 
647. (+ SEC .FRSMV#3C1) pONE _DOECR. MOVE DISPLLOF PFIELO. eee, Be eae 
648 ALC «SNOMV4L(L),ONE =. = -ENCRe 2ND MOVE COUNT oe) ane es 
649 ALC” SNOMV4#2(1),0NE -°- INCR. MOVE DISPL. OF DATA AREA pA ae 
650- CLI -FRSMV41eX*FFOe | RIPPLE ‘COMPLETE 7° 
651 BNE RPLCOP we “eS 
652 B PRINT oe SPACE 2 LINES 
653° ‘pc  xLiea2s 
- 654 © 8 LINK “a CHAIN ROUT INE VIA DCP es 
- 655 - ~ 
656 sasesneasennesseasaseaneaseseesenscsessensenssessstensesatssesecosesses | 
657 * ee a 
658 * ROUTINE CD - UNPRINTABLE CHARACTER CHECK " ey * ee 
faa _ ee 4008: 
660° 


- 1OF4. 
LOE 5 


1OF6 
10F 8 


10FD 
10FE 


1100. 


1102 


310CT69 | 


tssseeteessenseesssensecenenensosstssssssssssessssnesesensssonesnesssee | 








661 ADDATE OC . xXLle*ot ADD ONLY 8 FLAG = 
662 ‘ 
663 ato oc XL1*p* ROUTINE NUMBER © . io Bt 
664 DC =~=—s XL #O8# FLAGS — NONE : OR On Socal of 
665 . oc AL2 CRTNOE) ADORESS OF NEXT ROUT INE PREFIX oO aee ngs 
666 Rona nn oa TATE tS See c eer ereeyree neers ceeee et seererecresesseeseeeeceenes. 
667 . 8 PRINT _ PRINT Vatte ee , 
€68 “pce | xXLL*42e ee Te =e ; 
669 oc -—s«1L:1*238 Oats ¢ Bee. Bete athe OG 
67C¢ , OC . ALZQUNCSKE 4 py ee eda 
671 DC XL2*E O00? Pea es rd ae 
672 LA ADTUSX, XR2° Se) a” 
- 673 VI HGMANY41 9X *FBE SET ENO AT PRINT POS .128 an 
. 674° TBN SPUDT,B*'1G*® 1S THIS A 332 POS.PRINTER *).° 
675 JT GRED as oe 
676 AVI HOMANYE 1 XtE3¢ SET END AT PRINT POS 2120 
677 TON SPUDT 2B * ico? . 1S THES A 120 POS.PRINTER | 
678 JT GRto 2 
679 LA DOUT, xXR2 SET END AT PRINT POS .94 
660 CRED ST © BHHER#3,xXR2~ Pes * 4 eee 
681 _ {a RODE SRL: LOAD DATA ADDRACREG. aie 
Z8NOVe9: O2MAR 70. “eimouie deel ee. ee PRONG 10 O£01 -3 


816529 


816542 


816631. ° PAGE Poe 
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E013 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


5203 LINE PRINTER FUNCTION TESTS 


ERR LOC OBJECT CODE 


1129 
112C 
1130 
1134 
1137 
1138 
1130 
1140 
1144 
1147 
1146 
114F 
1153 
1157 
L1SA 
L15€ 
1162 
1166 
116A 
L1GE 

1172 
1174 
1178 
1179 
117A 
117C 
LI7E 
1184 
1188 
1189 
118A 
11ac 
1150 


P1S2 ¢ 


1196 
1198 
119¢ 


1190 
11IG9E 
L1SF 


LIAL 
LIAS 


LATE 
LC NU. 


F2 87 
36 01 
3c O01 
7C FF 
co eT 


CE 
80 
tFFF 


co 87 
“1 


2 5AUG69 
816485 


04 
1835 
1CF4 
00 
1432 


oc 

1-93 
27 

1699 
1F99 
ecco 
1F99 
38 

182C 
1CF4 
112€ 
ICF4 
1134 
1432 


O21A 


1eCi 1808 
C21A 


0222 


1432 


C22A 


O21A 


ADOR 


113C 


1173 
1176 
117s 


1178 
1170 


1188 
1189 
1188 
1191 
1197 


119¢ 


1190 
1IGE 
11 A0 


LLAS 


310C TES 
816529 


PART NO. 2589951 
PAGE 6 


STMT SOURCE STATEMENT 

682 J WUNTH 

683 AOTUSX A TWYSIX oXR1 ADD 26 TO DATA AODOOR. 

684 WUNTH AMVI ADDATE,X*Ol* SET ADD ONLY 8 FLAG 

685 NEXCAR MMVI O(,XR1),X* FFP PUT UNPRTABLE IN DATA AREA 

€86 8 xio 

687 Oc XL2*E200° 

688 MVI OC gXR1D gX "408 BLANK THE LAST UNPRT CHAR - 

689 TBN STAT6,B8*10° UNPRINTABLE CHAR. SKIPPED 

690 JSF UPCER GO PRINT ERR 

691 ST FIANDEX, XR1 

692 CLI F INDE X,x*D9* 

693 PWHER BE *-4 GG ADD ONLY 26 OR GET OUT 

694 HOMANY CLI FINOE X,*-* DONE ENOUGH PRINT POSITIONS 

695 JE CcouT JUMP TO EXIT 

696 A EIGHT XR} AOD 8 TO DATA AOOR. 

697 TBN ADDATE,x*Cl1* AOD ONLY 8 

698 BF ACTUSX 

69° MVI ACDATE,xX*Q0* RESET ACO ONLY 8 FLAG 

700 8 NEXCAR 

T7O1 UPCER B XIO SPACE 1 

702 OC XL2°*EOO1* SPACE ONCE 

703 B PRINT PRINT UNPRTABLE ERR MSG. 

104 oc XLI*Ccl* 

75 DC It1*61* 

706 OC AL 2 (WUCF) 

707 oc XL2°EC3ZE® 

708 MVC MAP (2),CHT16 PUT CHART AO.IN MSG. 

709 8 PRINT PRINT PRINTER MAP CHART NO. 

71C DC XL1i*se5* 

Tl1 OC 110° 

712 oc AL2 (AAP) 

713 B HALT UNPRTABLE ERR HALT 

714 oC XL2*EQ3E* 

715 OGUT B xIc 

716 oc XL 2°E 200° 

717 B LOAC 

718 oc xLi*oc?® 

719 

TZ FESS ES EERE SERS EETEEREKE SEE SKERERSSEEHERECHEKAK SEEKERS RK SEKERESRESEKBRKAE 
T21 *% * 
T22 *# ROUTINE & -— COMMANDS TEST--FROM SWITCHES * 
723 * * 
724 4 THE PROGRAM PRINTS INSTR&C TIONS FOR CONSOLE OATA SWITCH ENTRY * 
725 * OF PRINTER COMMANDS AND PERFORMS A -EA- HALT. THE SATA SWITCHES * 
726 * MUST THEN BE SET TO THE DESIRED ENTRY AND THE HALT RESET. AFTER * 
T27 * REACING AND STORING THE SWITCHES, THE PROGRAM WILL HALT * 
728 * DISPLAYING -EC-. REPEATED ENTRIES MAY BE MADE WITH ACCEPTANCE * 
729 * BEING NOTED BY ALTERNATING HALT DISPLAYS CF-EA-AND-EC-. THE * 
730 * Twe TYPES OF DATA ENTRIES RECOGNIZED INCLUDE-—- * 
731 * * 
71322 % 1. -QQCC- WHERE QQ - Q CODE OF COMMAND. * 
733 * CC - CONTROL CODE GF COMMAND. * 
734 * * 
735 * 2e ~OXXX- © - POSITION OF SWITCH 1. * 
736 * XXX - DELAY COUNT IN MILLISECONDS. * 
737 «4 * 
738 4 END OF ENTRY IS SIGNALED BY -O0CO- IN THE SWITCHES. * 
73S * * 
740 *® BEFORE EXECUTING THE STRING OF UP TG 20 ENTRIES» THE PROGRAM * 
741 * PRINTS A LIST GF THE ENTRIES. * 
742 * * 
THz SOSHEHETEHEEETETHSEEEESSESCEEKEEEREEREHESKER KES EKE ERE CEES EERETERESSHERERESR 
744 RINOE OC XLI°E®* ROUTINE NUMBER 

745 Oc xLi®ece FLAGS - MANUAL INTERVENT ION 

746 oc XL2"*FFFF ® LAST ROUTINE IN SECTION 

ToT SEASSSESHSEERESSTSESSESSEHRRSSSESSEASRSEKEEESEKRSEELCESRSESSESTES SE RKSESHSKAKSERKSKERKKCEE 
748 8B PRINT PRINT INSTRUCTIONS 

149 Oc XL1 "41° 

2e@nngveo COMAR TO GINGV7G 19NO0V71 PROG ID OEOI-3 
816542 816631 816764 818677 PAGE 6 


—- 


18M MAINTENANCE OIAGNOSTIC PROGRAM 


E013 
ERR LCC 


11A6 
L1LAT 
L1A9 
11AB 
L1AF 
1180 
11B1 
1183 
1187 
21BB 
11BE 
112 
11C5 
11¢9 
11CC 
L1CF 
1104 
1107 
11DA 
110D 
11€0 
11E3 
11£6 
11£9 
LLEC 
L1EF 
11F2 
LLF5 
11FA 
11FE 
L1FF 
1201 
1203 
1207 
1208 
1209 
1208 
1200 
1210 
1213 
1216 
121A 
1210 
1221 
1225 
1228 
122B 
122F 
2233 
1234 
1235 
1237 
1239 
123D 
1242 
1246 
124A 
1248 
1240 
124F 
1253 
1254 
1255 
1257 
125C¢ 
1260 
1264 
1265 


DATE 


EC NO. 





52C3 LINE PRINTER FUNCTION TESTS 


GEJECT COLE 


2€ 


19A8 
E CEA 


co 
cs 
2A 


87 


19E5 


C2 
30 
F2 
3c 
F2 
3¢C 
FO 
70 


25AUG69 
816485 


ol 
3F 
01 
6C 
87 
3F 
7c 
co 
Ol 
81 
FO 


O21A 


1F €0 
11CB 
C7 

11€8 


11CB 
00 
01 
Cl 
58 
cc 
44 


1821 


12 

oo 

oc 

oo 

24 

cl 

2c 

1f97 01 
O21E 


O21A 


i8 
18 
GC 
11F5 


11F5 
1825 
02 
04 
1187 
O21A 


1F €C 
1F97 O1 
1825 
O2l1E 


O21A 


01 1821 
1230 
O21A 


1F60 


ADDR STMT SOURCE STATEMENT 


11A6 
11A8 
L1AA 


11 AF 
1180 
11B2 


LIFE 
1200 
1202 


1207 
1208 
120A 
120C 


1233 
1234 
1236 
1238 


124A 
124C 
124E 


1253 


1254 
1256 


1264 


310C T6S 
816529 


750 DC 
751 oC 
752 UC 
753 B 
754 cc 
755 OC 
756 OC 
757 LA 
758 ENTERO CLI 
759 JNE 
760 MVI 
761 J 
762 REDAS MMVI 
763 ENTER1 HPL 
764 SNS 
765 CLC 
766 JE 
767 TBF 
768 JT 
769 T8N 
770 JF 
771 TBF 
772 JE 
773 TBF 
774 JF 
775 Cul 
776 JL 
777 BACCMD MVC 
778 B 
779 DC 
780 DC 
781 DC 
782 B 
783 CC 
784 DC 
785 DC 
786 oC 
787 HPL 
788 J 
789 CKSKIP TBF 
790 BF 
791 CLI 
792 BH 
793 NEXT A 
794 CLI 
795 JE 
796 WKIKLT B 
797 DOCMDS 8B 
798 DC 
799 DC 
80c OC 
801 OC 
802 LA 
803 GETNXT MVC 
804 A 
805 B 
806 DC 
807 oc 
808 OC 
809 B 
810 oc 
811 oc 
812 oc 
813 CLC 
814 BNE 
815 B 
816 DC 
817 GOTHRU LA 

28NOV69 02MAR70 

816542 816631 


TL2°46* 

AL 2C INS 1) 

XL2*EQEA* 

PRINT 

XL1°O5* 
It1*58* 

AL 2CINS2) 
ETABLEsXR1 

ENTERI#2,X*3F® 

REDAS 
ENTERL 42 5 X*6C® 

ENTER] 
ENTERL 42, X*3F* 
X* CO® ,X* 7C* 
¥O,9R1) 2X08 

1 (2 sXR1 de ZERO 

DOCMDS 
O(,XR1l)_X*FO® 
NEXT 

Cl, XR1) » X*EO® 
BADCMC 
C(_XR1) »X*10* 

BADCMD 

O(sXR1) 9X *05° 

CKSKIP 

1, XR1)_X*04* 
NEXT 

CMDSAV( 2) 910 9XR 1) 

UNPACK 

Itl*2* 

AL2(UCMDSAV) 
AL2 (INVCO) 

PRINT 

Xt1'C5* 
TLi*14* 

AL 2CINVC) 

XL2°*E044! 
X*®1B*,X*1B° 

WHIHLT 

O( sXRLD eX* 01° 
BADCMD 

1 (sXR1L)eX*70* 

BAOC MD 

TWO sXR1 

2 (eXR1L) XP FEE 

DOC MDS 

ENT ERO 

PRINT 

XL1°41° 
IL1*7* 

AL2ULIST) 

XL 2*°E000* 
ETABLEsXR1 

CMDSAV( 2) 91 9XRL) 

TWOsXR1 
UNPACK 

IL1l*2¢ 

AL2 (CMDS AV) 

AL2(ELI ST) 

PRINT 

xt1°O1° 

TL 1%4? 

AL2¢CEL IST) 
102 eXR1L DY ZERT 
GETNXT 

PRINT 

x£1°15* 
ETABLE,XR1 


O1KCV70 
816764 


19NOV71 
618677 


PART NO. 
PAGE 


2589951 
6A 


tCAD TABLE ADDRESS 
WAS LAST HALT AN EA? 


SET FOR EC HALT 


SET FOR EA HALT 

HALT 

READ DATA SWITCHES 

BRANCH IF LAST ENTRY -0000- 
TO EXECUTE THE STRING OF CMNDS 
GO READ NEXT COMMAND IF THIS 
TS DELAY ENTRY 


MAKE SURE DEVICE ADORESS IS -E- 


BRANCH IF NOT SPACE OR PRINT/SPACE 


MAKE SURE THAT CONTROL CODE IS LESS 
THAN FOUR 


*INVALID COMMAND ENTRY 


CONVERT ENTRY FOR PRINTING 


PRINT ENTRY ERROR MSG £0O-37 


*44°HALT ON ERROR 

GO TRY AGAIN 

IF NOT SKIP MUST BE ENTRY ERROR 
SKIP ~- NOT MORE THAN 112 
INCREMENT TABLE POINTER 

STGP ENTRY IF 20 HAVE BEEN MADE 


PRINT HEADING FOR LIST OF ENTRIES 


LOAD BASE ADDRESS 

LOAD COMMAND FOR UNPACKING 
INCREMENT TABLE POINTER 
CONVERT ENTRY FOR PRINTING 


PRINT OUT ENTRY 


CONT INUE IF NEXT ENTRY NOT -O0000- 
SPACE PRINTER 
LOAD ADDRESS CF COMMAND TABLE 


PROG ID 
PAGE 


OE 01-3 
6A 


Rear 





1EM MAINTENANCE DIAGNOSTIC PROGRAM 


£013 
ERR LCC 


1269 
126C 
1271 


1275 
1279 
27D 
12E€1 
1285 
1<89 
128F 
k295 
12Sb 
- 129F 


LZ2EC 
hot 2 
l2ts 
12*9 
l2EC 
1300 
1305 
1308 
130E 
1312 
1317 
£318 
1sle 
1323 
1325 
1327 
1320 
1331 
1334 


OATE 
EC NO. 


5263 LINE PRINTER FUNCTIGN TESTS 


CBJECT COCE 


320 EC 
co 87 
co 8&7 


1FA2 
1 2A3 
1265 


12A2 
lf 8F 
1FBF 
1279 
1F90 
o8cc 
cecc 
1°9C 
12689 
CO 87 GO00 


0800 
c800 
1823 


1F97 O21 


1FAO 


ac 13 00 1876 
1fAO LFA) 
Fo e7 C9 

162F 

CC 1876 
1348 

1369 

1389 


1882 
1f96 
F2 1C 30 

lf 97 


18 8€ 


1FAS 


25AUGO9 
82¢485 


ACOR STMT SOURCE STATEMENT 


12DE 
12£0 


12E9 
12EB 


1324 
1326 


310CT¥ 69 
816529 


PART NO. 


2589951 
PAGE 7 


818 SNS RICTR»X *£0° SET EXPD LINE CNT .TO ACTUAL 

B19 8 C KC MD GO EXECUTE STRING OF COMMANDS 

820 8 GOTHRU 

@21 : 

822 SSEGSIS TESS EH SKSKESESR GSES SEKSESERASEHSESE KOS SEREKE TREE ESSE SESEAEEKERKETEKSELAEKES 
823 * WAIT FCR M4 THEN CELAY SUBROUT INE * 
B24 SSSSHS IES SHERERS ES REL HSA REKSESES SEE SEAHRERHRESCHERS HAKKAR AE SASL AKSKEKSESKEKGKERERE 
825 P4DEL ST MEX 17 43, ARR SET RETURN 

B26 GETIM SNS STAT2 »X* E2* GET TIMING 

827 TBN STAT2,6°1°* HAMMERS IN M4 

828 6F GETIM 

829 MVI MSECS,X*28* 40 MSEC DELAY 

830 WAT ctc LP1(256),LPI DELAY 1 MSEC. 

831 CLc LPI(60) LPI 

&32 SLC MSEC S(1) eONE DEC. DELAY CGUNT 

833 BH WAT 

834 MEXIT 6 *-*% RETURN 

835 

636 49 Fete eee SEEKVERKE 
837 * CKCMOD PERS SESHESERCAEEKSE HERS EEE RES EERE RKS KH KRESRSEKKESKATASKKES CKCMD * 
838 4eese4t2 ERSEKREEHKH 
839 * 
840 * SUBROUTINE ISSUES CCMMANDS FROM TABLE IDENTIFIED BY XR1 UNTIL * 
841 *- ZERO ENTRY FOUND. THE PRINT DATA FOR A PRINT COMMAND INCLUDES * 
842 * AN INDICATIGN GF THE TYPE OF PRINT PLUS THE SPACE GR SKIP * 
843 * OPERATIONS BETWEEN IT AND THE NEXT PRINT COMMAND. 

844 4% * 
B45 SHEESH TERE E EE TE REL HF ERTHES ESE SHEER SSS RHE SHES S EHH IG SRACHAKRE RAK KEKE RE 
846 CKCMD ST CCGO#3,ARR SET UP RETURN ADORESS 

847 MV I LINGS A, X* FFP ZERG LINE CTR. SAVE AREA 

848 CKDCNE CLC 12 9XR1)eZERO EXIT ROUTINE IF -OOOO- ENTRY 

849 CCGO BE +-% 

850 MVC DOXIG(2 ¥,10,XR1I SET UP EXECUTE 1/0 

851 T8F Cl oXR1) -X*FO® DO NOT EXECUTE COMMAND IF DELAY 

852 JT COCMD 

853 TBN OUsXRL) »xX* 028 BRANCH IF THIS IS NOT PRINT 

854 JF DGCMD COMMAND 

855 MVI SAVCMCE+4,1 

856 MVC CMDSAV(2) 510 ,XR1) 

857 SNS STATO,X*"EO* GRAB THE LINE COUNTERS 

858 TBN SBYTE1 sSSwos RIGHT CARR. 

85S JF COLLIC 

860 8 cvD CONVERT RIGHT LINE COUNTER 

861 oC AL2 (STATO) FROM 

862 oc AL 24DASH) To 

863 J SAMASH 

864 COLLIC B Cc vo PUT LINE NO. IN PRINTOUT 

865 oc AL 2USTATO- 1) FROM 

866 DC AL2 (DASH) TO 

B67 SAMASH CLC LICTR(1) ,LINOSA LINE COUNTER NOT MOVED 

868 JNE LALPD 

869 cul FINDEX,X* £6* PRINT AREA ADDR.FULL 

870 Jt ON TRE S 

871 LALPC LA LPD419,XR2 LOAD START ADDR. 

872 MVC O(2C eXR2) »PRTICP PUT LINE NO.SEPRINT IN DATA FIELD 

873 MVC LINOSAC1),LICTR SAVE PRINT LINE NO. 

874 J coccca 

875 DNIRES A THLVE »XR2 ADD 12 TG PRINT AREA ADOR< 

876 PVC O12, XR2Z), PRTOP 

877 COCOCO AVI SPMCVE+*#1,10 SET MOVE LENGTH TO 12 

878 MVI SKMOVE+4+1,1C SET MOVE LENGTH TO 11 

879 CCOCC 8 CvD CONVERT CONTROL CODE TO DEC. 

880 OC AL2(C MD SAV) FROM 

88) oc AL 2(SKL INO) Ta 

882 MVC SPCPE1L) sSKLINO ssOVE COUNT INTO SPACE MSG. ALSO 

883 TBN CMD SAV-1,_,X" 048 

884 JT ISSKIP 

885 CLc CMDS AV(2) ¢ SPACEO-2 THIS A PRINT NO SPACE 
28N0V69 O2MAR TC OINOVT7O 19NOV71 PROG 1D O£01-3 
816542 816631 816764 818677 PAGE 7 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


E013 
ERR LOC 


133A 
1330 
1340 
1343 
1347 
134C 
1352 
1358 
135B 
1361 
1364 
1368 
136€D 
1373 
1379 
137€ 
1382 
1388 
138B 
138F 
1393 
1397 
139A 
139E 
13A2 
13A6 
13AA 
13AE 
1380 
1384 


13B8 
13B9 
13BD 
13Cl 
13¢5 
13c9 


1301 
13D5 
13DB 
13€1 
13E7 
13€D 
13F3 
12F9 
13FC 
1402 
1406 


140A 
140E 
1414 
141A 
1410 
1421 
1424 
1428 
142A 
142E 


DATE 
EC NO. 


5293 LINE PRINTER FUNCTION TESTS 


PART NO. 2589951 
PAGE 7A 


BLANK € SIGN 


ADD 12 TO PRINT AREA ADDR< 
PUT SPACE IN MSG : 

ADD SPACES TO LINE COUNT 
LINE COUNT UP TO 112 


RESET COUNTER 


ADD 12 TO PRINT AREA ADOR< 
PUT SKIP IN 


PICK UP NEXT COMMAND 

SAVE PRINT AREA ADOR. 

GG DO XIO IF THIS IS LAST 
COMMAND IN TABLE 


BRANCH EF THIS 1S DELAY ENTRY 


GO EXECUTE STRING GF COMMANDS IF 
THIS IS PRINT 

SET MOVE LENGTH TO 12 

SET MOVE LENGTH TO 12 

PRINT AREA ADDR.ALMOST FULL 


GO ISSUE COMMAND 


INCREMENT TO NEXT COMMAND 
GO LOOK AT NEXT COMMAND 


SRRSSRA RASS SSK KARSKS AKER SEKASEKSRAAEKSHKERSEKREKSEKAAS HHASKEKAKKSHKAAFSEAKS 


* CCNVERT 1 HEX BYTE TCO ZGNED DECIMAL SUBROUTINE 
ERAS SASEAEKE LSE SAAARAKSKSERKHAKESSKAKERKSREE LES SHRAARL SAAS SL RAKRAKSSRKASKKS 


ADD 1 TO GET 1ST PARAHETER 
INSERT THE FROM ADDR. 

ADD 2 GET 2ND PARAMETER 
INSERT THE TG” ADDR. 

INSERT THE TO ADDR. 

ADD 1 MORE FER RETURN ADOR. 
SET RETURN ADOR. 


PUT BYTE IN WORK AREA 
ZERO THE TO AREA 
DECREMENT THE HEX BYTE 
EXIT IF BELOW 1 
INCREMENT THE OEC. COUNT 


RETURN 


RESSSRIKAAKSES KSEE KES ERK SETHE SHES ELHSSERKEKKSSKRERSACE SHEER ECERERE EE EE EEEEEEE 


* CHECK FCR BUSY AND DELAY SUBRCUT INE 7 * 
SRERAKSEE KASS SES SEA VESSELS SEES E RAGES SHRESEEEREEEAREKE HERE EEE CHEESES ETRE ES 


LOAD RETURN ADDR. 
STORE DELAY COUNT 


TRY FOR 7.5 SEC. 
TO CLEAR 
BUSY 


RETURN 
*ESTERE 


XL G FERSEKESESEEREEEEEEES EEEESEE SEEKS EERE TER EEE EEEREREKESEEE EERE SE x10 * 


OBJECT CODE ADOR STMT SOURCE STATEMENT 
F2 01 06 886 JNE NOZO 
BC 40 CO 887 MVI O€»sXR2),C* * 
r2 87 30 888 J INCCMD 
36 02 182F 889 NOZO A TWLVE, XR2 
€C OA CO 1682 890 SPMOVE MVC 0(11,.XR2) ,SPOP 
OE OO 1FA1 1F97 891 ALC LICTR(1),CMDSAV 
OD OO I1FAl 1841 892 CLC LICTR(1),FCLG 
F2 04 18 g¢c3 JNH INCCAD 
OF OO 1FAl1 1841 894 SLC LICTR(C1),FOLG 
F2 87 OF 895 J TNCCMD 
36 O02 182F 896 ISSKIP A TWL VE » XR2 
6C OA OC 188E 897 SKMOVE MVC O( 11, XR2), SKL INO 
CC 00 iFA1 1°97 8S8 MVC LICTR(1),CMDSAV 
OE OG 1370 1825 899 INCCMD ALC SAVCMD+44( 1), TO 
1c O1 1F97 Cl 9600 SAVCMD MVC CMDSAV(299105XR1) 
34 O02 1F99 901 ST F INDE X_XR2 
OO 01 1LF9T 1821 902 etc CMDSAV(2),. ZERO 
F2 81 1F _ 903 JE OCCMD 
39 FO 1F96 904 TBF CMDSA¥-1,X*FO# 
CO 10 1373 905 8T INCCMD 
38 O02 1F96 906 TBN CMC SAV-1,X*02! 
F210 1C 907 JST COCMD 
3C OB 1348 908 VI SPMOVE+1 112 
3C O08 1369 909 MVI SKMOVE+4+1,11 
3D FO 1F99 910 Cul F INDEX yX*FO® 
CO 82 121F 911 BL oc oco 
CO 87 1432 912 COCcMC 8B X10 
ooco 13AF $13 DGXIQ OC XL2*°*0* 
36 O01 1825 914 A TWO , XR 1 
CO 87 12A8 915 B CK OONE 
$16 

917 

918 

919 
co 13B8 920 HXBYT DC XL1*O00 
36 O08 1823 921 CW A ONE s ARR 
34 08 130A 922 ST FROM+ 5,ARR 
36 08 1825 923 A TWO, ARR 
34 08 13E0 924 ST TYBOT+5 ,ARR 
34 08 13£6 925 ST OTORZ+5;ARR 
36 C8 1823 926 A GNE»ARR 
34 08 1409 927 ST TI XE+ 3,ARR 
OC 01 13EC 0000 928 FROM MYC FROBYT+#+5(2), #- 
OC 01 13FF 0000 929 TYBOT MVC TOBYT+3 (2), *-* 
OC 01 13FO 0000 930 OTORZ MVC ZRO 10 #302)» * 
cc OO 13B8 0000 931 FROBYT MVC HX BYT (1 }, #-* 
0% 20 0000 1851 932 ZROTG ZAZ *-*(3) ,ECZRO(1) 
OF 00 13B8 1823 933 CECGAN SLC HXBYT(1),0NE 
F2 82 CA 934 JL TIXE 
06 20 0000 1852 $35 TOBYT AZ *-*(3) ,DECCNE (1) 
CO 87 13F3 936 B DECGAN 
co 87 OCCO 937 TIXE B *—+ 

938 

939 

94C 

941 
34 08 1431 942 BROUT ST BSEX 1T43,ARR 
OC O02 1FAS5 183B 943 SDC MVC BUSUB (3) »BUSCTI 
OF O2 1FAS 1823 944 FLOOP SLC BUSUB( 3), ONE 
F2 81 O7 945 JZ TOLCNG 
Cl & 1414 946 T10 FLOCP »BUSY 
F2 87 OA 947 J BSEXIT 
CO 8&7 0222 948 TOLONG 8 HALT 
£01) 1429 949 oC XL2°EO11* 
CO 8&7 140E 950 8 $oc 
CoO 87 0000 951 BSEXIT 8 +-* 

952 #280442 

953 
25 AU G69 310CT69 28NOV ES O2MAR 70 OINOV7C 
816485 816529 816542 816631 816764 


19NOV71 
818677 


PROG ID 0€01-3 
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18M MAINTENANCE ULAGNCSTIC PROGRAM 


€013 


ERR LCC CRBJECT CCOE 


1472 


1438 


143¢ 
1440 
1444 
1448 
144C 
1450 
1456 
145C 
146C 
1463 
1467 
146A 
1460 
1472 

1474 
1478 
147C 
1462 

1468 
1SE€ 
1492 

1496 
149A 
1456 

1GAl 
1445 
1449 
14AD 
14Ar 

14B3 


1487 : 


1408 
14 tF 
14C3 
4c 7 


16CA 3 


Lect 
14L4% 
1408 
1408 
140F 
14k 3 
14t9 
Peete 
1440 
LGE4 
1l4!ta 
14tE 
1601 
1505 
1sCcg 
15uao 
151¢ 
1516 
ISIC 
151t 


DATE 
tc NG. 


$203 LINE PRINTER FUNCTION TESTS 


CO Ol 
Fe 8&1 
2¢ £0 


14C 2 
1823 
1455 
1823 


(164F 


1651 
1653 
1SCF 
lf 90 
150F 
1S 

C20A 
03 

18 

OZ0A 
2¢é 

1FS0 
LFSC 
08Cceo 
9800 
1F SO 
147C 
1S5OE 
1644 
14A1 
12 

1656 
1732 
0222 


145A 
14CA 
1846 
L&E4A 
ccco 
0269 
04 

150E 
1FS1 
1SOE 
i) 

1581 
1FAA 
1528 
21 

Sel 
lt AA 
1528 
OAC3 
cc 

lf SF 
LFSE 
1601 
oc 

18D} 
150F 
54 

1F 8D 


25AUG69 


616485 


AOCR STMT 


18£8 


ocoo 
156 


c80o 
o08vuod 
1823 


14AE 


1SOF 


1860 


1862 


180D 
1FAB 


310CT69 
816529 


PART NO, 2589951 
PAGE 8 
SGURCE STAT EMENT 
954 894499 SeSEKE 
955 7 
$56 * THIS ROUTINE ISSUES AND CHECKS AN EXECUTE 1/0 COMMAND AS * 
957 * SELECTED BY THE MAINLINE PROGRAM. LINKAGE TO THIS SUBROUTINE * 
958 * IS AS FOLLCWS- , * 
959 * * 
960 * B X16 * 
961 * DC 2eX*Q CODE & CGNTROL CODE GF COMMAND® * 
962 * * 
FOF FES SHHLESEREEE SHEARS RHERESRSERSELASEE RES KEGER ESE HE KKEE KEKE KEE SARERARAEKE 
964 xI0 MVC FRMLE+3 (2) ,ACFOLG PUT IN 112 FORM LENGTH ADOR. 
965 SKIXIO A ONE,ARR 
966 ST LCCMD#45 ,ARR LOAD PARAMETER POINT&& 
S67 A ONE ,ARR 
968 ST EXIT4+3,ARR SET UP EXIT 
969 ST SAVWUR XR] SAVE REG. 1 
§7Cc ST SAVTUU ,XR2 SAVE REG.2 
971 LOCMD MVC CMNC+2(¢2), *-* SET UP COMMAND FROM PARAMETER 
$72 MVC MSECS (2), CKNO42 IF ENTRY IS ~—OXXX—-» GO DELAY 
973 TBF CMND+4+1,X*FC®# 
974 JT WT 
S75 TBN SBYTE2,SShIl BRANCH IF SSW11l OFF 
976 JF CSSWOA 
S77 HPL X*1LB",x*7Ce# HALT ON E4 
978 CSSWOA TBN SBYTE 2eSSwl2 DELAY BETWEEN CMDS. 
979 JF TICCHK 
980 SNS MSECS,x*0* READ DATA SWITCHES FOR DELAY 
981 SBF MSECS~-1,X*FO® TURN OFF HIGH ORDER 4 BITS OF DELAY 
S82 WT CLC LPI (256),LPI 1 MILLISECOND DEL AY 
983 CLC LPIC6C) LPI 
S84 SLC MSECS,GNE(C2) 00 FOR DESIRED NUM OF MILLISECS 
$8es BH wT 
986 TBF CMHND+1,X*FO?® DO NOT EXECUTE COMMAND IF DELAY 
987 BT XIGEXT 
$@8 TIOCHK TIO ERNRDY,ARDY BRANCH IF NOT READY 
989 J STC0K 
990 ERNRDY B STERR BR TO CHECK STATUS 
991 B PSTERR GO PRINT STATUS OR 1ST LINES 
992 B HALT *PRINTER NOT READY 
993 DC XL2°EC1C# NOT READY ID. 
994 B T T1OCKK 
9S5 SICOK 8B BROUT 
996 LI0 LPIAOR,LPIAR LOAD LSR ADDRESS REGISTER 
997 LIC LPCACR. LPCAR 
S98 FRMLE LIO *-* , LOF CLG LCAC FORMS Ct ENGTH 
999 TBN SBYTE1,SSWO8 PRINT ON RIGHT CARR. 
10G06 JF NCTRIT JUMP TF NOT 
1001 SBN CMND+1,B°1C008 SET MOD.BIT 
1002 NCTRIT MVC ERT 102), CMND42 
1003 TBR C®¥ND+1 , B12 000° THIS CMO.FOR RIGHT CARR. 
1004 JF SKRICA SKIP TO SET LEFT CARR. 
1005 MVI CABY +1 »,RICABY SET TO CHECK RIGHT CARR.BUSY 
1006 MVI SPACE O-1,X*ES8* SET RIGHT CARR.SPACE 0 
1007 MVC LICDSA+45( 2), STCAD PUT RIGHT CARR.CTR.IN COMPARE 
1c08 J CW¥ND 
1009 SKRICA MVI CABY# 1,CABUSY SET TC CHECK LEFT CARR.BUSY 
1010 MI SPACEO-1,X*EO* SET LEFT CARR.SPACE © 
cll MVC LIC COSA45(29,STOML PUT LEFT CARR.CTReIN COMPARE 
1012 CLI RNUM,X*C9* IS THIS HET PRINT ROUTINE 
1013 JNE CAND 
1014 WwAHOL SNS STAT2,xX*E2* GRAB TIMINGS 
1015 TBN STAT2-1,8°1° WAIT FOR HOME LATCH 
1016 BF WAHCL 
1617 CMND Sto X©O*,xece COMMAND LOADED OURING EXECUTION 
1018 MVC MAP (2 3, CHT 17 PUT CHART NO. IN MSG. 
1€19 Ctic CMND4 2(2) »~SPACEO DO NCT CHECK FOR BUSY IF THIS WAS 
1020 JE ISBUSY SPACE wWITH ZERO CONTROL CODE 
1G21 SWS STATO »X* EO* GRAB THE LINE CTRS. 
28NOVES COMAR 70 OINOVTC 1ONOVTI PROG ID 0£€01-3 
816542 810631 B167T64 818677 PAGE 8 


IBM MAINTENANCE OLAGNOSTIC PROGRAM 


£013 
ERR LCC 


1523 
1529 
152e 
1530 
1534 
153A 
153€ 
1&42 
1543 
1544 
1546 
154A 
1548 
154C 
154E 
1552 
1554 
1558 
155B 
1561 
1565 
1567 
1560 
1571 
1573 
1579 
157F 
1583 
1589 
158D 
1591 
1594 
1598 
159C 
15A0 
LSA6 
15AA 
15€£0 
15B4 
15BA 
15BE 
15C4 
15C8 
15CB 
15D1 
1505 
1509 
1500 
1SE1 
1SE7 
1SEB 
15&F 
15F0 
1SFl 
1SF3 
15F7 
15-8 
15F9 
15F8 
1 SFF 
1601 
1605 
1609 
160D 
1611 
1614 
1618 
1618 


DATE 
EC NO. 


5203 LINE PRINTER FUNCTION 


OBJECT 


oo 
F2 82 
cl 
3A 01 
oc OG 
co 
co 
81 
10 
1837 
CO 87 
85 

CA 
1BD1 
CoO 87 
E016 
38 10 
F2 90 
oc 00 
co 87 
EOCO 
oc 00 


Ci £0 
co 
CO 87 
30 
F2 81 
38 
F2 90 
cc 87 


25AU G6 
816485 


TESTS 


PART NO. 2589951 
PAGE SA 


CCOE ACDR STMT SOURCE STAT EMENT 
150F 0000 1022 LICDSA CLC CMND#2(1),%-* LINE CTR.SAME AS CMD.C.C. 
47 1023 JE ISBUSY 
1573 1024 TIO I SBUSY»BUSY PRINTER SHOULD BE BUSY 
1F8B 1025 SBN TAGS,TAG? SET 1ST LINE PRINT ONLY 
1780 1553 1026 MVC HLTIDO(1),NGBALT PUT HALT ID IN MSG 
172E 1027 8 ASTERR GO PRINT STATUS 
021A 1028 B PRINT PRINT NOT BUSY MSG 
1542 1029 pc XLL*e1* 
1543 1030 OC IL 1*29* 
1545 1031 oC AL2 (NOBUSY } 
O21A 1032 B PRINT PRINT PRINTER MAP CHART NO. 
154A 1033 DC XL1°85°8 
154B 1034 DC 1t1*10°8 
154D 1035 DC AL2( MAP) 
0222 1036 B HALT *IF NOT, HALT ON ERROR 
1553 1C37 NOBALT DOC XL2*E016® NOT BUSY HALT 
O20A 1038 TBN SBYTE 2,SSk13 SSW- 13 ON (NO ALT.PRTR.) 7? 
18 1039 JF ISBUSY 
1566 190 1040 MVC CMODE (1) ,ERTI-1 SET CMD.CODE IN HALT 
0222 1041 B HALT DISPLAY CMO.CODE 
1566 1042 CMGDE DC XL2* E000" 
1572 1F91 1043 MVC CNCO(1),ERT1 SET CONTROL CODE IN HALT 
C222 1044 B HALT DISPLAY CONTROL CODc 
1572 1045 CNCO pc XL2"*E 0008 
1FAS 1838 1046 ISBUSY MVC BUSUB( 3) ~BUSCT 
1504 185A 1047 MVC DELAY #3 (2), ADBU BY PUT IN LOOP ADOR. 
1600 1048 MVI BLALT »X*12° SET BUFFER BUSY ID 
1B44 1B6A 1049 MVC BUMS G( 8), BUFF MOVE BUFFER MSG 
15CB 1050 BUBY Tic BSYLP ,PBBUSY PRINT BUFF BUSY 
0AU3 1051 CLI RNUM, X*0OC * THIS THE RIPPLE PRINT ROUT. 
08 1052 JNE SK ICO 
SF SF 1053 FRSMV MVC 95(S6—¢XR1L) 995 0 eXR2) RIPPLE MOVE 964120,0R 132 CHA?..INTO 
00 60 1054 SNDMV MVC  0€1,XR1),96(, XR2) THE OATA AREA FROM PFIELD 
0212 1055 SKiDO 8 TEST GO READ DATA SWITCHES 
1504 185C 1056 MVC DELAY+3(2) ,ADCABY PUT IN LOGP ADOR. 
1600 . 1057 MVI BUALT»X*13°* SET CARR.HALT ID 
1B44 1B5A 1058 MVC BUHSG (8) »CARR HOVE CARR.MSG 
15CB 1059 CABY T10 BSYLP » *-* CARRIAGE BUSY 
1504 185E 1060 MVC DELAY #3 (2), ADPIBY PUT IN LOOP ADOR. 
1600 1061 MVI BUALT,X*148 SET PRINTER BUSY HALT ID 
1244 1862 1062 MVC BUMSG(8),PRIN MOVE PRINTER BUSY MSG 
15CB 1063 PIBY TIO BS YLP,.BUSY PRINTER BUSY 
36 1064 J CHRDY 
1FAS 1823 1065 BSYLP SLC BUSUB(3 ), ONE TRY FOR ABOUT 3 + SECONOS TO 
0000 1066 DELAY BNZ *—* CLEAR BUSY 
1656 1067 8 STERR CHECK FOR STATUS ERROR 
16C9 1068 8 SDEHF 
1F8B 1069 SBN TAGS» TAG7 SET PRINT 1ST LINES ONLY FLAGS 
1780 1600 1070 MVC HLT ID( 1}, BUALT PUT HALT ID IN MSG 
1732 1071 B PSTERR GO PRINT STATUS OR IST LINES 
O21A 1072 B PRINT PRINT BUSY MSG 
15EF 1073 £ XL1°81° 
15FO 1074 OC | ILit2z 
15F2 1075 DC AL 2(BUTOLO) 
C21A 1076 B PRINT PRINT PRINTER MAP CHART NO. 
15F7 1077 DC XL1*°85" 
15F8 1078 oC IL}*10° 
15FA 1079 DC AL2 (MAP) 
0222 1080 8 HALT BUSY HALT 
1600 1081 BUALT OC XL2* E000 * 
163C 1082 CHRDY TIO NRD YER» NRDY 
1656 1083 B STERR BR TO CHECK ERR STATUS 
1732 1084 SDEHF 8 PSTERR GO PRINT STATUS OR 1ST LINES 
0A03 1085 CLI RNUM, X*CD* IN UNPRTABLE CHAR TEST 
3C 1086 JE XIGEXT YES »« GET OUT 
1F93 1087 TBN STAT6~B"108 UNPRIABLE BIT ON 
29 1088 JF XIOEXT 
C21A 1089 eB PRINT PRINT UNPRTABLE CHAR SKIPPED 
g 310CT69 28NO VE9 G2MAR 70 O1NCVTO ISNOV71 PROG 10 0€01-3 
816529 816542 816631 816764 818677 PAGE BA } 
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16M MAIL-TENANCE DIAGNOSTIC PROGRAM PART NO. 2589951 IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 2589951 
PAGE 9 * PAGE SoA 
© €013  5zO3 LINE PRINTER FUNCTION TESTS EC13  52C3 LINE PRINTER FUNCTION TESTS 
ERR LCC OBJECT CCOE ACDR STMT SOURCE STATEMENT ERR LOC CBJECT CODE ADDR STMT SOURCE STATEMENT 
i 1oif Cl 161F 1090 Dc xt1°c1* 16F5 F2 87 C6 1158 J DIVID 
ae 1620 1D 1620 1091 oc IL1*29¢ 16F8 OF 00 1F95 1833 1159 GODEC SLC STAI X€1} » TWYWUN OECREMENT 21 PRINT POSITIONS 
ke 1621 1S£0 1622 1092 OC AL2 (DEPP) 16FE 3C 00 1F94 1160 DIVID MMVI STAIX-1,xX*008 
i 1623 EOOC 1624 1093 OC XL2°ECOC® UNPRTABLE CHAR HALT 1702 CF OO 1F95 1829 1161 SUBGAN SLC STAIX(1),FGUR CIVIDE 
4 1625 CC O01 1808 1608 1094 MVC MAP (2), CHT 16 PUT CHART NO.IN MSG. 1708 F2 82 OA 1162 Jt AWDLUN BY 
1 1€2B CC 87 O21A 1095 B PRINT PRINT PRINTER MAP CHART NO. 1708 OF 00 1F94 1823 1163 ALC STAIX-1(1),0NE FOUR 
4. 162F 85 162F 1096 DC xL1°g5° 1711 CO 87 1702 1164 B SUBGAN 
e 163C CA 1630 1C97 oc 1L1°108 1715 CO 87 1389 1165 AWOUN B CvbD MAKE HAMMER NO.PREINABLE 
A 1631 1801 1632 1€98 OC AL2(MAP) 1719 1°94 171A 1166 OC AL2 (STAIX-1) FROM 
ie 1633 CO 87 C222 1099 8 HALT *UNPRINTABLE CHAR SKIPPED BIT ON 171B 1B1A 171C 1167 OC AL2¢(HANG) To 
1637 €00C 1638 1100 DC XL2* EOOC® UNPRT ABLE CHAR HALT 1710 F2 87 C6 1168 J RESTO 
ae 16039 f2 87 CB 1101 J XIOE XT 1720 OF 01 172D 1829 1169 FOADD ALC STE XI 1#3(2) FOUR AOD TG RETURN AODR. 
% lox CO 87 1656 1102 NROYER B STERR BR TO CHECK ERR STATUS 1726 35 O1 1655 1170 RESTO L STSAl, XR1 RESTORE REG. 1 
i 1640 CO 87 1732 1103 B PSTERR GO PRINT STATUS GR 1ST LINES 172A CO 87 CCCO 1171 STEXIT B *-* EXIT 
re 1044 35 O1 1651 — 1104 XIOEXT L SA VWUN » XR 1 RESTCRE REG.1 1172 
‘ 1648 35 O2 1€53 1105 L SAVTUU » XR2 RESTORE REG.2 1173 MPSSOAS ELAS SE RAAAAAE RES SEEEEESAEEREREREEEES ES EEE SERAEEEES EEE EEE TERRE EE 
| 104C CO 87 9000 1106 EXIT 8B +--+ EXIT SUBROUTINE 1174 # PRINT STATUS ERR AND EXECUTE HALT SUBROUTINE ne. 
i 165C cCa0oo 165] 1107 SAVEUN OC IL2*0O * ; 1175 FERAREE SSAA SEER RESE ESS LAREEAES SERRE SEREEALES EE REEE EEAEEAREREESHEEEREBRAESE | 
e 1652 0000 1653 11C8 SAVTUU DC 1k2* 0° 172E 30 E3 1F93 1176 ASTERR SNS  STAT6»X*E3* GET STATUS 
o 1109 1732 34 08 181F 1177 PSTERR ST PRE XI 1#3,ARR SET RETURN ADOR. 
if 1110 *#¢s0s8% RECESSES 1736 OC 04 1A11 1B74 1178 MVC NACMD( 5), TFEL PuT LEFT IN MSG. 
: ll11l * STERR FOCHERESE SHEESH EEE ESR EASESESSESAS SERTSE SEDER THERES STERR * 173C 38 O08 1F90 1179 TBN ERT1-1,B*10008 WAS CMD.TO RIGHT CARR. 
la L112 #4428029 FHRESHE SS 1740 F2 90 06 1180 JF SKRIG 
in 1113 % * 1743 OC 04 1Al1 1B6F 1182 MVC NACMD(5),THGIR PUT RIGHT IN MSG. 
: 1114 * CHECK FOR STATUS ERROR 1749 CO 87 1389 1182 SKRIG B CVD CONVERT CONTROL CODE TO DEC. 
he 1115 * * 1740 1F91 174E 1183 DC AL 2CERTi) 
a 1116 FEERSEAS ESSE SE TEE HESSELEREGE LEH SS ERE SESE SES SS ERLE SS SATHKEK ARSE TERE EK 174F 1883 1750 1184 Oc AL2 COSKPGP) 
i 1654 0000 1655 1117 STSA1 DC xXL2*08 21751 OC OO 1845 1la|aRs 1285 MVC POPSUO( 1) ,OSKPOP PUT CC INTO SPACE MSG.ALSO 
1118 1757 OC 10 1A23 18aA8 1186 MVC = =LACMND(17), DUSPOP PUT PRINTESPACE IN MSG. 
; 1656 34 08 1720 1119 STERR ST STEXIT4+3,ARR LOAD RETURN ADDRESS 175D 38 02 1F90 1187 TBN ERTI-~1,8°2 08 THIS A PRINT 
1OSA 324 O1 1655 1120 ST STSAI,XR1 SAVE REG. 1 1761 F2 10 06 1188 JT SEIFSK 
j 165E 3C £3 1F93 1121 SNS STATG,X*E3* SENSE THE STATUS BYTES 1764 OC O5 1AlL8 1A29 1189 MVC L ACMND-11(6),KNALB BLANK OUT PRINT 
oe 16€2 39 FE LFS2 1122 TBF STAT6-1 -B*LLLIOLIO® ANY STATUS ERRS IN EB2 176A 38 04 1FS0 1190 SEIFSK TBN ERT1-1,Bt1 008 THIS A SKIP 
es 1666 F2 90 O07 1123 JF YESER 176E F2 90 06 i191 JF GOMOST . 
i 16€$ 29 £0 1693 1124 TBF STAT6,B6*131000008 ANY ERRS IN EB1 1771 OC OA 1A23 18B3 1192 MVC LACMND(11) ,OSKPOP PUT SKIP IN MSG< 
ye loot F2 10 B80 1225 JT FOAOD 1777 CO 87 O21A 1193 GOMOST B PRINT PRINT LAST CMD.ISSUED 
7 167C 38 C2 1F8B 1126 YESER SBF TAGS,TAG6 SET ERR INDICATOR OFF 177B Ci 1778 1194 oC XLI‘*CLé : 
: L674 C2 O02 1A4C 1127 LA STATAB-19,XRi LOAD TABLE ADOR. 177C 25 177 41195 DC TiL1'37° 
4 Lo78 Cz O01 13 21128 NOERR LA 1S9(,XR1)_,XRI ADD 19 1770 1A23 L77E 1196 Dc AL 2{L ACMND) 
i , 167B 7D FF CO 1129 os i OlsXRLIVXPEFP ALL MASKS CHECKED 177F EC0O 1780 1197 HLTEID oc XtL2* £0008 
= L67TE F2 81 OF 1230 JE F OADD 1731 CO 87 O21E 1198 B UNPAC K MAKE STATUS PRINABLE 
1681 1C GO 168C 00 1131 MVC STECK141,0€ 1, XR1) PUT ERR MASK IN EB2 BYTE 1785 02 1785 1139 oC IL 1*2° 
é 16€6 1C CO 1€9C 01 1132 MVC STECK241,102¢XR21) PUT ERR MASK IN £B1l BYTE 1786 1F93 1787 1200 DC AL2 (STAT6) FROM tne: e Mies 
, 1688 39 00 1F92 1133 STECKI TBF STA T6-1,%-* CHECK EB2 BYTE 1788 LAZA 1789 1201 DC AL2CYBATS) To Ae pile 
16tF 39 OC 1°93 1134 STECK2 TBF STAT 6, #-* CHECK EBL BYTE 178A CO 87 O21A 1202 8 PRINT PRINT STATUS BYTES 
i 1693 CO 10 1€78 1135 BT NCERR 178E 81 178E 1203 DC XL1"g8l¢ 
’ 1697 1C 00 1780 02 1136 MVC HE TIDCUD, 20 exXRD)D PUT HALT CODE IN MSG. 178F 11 178F 1204 OC IL1"17° 
i Losc 1C OF LASE 12 1137 MYC IBEP(16),18¢0,XR1) PUT NAME IN MSG. 1790 1A3A 1791 1205 DC AL2 (Y BATS} 
: 1641 3A O02 1F8B 1138 SBN TAG Sy TAGE SET ERR INDICATOR ON 1792 38 O1 1F8B 1206 TBN TAG Sy TAG7 1ST LINE GNLY PRINTED 
16A5 30 E6 1°95 1139S SNS STAIX,X*E6! GRAB LPDAR 1796 F2 10 7F 1207 JT TESER 
16A9 OD O01 1F95 184A 1140 CLC STAIX(2},LPOAOR D.Ae-R. ADDR. TOO LOW 1799 CO 87 O21A 1208 B PRINT PRINT PRIGRITY ERR STAT. 
16AF F2 82 09 1141 JL DABOT 179D 81 179D 1209 Dc XL1i"sit 
16B2 00 O1 1F95 184C 1142 CLC STAIX(2), DADEND D.AeR. ADDR. TOO HIGH 179E 24 I79E 1210 OC IL1°36¢ 
16B8 F2 04 09 1143 JNH SAB TR 179F 1A5E 17A0 1211 DC AL2(IBEP) e 
L6BB OC 04 LBILA 1OEA 1144 DABOT MVC HANO( 5), INVC-9 PUT INVALID IN MSG. 17Al 39 CO 1°93 1212 TBE STAT6,.B *1ECOCOCC® CHAIN SYNC &€ INCR SYNC OFF : 
16C 1 F2 €7 62 1145 J RESTO 17A5 F2 90 1C 1213 JF DOHALT 
26C4 OF OO 1F—95 1844 1146 SABTIR SLC STAI X€1) ,ONTUTR SUBTR.TO GET PRINT POS. 17A8 39 10 1F92 1214 TBF STA T6-1 ,B* 100008 INCR.FAILURE CHK. OFF 
l6CA 30 18 1LFSS5 1147 cur STAIX,X*18& PRT.POS. 24 OR LESS 17AC F2 90 15 1215 JF DO HALT 
16CE F2 84 27 1148 JH GCDEC 17TAF 38 04 1F92 1216 TBN STAT6-1,6*°100° HAMMER ECHO CHK. 
let) 3010 1F95 1149 cul STAIX,X*108 PRT.-PGS. 16 17B3 F2 90 OE 1217 JF DOHAL T 
1005 €2 64 17 1150 JH ACIO7 GO AOD 107 IF HIGHER 17B6 CO 87 O21A 1218 8 PRINT PRINT HAMMER NO. 
16C8 36 00 1F95 4151 CL STAI X_X* OD# PRT.PCS. 13 17BA 81 17BA 1219 DC xXL1*61* 
16DC F2 02 07 1152 JNL AD119 GO ADD 119 IF EQUAL GR HIGH 17BB 10 17B8B 1220 DC 1k 1*168 
160 320 C4& 1FS5 1153 Cil STAIX 9X "048 PRT.POS. 4 17BC 1B1A 17BD 1221 OC AL2 (HANC) 
16683 F2 84 O09 1154 JH AD107 GO ADD 107 IF HIGHER 178E OC 01 1817 1A29 1222 MVC HA MNO( 2} sKNALB BLANK CUT *I®, "N® JUST IN CASE 
lete CE CC iFS5S 1843 1155 AOLI9 ALC STAIX(1 De UNITIN ADS 119 17C4@ GC O01 1601 1805 1223 DOHALT MVC MAP(2),CHT12 PUT CHART NO. IN MSG. 
LetC F2 87 CF 1156 J DI VID 17CA CC 87 O21Aa 1224 B PRINT PRINT PRINTER MAP CHART NO. 
LotF CE OG 1f95 1842 1157 AD1IO7? ALC STAEX€1),UNOSVWN ADD 107 17CE 81 I7CE 1225 DC xL1°81* 
DATE 2 AUG 6S 21CC TES ZeNOVES 02 MARTO O1LNCV70 ISNOV71 PROG ID OE 01-2 DATE 25AUG 69 310CT69 28NOV69 02 MARTO O1NOV7G 19NOV71 PROG ID OE 01-3 
EC NG. 816485 816529 816542 816631 816764 818677 PAGE 9 EC NO. 816485 816529 816542 816631 8167646 818677 PAGE 9A ' 


wee eee 








ECL3 
EPR LOC 


17CF 
1700 
17D2 
17€ 
1707 
1700 
17eb1 
17&3 
L7ET 
17ta 
L7EE 
17F. 
17F5 
17FS 
17FC 
1802 
i 808 


LATE 
tc NO. 


I6M MAINTENANCE OJAGNOSTIC PROGRAM 


52C3 LINE PRENTER FUNCTICN TESTS 


OBJECT CODE ADOR STMT SOURCE STATEMENT 

CA 17CF 1226 oc 111°10° 

18D1 171 1227 OC AL2C MAP) 

CO 87 O2Z1A 1228 5 PRINT 

15 1706 1229 oc XL1*15°¢ 

OC Gl IVE2 1780 1230 MVC PUIDIN( 2) sHLTIO 
CC 87 C222 1231 B HALT 

£000 AVE 2 1232 PUIDOIN DC xL2°ECOO® 

38 10 O20A 1233 TBN SBYTE2~¢SSW13 
F2 90 2E 1234 JF TESER 

38 04 1F92 1235 TBN STAT6-1,8°100° 
F2 90 27 1236 JF TESER 

3C OA LIFE 1237 MVI BUTIN@L ,X* CAP 
30 OA 1F94 1238 BUTIN CLI STAIX-1,X*OA® 
F2 82 iC 1239 Jt MCwWIT 
OE OO 1F94 182A 1240 ALC STAI X-1 (19 9SEX 
OE 00 I1TF6 1820 1241 ALC BUTIN#1 (1) sXTEN 
CO 87 17F5 1242 B BUT IN 

OC 00 1817 1F94 1243 MOwIT MVC MLESIOCL) sSTAIX-1 
CO 87 0222 124% : B HALT 

£000 1817 1245 WLESID OC XL2*E000°* 

38 O1 1F8B 1246 YESER SBF TAGS »TAGT 

co 87? 0000 1247 PREXIT B +-2 

2 SAUGE6S 310C TésS 28NOVES O2KARTO OLNCV70 
816485 816529 816542 816631 816764 


19NOV71 


PART NO. 2589951 
PAGE 10 


SPACE 5 


PUT ID INTO HALT 
STATUS ERROR HALTS 


SSW -13 ON(NO ALT.PRITR.) ? 
HMReECHO CHK.? 


PuT 
HAMMER 
NUM BER 
INTO 
THE 
HALT 
LIGHTS 
OISPLAY HANMER NO. 


RESET 1ST LINE ONLY FLAG 
RE TURN 


PROG ID O£01-3 
PAGE 10 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


E013 


ERR LCC 


1820 
1822 
1824 
1826 
1828 
182A 
1826 
i820 
182E 
1830 
1832 
1834 
1836 
1839 
183C 
183E 
1840 
1842 
1843 
1844 
1845 
1847 
1849 
1848 
184D 
184F 
1851 
1852 
1853 
1855 
1857 
1859 
1858 
185D 
185F 
1861 


1863 
1867 
186A 
1868 
1873 
1877 
18 7F 
1883 
1888 
188) 
188F 
1894 
1897 
189€E 
18A4 
18A6 
18A9 
18BC 
18B4 
18B8C 
18C4 
18C7 
18CD 
1805 
1800 


DATE 
EC NQ. 


5203 LINE PRINTER FUNCTION TESTS 


PART NO. 
PAGE 


2589951 
10A 





OBJECT CODE ADOR STMT SOURCE STATEMENT 
1249 BEESEEEKE EERE 
1250 # CONSTANTS RKEESESSEYESERSSASESRKREEKKRE KSEE RE KKSESEKEERS KEKE AHKAKSESERHKKEKRSE 
L255] SeESECKARERKRG 
0o6G 1821 1252 ZERO OC IL2* 08 
ooo: 1823 1253 ONE OC IL2*1° 
0002 1825 1254 THO DC IL2¢*2°¢ 
0003 1827 1255 TREE DC IL2e¢3° 
COC4 1829 1256 FCUR Oc IL2*4* 
C6 182A 1257 SIX DC IL1*6* 
0008 182C 1258 EIGHT OC IL2*6e 
1c 182D 1259 XTEN oc XL1*108 
000C 182F 126C TWLVE OC IL2*12¢ 
0011 1831 1261 SVNTEN DC IL2*17¢ 
0015 1833 1262 TWYWUN DC IL2*21¢ 
OO1A 1835 1263 TWYSIX DC IL2*26° 
c188sco 1838 1264 BUSCT DC XL3*18800° 
C40000 183B 1265 BUSCTI DC XL3*40000* 
2A2A 1830 1266 FL42 OC XL 2"°2A2A° FORM LENGTH 42 
5555 183F 1267 FL85 OC XL2*55558 FORM LENGTH 85 
7070 1841 1268 FOLG DC XL2°70708* FORM LENGTH 112 
68 1842 1269 UNOSYN OC 1L1*1C07* 
77 1843 1270 UNITIN 9C 111°1198 
7B 1844 1271 ONTUTR OC 1L1°123°* 
o8co 1846 1272 LPIAOR OC XL2*800 * IMAGE ADDR. 
082F 1848 1273 TUFORF DOC XL2* 82F 
087C 184A 1274 LPDADR DC XL2"*87C ® DATA ADDR. 
OSFF 184C 1275 DACEND OC XL2 "8FFE 
1F0O 184E 1276 SIADD DC XL2*1F00* 
104C 1850 1277 SFHU DC IL2*7500° 
FO 1851 1278 DECZROG DC DL?* of 
Fl 1852 1279 DECONE DC DL1*1¢ 
183D 1854 12860 ADFL42 OC AL2 (FL42) 
183F 1856 1281 AGFL8&5 DC AL2(FL85) 
1841 1858 1282 ADFOLE DC AL 2(FOLG) 
158S 185A 1283 ADBUBY DC AL2 ( BUBY?} 
1560 185C 1284 ADCABY DC AL2(CABYD 
15C4 185E 1285 ADPIBY DC AL2(PIBY) 
1F8D 1860 1286 STOAOD DC AL2(STATOD RIGHT CARR.CTR.ADOR. 
1F8C 1862 1287 STOM1 OC AL 2(STATO-1) LEFT CARR. CTR. ADDR< 
1288 
V2B9 SEEKS SAESK 
1290 * PRINTOUTS S333 S SS SSSSSSESSESKSEKCRSESKSESKSEAHE SEKESS SKE ASEEKESHEKKHK KEES HEEEKSK 
L299] SHRESEEEKARSESSE 
03 C9 05C5 1866 1292 : OC CL4*LINE® 
404040 1869 1293 DC cL3* 3 
40 186A 1294 DASH DC cLi® *¢ 
614040D7C09C9D5E3 1876 1295 PRTOP OC CL12*/ PRINT ee 
40404056 1295 
614040E207C1C3C5 1882 1i29€ SPOP DC CLl2*¢ SPACE * 
40404040 1296 
61E2D2CSD74CE 306 188C 12S7 DC CLIO*/SKIP TO * 
4040 i297 
4040 188E 1298 SKLINO OC ci2* » 
03C9D5C540 1893 1299 OC CLS*LINE & 
404040 1896 1300 OC cL.3° e 
610 709C 9D SE 350 189D 1301 OC CL7*/ PRINT E® 
E2D7C1C3C540 18A3 1302 Cc CL6"*SPACE * 
4040 18AS 1303 POPSUD OC ci.2* °¢ 
464040 18A8 1304 DUSPOP DC CL3° ® 
E2 02 C9 C740 E3 D6 18AF i305 OC CL7*SKIP To® 
40404040 18B3 1306 OSKPGP OC cL4s e 
DSD640E2E3C 1E3E4 1806 1307 Oc CL19*NO STATUS CHK.BUT * 
E240 C3 C8 024 BC2 E4 1307 
— 34040 1307 
494040404046 18CC 1308 WICH OC cLee ® 
C3C109SC948D32C90D5 18EO 1309 LICOER OC CL20*CARR.L INE CTR.IN ERR* 
C540C3E3D948C 905 1309 
40C5 09 D9 1309 
25AUG 69 310CT69 28NOV69 02 MAR70 O1NGVTO 19NOV71 PROG ID 0&€ 01-3 
816485 816529 816542 816631 816764 818677 PAGE 10A 





2 sa were 






TO RI PE ae TI FH NEE 


 €013 


t 


ERR LOC 


8&1 
18E9 
LBEF 
1EF2 
18&5 
1eFO 
1905 
190C 
1915 
1918 
1926 
1928 
1920 
1935 
1939 
1941 
1949 
1950 
1958 
LYSE 
19¢6 
1966 
1973 
197e8 
ASTE 
1986 
198E 
1956 
199E 
1GA5 
LSAC 
1Gk4 
1S8C 
13C4% 
StF 
1SCF 
LOL? 
1 SDE 
19£6 
LOLE 
19% 4 
19tB 
1SEF 
LACT 
LACD 
lAL2Z 
LALA 
1 A22 
LAZS 
TAZA 
1 A32 
1A37 
1 A3B 
1A43 
1448 
LAGE 
LAST 


1 ASF 
LAt¢2 
1ASA 
LAT72 
LA75 
1A7TL 
YAes 
1A88 
1A90 
1AS8 


DATE 
EC NO. 


OBJECT CODE 


6060C 60605044003 
C5UC5C7E 3C 840 
404040 

£ 3— 3E 3 

TOCB8S50E3 70400709 
C9DS5SE34CE3C5SE2 E3 
OTCLOIC S0S4CE 205 
£3 £3 03 C9C5SC7T40E3 
C SE 2E3 

£606 D9E 2C 540€ 30 } 
£2€54007 C9C9D5E3 
4G6t 3C 5E 2t 3 
09C9070703C54007 
CSCSD5E3 
£3C5E2E 340C 60609 
4OLG DS CTLIOESCIC2 
D3€ 54CC3C 8C1D9 
40C9D5S40C4C1EX 1 
40C6C9 C5 030% 

40C 2C GE 340D 5D6E 3 
40E2C5E 340 
L6C9E3CB4CES05 07 
OGE3CIC 2030 54004 
c1et3ch 

C $0 St 3C 5094 C0709 
£3094BC 3D4C 44BC 3 
DoC4C54006 0940 C4 
C 5D 3C 1E €40E 30904 
C540C9D540C1C4C4 
D94BE2 F6TOE2 
D9CSE 2C 5E 3400 1 
O3t3ecé6éorescsorcs 
CF 440C 606094004 
C6e09cs 
©060C505E3C50960 
F GF CF CF C6QE 30640 
C2C5CICICS4OCSET 
CS5C3E4F3CS0605 
CSDSE 5D3C 44BC 304 
C440ETETETET 

C 50 5E 30S SC S5SE2 
ETETETET 
O03C1€2€340C306D4 
O4C 10 KK 4éCEl 
C3C5C6E 340 
40D5CEL5C5404 040 
40404040404C4C40 
4040 
40404C4C404C 
EZE3CTE3£ 4E 240C 2 
t8E3C5EL4O 
40404C40 
CTCOCIDSECICIEIESB 
40C 50SO094CC2C9E3 
4CCSE2Z4C 

£040404 040404040 
4C4040404C4 04040 


008004 
C 3c & 1C SO 540E 2£8 
C5C34CC3C 8024840 
CC4C05 
CSU5C 3DS4CE 2E 805 
C361 €2 €3C90T4040 
icccCse 
C9C5C30940C6C1C9 
03t 4CSC54CC3C BD2 
Cc4cocs 


25AUG69 
816485 


AOOR 
18EE 
18Fi 
18F4% 
1904 


1S17 


192C 


1938 


1940 
194F 


1950 
196A 


i970 


19AB 


1X6 


ISE5 


LoF3 
L9OFA 
1SFE 
LAOT 
LAil 
LA23 
LA29 
1A 26 
LA3A 
LAGE 
LASE 
1A 5F 
LAG) 
1A71 


LAT4 
1A 84 


1LA87 
1A97 


1A9A 


310CT69 
816529 


BM MAINTENANCE OIFAGNOSTIC PROGRAM 


STMT 


1310 
1310 
1311 
1312 
1313 
1313 
1314 
1314 
1314 
1315 
1315 
1315 
1316 
1316 
1317 
1318 
1318 
1319 
1319 
1320 


1322 
1322 
1322 
1322 
1322 
1323 
1323 
1323 
1323 
1324 
1324 
1324 
1324 
1325 
1325 
1326 
1327 
1328 
1328 
1329 
1330 
1330 
1330 
1331 
1332 
1332 
1333 
1334 
1334 
1334 
1335 
1335 
1336 
1337 
1338 
1338 
1339 
1340 
1340 
1341 
1342 
1342 
1343 


52C3 LINE PRINTER FUNCTIGN TESTS 


PART NO. 
PAGE 


SCURCE STATEMENT 


LNGTH 


TEES 


TIILS 


TITLA 


TITLB 


SGC 


UNCSK 


DEPP 


WUOF 


INS1 


INS2 


INC 


List 
ELIST 


NACMD 
LACMND 


KNALB 


YBATS 
PEBI 


IBEP 


STA TAB 


28NOVES 
816542 


2589951 


11 


oC CL14°--FORM LENGTH ° 

oC ci3* ¢ 

oc CL3°TTT® 

oC CLI6***HET®*® PRINT TEST? 

DC CL19" PAPER SETTLING TEST® 

oc CL21* WORSE CASE PRINT TEST® 

oc CLIZ*RIPPLE PRINT* 

DC CLe*TEST FOR® 

DC CL15* UNPRTABLE CHAR® 

DC CL14* IN DATA FIELD® 

DC CLL3* BIT NOT SET * 

oc CL19*WITH UNPRTABLE DATA® 

oc CL46"ENTER PRTR.«CMD.CODE OR DELAY TIME IN ADDR. SW'*S? 
OC CL27* RESET HALT--REPEAT FOR MORE* 

oc CL31°--ENTER-OOCO-TO BEGIN EXECUTION® 

DC CLIG* ENVLD.CMD XXXXE® 

cc CLT* ENTRIES! 

OC CL4* XXxx® 

Dc CL1i4*LAST COMMAND--* 

Oc CLS"LEFT * 

CC CL18* KONE e 

OC CL6® e 

DC CL13*STATUS BYTES ° 

OC cies . 

DC CL20*PRIORITY ERR BIT IS * 

oc CL 16° ‘ 

EQU * 

oc XL 3 "008004" CHAIN SYNC CHK. HALT 04 

DC CLI6*CHAIN SYNC CHK. °¢ 

OC XL3*004005° INCR SYNC OR SLIP CHK. gHALT 05 
DC CLI6"INCR SYNC/SLIP * 

pc XL3*10C0068 INCR FAILURE CHK. HALT 06 

vc CLI6*INCR FAILURE CHK® 

DC XL3" 040009" HMR ECHO CHK.,HALT 09 
O2MAR7O O1NOV 70 19NOV7} FROG ID 0E01-3 
816631 816764 818677 PAGE 11 


1BM MAINTENANCE DIAGNOSTIC PROGRAM 


£013 
ERR Loc 


1A9B 
1AA3 
1AAB 
LAAE 
1 AB6 
1 ABE 
1AC1 
1 AC9 
1AD1 
1AD4 
1 ADC 
1AE4 
1 AEF 
LAEF 
1AFT7 
LAFA 
1B02 
1B0A 
1608 
1813 
1818 
1B1B 
1823 
1829 
1831 
1 B38 
1830 
1B45 
184D 
1853 
1B5B8 


5203 LINE PRINTER 


OBJECT CODE 


€8C1D4C4C50940C5 
C 3C 8D 6400 3C 80248 
02000A 
C1D5£840C 8C 1D4D4 
0$40D6D540C 3C 8D2 
002007 

C 84D 94BE 3C 8C 509 
C4C10340C3C 80248 
800001 
C3C10SD94BE 2E 805 
C340C3 C8024 B4040 
400002 
C3C109D094BE 2D7C 1 
€3C540C3C8D24B40 
200003 
C60609D4E240D101 
D440C3C 8024 B4 040 
FF 

C8C1D404C5 (94005 
D64B 404040 
404040 

F 5F2F OF 340D5D6E3 
40C 2E4E 2E 84C 

C1 C6 E3 C5 (940 £2€9 
D640C 1C 3D 7E3C4 
FSF2FOF 340 

40404 04040404040 
40C 2E 4E 2E 840E 3D6 
0640C03DED5C7 
C3C1DSD9C9C1C7C5 
D7D9C 9D 5E3C 50940 
40C2 £4 (6 C6C5 0940 
D9C 9C 7C BE 3 
D3C5C6E340 
C3D4C44 BC4C5C3 D6 
C 4C 54CC 5D9D9D6DS 
£4C1D2C540F5F2F0 
F 340404040 
40D9C5C 1C 4E8 

F5 F2 FOF340C9E240 
DOC 4E 86BE2C 8C44B 
C2C540D5D6E3 
40D9C4EB 

F 5F 2F CF 340C 2E 4E2 
E840 
E6C8C50540D506E3 
4ODSC4E 8 

07 E3094 BC3C8 E34B 
4040 

F1FO 

FLFL 

F1F3 

F1F4 

FLF6 

F1FT7 

F1F9 

F SF 2F CF 340C 9E240 
D5D6E340D9C 4E 86B 
E2C8C44BC2C540 09 
C4E8 

F5 F2 FOF 340 
4040404040 

4040 404040404040 
40 

C SEZ40C 2E4E 2E B6B 
D5D640C 3D4C448C 9 
E2 E2E4C5C440 

40C 4C 1€ 3C1 


25AU G69 
816485 


FUNCT ION TESTS 


ADDR 
LAAA 


1AAD 
1 ABD 


1ACO 
1A00 


1 A03 
1AE 3 


1 AE6 
1AF 6 


1LAF9 
1809 


1BOA 
1B17 


1B1A 
1828 


1837 


18 3C 
1R44 
1B52 


LBSA 
1B62 
1B6A 
1B6F 
1B74 
1 B84 


1891 


1B97 
1BAD 


18B2 
1BBB 


1BC7 
1801 


1803 
1805 
1BD7 
1BD9 
i BDB 
1B0D 
1BOF 
IBEF 


1BF9 
1BFE 
1c03 
1c OC 


1C22 


1C27 


310CT69 
816529 


STMT SOURCE STATEMENT 


O2MAR 70 


1344 DC 
1344 

1345 DC 
1346 oC 
1346 

1347 Doc 
1348 oC 
1348 

1349 oc 
1350 oc 
1350 

1351 DC 
1352 oc 
1352 

1353 CC 
1354 OC 
1354 

1355 OC 
1356 HAMNO OC 
1356 

1357 HANO DC 
1358 oc 
1358 

1359 NOBUSY DC 
1359 

1360 DC 
1361 BUMSG OC 
1362 BUTOLO OC 
1362 

1363 CARR cc 
1364 PRIN DC 
1365 BUFF oc 
1366 THGIR OC 
1367 TFEL OC 
1368 REDOP OC 
1368 

13€9 RORN DC 
1369 

1370 RANORE DC 
1371 TON DC 
1372 

1371 

1372 CORINS OC 
1373 OC 
1373 

1374 BABUSY OC 
1374 

1375 MAP oc 
1375 

1376 CHT10 OC 
1377 CHTLI OC 
1378 CHT13 OC 
1379 CHTI4 DC 
1380 CHT16 OC 
1381 CHT27 OC 
1382 CHTIS DC 
1383 oc 
1383 

1384 SNIROC OC 
1384 

1385 0c 
1386 RRAC oC 
13287 PBCA DC 
1387 

1388 REBUSY CC 
1388 

1388 

1389 ATAO oc 
28N0 V69 

816542 


816631 


CL1I6*HAMMER ECHG CHK. ®* 


XL3"*O2T00A* 
CL16*ANY HAMMR ON CHK® 
xXxL3*0C2007* 
CLIG*HMR.THERMAL CHK.° 


XL3°800001° 
CL1I6*CARR.SYNC CHK. * 


XL3*400002* 
CLI6*CARR.SPACE CHK. *° 


XxL3°200003° 
CLI6*FORMS JAM CHK. * 


XLL°FF® 
CLiZ"HAMMER NO. * 


cL3°* . 
CL14%5203 NOT BUSY *° 


CLIS*AF TER SIO ACPTO® 


CL5°5203 * 
cL8* . 
CtLi¢4é* BUSY TOO LONG* 


CL8*CARRIAGE*® 

CL8* PRINTER ° 

CL8* BUFFER * 
CLS*RiIGH ° 

CLS* LEFT * 
CL16*CHO.DECODE ERROR® 


CLI3*MAKE 5263 e 


CLé* READY* 
CL 22*5203 ES RB¥,SHD.BE 


cL4* RDY® 
CL10*5203 BUSY ° 


CLI2"WHEN NOT RDBY* 
CLIO*PTR.CHT. * 


cL2*10* 
ctL2*iie 
ci2*13° 
cL2°14* 
CL2*z6* 
cti2*1i7* 
ct 2*19°* 
CL16*5203 IS NOT RDY, ° 


CL10*SHD.BE RDY® 


CL5°5203 * 
cL5* : 
cLg9* . 


PART 
PAGE 


NO. 2589951 


LIA 


ANY HMR ON CHK. »HALT OA 


HAMMER UNIT THERMAL CHK.,HALT 07 


CARR .SYNC CHK. sHALT O01 


CARR -SPACE CHK esHALT O02 


FORMS JAM CHK.» HALT 03 


NoT® 


CL22*1S BUSYeNO CHD.ISSUED® 


Ci5* DATA® 
OINCV70 1ONOVT1 
816764 81e6T7T 


PROG 10 
PAGE 


OE01-3 
1lA 
















(£013. 
ERR Lce 


* ‘a ¢28 
ic2D 
- 2032 
.. 1C3A 
- 1642 
143 
bC46 
ACSA 


1F 68 
1FT7O 
178 
1F BC 
if88 
LFA 
LF 8B 
LFBC 
LF @E 
LF96 
1F92 
1F 94 
1F96 
1F98 
LE SA 
LFSC 
LFSE 
LFAO 
FAL 
1FA2 
1FA3 


$203 LINE PRINTER 








TBM MAINTENANCE GIAGKOSTIC PROGRAM 





FUNCTION TESTS 





















PART: Nos,” 
PAGE 


25899512 LER 


12 
EG13 


ERR LOC OBJECT CODE 


CBJECT COLE «. ADOR STMT SOURCE STATEMENT 
C9C4CICICS 1¢2¢ 130° EGAMI oc  Cusereace’ ore 
4C404.(40466: 1031 1392 CEBAL OC CLS® osc oe. 
40C1C4C 406480905 1042 1392 aRWAL DC © CLi7* ADDR. REGLIG ERR* 1FC8 
€74BD3090640€509 | ~2392>°- Stans dae LFCA 
DS: 1392 Saeee FCC 
C9E240 1045 1393. oc} 3=—s«Ca3B* aS ft LFCE 
40404046 1C49 3394. DIRIS OC Ci4* @. 1FDO 
40E 2C & 4480 20540 1C51 1395: . OC CL8" SHDe4 . 1LFD2 
#0404040 . | 1C55.2396- DIRSB OC CLe® ewe 7 ey 1FD4 
05066CD60740L3C1 LCT? 1387. NOPLTO OC. CL34"NO~€ ATCH SET WITH NO SIO ISSUED* 1FD6 
 E3C3C 84CE 2C 5E340 : ra _ 1 F0D8 
 £6C9 E3CH40650640 
E €26 IDO4COSEZEZES 
LAO. B00 cedeseaseecesasaa’ Se, 
1401 * RE SERVED STORAGE eeeed cesevsesesneeseestaesssassetsceeaeestaeeeseasss 
140 2 8990 29496469946092542 bea 
1403 CRG X*1LF6O® 
. 1F6C 1404 ETABLE EQU. * 
0000000000000000 1F8°S 1405 oc XL42#08 
COCOCCCCLCCO0000 1405 
oo0od0coonGOCOOCCO 1405 
00090000000000000 1405 
CCCOCCOCOGCOODN0G 1405 
0000 1405 
FF 1FBA 1406 oc XLI“FF® 
00 1F8B 1407 TAGS OC XL1L*O8 PROGRAM FLAGS 
1F8D 1408 STATO ODS Ck2 
1F8F 1409 STAT2 DS CL2 
1F91 1410 ERTL OS Ct2 
LFS3 1411 STAT6& DS cL2 
1F95 1412 STAIX OS CL2 
1F97 1413 CMDSAV DS CL2 
1F99 1414 FINCEX DS cL2 
1F9B 1415 SINDEX DS CL2 
1F9D 1416 MSECS DS CL2 DELAY TIME AREA 
LFOF 1417 WORK DS CL2 
co 1FAO 1418 LINOSA OC XLL*08 LINE NOs PRINTED SAVE AREA 
00 1FA1 1419 LICTR OC XL1#0° LINE NO. COUNTER 
cc 1FA2 1420 RICTR OC XLl*o? RIGTT LINE NO. COUNTER 
000000 LFA5 1421 BUSUB DC xL3*o* 
1422 # 
1423 #* TABLE OF PRINTER CCNMANDS 
1424 % 
1FAb 1425 CMDTAB EQU * 
E4Cl IFAT 1426 DC XL2"* E4018 SKIP TO LINE 1 
E200 LFAS 1427 oc XL 2"E 200° PRINT 
ECCC 1FAB 1428 SPACEO CC XL2* E0008 SPACE 0 
E200 IFAD 1429 DOC XL2*E2008 PRINT 
£001 LFAF 1430 OC XL2*ECO1" SPACE 1 
E2c0 1FB1 1431 pc XL2*€2008 PRINT 
£002 1FB3 1432 DC xL2*E 002° SPACE 2 
E2CC 1FB5 1433 oC XL2*E200¢ PRINT 
£003 1FB7 1434 OC XL2* E0038 SPACE 3 
E201 1FB9 1435 DC XL2*E 201° P/SPACE 1 
£2C2 1FBB 1436 DC XL2*E202° P/SPACE 2 
£203 1FBD 1437 oc XL2°E 203° PRINT & SPACE 3 
E200 1LFBF 1438 0c XL2°E 200° PRINT/NO SPACE 
E411 1FC2 1439 DC XL2"E411¢ SKIP TO LINE 17 
Eol6 1FC3 1440 oc XL 2*E616* PRINT & SKIP TG LINE 22 
E601 LFCS 1461 oc XL2*E601* PRINT & SKIP TO O01 
0000 1FC? 1442 DC XL2*0* DONE 
25AUG69 31 0CT69 28NOV69 0 2MAR70 O1NOV70 19NOV71 PROG ID OE01-3 DATE 
816485 816529 816542 816631 816764 818677 PAGE 12 EC NO. 


E42A 
EoOoL 
E455 
EOOL) 


E470 


£001 
£002 
£903 
£000 


25AUG69 
816485 


ADOR 


1FC8 
1FC9 
1FCB 
LFCD 
1FCF 
1FD1 
1FD3 
LfO5 
1FO7 
1FOo9 


ocos 
0001 
0002 
osoc 
O82 F 
o8s7c 
O877 
0878 
o8sc3 
0808 
O8DB 
O8FF 
1FT7 
1-84 
00<0 
OOE4 
OOE6 
0212 
0216 
O21a 
O21E 
0222 
022A 
OCOEQ 
OOES 
OOE4 
OOEC 
OOE2 


0002 
0001 


0208 
0209 
020A 


0004 
ocso 


C040 
0020 
0010 


310CT69 
816529 


MAINTENANCE DIAGNOSTIC PROGRAM 


STMT SGURCE STATEMENT 

1443 

1444 SPSK EQU * 

1445 oc XL2"E4zae SKIP TO LINE 42 

1446 Dc XL2°E001° SPACE 1 

1447 oC XL2*E455* SKIP TO LINE 85 

1448 DC xL2*ECO1° SPACE 1 

1449 DC Xt2*E470" SKIP TO LINE 112 

1450 oc XL2"EOO1* SPACE 1 

1451 DC xt2*E9028 SPACE 2 

1452 oc XL2*E003° SPACE 3 

1453 oc xi 2*ECOC® SPACE 0 

1454 

1455 ee 

1456 * EQUATES SESS ARSS SSCS T ESOS TEENA TST SL ERER ESS AEROS ES CRATES TSE TAS SESE C ES 
L457 SHKEKKEKREESAS : 
1458 ARR EQU x*BF AUDRESS RECALL REGISTER 

1459 XR1 equ) x*qe INDEX REGISTER 1 

1460 XxR2 EQqU  xXt2e INDEX REGISTER 2 

1461 LPI EQU  X*800* LINE PRINTER IMAGE AREA 

1462 ATETUF EQU X*82F* END OF 48 CHAR. IMAGE 

1463 LPD EQqU x*87Ce LINE PRINTER DATA AREA 

1464 ATSVNS £QU = X* 8778 END OF 120 CHAR. IMAGE 

1465 UCSFLG EQU xX*8785 

1466 DASTU EQU  x*8C3° 

1467 ATEFIV EQU  xX*8DB® 

1468 ATEATE EQU X*8DB* 96TH POSIT ION 

1469 PRDAT EQU xX*BFF® 

1470 EDIMAG EQ X*1F77* 

1471 PFIELD ECU xX" 1F84S 

1472 LOFOLG EQU = X*EOF 

1473 LPIAR EQU X*E4S 

1474 LPDAR EQU  X*E6! 

1475 TEST EQU  X*212° ENTRY TO OCP READ DATA SW*S ROUT. 
1476 LINK EQU  X*216! ENTRY TO DCP CHAIN ROUTINE 

1477 PRINT EQU X®21A* ENTRY TO DCP PRINT ROUTINE 

1478 UNPACK EQU X*21E* ENTRY TO DCP UNPACK TO EBCDIC RIN 
1479 HALT EQU = x*2228 ENTRY TO DCP ERROR HALT ROUTINE 
1480 LOAC =EQU X*22A8 ENTRY TG DCP TERMINATE SECTION 
1481 NRDY EQU  X*EOF 

1482 BUSY EQU  X*E6! PRINTER BUSY 

1483 CABUSY EQU X°*E4* LEFT CARR.BUSY 

1484 RICABY EQU X*EC RIGHT CARR. BUSY 

1485 PBBUSY EQU  X*E2* BUFFER BUSY 

1486 * INDICATOR FLAGS. ; 

1487 TAG6 EQU xXF2* STATUS ERR INDICATCR 

1488 TAG? EQU xXx*l® PRINT 1ST LINES GNLY FLAG 

1489 * SENSE SWITCH EQUATES. 

1490 SBYTEQ EQU  x*208" DCP SENSE SWITCH AREA 

1491 SBYTEl EQU  x*2098 DCP SENSE SWITCH AREA 

1492 SBYTE2 EQU  X*20A* SECTION SENSE SWITCH AREA 

1493 * CONTROL PGM SENSE SWITCHES 

1494 SSwOS EQU X*4P . PRINT MESSAGES ON ALT.PRTR. 

1495 SSwO8 EQU x*80F USE 5203 RIGHT CARR. 

1496 * SECTION SENSE SWITCHES. 

1497 SSwil EQU xX*4oF HALT BETWEEN COMMANDS 

1498 SSWl2 EQU  xX*20! DELAY BETWEEN CMDS. 

1499 SSW13 EQU X*108 SECONDARY HALT OPTION 

28NOV69 O2MAR 70 O1NOV70 LONOV71 PROG ID 0£01-3 
816542 816631 816764 818677 PAGE 124 
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%. a ey te t Pe ae en : a KR a. a a 
Ree a : se 3 Raced hy we : 2 ae 

es 3 ue See 2 gE. eo Se hog : nobeer = i - 7 
aa. Seats! ee organ . ee ae Clg on take ‘ + BE adil Shoe 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM : PART NQ. 2589951 
PAGE 13 PAGE ABA 
7 £013 5203 LAINE PRINTER FUNCTION TESTS 
en ok caster ecot ADDR. stat ScURCE STATEMENT . CROSS-RE FERENCE 
: ‘ 1501 SVMBCiL.T LEN VALUE SEFN REFERENCES 
50 ye 
aes * CCMMENT CaRDS ACBUBY A O0G2 185A 1283 1047 
1504 ADCABY A 002 185C 1284 1056 
1505 #099849492% SECTION EO] ROUTINES S448%2¢ 284266 444554 SESEEESESEEEESESERES ADDATE A 001 1CF4 C661 0684* C697 0699% 
15C6 * ROUT.Cl - SENSE CMD TEST ACFL42 A O02 1854 1280 C384 0385 C386 
1507 * ROUT.O2 - TIO NOT RDY TO NOT RDY PRTITR. ADFL85 A 002 1856 1281 0390 0391 0392 
215C8 * RGUT.03 - TIO BUSY TO NCT ROY PRTR. ADFOLG A 002 1858 1282 0394 0395 0396 0564 
1509 * ROUT.04 - TIO NOT RDY TO RDY PRTR. | “ADPIBY A O02 i185E 1285 1060 
* 1510 * ROUT.O5 - TIO BUSY TO RDY PRTR. ‘ADTUSX A 004 112C 0683 0672 0698 
1511 * ROUT.06 - LIO*S TG RDY PRTR. ADIO7T AOO6G IL6EF 1157 2150 1154 
1512 * ROUT.O7 — CMDS TEST. AD1I19. A006 1666 1155 1152 . ee san 
_.. 1513 * ROUT.0B = CARRIAGE SPACE/SKIP TEST. ARR c 001 OCOs 1458 0825 0846 0921* 0922 0923* 0924 0925 0926 0927 0942 0965* 0966 
' $514 ® RCUT.O9 -— "HE T PRINT TEST. . c967* OS66 1119 1177 
1515 * ROUT.OA - PAPER SETYLAING TEST. ARWAL A C17 1€42 1392 0256 0286 
1516 * ROUT.OB - WORSE CASE PRINT TEST. - ASTERR A 004 172E 1176 1027 
1517 * ROUT.OC - RIPPLE PRINT TEST. ATAD AOO0S 1C€27 1389 0282 
1518 * ROUT.OD -— UNPRINTABLE CHAR TEST. ATEATE C 001 O8DB 1468 0532* 0533 0548* 0549 
1519 © ROUT.OE - ENTER YCUR OWN CMDS TEST.(MUST BE REQUESTED BY OPERATOR) ATEFIV C 001 O8D8 1467 C533* 0549+ 
1520 SUESESESS SLES SEE TE SELTS TEREEEA SAS EBT ELSES ESES ESSE LERELE SHEERS SEAS SHEETS ATETUF C OOl O82F 1462 0631 
1521 * SSW OPT IONS ATSVNS C OC1l C877 1464 0635 
1522 S#SSCSEESEE SETHE EE EERSESEEESSESESEET EHSEEEE ERETLEEES CEEHE LE LER RE SHETE SALE SS AWDUN A O04 1715 1165 1162 
1523 * SSW-11 - HALT BETWEEN CMDS (VALID IN ROUTINES 798,9,08,0C & OE) BABUSY A 012 1BC7 1374 0129 
1524 * SSW-12 - DELAY BETWEEN CMDS (VALID IN ROUTINES 728,9,0B,0C & OE} BACGO A 004 CDIC 06353 0419 
1525 * SSW-13 - SECONDARY HALT OPTION (DIAGNOSIS OF ONLINE ERROR DATA 3 BACDCMD A OOS 11Ff5 O777 O770 O772 C750 C792 
YS 26 SFO FHOFESSTHG ISHS SECTS SESESSRERASKREREREHKESEAGHALASE EREKEHRESE RHR EKER BERALT A CO2 OBFB 0224 0203* 0209* 0213%* 0217%* 0230 
1527 * NOTES - BROUT A 004 140A 0942 0244 0531 C995 
1528 # 1.RESTORE CARRIAGECS) BEFORE STARTING THIS SECTION. BSEXIT A 004 142E 0951 0942* 0947 
1529 * 2.CARRIAGE FORMS MUST BE LEFT ALIGNED IN PRINT POSITION 1,EVEN IF BSYP A 006 15CB 1065 105C 1059 1063 
1530 « THE RIGHT CARRIAGE IS BEING TESTED. BUALT A OO2 1600 1081 1048* 1C57* 1C061* 1070 
1531 * 3.SET C.&.SWITCH TO OVERRIDE IDLE CONTROL SEFORE RUNNING THIS TEST. BUBY A CO& 1589 1050 1283 
L532 SSS SSSRERSCEKEEEEEESE SEEEKSHE SERGE ESSHRARSKEKHESKKESESKSEKSE RAKES AHKKEKEKSEREREKSELSE BUFE A CCCs LBEA 1365 c€208 1049 
1533 BUMSG A O08 1844 1361 1049%# 1058% 1062* 
FFEFF 15346 END BUST A 003 1838 1264 1046 
BUSCTI A 003 183B 1265 0943 
BUSLE A 006 O8C8 0211 0205 
BUSRI A CO6 OBDB 0215 C206 
BUSUB A003 1FA5 1421 0943* 0944* 1046% 1065* 
BuSY C O0Ol OOEG 1482 0122 9191 0199 0542 0946 1024 1063 
BUTIN A 004 17F5 1238 1237* 1241* 1242 
BUTOLO A014 1852 1362 1075 
BWHER A 004 114F 0693 C68Ce 
8Z0OP A 00% OFAA 054% 0542 
CABUSY C 001 OOE4 1483 0205 0537 1009 
CABY A 004 15BC 1059 1005* 1009* 1284 
CARR A O08 1B5A_ 1363 0211 0215 1058 
CCGO A 004 12BC 0849 0846* 
CHACHE A O37 1C€9C 1398 coé6és 
CHROY A 004 1601 1082 1064 
CHT10 A O02 1803 1376 6104 0171 
CHT11 A OOZ2 1865 1377 1223 
CHT13 A CO2 1807 1378 0046 0246 
CHT14 A 002 1809 1379 0433 
CHTL6 A 002 1808 1380 O708 1094 
CHT17 A O02 1800 1381 0131 0225 1018 
CHT19 A O02 IBDF 1382 0067 
a CKCMD A 004 12A3 0846 0337 0819 
7 CKDONE A CO5 12AB 0848 0915 
CKQUNT A 006 OL69 0374 0376 C38E* C392* 0396% 
if: CKSKIP A 003 1213 0789 C774 
= CLINK A004 OE76 0441 C418 
a CMOSAV A 002 1F97 1413 0354* 0368 0373 0381 O777* 0780 0803* O807 0856* 0880 0883 0885 
0891 C898 0900* 0902 0S04 0906 
CMOTAB A O01 1FA6 1425 0336 
CMND A CO3 1500 1017 0971* 0972 0973 0986 1001* 1002 1003 1008 1013 1019 1022 
CMODE A002 1566 1042 1040* 
CNCO A O02 1572 1045 10 43% 
COCOCO A 004 1317 0877 C874 
DATE “25AUG6 69 31GCT69 28NCVE9 02 MARTO O1NCV70 19NOV71 PROG ID 0E 01-3 DATE 25AUG69 310CT69 28NO V69 O2MAR 70 O1NCGV70 LONOV71 PROG ID 0E01-3 
-£€C NG. 816485 816529 826542 #16631 816764 818677 PAGE 13 EC NO. 6816485 816529 816542 816631 816764 818677 PAGE 13A 





SURE Egg prgiremmnenieene mane =e 





, €013 


SYMBOL 


© COLLIC 
 CORENS 
CSSWOA 


GOTHRU 


a CATE 
~ EC -NUe 


SCHOHOSCCECECHOEC OFC ECHO OCEC ESSE OCEO HOHE EOE LOLOLS 








T LEN VALUE 
A 0G4% I12€4 
A CC& 1681 
A004 1466 
A COS 13BS 
& 006 1688 
A 902 184C 
A GOL 186A 
C 00! O8c3 
& 0C6 13F3 
& 001 1862 
4001 1851 
A CO& 1501 
AOl4 1950 
A 004 1C49 
A 0G% 1C5¢ 
A 006 TOFE 
A GC4& 13CE 
& CC& 42AA 
£9006 leer 
A COE 17C4 
A004 ICA? 
6 00% 1192 
A CC2 23AF 
A006 OLfcs 
A CC4% 1663 
A O0C3 !6A8 
COOL LET? 
&A CCS i€2C 
A O02 L82C 
& 006 LYFE 
A COS 167 
& 003 i1c9 
& COS IL46Al 
A CC4 CHE} 
2 06006 OR76 
A&A CO2 LFS 
& OOl 1LFE&O 
& G04 164C 
A OC2 CALE 
&A 001 oa00 
A OC2 LESS 
£004 O£f92 
a OC6 1414 
& 002 1835 
& 002 183F 
A OC6 3272C€ 
AOO2 1841 
& CO& CCcca 
A COZ 1825 
& 002 ocnc 
& 00% CD3F 
A0C% i14G5F 
A 0068 13€? 
A OC6 2305 
A 004 1594 
& CC4 OFFE 
A CC% 1279 
4005 1223C 
A CC4é Cf CB 
AQ00& 0O0C22 
A 0Od6 16F8 
A&A GCO%& CCT7S5 
A 00% 1777 
A CC® OF6D 
ACCS 121265 
2S5AUGE9 
816685 


DEFN 


0864 
1372 
0978 
C921 
1144 
1275 
125% 
1466 
C933 
1279 
1278 
1066 
1319 
1394 
1356 
1160 
0875 
0912 
0797 
1223 
0637 
O715 
0913 
039% 
13C6 
13C4 
1470 
390 
1258 
1327 
6758 
0763 
o990 
C176 
0193 
1410 
1404 
Lid6 
CC27? 
9003 
1414 


0460 
0944 
1266 
1267 
2169 
2266 
0306 
2256 
0398 
0363 
09368 
0932 
CS28a 
1053 
es7s 
Ge@26 
0803 
0490 
0245 
1159 
O27¢6 
1193 
0529 
O&Gsi7 


3LOCT69 
816529 
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5203 LINE PRINTER FUNCTION TESTS 


REFERENCES 

0859 

C102 

0976 

0359 0363 

1141 

1142 

C361 0365 

C57S5e CSTE 

0936 

0483 0935 

0481 C9232 

1047# 1056*% 

1092 

0261 O291 

0265 0269 

1156 I115€ 

0870 

C852 0854 

OT66 90795 

1213 «#1215 

0634 

0679 CESS 

08scs 

C38s 

1184 12185 

1186 

053428 0535 

0252 

0696 

QO808 C812 

OF96 

C758 Cc7écs 

o968 

Crké5 

O91 

OOk?e 10024 

CRS? Cec2 

O96Es 

0035 GC37 

O460% O0471% 

C869 OSOLx 

0489 

0946 

1280 

128} 

4125 1330 

C3T& Case 

0279 

0482 2162 

0385 OQ29)% 

0358 

O384% C3504 

OF 28% 

C9224 

€623% CéZ29% 

0593 

0828 

O814 

OD 77 

3248 

C249 

119} 

0519 

C820 
28NOVE9 
816542 


Crcss 


0367 


0366 
C576 


1060 
0295 


0S03 


1217 


1192 


Cosas 


CTé1 


10490 
Cel? 


047% 
0916 


0894 


1169 
03S5* 


C354* 


C64C# 


~REFERENCE 


0397 0860 0864 0879 1165 


0862 866 


0299 


cso7 


O762* 


1043 2179 2183 L187 1190 


O517%* 0552 C554# O574* C590 0592* 0691* 0692 0694 


1282 


OSE4* 


0641* O646% Cé6S7T* 0650 


C2MAR 70 OINOV7O LONOV72 
816631 816764 a 818677 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


E0123 


SYMBOL 


GRALT 
GRED 
HALIT 
HALT 


HAYNC 
HANG 
HANO 
HLTZ0 
HOMANY 
HXBYT 
IBEP 
IPALT 
INCC MD 
INS1 
INS2 
INVC 
ISBUSY 
ISLAS 
ESSKIP 
ITSASP 
I TSLEF 
JEXT 
JIVE 
JUMRES 
JSUSALT 
KNALB 
LACMND 
LALPO 
LALT 

L CML 
LOCMD 
LEBAL 
LERIC 
LICDSA 
€ EICOER 
LICTR 


LINK 
LENOSA 
LEST 
LENGTH 
LOAD 
LOARR 
LOFOLG 
LPD 
LPGOADR 
LPDAR 
LPI 


LPIADR 
LPIAR 
LS MFT 
LUKE 
MANO RE 
MAP 


MEXET 
MLESID 
MCDA SH 
400K 

MCHIT 
MSECS 
#S6C 

MUSTU 


DATE 
EC NG. 


5203 LINE PRINTER 


T 


A 
A 
A 
Cc 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
Cc 
A 
A 
A 
Cc 
A 
Cc 
Cc 
A 
€ 
Cc 
A 
Cc 
A 
A 
A 
A 


Pr Pr pre P p 


LEN VALUE 
OC& OA4SA 
004 1121 
00% OA89 
001 0222 
013 1817 
OC4 CF71 
003 181A 
002 1780 
004 1153 
OOl 1388 
016 1AS5E 
004 9oOCc72 
OG&6 1373 
C4E 19AB 
031 19E5 
014 1973 
006 1573 
003 OE25 
004 1364 
00% OCLbL7 
CO&4 OF33 
CC& QA54 
004 0842 
603 OD7E 
006 OCSA 
006 LAZO 
018 iA23 
004 12FC 
GO¢ OCcEC 
0Ol OEF5B 
006 1456 
005 i1C32 
006 O£F16 
006 1523 
020 18EO 
OOlL LEAL 
OOL 0216 
061 lLFAO 
CO? i1SFA 
0O3 i8Fi 
001 0224 
603 GAB2 
OOl OO0ED 
OcL C87E 
O02 i848 
OOl O06 
602 o80oc 
002 1846 
O00l QOE4 
00% occ2 
. OOZ OFT 
OOS 1897 
010 iBDi 
604 129F 
oc2 1817 
CCS OD47 
CO& CFC 
006 180C 
002 1FSD 
012 1938 
004 0O€&30 
25AUG 69 
816485 


4 4 : Fae anette ~ 
feet te ERS eet ae rep ee 


FUNCTION TESTS 
DEFN REFERENCES 
0051 6040 
0680 C675 C678 
0072 0061 
14793 C051 0072 
0713 0948 
1356 i222% 
0530 0522 0528 
1357 0481% 0483% 
1197 0421* 1026* 
0694 C673* Cé76* 
0920 09317 0933* 
1335 1137# 1211 
C274 G251 
cs99 0888 0893 
1322 0751 
1324 O756 
1325 O7T81 O785 
1046 1020) «61023 
0417 0413 0440 
C896 C884 
0397 0379 0387 
0514 0509 
0C54 0053 
014 0162 
0378 0375 
0230 C219 
1331 0155 0202 
1330 1286* 11389% 
087i £868 
0320 03106 
0432 0425* 0428+ 
Go7t 09 66% 
1391 0252* O0282* 
0414 0409 
1022 i007? 1011% 
1309 0432 
1419 €235%* O351% 
C8944 0898 
1476 GO74& C¢ili 
1418 GOB47T* O867 
1326 0800 
1312 0399 c4ol 
1480 0717 
0095 0088 
1472 c998% 
1463 0355 6479 
i274 0276 0278 
1474 OC276* 0997% 
146} 019% 6194 
c98a3 
1272 0245 0248 
1473 0245* C539" 
0304 C281 
0439 0422 
1376 co93 «640159 
1375 00467 0050 
0246* 0273 
1098 1223* 
0834 0825 
1245 12.43% 
0366 0362 
0487 0465 
1243 1239 
1416 0193* 0196 
1316 0627 
0420 0412 0416 
310CT69 28NOVE9 
816529 816542 


oh rte rte ern ee ee ee oe 


CRCSS-REFERENCE 


0109 
0992 


0484 
LO70* 


0895 


1144 
1024 


0393 


0426 
1192+ 


C373 


01386 
0873 


C580 
0294 


0195 


0264 
0996*% 


OC47* 
0303 
1227 


0829* 0832+ 


0136 
1036 


1144* 


1136% 


0905 


1635S 


1189 
1196 


C374 


017s 


O587* 
0997 


0195 


0996 


OCT 
0319 


02 MARTO 
816631 


0176 0231 0274 0304 0320 0438 0526 0546 


1041 1044 
1167 1221 
1230 
L222 


O377* O38i* 


0233 06322 


O63% C63S* 
1140 


Q579 0830 


Cic4* O1C8 
0433 0437 


O972* 03980* 0981* 0984* 


O1NCV70 
816764 


1080 1099 
O411 04:25 
0338 0443 
O68i Cc87i 
0$30 0831 
OiL31% 6135 
O708* O712 


IONOV71 
818677 


1231 1244 


O867 O873 


0492 0558 


0g31 0982 


OLTi* 6175 
10i8* 2035 


Spy SEA re Seca pee ot AR nee nn ee ee nt 


4 
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O891* 0892 
0596 0654 | 
0982 0983 
0225* 0229 
1079 1094 
" PROG 10 0E 01-3 
PAGE 14A 
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ft. IBM MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 258995} IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589951 
ne PAGE 15 PAGE 15A 
EC13 52C3 LINE PRINTER FUACTICN TESTS E013 5203 LINE PRINTER FUNCTION TESTS 
CROSS- REFERENCE CROSS-REFERENCE 
SYMJQL T LEN VALUE OEFN REFERENCES SYMBOL T LEN VALUE DEFN REFERENCES 
MGCEL &£ 004 1275 0825 0468 C525 RTN1 A001 OAOF 0029 cols 
NACMDO A 0OS LAL 1329 1178* 11814 RTN2 A00l 0OA93 0082 0031 
NADUN A 004 1CCE 0581 C586 RTN3 A COl OAE2 0118 0084 
hEAMR A004 OEEA 0482 0486 RTN AOOl O816 0147 C120 
NEXCAR A 0C3 1134 C685 0700 RNS A 001 O86B 0187 0149 
NEXLEN A 003 ODAA 0388 0383 RTN6 AOOl OC1A 0240 0189 
NEXT A004 21221 0793 0768 O776 RTNT AOOl OCF6 0331 0242 
NIGEB® A CO& CALE 0036 0034 - RT™N8 A 001 ODCA 0345 0333 
NUBALT A 002 1£53 1037 1026 RTNO AOOl OEF80 0450 0347 
NOBUSY A O15 1837 1359 1031 RLNRDY A 004 OADE O112 0086 0096 
NOCGR A GO& OFAB C466 C475 K2BUSY A 004 OBCC 013€ C125 
NGCERR £003 1678 1128 1135 RZ2EX1IT A004 O812 0138 0123 
NCPLIC A 034 1C77 1397 0314 R4CHK A 004 CB3B 0162 0152 
NOTRIT A 006 14CE 10602 2000 . R4EXIT A 004 OB67 0178 0163 
hCZO AOC& 1343 0889 0886 R4NRDY A O03 O838 O161 0154 
NRDY C COL CCEO 1481 0086 0096 O151 0162 0530 0538 0988 1082 RS5SEXIT A 004 OC16 0233 0192 0200 
NRCYER A OCS 1163C 1102 1082 ROEXIT A004 OCF2 0322 C308 
CCOCC A O04 131F G8T9 0911 SABTR A O06 16C4@ 1146 1143 
OGOG A 004 O44 C517 C513 SAMA SH A 006 12EC 0867 0863 
CKYDCK A004 OA8F OCT4 C059 SATCH A O06 OFBS 0548 C543 
CHE A CO2 1623 1253 0196 0471 0544 0554 0592 C646 0647 0648 06649 0832 0921 0926 SAVCMD A 005 1379 0900 0855* 0899% 
C933 C944 0965 0967 OS84 1065 1163 SAVTUU A 002 1€53 211C8 c970* 1105 
CATUTK & 0O1 1844 1271 1146 SAVWUN A 002 1651 1107 09697 1104 
OTRZ A O06 13E1 C930 0925* SBUSY A 004 CF9C 0537 0511* 0515* 0537 
PeBUSY C 0021 OOE2 1485 0053 C2C4 1C€50 SBYTEO € 001 0208 1490 0039 OC60 CC87 C097 O124 O153 0164 0218 0250 0280 0309 
PECA A coo COC 1387 0201*% 02C8* C211* 02157 SBYTEL C 001 0209 1491 0357 0408 0508 0858 0999 
PEBI A C20 ASE 1334 SBYTE2 C O01 O20A 1492 0975 C978 1038 1233 
PEIELL C OCL 1F84 i471 0631* C&32 C632* 0&35* 0636 0636* 0638 0639 SDC A006 140E 0943 cs50 
PE BY A CO& 15€4 1063 1285 Sockr. “200s. 266°. 2654 1088 
PUPSUD A 002 18A5 1303 1135% SEFILD A 006 1088 0631 0620 O0&26 
PRDAT © OO!L O8FF 1469 0469%* 0470 0470% C4EC® C485 SEIFSK A004 176A 1190 1188 
PREXIT A CC& 281C 1247 LLi77* SESTAT A 004 OASF 0057 0055 
PRFCU A004 OAED 0124 C122 SFH A002 i850 1277 C193 
PRIN A 0COR LBb2 1364 0201 1062 SIADD A 002 i846E 1276 0539 
PRINT C OOL O21A 1477? C041 OC47 O062 C068 0090 0099 O105 O126 0132 O156 O166 O1T2 SINDEX A 002 iF9B 1415 €584* ©0585 
C220 CZ26 6253 C266 O2706 C283 0296 0300 0311 9316 0429 0434 SICOK A004 1483 0955 c9as 
0454 0490 05063 0556 0569 0594 0614 0652 O667 O763 O709 OT4& SIOST A 064 OF48 0518 0525 0555 
C753 C782 C7TS7 CBO9 O8isS 1028 1032 1072 1076 1089 1095 1193 SIX A OO i82A 1257 1240 
1202 1208 1218 1224 1228 SKIDG A004 159C 1055 1052 
PKARDY A 004 OF64& 0526 0530 0538 SKIXIO A CO 1438 0965 0402 6405 
PRIOP A C12 1€76 1265 C872 CB8I& SKLINO A 002 188E 1298 0369 C37G O38C C881 0882 d897 
ESSEC? £0C3 OFBE 0536 0510% 0£14% SKMGVE A OOS 1368 0897 0878* 0909+* 
PSSIO2 A CC3 OFS 0540 0512* O516% SKRICA A 004 14EC 1009 1004 
PSTERR ACO4 21732 4177 0422 CSSi 1071 1084 1103 - SKRIG AOGO4S 1749 1182 1180 
PULDIK A GO2 L7E2 1232 1230% SNDOMV A 004 1598 1054 0624% 0630* 0642% 0643% 0648* 0645S 
PUTSUM & O0C2 COFB 0406 C4044 SNIROC A O10 18FS 1384 0169 
RALLC & 004 OEFSS 0199 0196 SPACEO A002 1FAB 1428 0885 1006* 101C* 1€19 
REBUSY A O22 1€22 1388 0223 SPALT A 00& CASO 0053 C038 
RECAS ACC LICE C2 C159 SPMOVE A005 1347 0890 C&87T* C908* 
kKECOP A OlO 12884 2368 0044 sPoP A012 1882 1296 0370* 0372 0882%* 0890 
RESETL A OC& 1085 0669 0621* 0627% SPSK A 0Ol1 IFC8 1444 C352 
RESET2 A004 1089 0641 C622% C&2ZE* SPUDT A003 OAODC 0020 00332 C461 0466 0518 O€19 6625 0674 O677 
RESTO A OO& 1726 LETO 1145 1168 SSWO5 C 001 OC04 1494 0039 0060 0087 OOS7 0124 0153 0164 0218 0250 90280 0309 
KICABY C OCL CCEC 1484 C206 1C05 SSwOS C OOL OC8C 1495 0357 04C8 O5CB8 O858 0999 
FICFR AOCOL ILFA2 1420 C8189 SSkll C GOL 0040 1497 0975 
RALM A CCi O©A4C3 OCOL6 1012 1051 1085 SSwl2 C 001 OC20 1498 09 78 
ROCON A CC4& OFB3 C469 0459*% C467 O47E C478# SSW13 C001 0010 1499 1038 i232 
KLRN £013 2891 1369 00899 01558 STAIX A OOZ2 1FSS 1412 0036% 0037 0247* 0248 0260 0277*% Oz78 O290 1139* 1140 1142 1146% 
RPLQOP A CCG CCS 0644 0651 1147 1149 1151 12153 1155* 1157* 1159* 1160* 1161* 1163% 1166 1238 
RRAC A005 :€03 i386 02C02*% O212* C216% 1240% 1243 
RSCUNT A 006 OCTB O377 O376*% STATAB A COl ASE 1236 1i27 
RINGA A OCL OF 14 C499 C452 - STATO A 002 1F8D 1408 0356* 0269 0364 O407* 0421 0415 O857* 0861 0865 1021* 1286 1287 
RTM E AOC) CFES 0565 C502 STAT2 A OO2 1F8F 1409 0463* 0464 0826* 0&27 1C€14* 1015 
RINE A CCL 10«C C616 0567 STAT6 A 0O2 1F93 1411 0057# 0058 0306* 0307 0520% 0521 0689 1087 L121* 1122 1124 1133 
RTNOD A CCL 1CF5 0663 C612 1134 1176* 1200 1212 1214 41216 1235 
RINOE A001 1190 OT44¢ 0665 STBEP A 00% OEF5S2 0428 0424 
DATE 254UG 69 310CT69 28NOV69 02 MARTO O1NOQV7O 19NOV71 PROG ID OE 01-3 DATE 25AUG69 310C T69 28NOV69 O2MAR70 01NOV70 19NOVT1 PROG ID OE01-3 
EC NO. 616485 816529 816542 016631 816764 818677 PAGE 15 EC NO. 816485 816529 816542 #16631 816764 618677 PAGE ISA 


See eek Racer i 
Be AT ee wet RUE et ie keg eo 


IBM MAINTENANCE OJAGNOSTIC PROGRAM PART NO 2589951 IBM MAINTENANCE DIAGNOSTIC PROGRAM a 





PART NO. 2589951 
PAGE 16 PAGE 16A 
E013 §203 LINE PREWTER FUNCTION TESTS E013 5203 LINE PRINTER FUNCTION TESTS 
CROSS~REFEP.E ACE C CROSS-REr ERENCE 
SYMBOL T LEN VALUE OEFN REFERE ACES SYMBOL T LEN VALUE ODEFN REFERENCES 
STECKL A O04 1686 1133 4 1131% 0583 0584 0638* 0672* 0679%* 0680 0871* 0872 0875* 0876 0887 0889 
STECK2 A CO& 16€6F 1134 11324 0890 C©896* 0897 O0S02 0970 1053 1054 1105* 
STERR A 00% 1656 1119 “0990 1C67 1€83 12302 , XTEN A 00l 182D 1259 1241 
STEXIT A CC& 172A L117) 1119 11698 YBATS A 004 1A3A = 1333 1201 1205 
STIL A OCB CBSC 0201 cis9 YEQw A002 OC15 0232 02304 
STSAE A O02 1655 1117 11204 117C YESER A 004 1670 1126 1123 
STOAD A CO2 168€C 13286 1007 ZERO A002 1821 1252 0541 C765 0813 0848 0902 
STOM2 A OO2 1862 1287 1011 ZIGOUT A 004 1043 0594 °&#®0591 
SUBGAN A O0C6 1702 1161 1164 ZROTO A 006 I3ED 0932 0930 
SUNERD A CC& CEAF 0468 0462 
SVNTEN A 002 1831 1261 0400 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
TAGS A COl 1F&B 14C7 0420* 0423 1025* 1069* 1126* 1138* 1206 1246% 
TAG  C€ 001 O0O2 1487 C423 1326 1138 
TAG? C001 0001 1488 6420 1025 106% 1206 1246 
TALT A CO& CADS C€1C9 co98 
TECHBI A OO& OAEZ 0058 cos56*% 
TEES A CcC3 1eF4 1312 0548 
TEGAN A OC%4& CFA3 0542 0545 
TePCu A 00% OKEB 0218 0207 0210 0:214 
TESER A CO4 1818 1246 1207 1234 1236 
TEST C 001 O212 1475 1055 
TEEL A COS 1874 1367 0212 0414 1178 
THGIR A OOS IBCF 1366 C2lé C41C 3181 
TRROUT A OCO& OFTB 0556 0553 
TIOCHK A CC& 14SA 0988 0979) = C$ 94 
TITLA AOD 1917 1214 C506 
TETLB A O21 192C 1315 0572 
TlTc9 A O16 1904 1313 C457 
TUxe A 00 1406 0937 O927* 0934 
TRERP A 004 OF56 0429 0427 
TGBYT A ©C6 13FC 0935 C929% 
TGOLONG A 00% 1424 0948 0945 
TON A O22 I18AG. 1371 0089 
TREE A002 1827 1255 C582 
TUFORF A O0O2 1848 1273 05 85 
Tw A 006 CBTC 0194 c197 
TWLVE AOO2 182F 1260 O371 C875 Caso CES6 
" Ta A 002 1825 1254 0353 0581 O793 0804 0899 0914 0923 
THYS EK A OO2 2835 1263 C683 
TwYWUN A O02 18333 1262 1159 
TYBUT A OC6 1308 0925 C924 
VY 8s AOC O821 0153 C151 
UCSLG C 001 O878 1465 0054 0633 
UFERR A O06 CBBB 0206 C204 
UNCSK AOLS I94F 1318 0670 
UNTTIN A 001 1843 1270 1155 
UNOSYN A OO? 18462 1269 1157 
UNPACK C OOl O21E 1478 O258 O262 C288 0292 0778 0805 1198 
UPCER A 004 LAE O70} 0690 
WAKOL AOO% 1501 1014 1016 
BAT A CO6 1289 C&30 0833 
WHIHLT A 004 1228 0796 Q788 
WICH AOoc6 18CC i308 0410* 0414% C4268 
WOR K A CC2 IFS: 1417 
KT AO0Q6 147€ 0982 C974 CSss 
bwUDF A019 197D 1322 0706 ; 
HMUNTH A 004 113C CO&4 C682 
X1G A006 1432 0964 0349 C441 0472 0487 C523 C550 O577 0588 064% 0686 O701 0715 
0912 
XICEXT A COS 1644 1104 Cos? 1C86 1068 1101 
XR} Cc 0OOl O00} 1459 C336* C252* 0353* C354 C378 C382 9388 0404 0417 0541%* 0544* 0580 
0582* 0583 0637* 0681 0683* C685 Cé&BB 0691 0696* 0757* O764 O765 
C767 C769 OF71 CI73 O775 OTTT OCs 0791 0793% 0794 0802* 0803. 
O0804* 0813 OEF17* 0848 OCB85C C851 08558 0856 C900 0914% 0969 1053 
1054 1104# 1120 11278 1128 1128% 1129 1132 21132 1136 12137 11708 
KR2 C 001 oo02 1460 O355* C3€€ O371* C372 0380 0400* 0401 0479% 0482*% 0484 0579* OS81* 
DATE 2 5AUG69 310CT69 28NOV69 O2MART70 O1NOV70 ISNOV71 PROG ID CEO1-3 DATE 25AUG69 310CT69 28NO0 VE9 C2MAR70 O1NCV7O 19NGV71 PROG 1D OEO1-3 
es _ EC NO. 816485 816529 816542 816631 816704 818677 PAGE 16 EC NO. 816485 816529 816542 816631 816764 818677 PAGE 16A 


esoeeenenueeneenseaeneneenuneneenenoeneneoneneonenenene ee 8 8G @ 8 














18 MAINTENANCE OIAGNOST IC PROGRAM 


EO 13 


THE CHARACTER 


CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 C 


Te#-¥:6AC GE B-a 


Te-Z25< CAF OS 588 


Te-DOIJ2#e@ &¢ J? 
1+-, ,8{As$aG-8_8 
Te-RWIL-0 -T2UAT 
T¢-_/D OBFSDEF*B 
1#->*/0HS8AC /0H 


Te -? PAL O<F GHC AAO 


Te-OKeY SEC S*CA_ 


74-L(H> OH*BE-Q 


Te-ch8C, /OHs /= 


1e-30¢ EBBJHE<-0 


Te-3= S.-(CCTG9< 


T#-49 J=WOH*KY 6B 
Te-5S4FFZ2/0T S14 


Te-6 2765900 ~YE 


Te-70C OMO//CC D 


Te-tveet G Cl € 


Te9- G -E960H* 


T 4-3 $43 7R OH SRF YM 


Te-#00TCSG8AB J= 


DATE 
eC NC. 


25AU G69 
£16485 


ee - 
-U;A&E DA & HU3- 


G /DAB/? JOH* BH> 
JF°" /OHE-EY $442 


BA HHaZ QOH*BF ID 


/OHEOSQS$1= 2C OD 


G /2ZAD1>P84+G0-> | 


CAG <FIGHBT$2/2 
CFSUaDE? #0 5H .>aG 
EC 6% 1_?] Wo=3- 


CIS /1EH<76Q5-0 
NGDX /O0H: //EGEP 
CGOCO*LABG /,At/1 


& J=Kazl ~* EBBIH 


G /QH = OHFMCOE 


9GBOQQEYOG A/DCH* 


3 & @ZALT @ FHS 
(TA/OC CUS//08Y* 


4168 O8 A= (+H 
(GCYAGB8&< As CXG 


HE°G /OHSS8CI 708 


5203 LINE PRINTER FUNCTION TESTS 


OBJECT CARO LISTING 


AB-32D £2 Ye<+ 


003 HENCT"BGT2 && 
G S.-C2BG /0B- + 
EF #G-<ECAF *D$4aB 
$457) OH*BF YDHF *G 
AB _Bayeve EBB IH 
<S=)FE ("0- B 
UBaTAW 2$av#0C * 


OD -T2UAT /OHE OKU 


AF *D$53CUGSME J= 


_ JOKE -J<*N*BG /D 


BSCL /OH; /=NGOX 


EDZBG /,AH/1 7&3 


A| D-Y*HAGaQ6 J- 
L>J=PFHE< ASBFHE 
<A=/G9}*H-C2 JH 
KC DMO//QC DCTA/ 
BB-HED- COF<Z$$C4 


41#2¢ H>S*"HECLC 


VOH* M<> BOH* BE-U 


[aZAR¢L HCIHEACB GCXMS = T"CHCH"-T 
310CTES 28NOVES C2MAR 70 
816529 816542 816631 


OINCV7C 
816764 


~VE4 AGOMHC? HAIL- 


a+EZT <+<-U 3-069] 


SO; H7T-D -T2UA 


G /0AB/2J0H*BH> 


70H S8C. /OHCAH 


EFSEG /,AE/798A 
(40-8 | J=DFBI 
+CA_DIC*.="HGHOO 
#H> C D$4J?7) OH* 
NED$2-LaSA HH@Z 


AB/?JOH*BH> 2<3Q 


/OH3 S¢HGEP /OH 


/OHE- &Y$4*BG S. 


VG D~VOGB -SC&<+ 


6 /-27 % FHH* A= 


< JL@FEE< ET7*FEE 


QC O($//QCH DE 


G 84% Y-HAG-HGC 00 


CVE<ASTCFESX2/06 


CLL /OHEE/ RAF 


"C- -~WJ-TOH*4<SH 


19NOV71 
818677 


PART 


NO. 2589951 


PAGE 17 


INDICATES A BLANK CGLUMN ANO THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


D -T2UAT /OHEOS 
2DBM8A HHaZ QOH* 
< />SF 7 /OHEESC 
seni aienens 
-EaG-B2G2/1Y8A H 
< S2JF*t /OHE-EY 
" _gay* 0;0.x1H 
GG 0$0-00G <$}CO 
BEYDHF*D< ONB*? 
2C &#<JO SOHFBEZD 
OKTCHGOME J=NFDs 
E-J<#N*BG /DAB/? 
-1<8G /0G 4Hf D 


~TLS -X2U ? /1+ 


/G9%*€ A=/FOG2ZA 0 


< &5>FEL 2/25'NEG 


FIO6 /-1TA FIG 


“DF<Z$) 4 G8OVY*H 


@F-9S0H*BFYD Ft 


1<-+_cC?7"G9u9< Y 


Al JU-W* ACO-*802 


PROG 10 


L 49 THROUGH 64 CL 65 THROUGH 80 Ci 81 THROUGH 96 


$/+ 43660130001 


BFIZD MC 4E0130002 


$V= MRHEO130003 


@Y* 3,~-£0130004 


HeaZ =30E0130005 
$4*% sRYEO130006 


G3- 0 6/8€ 0130007 


8B"Z KRSEO130008 


/OH E, %E0130009 


OGDH *THEO 130010 
2-La 29 £0130011 
JOH* MYQEO130012 
AY#H OKBEO130013 
9684 4L4E0130014 
< £4 QDDE0130015 
2 JM RIME 0130016 
"718 b28E0130017 
ABT $08E0130018 
< 3% KZHEO 130019 
<a/_MO#E 0130020 
4@YD 5ZME 0130021 


OE01-3 


PAGE 17 


EBH MAINTENANCE DIAGNOSTIC PROGRAM 


£013 
CL 1 THROUGH 16 


T+-a J<33TC LB -/ 
Te"< 70H "UOHF 
14-< GDA808/=L* D 
14-"8) /*667438 G 
Te-"*6ZBGEC.S Lé 
T+/ 8B<1 /1628-6 
T+/A3C- -WJ-TOH* 
T+#/B >C{HEDC 17D. 
T+#/CZCHCH*1=0 IE@ 
T4/DU1*BG /YKOH® 
T +#/E+0-DI--HGACI 
T4/FEOIL UADZI 
T+/GNH- ¢-{*"0H* 
T+/HE0GXO [HESGT 


TH#/E./179 EC VAG 


T+/HFV 1X=0H*BF-D 


T+/.AG94("0- B 


T+/.aaZCVi DL-~JO 


T#/<T -SITAC FGQ 


1+/(2G2X2 EEE C 


T+#/+_C- L-~J-vG D 


T+H/1Y 6 J-VCH* 
CATE 25AUG69 
EC NG- 816485 


5203 LINE PRINTER FUNCTION TESTS 


OBJECT CARD LISTING 


CL 17 THROUGH 32 CL 33 TKROUGH 48 CL 49 THROUGH 64 


£10 H®-GEF1YQHLQ 
BFUHLFJ~- CS —-X 
AU"HEE@BGEC. S <B 
A9 =£03 [RCGUFO# 
MGOX2-£Y+ A=RFBI 
B -- 0-DH; 30BF8M 
{*2BG /YKOH*BE-0 
@)1B: IG#NVT18ERZ 
NVLINER*] AOR] 
BE- ( AF)OH*BFUH 
AFCMa JC4-1a OH* 
E*<BGDLL /1628 G 
BFUDD>FE?-:2BG /Y 


- YHEDXUE JHECGU 


5—P AOHEJ *LQAFBN 


“DF39( &DQH* ADT7 


(+40 B f A=)FR] 


AGS*#AC+ TLS —-X 


< A=-G:G2/0U6 /- 


2/3 6 4-71 VY FHH 


BFBUFDAZEFEH< & 
2u. a:B eaees {ULY 
‘ 
GC4T /OHS8AC2 /0L 
38-5 J-/03Q1D7H 
"70 *HOH*BF/. /0H 
6 J-xX$ H  C&BG9Z 
vie IQuon 
<. 1 =DBBa<M1* MGBE 
NWZBGEC.S &@ ERM 
PFM"- <HBOKO@=1E 
M<>H =D HAUT 
*/CHEOL4R+3 =C D 
E+ /XVO-D+0C4 "047 
E {HEIG4D ~HB.AO 
mO.2-EL / IF TCHE 


/OHEESHAG6 O8A= 


/AHIOH* CEHDs< 
2U 2? /1+9C84QE7H 


77 2 FGCSB/ (HI Y 


+ A=/G9*( A=/FDG 


SFIS BI# -EsD CHE 
HC472/00#B8 =++0- 
* 711503 IR<BGE Y 
GCTQAFB|  &=TOH* 
OBO &<BG /ZBEJU 
(g=sroT -7 +10— 
+ EQHC [HEI32C0.0 
2 "0/8a-D<CG*/ / 
Qiba ER*QHDS ERU 
M+ HAC [HEC333DNE 
&1 3EAG9U" 65=ROHD 
$4.5? SCH*BFY MHF ®G 
2 &*a$AG.aY 201 Ca 
AG9*AOH*BG-H-+V1X 
BFUDGF+,- <HAG6 
SOH* KY2BGDWM4 BAH 
2%) =-LEDAFBG -&— 
5% 
GB<BGDEU-T A/ DCE 


LE*BGDaU-V1S+C 


2AA- | A=/FDG2/0e 


—VO0D4 /=RCEDAWV1- /a@YD~t~ ~VZ ED7< 8 /=Cas Ef TLKCO 

KDO 68A-T( -L6TQ HFBH4BAI-( -LOTQ HFBC&BAEEC DL# 
310CT69 28NOV EO O2MAR 70 OLNOV?C 19NOV71 
816529 816542 816631 816764 818677 


PART NO. 
PAGE 


CL 65 THROUGH 80 


MCOHAOH#+UZBG /Y 
[ULZHCO4 #"L=ROL 
aKOT SCEXHSOT $I DZ 
BH> MC HH6/T4CES 
ZS #°1=R1<-HO01 
HO@BGEC. $ T4RGOX 
@-1 Bs [HCNVT2DERZ 
TC %+CA=00-DH-<H 
QHOB ERYQH37"ERP 


BA Y<a/ DO-HJUTE 


C4 G9IX2-L-6 J- 


FOHSBC#H /1628-C 


J2"Aa G B4A JS- 


ZOH*BF LAF > f—- J 


* J=P LQAFBP /OH 


°° 


S< +H T3-AG8" VAT 
G DL,OE9a C2Dt_ 


aYJ=-2-DGI 30-W-H 


Q- /S#4+ EnV?HE< 4 


6 /-2?T Y FHE< A= 


- D6U* @ A=ROHHL GaB 


c oro C DLa 


PROG ID 
PAGE 


eeooeveceeeceeoeeoeeeoeeeeeeeee eee eee ee 


2589951 
17A 


CL 81 THROUGH 96 


MOH* MQ8E0130022 
Ficlw *K €0130023 
~300 #£-£0130024 
H5--” § :HE 0139025 
FB<CH R3*E0130026 


2-GY 3RMEOL30027 


8 -Y¥ P#YEO130028 


BGO. LKa€0130029° 


J * #20£013C030. 
BDNH 7/0€0130031 
Z+ 0 ¥K*E0130032 
"OH 0 8E0130033 
save" #1¥60120034 
$F "H $J-E0130035 


: /a LBMEOL30036 


9{B- NEYEO 130037 


8 -  $B-£0130038 
BDH =JYE 0130039 
AG G* $98E0130040 
/G9* 5 MEO130041 
GECH 3EUEO 130042 


c $HZE0 130043 


OE01-3 
17A 














¢ 
2 
Se, 


” 6013 


pee ae 


T¢ /Of B/? JOH*® BHD 


CL 1 THROUGH 16 


TesETOR- &- 


eee 


T¢/J3CH*BH> JOH* 


Te/KRCPEEFL/S = -e 


T*/LMO$ MY-HGDTE 


Te/M[GAMte2 J1+0 


T#NHC 0$457)C £0 


Yes JA_DCOSHN234 


T4/P RJA_SOSON2°H 


T4¢/Q6/0HSB CABAQ 


Te/RIG 32/07 SLR 


Te/EZG87B J2<6-€ 


T#/$XFD,2--Ul J= 
147 ®SG9MQE"HGC 08 
16/0) e5-2 (EDONEB 
1/30 /=Las FCM 
T¢/5LOH*BEY OUFVB 
14s-¢ SYNC OP 8/3 


Te//1E L=MCHSBHD 


TesS0~ T#GO ILIC 


Te/S"42XPE*¢ |OEDA 


Te/T 24U27B900 EDA 


DATE 
EC RO. 


2tAUG69 
816485 


IBM MAI NTENAACE OLAGNCSTIC PROGRAM 


CL 17 THROUGH 32 
QMLa D#-CH"HRB-Q 


MCZEG < JLBFE- 


2U {O~AYBH HHeZ 
GEV$ /1*20H*BH> 


NZL 3YG2 YC JMYFFC 


NC1L=,0VE K+ ~TES 


O+A BB7HEF O £0Q 
€B-12 &/ WSPAS 
Gl-aeaG:MQHa A C 


@OH* CNZBGE BHP CEY 


COH*PCTHMAEVDS /R 


t~~a eV¥F-~G OT 


NFD32A U<AAZEF S$, 


GSMQL7HGA-a GOM 


G OSl=L¢ 


~QG00 


EFAYZ¢ &-U{HEA-0 


Q0A=Lal #45 ~U2H 


OH*BH> +A BB7H 


+ 06~Sa BG 
1EC4QU1/AE CUNZ AP 
C(I LTIS*®N ECA GQ) 


EDA E<LAGIV.4ax 


31CC 169 
816529 


28NOVE9 
816542 


5203 LINE PRINTER FUNCTION TESTS 


CBJECT CARO LISTING 


CL 33 THROUGH 48 


= CMZBGO™{ 70 


6BA-T( -MNLQHFB< 


WK wWXL 7CGSC("C- 


ECCH*HWZSGE Y1SA/ 


2/20@9A014+ ~D-O 


Efa |HAJaGHEP< 


e ® 


Q<BG /H< JPMFEO 


f TROCH*OBL YAG8Z 


Esvoos meuae cask 
aera e 
* AEG LU GSHS A= 
27H} A=NFOE*FA= 
@<30 GOEL A=NEBX 
DF/0$)C-HG9C2U Q 
HFS<Q%aBG /,AISY 
EEL-DG9.2U # /0H 
&. T-DG9. 2UB4a B/+ 


A H O DA- 


HD 
OGB4.TULIS*#N EDA 
R2 IP TM+ COC EEDA 
NIMCCB*°V.29N 1)X 


O2MARTO 
816631 


OLNGV70 
816764 


Ct 49 THROUGH 64 


( -M<EOBG: MQt0a 


4BAR|( DOML EBEV< 


B (+0- B 


F<3 QCKTG— 8- H 


AEK-CCT41B-[2 €0 


2 J=.C P-ANLOH* 


~U*5G S.- O8G:M 


<D1Q C *$JA_E0E 
G /,AGIVIB O< J? 
HE244 JRN<+<-U3X 
LCA 0;A0 £6 BG a 
NaYEX |S ~VHDES6 
2--¥4 A=MFSt /24 
<AAYSE6" /19969D 
18 C /OH3 /=LFT, 
E-J $F-OAFI*EHEO 
GIEYWVIHBD 8 G9E 
< a0 EG EQ- A 
"QMA S*X153¢ E0A 
"EDA 8_.154C TSUA 


RQFCFE5_XME (J E54 


I9NOV71 
818677 


< As E-C /1*20H* 


Cl 65 THROUGH 80 


BG: MQH™ HAAAGWEAL 


< Ji < J=)E&a 


)FBI /Adat~ NCE 
1aZ D+--NC-0AG9D 
08/=|+ D-T ZBEEEG 
P.%8G /DAGIZTOH* 


Q+ OAE) EQOTOKE~ 


N2 QOOAE) &QPTOME~ 


BEYDSFS. /OQHE/EY 
JE°? /OHE/SEYS448 


669.2U *98A=L8/B 


EP/Hs /=.<4+ QrVE4 
(G9P2 ~** AA=NBYVE 
BOH*L >J=MF1,2/0Q 


QZ00 FHMQZO0EF S< 


/ OHE-JDE+ T-AG8? 


AF* D$5*BG /DAB/? 


QH-8 E"QQ.*8GE"M 


HS ZNNP AOE 7) #8 
£QMA 8_~AO@N EDA 


E0CN5UC S8aGT9O41 


T20A EDCTB8=(*2EC 


PART NO. 
PAGE 18 


2589951 


CL 81 THROUGH 96 


27 0Y @34E 0130044 
SaAM 30UE0130045 
EEUE @S*E0130046 
NO3- (ZC 130047 


3 Q1%E0130048 


- BFYM E9DE 0130049 


<A1Z 4Q6E0130050 


<ALZ QS £€0130051 


$4* =sRYE0130052 


G SH '$-£0130053 


OF 0H #1 £0130054 
AGSM J8QE0130055 
IC- 8£a£0130056 
# J* EEDE 0130057 
GOC- }:HEO130058 
20Ga 1#0£0130059 
JOH* #J4£0130060 


< A- #.0€0130061 


He O 2SeaE 0130062 


QsH *A+*ce01 30063 


O@- 89DE0130064¢ 


T~M = =6* HEO130065 
PROG 10 OE01-3 
PAGE 18 


IBM HAINTENANCE DIAGNOSTIC PRGGRAN 


E013 
CL 1 THROUGH 16 


T+/U55*X153( 8aP 
T+/V02) PT8aPS84C 
T+/W15)~RBaGB4N 
T4/XW64PS130 2<G 
T#/V/53 PLLO?CS&< 
T+/Z*EDA EDA E0C 


T4+/DPED - LCO2<G 


T+/.KA. 12<GM5<P 
T#/Z #4A6)V.8>7 
Tt /_H5< PRE (POK4A 
T+/>C2DCTS_R @*$ 
T4/>=61LAGIN 0 
T+/795MCNS5>( 6#L 


T+ /04°~.0G4A EDA 


T/L 710 V.64PGK® | 


T.A2*5UCI8>.U 14h 
THi= 

eevececeoe 
Te#JI"R 9G 


Eel ee 7#=.DC "PHS 


DATE 25 AUG69 


EC NG. 6816485 


Cl 17 THROUGH 32 


S8*~AS@PRE+. E8=| 
F5_V 9(PP6 31 A0_I 
” 1<GT O#PN eaPR Eta 
L 86A- 6*PP14G TE<$ 


9=~X9APNSFPEXILS. 


S8eGT94+I ODTT131 


ISMCS2 (PCE<1 H4U_ 


RE<PCZ2(R OaTKKOH 
NOSCCZU1.EDA 
“EDA Efpzale 598 
Nl @j A6é IX 10 #~E5 *X 


Oa4A EDA 6*PAIt+T 


Y5={RKAIH84_ EIG 


S203 LINE PRINTER FUNCTION TESTS 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


L2 )PGE+| E8>1W5_X 
EE<IHOIV 2IN 1<G 
R8B*V.O0'LDKa [O1<N 
O6MC M5_XEQFCES; | 
X9=7X48G6S84CC5_L 
"EDA E(5R2)SR251 
"DE 2PCOMCS=CP 
* BEGN :DCHO) LMOMC 
CO) XRK=.PO*JEE<| 
T&<.U8>/ 0*ST1)V 


I5;[E6MA OOLF ISP 


5a ?7C 3E< XSEC XD =F 2 


CL 49 THROUGH 64 


S IMCCO$ .EE(-R2)P 


TCMCF 2#Pi 10CB25¢ 


5_V 1<PLO3/ 8X 


E6CC0a | COct+| O&<. © 


MC )POQFCL1*$T&UC 
VECPREMCB23C 231 
CQs-L2)) GA AX 
OSMCC2(H H “HSMV 


H4U_ H C1_$R541 


82x0 E<GC 5={D*-. 
RE&CXI la TT4aPF B4C 


S2< J-0EN S)STEIX 


O87G19"G483$19"G 9°-+.034CIBUCNS> t 
"EDA EDA EDA ECX SEC.UB>/45)R OTL OKAXSB>LELOA 1<G 
ISUCE6}XI8UA EDA £¢.H1O7B1MA EDA  5)R-5_.} 4aGTO@/ 
C2<GISMCCZ(1.E@X MOFREEEA O@TA2IN 10R 5)$TECGGEEP 
mat soGeS thnieGhs Saeeaaseatedaine: Syeeetesenae@ 
S + 8-C- 3H 8. S + C8-GS >HCB-C UD;Q09-D +&08 G 
="7MEF} $C F%  aASC RA SOQ 
wee e+ - ++ +--+ +--+ +--+ + +--+ + LAST PAGE 
31 0CT69 28NOVE9 02MAR 70 01NOV70 19NOV71 
816529 816542 816631 816764 818677 


PART NO. 
PAGE 


Ci 65 THRGUGH 80 


T&+{E8>IR2)~P42N 
" 5) $ Tet. EB4CW2s | 
Ml MCISMCAL<LRK=. 
El QXNE<PX141U8 ax 


N5_PEEDA EDA EDA 
"GDA EDA EDA EDA 
NO*V 12GI6=LRIMC 
o8 ATEBILAS4SCC2ZU1 
” gsOME<tHSU_ EL™ 
Oa4A EDA EDA EuC 
C5< de 1X PCSELEECP 


D: i P2al¢ O>LS: DC 


6 *LY E=.HID7B1MC 


2589951 
18A 


CL 81 THROUGH 96 


5*U KE YE0130066 


H&+6 O1ME0130067 


Wx~3H *CDEO 130068 


O5*U 9Q0a£ 0130069 


&D EC8E0130070 
&D #.8£0130071 


C2 (H 5DaE0 130072 


-- 1KME0O130073 
HOPE RK<E 0130074 
BStH 23060130075 


P69 =$MEOLZ0075 


W2<M NROEO130077 


R1l+- LC YE0130078 


TO#XMO#+EEDA EDA "O*& :-MEO130079__ 
" gzpTe+si6a/ 5)R "Btu K1£E0130080 
eine oe os <E0 130081 
ecccenccccccscces Cee aaans 
UN; A9GC- 3 B8 ft ~~" ” egme 0130083 
"21231012712 11071"$@EC130084 
PROG ID OEO01-3 
PAGE 18A 


i 
! 
; : ~ @ 
: . ea A 


vy pelieineeed an cated: 


IBM MAINTENANCE DIAGNCSTIC PROGRAM 


E024 


PART NO. 2589953 
PAGE 1 


5203 LINE PRINTER FUNCTION TESTS 


ERR LOC OBJECT CONE 


OaACcOo 


QOACO 
OA02 
CA02 
2 A04 
OCACE 
OACB 
OAGA 
0 AOD 


QALO 
GAll 
OQAL12 


9414 
OA16 
OALB 
OALF 
OA 2C 
OA21 
OA23 
OA25 
Oo A293 
BAZA 
OA2B 
OA 2D 
0 A30 
OA34 
GA3T 
0 A368 
OA3F 
0442 
0 ASG 


OAGA 
OAGE 


QAS2 ¢ 


0 A56 
OASA 
OA SE 
0 Ab] 
OAS 
O AGA 
0A70 
OATS 
OATS 
OAT7B 
OATE 
OAsSs 
OA 68 
J ARC 
SAS90 
CA9S 
OAgT 


DATE 
EC NO. 


E024 
00 

O1 
0000 
GA10 
1630 
E04000 
101000 


EO 
€1 
4 
E3 
31 
01 
01 
02 
Ol 
68 
ol 
Ol 
2c 
oi 
ol 
Ci 
02 
FF 
Ol 
20 


0208 
Le 
O21A 


O21A 


16 
O&78 
04 
129A 
OAOC 
ca 
1294 
O22 


1290 
129F 
1241 
12A3 
12A0 
1243 
1293 
129C 
162A 
1628 
01 01 
67 

1628 
162A 
BF 

12€S 
1269 
co 

CA 74 
1628 


0o0C Tes 
816502 


ADDR STMT SOURCE STATEPENT 
2 CECK 4 
3 UVRXYZ START x* ACO? 
4 RSKSKRKSKRSESKSSKESEKSSGCHBSSEFREEKRSEKASAKSESSESEKSKSSERSSEFSEKRERESKSKSEKESE ERE HERES KEKE E 
5 * * 
6 * SYSTEM/3 52C3 LINE PRENTER FUNCTION TESTS * 
7% * 
8 SRE SHKSEKSSSSESKEST SES SESE SHKEKKESE STEAK SSERSEESERSESKSSSES ASE SSS AKRSSESSEAEAERASAEKEKEE 
9 SECTION 2 - ROUTINES 1 & 2 * 
10 SEC KAHL HSESAKSESERSEKSSESSESARHAK SERS KSEREKRSKHKSHSE TVS SES GLKA SEKERAKSKHEKS SSK KEEKESH 
OAOL 12 oc XL2* £024° PROGRAM IDENT IFICAT ION 
OA02 12 oC xL1°0° FLAGS 
CAQ3 13 RNUM- OC XLLele CURRENT ROUTINE NUMBER 
CA0S) = 14 DC xL2*08 RESERVED 
QAO? 15 oC AL2URTN1D ADDRESS OF FIRST ROUTINE PREFIX 
OAOS 16 DC AL2 CERTI) ADDRESS OF ERROR RECORDING TABLE 
OAOC 17 SPUDT OC XL 3"EC40CO* UNIT DEFINITION TABi& - PRINTER 
OAOF 18 SPUTA DC xL3*101000° PRINTER KEYBOARD 
19 SHELORSERSERAGE SES SESS ASS SEVHESSAKESSESESECKEEEKKAS LEK SKE SECS CHREM SETS KEKERERS 
20 * * 
21 * ROUTINE 1 - SENSE COMKANDS ANALYSIS TEST * 
22 % * 
23 BEKSCHESEASEASSE SEES SSSSAESEEKSE SSE RDESCCHKSERESKSEKES SSE KSCKRHERKKSKKSE SKKSSEK SSE KAKKERE 
CA10 «24 RIN1 ~~ OC xLLe1e ROUTINE NUMBER 
OAll 25 DC xL1°80* FLAGS - MANUAL INTERVENTION 
QA13 26 DC AL2 (RTN2) ADDRESS OF NEXT ROUTINE PREFIX 
ait SSSSSSSVHKESEKBSESSSSSRSESCSHSRERKKESEKEKEGHSERSEKESRESSE SERS HEME RKSRKSEKAKKKKERKKSE 
28 TBN SBYTEO, SSHC5S TEST FOR ALTERNATE PRINT DEVICE 
29 JF SKALT 
30 8 PRINT PRINT "SENSE CMDS ANALYSIS TEST® 
OALE 31 OC XL 1°42 
OA20 32 DC ILL*248 
CA22 33 DC AL2UTi TLEL? 
0A24 34 oc XL 2*EOE2* * 
35 B PRINT PRINT "JMPR A~BLE5D10 TO A-B1D02S05, 
CA29 = 36 DC xL1*O18 RESTORE CARRIAGE(S}» PRESS CHK 
OA2A 37 CC ILi*s4? RESET, THEN RESET HALT® 
OA2C 38 OC AL 2(RELORC) 
39 SKALT HPL xX*76",X*7C* HALT E22 PREPARE PRINTER 
40 CLI  UCSELGeX'FEE 120 CHAR. SET 
41 JNE  MARCS 
42 MVI -EXPD3 9X #008 PUT *00* IN STATUS BYTE 
43 MARCS TBF SPUOT,X*O1* DUAL FEED CARR. 
44 st OCGENSE 
45 MVE = -EXPOO,X*OL® PUT "01° IN RIGHT CARRIAGE LOCATION 
46 8 TEST READ DATA SWITCHES 
47 SEAKKS SKSSSHSHLSEAGARGSAOSLSSRSGSRESRRSEARESKKKEKKESSESKAKCEKAGRKKSHES KEKE KKKRKKE RS 
48 9 D0 FOUR SENSE COMMANDS * 
SQ SHSESRAHKHSCHSFISSSEPSRTA SSE SSO SES RSESSEKKSE SSESKS SRE SHH SEK MEAS SERESEKKKESKKEKES 
50 DOENSE SNS SENSO,X* EO* GET LINE LGCAT IONS 
51 SNS  SENSI,X*E1# GET ENCRM.G CeoCeCTRe 
52 SNS  SENS2 eX *E2° GET TIMINGS 
53 SNS  SENS3,X"E3* GET STATUS 
5% SBF SENS2-1,8*110C01° IGNORE CHAIN EMIT,PSS-2 & HOME LATCH 
55 SBF  SENS3,B*1? IGNORE CE SENSE BIT 
56 LA EXPTAB, R1 LOAD TABLE ADDR. 
57 LA S ENT ABy XR2 LOAD TABLE ADDR. 
1263 58 MVC  EBZERCi2) ZERC ZERO ERR COUNTERS 
59 SBF TAGS,X*6B? RESET A CMO CORRECT & CMD.ERR FLAGS 
60 SENEXT CLC 102 eXR1LD 91 OyXR2ZI ACTUAL SENSE MATCH EXPECTED 
61 JNE  ANERR 
62 SBN TAGS, TAG2 SET A CMD. CORRECT FLAG 
1263 63 CLC ERZERC(24-2ERO ANY BYTES IN ERR YET 
64 JNE WFROM 1F NOT KEEP GOIN® 
65 GCRGAN A TWOsXRL AOD TWO FOR NEXT CMD. 
66 A ThO,XR2 ADD TWO FOR NEXT CMD. 
67 CLI Ol XRIDAXPFES CHECKED ALL CMOS 
68 BNE SENEXT 
69 TBN TAGS, TAG2 ALL CMDS.CORRECT 
310C TES 28NGV69 02 MARTO 11 MAY70 01NOV70 19NOV71 PROG ID 0E 02-4 
81652 816542 816631 816671 816764 818677 PAGE 1 





If\. MAINTENANCE DIAGNOSTIC PROGRAM PART NO. .2589953 
PAGE 1A 
EG24 52C3 LINE PRINTER FUNCTION TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
OA9B CC 90 SAAA 70 BF AL RAD 
OASF 38 40 1628 71 TBN TAGS,TAG1 
OAA3 CO 90 CCAO 72 BF SYNARA 
OAAT F2 87 6&C 73 J WFROM 
Tq KEXREESESASERKSESESKSESRSERESASSERSE SERRA KH SETS SEKKEHSEHSEAE MSE SHEECERHEEAEKKESEAE 
75 * ALL SENSE COMMANDS FAILEO * 
76 SERKSRRSRAKSAAATHEASBAHKKAHRK ARES RRESKEEAKETKTSESESKESEAKHASE VKAASEAGEKREEHKESEEHLH ARS 
OAAA 3C F2 152D 77 ALBAD MMVI WCHEB,X*F2° puT EB2 IN MSG. 
OAAE 3D CO 1629 78 CLI EB1ERC »X*00* ANY EBL ERRS 
OAB2 F2 81 1C 79 JE SKIBIT IF NOT 
OAB5 3C F1 152D 80 MVI WCHEB oX* FL® PUT EB1 IN MSG. 
OAB9 3D 00 162A 81 CLI EB2ZERC,X*00# ANY EB2 ERRORS 
OABD F2 81 11 82 JE SKIBIT 
OACO 3C 41 OCIA 83 MMVI IDALT »X*41° SET HALT ID 
OAC4 CO 87 O21A 84 B PR INT PRINT "ALL SENSE CMDS FAILED® 
OACS C2 OAC8 85 pc XLU®C2t 
OACO 15 OACS 86 DC ILit2i¢ 
OACA 151F OACB 87 oc AL2 (ALSCF) 
OACC £041 OACD 88 DC XL2"*E041° 
OACE F2 87 54 89 J OUTLOG GOLOG OUT ACTUALEEXPECTED BYTES 
OAD1 3C 42 CCIA 90 SKIBIT MVE IDALT 9X *42° 
OACS5 CO 87 O21A 91 B PRINT 
OADS C2 CADS = « 92 DC XL1*C2° 
OACA 34 OADA 93 DC IL1*52¢ 
OADB 153E OADC 94 DC AL2(ONLBYT) 
OADD E042 OADE 95 pc XL2* £042* 
OADF F2 87 43 96 J OUTLOG GO LCG OUT 
QS] SX SKEARAERHEKASERSEKBEA SKIS SHS SSRASEKSLKHESSEHBE KKK EK EKSAK CE SHER HE KES ELE RTE 
98 * ACTUAL DOES NOT MATCH EXPECTED * 
99g KEERAEAKAAAKKS SA SASEERESSEKESRRSERKSECKKERKKASE SSE TRA RAKE SESH SRA AKSE RK SE KKERHESR 
OAE2 6D 00 01 O01 100 ANERR CLC 3 12 oXR1)91CeXR2) IS THE E81 BYTE IN ERR 
OAE6 F2 81 OD 101 JE MUSBTU 
OAES OE OO 1629 1267 102 AL£ EBLERC(L),CGNE ADD TG €81 IN ERR 
OAEF 6D 00 00 00 103 CLC CU1,XR1}.O0( »XR2) IS THE EB2 BYTE IN ERR 
OAF3 F2 81 C6 104 JE ANBAD 
OAF6 CE OO 162A 1267 105 FUSBTU ALC ERZERC{1),CNE ADD TO E82 IN ERR 
OAFC 38 40 1628 106 ANBAC TBN TAGS, TAG ANY ERRS YET? 
OBCO F2 90 O7 107 JF SEEF 
0803 3A O08 1628 168 SBN TAGS,» TAG4 
OBO7 F2 87 09 109 J ' ANYGUD 
OBOA 3A 40 1€28 110 SEEF SBN  TAGS»TAGL SET ERR FLAG | 
OBCE 2C 01 154B 09 Lik MVC EDOC(E2) 294 ,XR2) PUT CMD.CODE IN MSGe 
0B13 CO 87 GABE 112 ANYGUD B GORGAN 
OB17 3C 43 OCIA 113 WEROM MMVI IDALT ,X*43° 
0818 CO 87 O21A 114 B PRINT PRINT THE SENSE CODE iN ERR 
OBIF C2 OB1F 115 oc XL1L¢C2° 
GB20 14 0B20 116 DC }Li*208 
0821 1552 OB22 117 DC AL2(SCOIE) 
0823 £043 0B24 118 DC XL2* E043" 
11¢ RRBRRGRKAAASLASKABSAAASSRAAKE HSE SKA SEE HRSKOMERSEAKKSLSE SR ERSEAEAK SG RK MAK HK KH 
120 * LGG OUT ALL COMMANDS WITH ACTUAL AND EXPECTED BYTES * 
12i REKVARSARKHKERKARASE KKH KBHC KRHKKE LSE RES RHE SKS KS REEG SSE ERK KK THE EKA AHR SKE 
0825 C2 01 1293 122 CUTLGG LA EXPT AB, XR1 LOAD TABLE ADOR. 
0829 C2 02 129C 123 LA SE NTAB y XR2 LOAD TABLE ADOR. 
082D 2C 01 1564 09 124 SCARD MVC  LFTCOD(2).9€ eXR2) PUT CHD.CODE IN MSG 
0B32 2C O01 15¢€F CB 125 MVC =—s- RYTCCD(2) ph EG eXR2? PUT CMD.CODE IN MSG 
0837 34 O1 OB4i 126 ST LE X2_9XR1 
0B3B8 CO 87 C21E 127 B UNPACK 
OB2F 01 OB3F 128 DC TL1*a* PUT LEFT EXP.EB2 IN &SG. 
0840 00C0O 0B41 229 LEX2 OC AL 2¢4-*} FROM 
OB42 15A0 0B43 130 *& DC AL2 (LEX EB2} To 
0844 36 O01 1267 131 A ONE »XR1 ADD 1 TO TABLE ADOR. 
OB48 34 O1 0852 132 ST LEX1,XR1 STORE FROM ADDR. 
OB4C CO 87 O21E 133 B UNPACK PUT LEFT EXP.EB1 IN MSG. 
oB50 O01 9B50 134 DC ILi*2° 
0B51 0000 OB52 135 LEXI DC AL2 (#-#) FROM 
0853 15A3 0854 136 DC AL2 (LEX EB1) TO 
0855 36 O1 1267 137 A ONE » XR1 ADD 1 TO TABLE ADDR 
DATE O60C T69 310CT69 28NOV69 O2MAR70 11MAY70 O1NOV70 1SNOVT1 PROG ID OE02-% 
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5203 LINE PRIATER FUNCT ION TESTS 


OB JECT CCDE 


34 O12 
co 87 
01 
0000 
15AB 
36 O12 
34 01 
co 87 
Ct 
ccoo 
15 AE 
36 Ol 
34 02 
co 87 
01 
0000 
1s5co0 
36 O02 
34 02 
co 87 
o1 
ooco 
18C3 
36 02 
34 G2 
co 87 
01 
coco 
15€8 


12 
L4&AE 


Cécl T6 
816502 


063 
O21 


1267 
CB74 
O21E 


1267 
0885 
O21€ 


1267 
CB9E 
O21E 


1267 
CBA? 
O2EE 


1267 
CBBB 
O21E 


20 
O2iA 


O21A 


O21A 


O2Z1A 


oo 

O82D 
14 £6 
O2iA 


9 


14B2 


AOOR STMT SCURCE STAT EMENT 


Ode} 
0863 
OB65 


oe72 
OB 74 
OB76 


0B83 
CB85 
08 87 


0894 
C8 S96 
ca98 


OBAS 
OBA? 
OBAS 


OBBE 
0bB8 
OB8BA 


O8D i 
oBD2 
0804 


OBoCc 
oOBOC 
OBDF 


OBES 
OBE 5 
OBE? 


OBEC 
OBEC 
CBE F 


OBF4 
OBF 5 
OBFT 


Occs 
Oc OA 
OCcOocC 


310CT69 


816529 


138 
139 
140 
141 
142 
143 
144 
145 
148 
147 
148 
149 
s5C 
151 
152 
153 


154 
155_ 


156 


REX2 


REX1 


LAC2 


157. 


158 
155 


160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
172 
iv2 
i773 
174 
175 
176 
177 
178 
179 
180 
182 
i82 
183 


LACl 


RAC2 


RAC 


PR4L!I 


ALCQP 


28 NOCV69 
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ST REX2,2R1 

B UNPACK PUT RIGHT EXP.EB2 IN MSG. 
oC rL1°1° 

OC AL 2( 4-3) FROM 

DC AL2 (REX EB2) To 

A ONE 9 XR1 AOD i 

ST REX1 XR1 

B UNPAC K PUT RIGHT EXP.tBl IN MSG 
cc IL1*1°® 

oC AL2 (*-*) FROM 

DC AL 2(REXEB12 To 

A ONE,XR1 ADD 1 

ST LAC 2 _XR2 

B UNP ACK PUT LEFT ACT.EB2 IN MSG 
oc 111*1°* 

oc AL2(4*-*) FROM 

oc AL2 (LACEB2) TO 

A ONE, XR2 ADD 1 

ST. LAC] »XR2 

B UNPACK PUT LEFT ACT.LEBL IN MSG 
oc ILie¢ie 

oc AL2 (#-*) FROM 

oC AL 2(LACEB) To 

A CNE, XR2 AOD 1 

ST RAC2 4 XR2 

B UNP ACK PUT RIGHT ACT.EB2 IN MSG 
oc ILi‘ie¢ 

DC AL2(4-%) FROM 

oc AL2 (RACEB2 i To 

A ONE ¢ XR 2 40D 1 

ST RACIXR2Z 

B UNPAC K PUT RIGHT ACT.EBL IN KSG. 
oc IL21‘1§ 

DC AL2 (#-4) FROM 

DC ALZURACEBL) Ta 

A GNE, XR2 

TBN SPUTA-1,B" 100000° PRINTER KEYBOARD ASS IGNED 
JT PR4LI 

T6N SBYTFEOsSShO5S PRINT ON ALTERNATE OFWICE 
JF PR4LI 

8 PRINT PRINT CMD CODES AND ACT.&EXP.GATA 
oc XLit 81° 

oc IL1?®i23e 

oc AL2 (RACEBL) 

J ALCOP 

8 PRINT PRINT SENSE CODE NAMES 

OC XLE*® 81* 

DC rw1s2ee 

oc AL2 (RYTCOO) 

6 PRINT PRINT SENSE CODE BYTES 

oc XLI*si* 

oc 1t1*298 

oc AL 20B TE S) 

8 PRINT PRINT EXPECTED SENSE INFO 
DC xLl* e1* 

oc 1*28° 

oC AL2 (REX EBL} 

B PRINT PRINT ACTUAL SENSE INFO 
cc XLi*B2°* 

DC TLit2se 

OC AL 2(RACEBL) 

Ci OUsXRL DX * FFE ALL & CMDS PRINTED 

BNE SCARD 

MVC MAP C2), ,CHT IS PUT CHART NOG.IN MSG. 

8 PRINT PRINT PRINTER MAP CHART NO. 
oC xLiftels 

oc rur?18° 

oc AL 2UENT) 
02 MAR7T0 L1LMAYTO O1NOV 70 19SNOV71 PROG ID OE 02-4 
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I5S MAINTENANCE DIAGNOSTIC PROGRAN 


E024 
ERR LOC 


ocoD 
Oci1 
ocl2 
0CcC13 
ocis 
oc1g9 
0C1B 
OClLF 
oc22 
0C25 
oc29 
oc2D 
0c30 
0C34 
0C 36 
0Cc39 
oc30 
oc 40 


OCS | 


OC46 
0C49 
oc4D 
ocs50 
0C54 
0C56 
ocss 
- OC5D 
océl 
0C64 
OC68 
OC 6B 
OC6F 
oc73 
OC7é 
OCTA 
oc 7D 
ocsl 
ocss 
ocss 
ocec 
ocs0 
ecg93 
Oocgo7 
OC9B 
ocsD 
OCcAO 
OCAS 
OCA5 
0CA6 
OCA8 
OCAA 
OCAD 


ocel 
OCcB2 
OcB3 


ocB5 
oce9 
OCBF 
occ3 
0CC6 
OCCA 


DATE 
EC NO. 


52C3 LINE PRINTER FUNCTICN TESTS 


OBJECT CODE 


co 
85 
oo 


87 


15E9 


co 


87 


E000 


38 
F2 


F2 


02 
80 


10 
90 
43 
01 


FFFF 


3c 
oc 
Cl 
Fe 
38 
F2 


E2 
04 
EO 
87 
04 
9C 


O21A 


57 
0216 


OCEE 
1602 
OCC6 
14 
0208 
CA 


O60CT69 


816502 


1470 


ADDR STMT SOURCE STATEMENT 


ocll 
0ci2 
0C14 


OCLA 


oc35 


0C45 


oc55 


ocsc 


CCAS 
OCA5 
OCA 7 
OCAS 


ocB 1 
OCB2 
OCB4 


310CT69 
816529 


PART NO. 2589953. 
PAGE 2A 


206 B PRINT PRINT "REMOVE JUMPER ® 
207 oc xXL1°a5¢ 
208 oc IL1%138 
209 DC AL2 (OKSEN) 
210 ZALT «8B HALT SENSE ERR HALT 
211 IDALT OC XL2*E000* 
212 TBN SBYTE2»SSW13 SSW -13 ON (NO ALT.PRTR.) 7? 
213 JF LEAVIT 
214 CLE IDALT»xX*43° WAS THE ERR A °43" HALT ? 
215 JNE  TIVA 
- 216 TBN TAGS,TAG4 IS ONLY 1 SENSE IN ERR 
217 JF JUSUN ; 
218 B HALT MORE THAN 1 SENSE CODE 
219 OC XL 2°EC83° IN-ERROR HALT 
220 J TIVA 
221 JUSUN CLI EDOC,C*2* IS ERR CQDE E2 ? 
222 JNE  AVID 
223 B HALT SENSE CODE *E2* FAILED 
224 oc XL2"EC8A® 
225 J TIVA 
226 AVID CLI €EDOC,C*3° IS ERR CODE E3 ? 
227 JNE  SNOTIT 
228 B HALT SENSE CODE £3 FAILED 
229 DC XL2"EC8C® 
230 J TIVA 
231 SNCTIT MVI  KORP,X* 84° PUT IN EBl GNLY HALT 
232 CLI €DOC,C*O® 
233 JNE  MUBEUN IF NOT,MUST BE CODE El 
234 CLI EBZ2ERC,x* 00" ANY EB2 ERRS ? 
235 JE PORK IF NOT,EBL ERRS ONLY 
236 MVI = KORP,X*85° PUT IN E82 ONLY HALT 
237 CLI EB1ERC,xX*008 ANY EB1 ERRS ? 
238 JE PORK IF NOT, EB2 ERRS ONLY 
239 MMVI KORP,X*86* If SO,EB1 & EB2 ERRS 
240 J PORK 
241 MUSEUN MVI  KORP,X*87* PUT IN EBL ONLY HALT 
242 CLI EB2ERC,xX*0C* ANY EB2 ERRS 
243 JE PORK IF NOTsEB1L ERRS ONLY 
244 MVI KORP,X* 88? PUT IN EB2 GNLY HALT 
245 CLI EBIERC,X*0C* ANY EB1 ERRS 
246 JE PORK IF NOTsMUST BE EB2 ERRS ONLY 
247 MVI KORP,x*age IF SO,EBL & EB2 ERRS 
248 PORK 8B HALT EO OR E} FAILED HALTS 
249 KORP DC XL2"E0008 
250 J TIVA 
252 SYNARA B PRINT PRINT *SENSE CMDS OK», REMOVE JUMPER®- 
252 oc XL1*°41¢ ; 
253 DC IL1°27° 
254 pc AL2( OKSEN} 
255 Dc XL2"E0008 
256 TIVA HPL X*57%4x*7C8 HALT €32 REMOVE JUMPER 
257 LEAVIT B L INK 
258 
259 FREFSERKEKEKSERAA HK AHKKEKKHERHESSE MKS SKS KEKE SSESERERCHKKE KS OH KERSLHSES SKE EHSKESKSE 
260 * * 
261 * ROUTINE 2 - SENSE TIMING BITS (CODE E2) TEST * 
262 + * 
263 FHESRHHRKESKLSESKSSESKAHEKSHE SSE SKESESAKSEKHKKEKSESKVKES KKKKKK SLBA THEEKKEKKERKKAS ESSE 
2€4 RIN2 DC XLit2e ROUTINE NUMBER 
265 oc xL1*8ce FLAGS — MANUAL INTERVENTION 
266 DC XL2"FFFFS LAST ROUTINE 
LOT RHR REREKSERERSESLEKSEREKKASHEKS SHKKEKSKKLESESESREEKKEKEKKE KLEE SHE KKSE ARKH SKERKES 
268 MVI WICAR-1,X?7E2® 
269 MVC = LRCAR( 5) » TFEL PUT LEFT IN MSG. 
270 TIO = BAPRT»NRDY 
271 J PTITL 
272 BAPRT TBN SBYTEO,SSWO5S PRINT ON ALTERNATE DEVICE 
273 JF JALT 
2@NOVES O2MAR70 LLMAY70 ©1 NOV70 19NOV71 PROG ID OE02-4 
816542 816631 816671 816764 818677 PAGE 2A 
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©0068 806 


UEM MAINTENANCE DIAGNOSTIC PROGRAM 





£024 5203 LINE PRINTER FUNCTION TESTS 


OBJECT COCE 


PART ND. 
PAGE 


| €RR LOC ADOR STMT SGURCE STATEMENT 
| O€CO €O 87 0214 274 8 PRINT PRINT MAKE READY ETC. 
| COL 46 OCD1 275 oc ML 1*46* 
/  OCD2 1F 0CO82 276 £C 411°312° 
; CB3 149C ode 277 Oc ALZ€RE SALT) 
OCD5 £081 OCD6 276 — oc XL 2 “EOE 1* 
OLo7 FO HK 03 279 JALT HPL X*03*,x*7C* 
OCDA CO 87 021A. 280 PTITL B PRINT PRINT TITLE 
OCDE 42 OCDE 281 £c KL1*42* 
OCDF 16 ODF 282 OU iL1*22¢ 
|  OCE€O 1209 OCE1 283 BC = AL 2 T174.29 
OCE2 EOCO OCE3 284 oc XL2* £000* 
i OCE4 OC OF O88A 12F4 285 SNIRP MYC = LPDt14(15) ,POPSUD ‘SET LINE OF PRINT 
| QCEA CO 87 OEEB 286 8 X10 ISSUE PRINT AND SPACE 1 
( OCEE £201 OCEF 287 WICAR DC Xi2*E203° 
; CFO OC 03 1631 1265 288 MVC |= BTSOFF(4) ,£FFS SET SAVE AREA'S TO ZEROS & F*S 
OLF6 OC. 01 163F 1282 289 WC MSECS 12), UNSEC SET LOOP COUNT OF 7200. 
290 s#* THE FOLLOWING IS A 140 USEC. LOOP 
OCFC 30 £2 1637 291 SEGAN SNS STAT2,X*E2*. SENSE TIMINGS 
OD00 GC OO ODOD 1637 292 MVC = OREB1 41. C1 STAT 2 PUT E81 IN OR INSTR. 
|  ©DO6 OC OO OD11 1636 293 MVC) = OREB24101) »STAT2-1 PuT EB2 IN OR INSTR. 
_ ODOC 3A 00 1e2F 294 OREB1 SBN B8TSON, ++ OR €B1 INTO ON SAVE AREA 
| 0010 3A 00 1€2E 295 GREB2 SBN 8TSCN-1,*-#* OR EB2 INTO ON SAVE AREA 
' 9614 OC 01 1€33 127€ 296 MVC =—- CMPLINT( 2) , SFFE SET ALL BITS ON 
OD1A CF O1 1633 1637 297 SLC CMPLNT(23,STAT2 GET THE COMPLIMENT OF THE SENSE 
| 9020 OC 00 OD2D 1633 298 MVC =- ANEB141(1) eCMPLAT PUT E81 COMPLIMENT IN AND INSTR. 
0026 OC CO 0D31 1632 299 MVC «ANEB24101),CMPLNT-1 PUT E82 COMPLIMENT IN AND INSTR. 
O002C 35 GO 1631 300 ANEB1 SBF BSTSOFF,*-* AND €B1 INTO SAVE AREA 
0036 38 00 1630 (301 ANEB2 SBF BTSOFF-1,%-* AND EB2 INTO SAVE AREA 
: OD34 CF Ol 1€3F 1267 302 SLC SECS (2 2, ONE DECR. LOOP COUNT 
: O0D3A CO 01 OCFC 33 BNZ SEGAN 
} 304 SORSHHSSSSSALSRSKSSRRSRERSEA SLE SKRAKSARREAKHKRABWKEPSRRHEKK VE SKKSKE AVE EDEL SK VEKK KK 
| 305 * CHECK FOR ANY BITS NOT ON AND OFF * 
| ZOE SHSVSEBHSEEKREKAASASRKES HESS RGREAD ERE KHREKCRAERKKRSLAEARKEEKKAPRESHKKERESKSE KKLSEKEREKHE 
OD3E 3B 10 1628 307 SBF TAGS, TAG3 RESET ERR PRINTED FIAG 
0042 3C 78 ODED 308 MV) = TBON, X* 78° SET TO CHECK FOR BITS ON 
0D46 3C 78 GECS 309 MVI NOBET,X*78* ee ee ee ae ee as 
| OD4A C2 01 162D 310 La BISON-2 eMRIL ws ~~ LOAD SAVED BITS ADOR. 
OGLE 3C F2 1614 B11 TRAM OVI OFBYTE.CX2e" SET MSG.FOR E82 BYTE 
0052 3 04 M67 312 VI «= CGCGD41 »X "04! SET TO SKIP BIT 5 GF E82 
O0DS6 36 G1 1267 313 DOEBi A ONE » XR ADD i TO SAVE ADOR. 
| OSA 3C G1 ODOE 314 MVI0 TBON+i, X*Oi? SET INSTR.TO START AT BIT 7 
OOSE C2 02 1tiF 315 LA TABBI T-i »XR2 LOAD BIT NO.ADDR. 
ODb2 36 O02 1267 316 TENXT A ONE» xR2 ADD 1 TG BIT NO. ADDR. 
OD66 3D 04 ODGE 317 COCOD CLI TBON41,xX*04? SKIP BIT 5 OF EB2 
ODOA F2 81 06 318 JE NI TNOC 
ODED 76 OO 00 319 T8ON TEN 04.XR1),%-4 1S 81T ON OR OFF 
0070 F2 90 37 320 JF BIBAD 
0073 OE 00 ODSE ODEE 321 NITNOC ALC YBON+1(1),TBON+1 CGUBLE TO MOVE MASK BIT LEFT 1 POS. 
; 0079 CC 82 CDe2 322 BL TENXT BR TILL 8 BITS CHECKED 
CD7D 3D Fi 1614 323 Cll OFB8YTE,C*x¢ EB1 BYTE DGNE YET ? 
0081 F2 83 OC 324 JE CHOFF 
ODb4 3% Fl 1614 325 MVI  - OFBYTE, C*1° SET MSG.FOR EB1 BYTE 
0088 3 00 0D67 326 MvI = COC OD+1 . xX? GO" SET TO CHK.BIT 5 OF EBI 
ODBC CO 87 OD56 327 B DOES 1 BR TO START EB1 
GOSO 38 10 128 228 CHOFF TEN TAGS,TAG3 ANY ERRS BEEN PRINTED? 
009% F2 10 4A 329 JT STALT IF YES,6O HALT 
0097 3D 79 O06. 330 C11 TBON,X*798 CHECKED FOR BITS GFF YET 
OD98 F2 81 BO 331 JE SE1FOF 
OO9E 3C 79 OST 332 MVI 0 -TBON, X° 79 SET TO CHECK BITS OFF 
CCA2 3 79 CECB 333 MVI «=~ NOBET,X*79* SET TO CHECK BIT OFF 
ODAS CO 87 OD4E 334 8 TRAM 
? 335 SRAVODKSHLIS GHRVRSESSALGARAL LAA SLHRTEHKAK SHKVHKATCHEKLS SK SKLTTASERHK VY KKARE SKE KSKEK KE 
336 + PRINT SENSE TIMING 8127S FAIL ING * 
: B37 PHLISPSSEALR HSK RSS SHEL SELE SEACEHLKKAKLHKSCVEEHKKSE FEKSSSESKK KARE RLS K SAVRTKSKE 
ODAA 2C 00 16CD 00 338 BIBAD MVC = BADBIT(13.04,XR2) PUT BIT NOLIN MSG. 
OOAF 38 10 1628 339 BN TAGS, TAGS HAS AN ERR BEEN PRINTED YET? 
0083 f2 10 1F 340 JT SK IHED 
| GOB 3A 10 1€26 341 SBN = TAGS, TAG3 SET ERR PRINTED FLAG 
! DATE 060CT69 310CT69 26NOV69 O2MAR 70 1IMAY70 C1Nov7O 19NOV71 PROG ID £02 -4 
 €C MO. 81€5C2 616529 816542 816631 816671 816764 818677 PAGE 3 


2589953 
ee 


£024 


IBM HAINTENANCE DIAGNOSTIC PROGRAM 


ERR LOC 


ODBA 
oDLco 
0 DCS 
oocs 
0 OCF 
oDbo 
oobi 
0003 
oDDs 
ooD9 
ODDA 
oops 
oop 
O0E1 
ODE? 
ODES 
ODEC 
ODED 
ODEF 
ODF3 
ODF4 
ODF 8 
O OFA 
ODFE 
oEO1 
0 £05 
oE 06 
O£0B 
OEOE 
OE12 
0E14 
GE 17 
GE18 
OE&21 
OE 27 
OE2B 
OE2F 
OE 31 
0 £34 
OE38 
OES3E 
E44 
OE4B 
OE4C 
GE 4E 
0 £52 
OE55 
OE59 
OESC 
GE60 
OEE 
OEGA 


OE 6E 
O EGF 
cE73 
OE7T 
oO£eTB 
OE TF 
0€83 
OE 87 
O£8S 
GE91 
OE97 
0 £90 
GEAS 


DATE 
EC nO. 


5203 LINE PRINTER 


OBJECT CODE 


oc 00 
oc 00 
2c 00 
co 87 
c1 

iF 
1€08 
£045. 
co 87 
BS 

i7 
1€1F 
co 87 
o 01 
co 87 
81 

12 
14AE 
co 87 
96 

co 87 
£045 
38 10 
F2 90 
30 F2 
F2 01 
78 OO 
F2 10 
CO 87 
EG2A 
F2 87 
3c iF 
OE O00 
07 60 
CO 02 
co 87 
EOGO0 
F2 87 
3C 8F 
cE 00 
O7 06 
CO 02 
co 87 
EGO0O0 
38 01 
F2 90 
30 EA 
F2 82 
3C EA 
OC 04 
co 87 
CO 87 


RARSAPESSES AS 
So 
eo 


163C 
O£09 
1630 
O21A 


O21A 


-OD73 


14A6 
O21A 


O21A 
0222 
020A 


163C 
OF 
oo 
26 
0222 


37 

OE30 
OE30 
163D 
0E16 
0222 


iA 

OE4D 
OE4D 
1630. 
0E38 
0222 


OA OC 
15 
OCEE 


OCcEE 
16C2 
OcE4 
0216 


1614 
OD6E 
60 


14B2 


i267 
12864 


i267 
1284 


1478 


9000 
09000 
0000 
6000 
1283 


FUNCTION TESTS 


ADDR 


GOCF 
oopo 
000 2 
ODD4 


00D 9 
ODDA 


GDDC 


ODES 
OdEC 
ODEE 


COF 3 
ODF 9 


OE13 


GE3C 


OE&4D 


3100 T6S 


816529 


CCC CCC ECC CC COOLS ELC OOOO COCO® 


STMT SOURCE ST AT EMENT 


342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 


MVC 
MYC 
avVC 
8 
Oc 
oc 
oc 
oc 
SKIHED 8B 
oc 


STALT 


JNE 
TBN 
JT 


NOBET 


oc 


SEBUN 
DORP 


MV I 
ALC 
$z 

SNL 


BUNALT DC 


SEB TU 
PROD 


MVI 
Aic 
SZ 
BAL 
8 
BOTALT DC 
SEIFDF TBN 
JF 
cul 
JE 
evi 
MYC 
8 
CLINK 8 


ERT 1-241) CFBYTE 


NOBET¢1 (1 3. TBONG]1 
ERT1023,0f R22) 
PRINT 
MLi*C1¢ 
112°32° 

AL2 (SENCO) 
XL 2*E045* 
PRINT 
xLi*s1°¢ 
1.1*23° 

AL2 (FAILED) 
NI NOC 

MAP (2 3, CHT 13 
PRINT. 
xL1*81° 
111°18¢ 
AL2CE NT) 
PRINT 

xXL1* 96° 

WALT 
X12 * £045* 
SBYTE2e¢SSW13 
SEIFOF 
ERT1-1 ,C*2* 
SEBIN 
0(,XR1 3, #-3 
SEBTU 

HALT 

XL2* E02 A* 
SEIFOF 
BUNALT, K*1F* 
BUNALT (1). CNE 


ER T1013 sDECONE( 1). 


DORP 

HALT 

XL2°EOOO? 
SEIFOF 
BOTALT,X* BF * 
BOT ALT (1), ONE 
ERT1¢(1) sOECONE (1) 
PROD 

HALT 

ML 2°EGOO? 
SPUDTsX*O1° 
CLINK 
WICAR— i yX*EA* 
CLINK 
WECAR-1_X*EA® 
LRCAR (5S), THGER 
SNTRP 

INK 


" INCREMENT WALT CGDE 





sets 
a 
Ne ee tea 


PAGE . 


SAVE BYTE 

SAVE 81T 

SAVE BIT IN PRINTABLE OFC. 
PRINT SENSE CODE 


PRINT BIT AND BYTE FAILED 


PUT IN @AP NO. 
PRINT MAP NO. 


SPACE 6 

SENSE TIMING BIT FAILED HALT 
SSW - 13 GNINO ALT.PRTR.D ? 
1ST ERR IN EB2 

SAME BIT IN £81 ON OR OFF 2? 
SAME BIT FAILED IN EBi & EB2 
START HALT CODES OR £81 
INCREMENT HALT CODE 
DECREMENT BIT NO. 


GIVE £81 BIT HALT 
20 THRU 27 POSSIBLE 


START HALT CODES FOR.£82 
DECREMENT 81T NO. 

GIVE EB2 BIT HALT 

90 THRU STCEXCEPT 95) POSSIBLE 
DUAL FEED CARR. 


DUAL FEED BEEN TESTED 





SET CMD.FOR DUAL FEED 
SET PRINT OUT FER RIGHT CARR. 


MG HK SH RA HARASS LEE IAAESLSESRSEEES AAS CEPAHPHEK ST KE RKS FHSS HKSELEAE DS r 
* CONVERT 1 HEX BYTE TO ZONED DECIMAL SUBROUTINE * 


SHLREKRAARSRASHERADELHHESHRSLEBRELVSKHELSERASSESLSKSSE SS FES SESKERSERE HFRS FSEKLS SS 


395 

396 

397 HXBYT DC 
398 CVD oA 

399 ST 
400 A 
401 ST 
402 ST 
403 A 

404 ST 
405 FROM MVC 
406 TYSOT MVC 
407 CTCRZ MVC 
408 FROBYT MVC 
409 ZROTO 2AZ 
28N0V69  O2NARTO 
816542 816631 


XL1¢GO* 
ONE, ARR ADD 1 TO GET 1ST PARAMETER 
FRON45» ARR INSERT THE FROM ADDR. 
TWO ARR ADD 2 GET 2ND PARAMETER 
TYBO T+5 eARR INSERT THE TO ADDR. 
OTORZ45 » ARR INSERT THE TO AODR. 
ONE ,ARR ADD 1 MGRE FER RETURN ADDR. 
T INE#3y ARR SET RETURN ADDR. 
FROBYT+5 (2 ) 5#-* 
TOBYT¢31 2394-3 
ZROTO43 (2, 4-* 
HXBYTUL) g#—* PUT BYTE IN WORK AREA 
#~*( 3}, DECZROC 1} ZERO THE TO AREA 
LLMAYTO Ol NOVTO 19N0V71 PROG 1D GE02-4 
816764 PAGE 3a 


816671 


818677 


oer 






i £024 
j 
{ 


E184 MAINTENANCE DIAGNOSTIC PROGRAM 


5203 LINE PRINTER FUNCTION TESTS 


| €RR LOC CaJECT CODE 


i 


Set eee mene namin A nee AS LOIN oe A A Se nt atts en Yee 


EEE ten cena a 


o 


ie 


ew 


vA 


Bho 


OEA9D 
OEAF 
GEB2 
GEe8 
OE BC 


OECO 
OECS 
OECA 
0 EDO 
O£O3 
OED? 
OECA 
OEDE 
QOEEO 
OEES 


OEFEB 
OEEE 
GEF? 
OEFo 
OEFA 
OEFE 


OFO2 3 


OF C6 
OFOC 
OF 12 
OFLE 
OF19 
OF 10 
OF20 
OF 23 
OF 27 
OFZA 
OF 2E 
OF32 
OF38 
OF 3€ 
O0F44 
OF 48 
OF 4C 
OFSO 
OF 54 
OFST 
OF 58 
OFSF 
OF 63 
OF é5 
OFO9 
OF 60 
OFT 
OF 75 
OF T9 
OFTD 
OF 81 


ATE 





CF 
F2 
06 
co 
Cu 


34 
Oc 
OF 
F2 
cl 
F2 
co 


oo 
82 
2c 
87 
87 


08 
02 
02 


£6 
87 


EOL 


co 
cc 


87 
87 


OE GE 
OA 

cccc 
OEAS 
0000 


OEET. 


1620 
1€20 
o7 

CECA 


0222 


OECS 
occo 


OF8O 
1267 
CF CB 
1267 
10D4 
1006 
1008 
OF BA 
L6O3F 
CF8S 
kg 

O2048 
c3 

i8 

C2CA 
26 

163F 
L6é3E 
0800 
0800 
1Lé3F 
OF 32 
CFB9 
10C 5 
OFST 
le 

10C8 
LLAS 
O222 


OF 50 
OECO 
1008 
LIAS 
127A 
127C 
6000 
O2cs 


O¢OCT69 


61¢5C2 


PART NO. 


2589953 
PAGE 4 


AODR STMT SGURCE STATEMENT 
1267 410 DECGAN StC HXBYT(1),ONE DECREMENT THE HEX BYTE 
411 JL TIXE EXIT IF BELOW 1 
1284 412 TOBYT AZ *-#* (3), DECONE(1) INCREMENT THE OEC. COUNT 
413 8 DECGAN 
414 TIXE 8 +-4 RE TURN 
415 FERS SEES EE EAEE EEE SRE SHRAEERE SE SEEEE SEES SE SS EEE AEESLSRRSRHAS ARES RATS & 
416 4 CHECK FOR BUSY AND DELAY SUBROUTINE * 
G17 FOR EREEEEEEE EEE SS SEE AEE EERE EREESELESERESEESS SES ETHREREREEARESEREREEER EES 
418 BROUT ST BSEXIT+3,ARR LOAD RETURN ADDR. 
1273 419 SOC MVC BUSUB(3),BLS TI TRY FOR 725 SEC TO CLEAR ANY BUSY 
1267 420 FLCOP SLC BUSUB (3 ),GNE 
421 JZ TOLONG 
422 Tic FLOOP, BUSY 
423 J BSEXIT 
424 TOLONG 6 HAL T *ERROR — PRINTER BUSY 
OEOF 425 cc XL2*E011° BUSY ID. 
426 B soc TRY AGAIN 
427 BSEXIT B +-* RE TURN 
428 +09+9%% RRR ERE 
429 © XID FEO SRR LERE SEE EEREEE ESSER SEALELESER ES HERKS SEERA SEARKERESE HE XIO F 
430 ete80% SREKEEE 
431 * * 
432 * THIS ROUTINE ISSUES AND CHECKS AN EXECUTE 1/0 COMMAND AS * 
433 * SELECTED BY THE MAINLINE PROGRAM. LINKAGE TO THIS SUBROUTINE * 
434 * IS AS FOLLOWS- * 
435 * * 
436 *# B x10 * 
437 % OC 2eX*Q CODE &€ CCNTROL CODE OF COMMAND® * 
438 * ‘- 
439 POSTER HEHERS ESET SES EES EREELESEKKSESS ESS SE KESSEL SE SKERKE KA ER REGRESS AEREKEE RE 
1286 440 X10 MVC FRMLE+3€2) ,AOFOLG PUT IN L12 FORM LENGTH ADDR. 
441 A ONE, ARR 
442 ST LOCHD+tS »ARR LOAD PARAMETER POINTER 
443 A ONE,ARR 
444 ST EX 1T+3, ARR SET UP EXIT 
445 ST SA VRUN -XR1 SAVE REG. } 
446 ST SAVTUU,XR2 SAVE REG.2 
ooo0 447 LOC MD MVC CKNO+2 (2) ,*-* SET UP COMMAND FROM PARAMETER 
OFBA 448 MVC MSEC S(2) »CHND+2 IF ENTRY IS -OXXX-, GO DELAY 
449 TBF CMNO+1, X*FQP 
450 JT ut 
451 TBN SBYTE2,SSWil BRANCH IF SSwWil OFF 
452 JF CSSHOA 
453 HPL X*IBe,xX*7C# HALT GN E4 
454 CSSWOA TBN SBYTE2, SSW12 DELAY SE TWEEN CMDS. 
455 JF TIGCHK 
456 SNS MSEC S, X#68 READ DATA SWITCHES FOR DELAY 
“57 SBF MSECS-1,x"FO?* TURN OFF HIGH ORDER 4 BITS OF DELAY 
0800 458 wT Cte LPI(256) LPI 1 MILLISECOND DELAY 
0800 459 CLC LPIC6O),LPI 
1267 460 SLC FPSECS -GNE(2) 0O FOR DESIRED NUM OF MILLISECS 
G61 BH wT 
%62 TOF CMNO41,X*FO? DO NOT EXECUTE COMMAND IF DELAY 
463 BT XIOEXT 
“64 TIOCHK TIO ERNROY,NRDY BRANCH IF NOT READY 
“65 J TIOOK 
“66 ERNRCY B STERR BR TO CHECK STATUS 
467 B PSTERR GO PRINT STATUS OR IST LINES 
468 8 HALT *PRINTER NOT READY 
OF64 469 oc XL2*EO10* NOT READY ID. 
470 8 TIOCHK 
471 TIGOK 8 BROUT 
472 8 STERR BR TO CHECK STATUS 
473 8 PSTERR GO PRINT STATUS OR 1ST LINES 
474 t1a LP ITADR  LPIAR LOAD LSR ADDRESS REGISTER 
475 tic LPDADR,LPDAR 
4T6 FRMLE L106 #-%,LOFOLG LOAD FORMS LENGTH 
477 TBN SBYTE1L.SSWOS8 PRINT ON RIGHT CARR. 
310CT6S 28N0 V69 O2MAR 70 LIMAY70 OINOV70 1ONOVT1 PROG ID OEQ2-4 
816529 816542 816631 816671 816764 818677 PAGE 4 
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E024 5203 LINE PRINTER FUNCTION TESTS 
ERR LOC OBJFCT CODE ADDR STMT SOURCE 
OF85 F2 90 04 478 
OF 88 3A O8 CF89 479 
OF8C OC O1 163D OFBA 480 NOTRIT 
OF92 38 08 OFBS 481 
CF96 F2 90 11 482 
OF99 3C EC 1032 4&3 
OF9D 3C E8 1291 484 
OFA1 OC O1 OFD3 128E 485 
OFAT F2 87 OE 486 
OFAA 3C E4 1032 487 SKRICA 
OFAE 3C EC 1291 488 
OFB2 GC O1 OFD3 1290 489 
OFB8 F3 00 OO 490 CMND 
OFBB OC O1 14AE 1486 491 
OFCI OD O1 OFBA 1292 492 
OFCT F2 81 35 493 
OFCA 30 EO 1635 494 
OFCE OD OO OFBA 0000 495 LICOSA 
OFD4 F2 81 28 496 
OFO? Cl E6 OFFF 497 
OFDB 3A O1 1628 498 
OFDF OC OO 11F7 OFFE 499 
OFES CO 87 11A5 500 
OFES CO 87 O21A 501 
OFED 81 OFED 502 
OFEE 10 CFEE 503 
OFEF 1440 OFFO 504 
OFF1 CO 87 O21A 505 
OFFS 85 OFF5 506 
OFF6 OA OFF& 507 
OFFT 1446 OFF 8 508 
OFFO9 CO 87 0222 509 
OFFD EQ16 OFFE 510 NOBALT 
OFFF 3D 02 OAO03 511 ISBUSY 
1003 CO 61 10C5 512 
1007 OC O2 1620 1270 513 
1000 OC O1 1055 1288 514 
1013 3C 12 1C8l 515 
1017 OC O7 144D 1473 516 
1010 Ci E2 106C 5i7? 8UBY 
102i G O23 1055 128A 518 
1027 3C 13 1081 519 
1028 OC O7 144D 1463 520 
1031 C1 00 104C 521 CABY 
1035 OC O01 1055 128C 522 
1038 3C 14 1081 523 
103F OC O7 144D 1468 524 
1045 Cl £6 104C 525 PIBY 
1049 F2 87 36 526 
104C OF O2 1620 1267 527 BSYLP 
1052 CQ Ol CCcoo 528 CELAY 
1056 CC 87 10DB 529 
105A CO 87 108A 530 
105E 3A 01 1628 531 
1062 OC OO 11F7 1081 532 
1068 CO 87 11A9 533 
106C CO 87 O21A 534 
1070 81 1070 535 
1071 18 1071 536 
1072 1458 1073 537 
1074 CO 87 O21A 538 
1C78 85 1078 5395 
1079 OA 1079 §=540 
LO7A 14A6 1078 542 
107C CO 87 0222 542 
108C E000 1081 543 BUALT 
1082 Cl EO 10B0 544 CHRDY 
1086 CO 87 1008 545 
DATE 0600 T69 310CT69 28NOVE9 
EC NO. 816502 816529 816542 


ST AT EMENT 

JF NOTRIT JUMP IF NOT 

SBN CMND+1, B*1000* SET MOD.BIT 

MVC ERT1L(2) sCMNDt2 

TBN CMND+1,B"*1000! THES CMD.FGR RIGHT CARR. 

JF SKRICA SKIP TO SET LEFT CARR. 

MVI CAB Y+ 1,RICABY SET TO CHECK RIGHT CARR.BUSY 
MV I SPACEC-1, X*E8?* SET RIGHT CARR. SPACE 0 

MVC LICDSA+#5(2),STOAD PUT RIGHT CARR.CTR.IN COMPARE 
J CMND 

MVI CARY +1, CABUSY SET TO CHECK LEFT CARR.BUSY 
MvI SPACE C-1 ¢X* EO* SET LEFT CARR.SPACE 0 

MVC L ICDSA4+5(€2), STOM1L PUT LEFT CARR.CTR.IN COMPARE 
S10 X*0*%,xX*O?# COMMAND LOADED OURING EXECUTION 
MVC MAP(2),CHT17 PUT CHART NO. IN MSG. 

CLC CMND#2(2),SPACEO OO NOT CHECK FOR BUSY IF THIS WAS 
JE ISBUSY SPACE WITH ZERO CONTROL CODE 
SNS STATO, X*EO*® GRAB THE LINE CTRS. 
cLC CMND42 (1 ),4-* LINE CTR.SAME AS CMD.C.C. 

JE I SBUSY 

TIO ISBUSY,BUSY PRINTER SHOULD BE BUSY 

SBN TAGS sTAG7 SET 1ST LINE PRINT ONLY 

MVC HLT 10019, NOBALT PUT HALT ID IN MSG 

B ASTERR GO PRINT STATUS 

B PRINT PRINT NOT BUSY MSG 

oc XL1*Sl* . 

oC ILi*29* 

OC AL 2(NOBUSY) 

B PRINT PRINT PRINTER MAP CHART NO. 
DC XL1*85* 

pc IL1°10° 

DC AL2 (MAP) 

B HALT *IF NOT, HALT ON ERROR 

DC XL2* E0165 NOT BUSY HALT 

cLI RNUM,X* 02° IN ROUTINE 2 

BE XIOEXT 

MVC BUSUB (3) .BUSCT 

MVC DE LAY+ 302) yADBUBY PUT IN LOOP ADDR. 

MMVI BUALT,X*12¢ SET BUFFER BUSY ID 

MVC BUMSG(8) ,BUFF HOVE BUFFER MSG 

TIO BSYLP »PBBUSY PRINT BUFF BUSY 

MVC DELAY #3 (2), ADCABY PUT IN LOOP AODR. 

MVI BUALT,X*13° SET CARR.HALT ID 

MVC BUHSG(8),CARR MOVE CARR.MSG 

Tra BSYLP,*—* CARRIAGE BUSY 

MVC DELAY+3( 2) ,ADPIBY PUT IN LOOP ADOR. 

MV I BUALT»X*148 SET PRINTER BUSY HALT IO 

MVC BUMSG(8) PRIN MOVE PRINTER BUSY MSG 

TIO BSYLP sBUSY PRINTER BUSY 

J CHRBY 

SLC BUSUB(3} 2GNE TRY FOR ABOUT 3 SECONDS TO 
BENZ +-* CLEAR BUSY 

B STERR CHECK FOR STATUS ERROR 

B SOCHF 

SBN TAGS, TAG? SET PRINT 1ST LINES ONLY FLAGS 
MVC HLTIDE€1) sBUALT PUT HALT IC IN MSG 

B PSTERR GO PRINT STATUS OR 1ST LINES 
B PRINT PRINT BUSY MSG 

DC xL1°81" 

DC IL1¢27° 

OC AL2 (BUTOLO) 

8 PRINT PRINT PRINTER MAP CHART NO. 
DC XL1i* 85° 

DC IL1*10* 

DC AL2 (MAP ) 

8 HALT BUSY HALT 

oC XL2*E000* 

T10 NRO YER s NRDY ae 

B STERR BR TO CHECK ERR STATUS 
O02 MAR70 11 MAY7O O1LNOV70 LONOV71 PROG ID OE 02-4 
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S2C3 CINE PRINTER FUNCTION TESTS EC24 5203 LINE PRINTER FUNCTION TESTS 
£RR LCC CBJECT COCE ADDR STMT SQURCE STATEMENT ERR LOC CBJECT CODE ADDR STMT SOURCE STATEMENT 
108A CC 87 LIAS £46 SOEHF 8 PSTERR GG PRINT STATUS OR IST LINES 1166 OF OO 1638 1276 624 ADIO7T ALC STAIX (1 2, UNKGSVN ADD 107 
LO8E 3D OD 0A03 547 cul RNUM » X*CDt IN UNPRTABLE CHAR TEST 116C F2 87 06 615 J OLVID 
1092 F2 81 3¢ 548 JE XIGEXT YES , GET out LL6F OF OO 1638 1260 616 GODEC SLC STAIX€1) sTWHYWUN DECREMENT 21 PRINT POSITIONS 
1095 38 02 1639 549 TBN STAT6 4B* 10% UNPRT ABLE BIT ON 1175 3C OO 163A 617 DIVID MMVI STAIX -1 2X *00 
L099 F2 90 29 550 JF XIOEXT 1179 OF OO 163B 1268 618 SUBGAN SLC STAIX(1) »F CUR DIVIDE 
EGS CO 87 C214 551i B PRINT PRINT UNPRTABLE CHAR SKIPPED LLTF F2 82 CGA 619 JL AW DUN BY 
1OAO Cl YAO 552 DC XL 1°C 1° 1182 OF CO 1Lé3A 1267 620 ALC STAEX-1(1),GNE FOUR 
RCAL CC 10Ai 553 oc Iub*i2¢ 1188 CO 87 1179 621 B SUBGAN 
IGA2Z 12E5 10A3 554 DC AL2 (DEPP) 118C CC 87 OEG6F 622 AWOUN 6B cvb MAKE HAMBER NO.PRINABLE 
1G44 LOOC 10A5 555 oc XL 2*E COC & UNPRTABLE CHAR HALT 1190 163A 1191 623 oc AL2USTAIX-1) FROM 
iCAE OC 01 14AE 14B4 556 MVC MAP (23 -CHT 16 PUT CHART NO.IN MSG. 1192 141E 1193 624 DC AL 2UHANO) TO 
LO4C CO 87 O2IA 557 B PRINT PRINT PRINTER MAP CHART NO. 1194 F2 87 06 625 J RESTG 
f OBO 85 10BG 558 oc XL1*85* 1197 OF O1 11A4 1268 626 FOADD ALC STE X¥ 1+ 3(2) »FOUR ADD TG RETURN ADDR. 
i 1061 OA 1081 55S oc 11L1°10* 119D 35 01 1CDA 62T RESTO L STS A1,XR1 RESTORE REG. 1 
x 1062 144 1083 560 oc AL 2UKAP } L1Al CO 87 CCOO 628 STEXIT B % Ex IT 
f 1064 CO 87 C222 561 8 HALT sUNPRINTABLE CHAR SKIFiEO SET ON O29 SFRSFRSERAARAK REM HAAS KKH PARA KKAR EAH KAK HERE RRK REE KKK EK KK AKA HRS HESS HK KK 
E 1088 EOOC 1CBS 562 oc XL2"*ECOC* UNPRT ABLE CHAR HALT 630 * PRINT STATUS ERR AND EXECUTE HALT SUBROUTINE * 
; YOwA F2° B87 OB’. ° 563 J XIOEXT G3] PERERA ERSEAE AKAM AK ASLSKARH AA HSE RKHAKLKKKST HERES VK SERARAKESHARARKAASAK HERTHA AAS 
1060 CO 87 10D8 564 NREDYER B STERR BR TO CHECK ERR STATUS 1L1A5 30 E3 1639 632 ASTERR SNS STAT6,X®%E3* GET STATUS 
' $OCi CO 87 1149 565 B PSTERR GO PRINT STATUS GR iST LINES LIAS 34 08 1261 633 PSTERR ST PREXiIT+3,ARR SET RETURN ADOR. 
i 1CC5S 35 OL 1CD6 566 XIOEXT L SAVWUN, XR1 RESTORE REG.1 LIAD OC 04 1315 147D 634 MVC NACMD(5),TFEL PUT LEFT IN MSG. 
| OCS 35 O2 1008 567 L SAVTUU sXR2 RESTORE REG.2 11B3 38 08 163C 635 TBN ERT1~-1,8'1000* WAS CMD.TO RIGHT CARR. 
| ioct co 87 0212 568 B TEST GO READ DATA SWITCHES 1187 F2 90 06 636 JF SKRIG 
I 1cbD1 CC 8&7 OtcC 569 EXIT 8 *¥-% EXIT SUBROUTINE LIBA OC 04 1315 1478 637 MVC NACMO(5 3, THGIR PUT RIGHT IN MSG. 
I 1005 0000 100€ 570 SAVWUN DC IL2*o* 11C0O CO 87 OEF6F 638 SKRIG B CVO CONVERT CONTROL CODE TO DEC. 
| 1007 0000 1008 571 SaAvTuU OC IL2'08# 114 1630 . 11c5 639 oc ALZ(ERTI) . 
572 tee reagan we oe ak ke 11iC6 1302 1iC7 640 CC AL2 (DSKPCP ) - 
} 973 * STERR F9SHOSEEERE SEES S AEREGE ERS SE REIS SIE AAESE SEAL ARARKESS STERR € 11C8 OC OO 12F4 1302 641 MVC POP SUD( 1) sOSKPOP PUT CC INTO SPACE MSG.ALSG 
i 574 sean ee eae HH RRR HH LICE OC 10 1327 12F7 642 RVC LACMND(17), DUSPOP PUT PRINTESPACE IN MSG. 
575 * & 11D4 38 02 16€3C 643 TBN ERT1-1,B"208 THIS A PRINT 
i 576 9 CHKECK FOR STATUS ERROR % 1108 F2 10 06 644 JT SEIFSK 
577 * * 11DB OC O05 131C i32D 645 MVC LACHNC-11 (6),KNALB BLANK OUT PRINT 
7 STG FFP See SS See eee SSS KEEE ESTAR EO TRESREREEGERESE ERASERS HAESAKSSRAARERERERES L1El 38 04% 1632¢ 646 SEIFSK TBN ERTI-1,B"° 1008 THIS A SKIP 
‘ 30b9 O0GC 1ODA 579 STSAL DEC AL 2*or LIES F2 90 06 647 JF GOKMOST 
‘ 1O0DB 344 C8 LIAS 580 STERR ST STEXLE +3 ,ARR LOAD RETURN ADORESS LIEB @ OA 1327 13062 648 MVC LACHND@CLLE zOSKPOP PUT SKIP IN MSG< 
lOUF 36 £3 1639 581 SNS STATE, X"E3? SENSE THE STATUS BYTES LIEE CO 87 G2lA 649 GOMOST B PRINT PRINT LAST CMO. ISSUED 
1063 38 02 1o28 582 SBF TAGS, TAGS SET ERR INDICATOR OFF LLF2 Cl LLF2 650. BC XL1i*ci 
LO? 34 Ci ICDA 5e@3 ST STSA1 .XR1 SAVE REG. 1 L1F3 25 LIFS 651 DC ILi*37e 
LOEB C2 O1 1350 584 LA STATAB-19,9R21 LOAD TABLE ADDR. LIF4 1327 LLFS 652 DC AL 2¢L ACMND} 
i LOEF D2 O1 213 585 NOERR LA LDUSXRL VAR AOD 19 ilf6é FCOO LIFT 653 HLTIB OC Xt2* £000 * 
1OF2 70 FF OO 586 Cli Of »XR1} eX*FFe ALL MASKS CHECKED 11F8 CO 87 O21E 654 B UNPACK MAKE STATUS PRINABLE 
10%#5 F2 B81 9F 587 JE FOADD 1LFC 02 LLFC 655 DC ILL*®2* 
i 10F@ lc OC 113 CO 588 EYC STECKL 41.0 C1 eXRi dD PUT ERR MASK IN EB2 BYTE 11FD 1€39 LIFE 656 oC AL2 (ST AT6) FROM 
10t0O 1C O06 1107 OG} 5a9 MYC STECK 242,510 1,xR 1) PUT ERR MASK IN E82 BYTE LIFF 133E£ 1200 657 DC AL2CYBATS) TO 
1102 39 00 1638 590 STECKL TBF STAT6O-1,4-# CHECK EB2 SYTE 1201 CO 87 O21A 658 8 PRINT PRINT STATUS BYTES 
ii06 39 GO 1639 591 STECK2 TBF STA TG ,#~-* CHECK EBl BYTE 1205 81 1205 659 DC XL1® 81° 
LIGA CO 1G 1CEF 592 BT NOERR 1206 11 1206 660 pc IL2*17* 
L30F 10 CO 11F7 O02 5S3 “VC HLTIDCLH 520,XR1} PUT HALT CODE IN MSG. 1207 133€ 1208 661 OC AL2 (Y BATS} 
: Lit3 1C OF 1362 12 594 MVC IBEPE16),280¢xXR2) PUT NAME IN RSG. 1209 38 01 1628 662 TBN TAG Se TAGT 1ST LINE ONLY PRINTED 
i418 38 O02 1628 $95 SBN TAGS, TAGS SET ERR INOICATOR ON 1200 F2 10 4A 663 JT TESER 
1110 30 £6 163B 596 SNS STAI X»K*® EGé GRAB LPDAR 1210 CO 87 O21A 664 B PRINT PRINT PRIORITY ERR STAT. 
i 1i20 O00 O)1 bo3e 127C 597 CLC STAEX€ 2} ,LPBADR DeAeR. ADDR. TOO LOW 1214 81 1214 665 oC XLi*8it 
1826 F2 62 C9 598 Jt DABOT 1215 24 1215 666 oc ILL "368 
i 1129 00 O01 1628 1280 599 CLC STALE X€2) -QDADEND DeAw.R. AODR. TOO HIGH 1216 1362 1217 667 2 DC AL2C1 BEP) 
Llcf F2 0% O9 600 JNH SASTR 1218 39 CO 1639 668 "TBE STAT6,8*110000008 CHAIN SYNC & INCR SYNC OFF 
2432 CC C4 141E 1423 601 DABCT MVC HANC(S}, EAVC PUT INVALIOC IN MSG. l2ic F2 90 1C 669 JF DOHALT . 
1138 F2 87 62 602 J RE STO L21F 39 10 1632 670 TBF STAT6-14B"10000* ENCR.FALLURE CHK. OFF 
1136 CF CO 163B 1278 603 SABTR SLC  STAIX(1),ONTUTR SUBTR.TO GET PRINT POS. 1223 F2 90 15 671 JF DOHALT 
2141 30 18 16€3B oC4 cul STAEX,xX*i Be PRT.-POS. 24 OR LESS 1226 38 04 1638 672 TBN STAT6~1,.B° 100° HAMMER ECHO CHK. 
1i4a5 F2 84 27 605 JH GODEC 122A F2 90 OF 673 JF DO HAL T 
1446 3D 10 1638 606 Cul STAIX sX 108 PRT .POS. 16 122D CO &7 O2Z1A 674 B PRINT PRINT HAMMER NG. 
114C F2 Be 17 60T JH AD107 GO ACD 107 IF HIGHER 1231 81 1231 675 DC *L1*81* 
Ll*f 30 00 16386 608 CLI STAIX,xX*OD* PRT.POS. 13 1232 10 1232 676 oc ILL *16° 
$153 Fe O2 C7? 605 JNL ADLIS GO ADO 119 IF EQUAL OR HIGH 1233 141€E 1234 677 DC AL2¢(HANO) 
$156 30 04% 1638 610 cul STAI X,X#048 PRT.POS. 4 1235 OC O1 1418 1320 678 MVC HAMNO (2), KNALB BLANK OUT "I", "‘N* JUST IN CASE 
Epo F2 84 CS oll JH AD107 GO ADD 107 IF HIGHER 1238 OC O1 14A6 1480 679 DOHALT MVC MAP (2) ,CHT11 PUT CHART NG. IN MSG. 
iSO CE CO 1¢3B 1277 612 ADII9 ALC STAIXGL) sSUNETIN Ao0 119 1241 CO 87 O2Z1A 680 B PRINT PRINT PRINTER MAP CHART NO. 
1163 F2 87 OF 613 J DIVIO 1245 81 1245 681 DC XLifsie 
OATE C&0C T69 310C TES 2BNOVE9 02 MARTO 11MAY70 OL NOV 70 19NOV71 PROG Id OE 02-4 DATE O60CTE9 310CT69 28NO VES O2MAR70 11MAYTO 01 NOV7TO L9NOV71 PROG ID O0E02-4 
816529 816542 816631 816671 816764 818677 PAGE 5 EC NO. 816502 816529 816542 816631 816671 816764 818677 PAGE SA 
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PART NO. 2589953 18% MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589953 
PAGE 6 PAGE 6A 
E624 §Z03 LAINE PRINTER FUNCTION TESTS E024 5203 LINE PRINTER FUNCTION TESTS 
ERR LOC CBJECT COCE AODGR STMT SOURCE STAT ERENT ERR toc OBJECT CODE ADDR STHT SOURCE ST AT EMENT 
1246 GCA 124é 682 DC 7iL1220° 12F3 4040 12F4 746 POPSUD DC cite ? 
12467 14A6 1248 683 oc AL2CQMAP 5 12F5 404040 127 74? ousecPe OC cL3? 8 
1249 CQ 87? C21A 684 8 PRIAT SPACE 5 L2F8 E202CSD74CE 3D6 l2FE 748 oc CL7*SKIP Tc 
124D 15 1240 685 cc xXL1*35¢ L2FF 40404046 1302 749 CSKPOP DC CL4?* 8 
1246 CC O1 1259 LIFT o86 RVC PUIDING2), RL TIO PUT ID INTO HALT 1303 G3C1EZE340C306D4 1310 750 BC CLI4*LAST COMMAND-— ° 
1254 CC 87 0222 687 B HALT STATUS ERRGR HALTS 1308 04C105C 46060 750 
1268 EOOO 1259 &88 PUIDIN BOC XL 2*E000* 1311 D3CSCSES40 1315 752 NACHD OC CLO"LEFT *® 
1254 38 O1 1€28 689 TESER SBF TAGS sT AGT RESET ISY LINE GNLY FLAG 1316 40050 €05C 5404C40 1327 752 LACKNE OC CL1&8* NCNE s 
125£€ CO 87 0900 69C PREXIT 8B e~* RETURN IBLE 4040404040404040 752 
691 1226 4C€40 752 
692 FRFSASESEHKERSIKSSKAKSKKERHALASRERKSKSEAREKERS HABA KEKE EAKE EASE KEK EAKSEKEKEARK 1328 404040404040 332D 753 KNALB Oc cL6t 6 
693 * CONSTANTS * L3B2E EZESCLES E4E240C2 1334 754 DC CLES*STATUS BYTES * 
694 SSASPEODS ASSES RES SEE KCHKKERSSESASEARSEGRSREASKKHKSRSERRKAHKEKARHEEKAEKSEKETTREKRER 1336 E 8E3C 5E24C 754% 
1262 QO0CO 12€3 665 ZERO DC rtL2* O8 133B 40404040 3133—E 755 YBATS OC CLs? 8 
1266 CBFEF 1265 696 EFFS DC XL 2*DBFF ® 133F DTD9CSDEDSCIESEB 1352 756 DOC CL20*PRIORITY ERR BETIS * 
1266 OQ001 1267 697 CGNE es xL2*0001°* 1347 40€C 50 D940 2C9E3 756 
1268 0002 . 1269 698 TWO oc xL2*0002° 134F 40C9E240 756 
Ra 126A COCS 1268 699 FCUR OC IL2*4¢ 1353 4€0640404040404040 1362 757 IBEP OC CLié6® e 
39 126C 0015 126D TCO TTeYWUN OC TLet2ie 135B 406404C4C04C404040 757 
=a P26E— 018800 1270 701 BUSC? Oc XL3*°*O18s8O0® 1363 758 STATAB EQU * 
* i271 c4c0co 1273 Y702 BUSCTI DC XL3*460000 * 1363 008004 1365 759 BC XL3 *008004! CHAIN SYNC CHK. epHALT 04 
i 1274 7070 1275 703 FOLG oC XL2* 70708 FORM LENGTH 112 1366 C3C8CICSCS540EZ2E8 1375 766 DC CLI6é*CHAIN SYNC CHK. ° 
ef T27E OB 1276 704 URCSVN OC IL1°1078 136E D5C34C@3C 6024840 760 , 
ee 1277? 77 127? 705 UNITIN OC rLIL*iig® 1376 CC40C5 1378 7&1 DC XL3* 004005" INCR SYNC OR SLIP CHKeeg HALT 05 
= 1278 78 1278 706 ONTUTR OC i1°123° 1379 CSD5C3C940E2F8DS5 1388 62 OC CLi6*INCR SYNC /SLIP e 
: $279 O&CO L27TA TO? LPIADR DC XtL2°800 * IMAG® AOBDRESS 13821 C3E61E2D3C 9D 74040 7é2 
ae 1276 CS8TC 127C 708 LPDADR OC XL2* B7C ® CATA ADDRESS 1389S 100006 1383 763 DE XL3°71000068 INCR FAILURE CHK. ,HALT 06 
7 27D FEFF l27TE FOS SFFE oc XL 2°FRFFE® 438C COD5C3D940CECICS 1398 764 DC CLIGPFINCR FAILURE CrK ¢ 
a 127F GFF 128C YFIQ DCADEND OC XL2°SFEF 1394 D3ESD°SC54CC 326 aD? 764 
= 32813 1€20 2282 Vil UNSEC OC Phe2t720ce 139C 040009 i39& 765 DC 137040009 * HMR ECHO CHKe HALT 69 
Nl Bc<@3 FQ 2283 712 CECZRC CC OL IFQe 139F CKlLO404C5N940C5 ISAE FS6 HC CLES *HAMHER ECHO CHK .® 
as 1284 Fi 1284 713 DECCRE OC OLY’ 2? PBAT €3C8 €640C3 C8 0248 T66 
Ps 4285 i275 igB&é F14 ACFOLE OC AL 2CFOLG} R3AF O200CA L382 TéT oc ALS ?*O2000A4F ANY HMR ON CHK .g HALT O4 
a $287 1C€13 1228 7i5S ADBUBY OC AL? TOU BY } 13B2 CiDSE840C 80 id4D4 i3Cl 7é8 DC CLIG'ANY HAHHR ON CHKE 
ks 4289 303i 126A 716 ADCABY DC AL2Z2(CABYE 3BR 094006554003 C8 fe 768 
bap 1286 1045 228C TFL? AGPIEBY BC AL 2Z2(P LEY} 1302 002007 LZ4& 769 DC XL3°902607? HHR UNIT THERMAL CHK .HALT OF 
oy 1280 1635 LZ Ss #i8 S¥cad BC ALZUSTATS 3 RIGHT CARR .CTR ADDR. 23C5 C8D40DS94PRES3C8CS0O9 13D4& 770 DC CL LE*HHR. THERMAL CHK. 8 
im] $23F 1634 1290) 06©67i9 SFOMI BC AL 2€STATO-Ub REPT CARR. CTR, ADORS 1300 O4€1D340C3C8D24B8 P76 
S 129i ECcoo 1292 720 SPACES OC NEL2* EOQGE SPACE OG 22305 @cocal 1307 Ti BC XL3' 800061? CARR.-S¥YNC CHE.» HALT G1 
ey 12392 Vel EXPTAB ECU € 1308 C3SCLOSDOS48E2E8DS LBEF Fre Oc CLIS®*CARR.SYNC CHK. e 
4 1293 OCG 129% 722 ExPDOa dC ME 2°O1CC8# LEE TERIGHE CARR~LOC. EXPO. L3E0 € 3400 3C 8 248404E V7T2 
Bi L295 OC Tt 12396 F23 oC ZEL2°OCTE? INCRHENTECHAIN CHAR .CTR.WE XP. T3&8 4c0002 IBEA F753 ec ’L3°460062* CARR. SPACE CHK. eHALT O02 
& 3297 461i 1298 724 bc KLZ°O4018% TIMING EXPO. LSEB CS3CIDSBS4SBECDT7EL LSFA F774 6o CLIG*CARR.SPACE CHK. & 
xe. L299 O8C4% i294 725 EXPOS Bc XL 2°O 804! STATUS EXPGB. 13F3 C2C54¢0C3C 85024840 Ft4 
ad L2SB FF 12968 72 oC XLEP FFE 33FB 200003 I3FG& 7s BC AL 2% 200603% “GOREMS JAM CHRe eHALT 03 
a §29C 72? SENTAB EQU ¥ R SFE CéD609D4E 240BIC 14060 FTES o¢ CLIG®* FORKS JAM CHK. 8 
a 129 OCCO 1290 728 SENSO DEC Ki2eGgs LAR CARR. LINE LOC. 1406 0440C€3 C8 02484040 T?é 
By R29& OOOC 129F 729 SENSE OC XL 2°? EINCREM.LECHAIN CHAR.C TR « 140E FF RS6OE TTT OC XL tree 
= 1Z2AC OC00 12AlL 730 SENS2 BC XL Z°Q?t TIMING L40F C8CID404C5O0S40D5 1418 7@8 HAMNO DC CLiS*HAMBER NO. & 
x 12A2 OCoS6 22eh2 731 SENS3 DC XL2* OF STATUS 2417 064840646040 778 
= 12464 C5SFO 1245 732 BC CL2*EC* 3G41C 404040 141E 779 HANG Oc cis’ § 
ae 12A6 CSF] 12A7 733 oc CcL2teg? 141LF CODSESD3CS 1423 T8G INVCE oc CLS*IANVLDe 
be 12A8 C5F2 T2ZAG 7F36é OC CL2te 2? £424 FSF2ECF3¢0D5D653 21431 Tel BC CL24*5203 NOT BuSY * 
ee E2AA CSE3 12 AB 735 DC CL2&e3* 142C 40C2E4E 2E 840 FSi 
736 1432 CLCOSESCSES4OE2CO9 1440 F82 NOBUSY DBC CLILStAFTER SIO ACP TD? 
737 SRSSLALRSERESSUSCEREATRSSEESC ERASE HSE EKA SE SAKYASSSSSERAKERSESASASASKLSESEKSHESRIERKR 242A D64CC 1C 3D V7E3SCS T8B2 
73a @ PRINTOUTS * 1441 FSF2FOF 340 1445 783 oC CLS5®*5203 8 
F3S SHSSKEREK EK SERKRAR ARS SREASAHSKAPESSASSRSKKSE SHSKRAAKHESSESISSESKELHERA SASUKE 1446 40404040404604040 1446 784% BUNSG oc CLE? 8 
P2AC E2CSO05SE2CS40C30% 1203 FeO TITLE OC CLZ24* SENSE CHDS ANALYSES TEST# 144E 400 2E4E 2E 84086306 1458 Fas BUTOLG BC CL14* BUSY TCC LONG 
1264 C4E 2400 LO5SC LOSES 7&0 1456 DS400306D5C7 785 
P28C E2CSEZ4CE 3C SEQES 740 145€ C3CIOSDAXSCICTCE 1463 786 CARR oC CL8*CARRIAGE® 
lZ2CKHe EICSOSESCSSOEZCS 1209 Tel TITRZ2 OC CiLZ2° SENSE TERING BITS TEST 1464 O7D9CSDS5E32C 50940 1468 78? PRIN OC CL8* PRINTER ° 
P2CC OC SDSC 74CC 2C SE 3 74) 146C 40C2€4C6C6C50940 1473 788 BUFF ODOC CL&* BUFFER * 
1206 E240E3CSE2E3 741i 1474 DOS 7C BE 2 147& 789 THEIR DC CLS "RIGHT ® 
L20A 4CE4D7C3 IZED T4e2 OC CL4* tipcet 1479 D3C5C6E340 147D 790 TFEL Be CLS*®*LEFT § 
LeDE SOF2ZD2CSDIDIC SN 4% 12E5 F743 DEPP OC CL&* SKIPPEDS® L47E D4CID2C5S4OF5F2F0 1486 FOL oC CLO "MAKE 5203? 
R2E6 GILDTOSC9IDSE350 I2EC 744 OC CLT*/PRINTE®* 1486 F3 792 
P2EO EL2DIWCIC3ECS4C leF? 745 oc CLO*SPACE * 1487 4009C5CI1C4EB 148C 792 Oc CL 6! READY? 
OATE OeCCT69 310CT&9 28NOVES O2MAR 70 LIMAYTC CINOVT7G isnov7i PROG ID QE02 —~ DATE 060C T6és 210CT6S 28NQVE9 O02 MARTO LIELBMAY TO OLNOV 7O ISNOV7IE PROG ID OE 02-4 
EC NO. 816592 816529 816542 816631 816671 B16TE4 818677 PAGE 6 EC NQ. 816562 816529 616671 Si67%64 61 8677 PAGE 6A 


816542 816631 


eeoeoeeeeeseeeeeeseeeeeeeeeeeeeeece 





£024 
ERR LOC 


‘ 14eD 

1495 
1490 
“A & 
! 14AT 
1GAF 
14B1 
1483 
14B5 
1487 
14BF 
14C7 
14CF 
14D3 
by 1408 
1483 
146 
1463 
14F6 
14FE 
1506 
1508 
L50F 
1517 
151 
i 1520 
1528 
152E 
1536 

1S3E 

153¢ 

1547 

154A 

154C€ 

2653 

155B 

£563 

150¢ 
15eC 
157C 
; 15768 

15a0 
1588 
i 1589 
1590 
1598 
25A0 
15Al 
15 A4 
15AC 
15 AF 
157? 
15BF 
15c. 
15C4 
1S§cc 
15Ct 
15D? 
1S50F 
1seT 
LSEA 
15f2 
LSFA 
1¢02 
1603 
1609 
1OOE 
le15 


ib -OATE 
« €C.NO. 







1BM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. 
PAGE 

5263 LINE PRINTER FUNCTIGN TESTS 

OBJECT CODE ADDR STMT SOURCE STATEMENT 

éBF 3C 8C5D54CD9C5 149C 793 RESALT OC CL16*%, THEN RESET HALT ® 

E2CSE 34CC8C 10 2E 3 793 

D7E3094BC3C8E34B 1446 794 MAP oc CL10*PTR.CHT. °* 

4C40 194 

40CSCS5SESCIEBSCE4 14AE 795 ENT OC CL8* ENTRY 4? 

FIFl 1480 796 CHT121 CC ct2"*11° 

F1LF3 1482 757 CHT13 DOC ct2*13* 

FLE6 1484 798 CHT1E OC cCL2°*16° 

FFT 14B€ 79S CHTI? OC CL2*17° : 

010607094CC160C2 1402 800 OC CL28* JMPR A-BLESDIG TO A-B102S05 »* 
FICS FS C4F1LFOSOE3 800 

D640C 1E0C 2F 1C 4F 2 800 

F2FOFS6E 800 

EICKHCSLO4CC9OCSEZ2 14F5 B01 Oc CL3S*THEN RESTORE CARR IAGE( S),PRESS CHK * 
E3C60SC54CC 3C 1D9 801 

CIC9CIC7TC540E250 801 

6BU 7D SC LE 2E 2400 3 801 

C8L240 801 

DSC SE 2C SE 3684001] 150A 802 RELORC OC CL21L*RESET, AND RESET HALT ® 
D5C4400SC SE 2C 5E 3 802 

40C8C1C3E3 802 

C 10 3D 24C€ 150E 803 cc CL4*ALL * 

E2C505E2C540C 304 151F 804 ALSCF OC CL17*SENSE CMOS FAILEO® 
C4E24CC6OC1 CSE3C5 804 

C4 804 

6BC2 £4£3400605D3 1520 805 WCHEB OC CL14*,B8UT ONLY EBX® 

£84040 5C2ET7 805 

40C2Z2E8£ 3C5E240C1 153E 806 ONLBYT DC CLI7* BYTES ARE IN ERR® 
090540C90540C509 806 

D9y 806 

E2C505E 205400306 1545 807 DC CLIL* SENSE CODE * 

C4C54C 807 

E27 1548 808 EDCC oc CL2*xx* 

4009 0540C5 09 D9 1552 B09 SCOIE 0C CL7* IN ERR®¢ 

4900 3DED4D4C105C4 1564 810 LETCOD OC CtL18* COMMAND CODE-xxe 

4040 40C 20 6C 4C 560 810 

ETET 810 

4C4C404CL 3060 405 156F @1l RYTCCC OC ctii® CCDE~Xx! 

6OETET Bll 

4C404O0CZEBESCSF2 1588 B12 oc cL25¢ BYTES E82-EBL a 
&CSh0404C4C4O SC 2 8l2 

£260C5C2F1404040 812 

4&C 812 

C5C2F 26CC SC 2F 1 15€F 813 BIES DC CL7"€22-EB1* 

4O04040CSETETCS5C3 15A0 814 LEXEB2 DOC CL1i7z* EXPECTED xxe 

E 30 5L 44040404 CET 814 

7 814 

4CETET7 15A3 815 LEXEB) DC CL3* xx! 

404040404040E7E7 15AB 816 REXEB2 OC cis? xxe 

4 CE TET L5AE 817 REXEBL OC CL3* xxt 

4040 4C4CC IC 3E 39E4 15CCG 818 LACEB2 OC ctis: ACTUAL xxe 
C1D3404040404040 818 

E TET 818 

GOETET 15C3 8159 LACEB1 0C CL3® xxe 

&C404C4C4CGO0ETET 15CB B20 RACEB2 OC CL8* xxe 

4&SCETET 1SCE 821 RACEBL DC CL3* xxe 

E2CSOSE2CS40C3D@ 15€9 822 OKSEN OC CL27"*SENSE CMDS OK,yREMOVE JUMPER? 
C 4E 24 006076BD9C5 822 

C4 DOE SC S40D LE 404 822 

OTCS09 822 

E 2C 5D St 205400306 1602 823 LRCAR CC CL25*SENSE CCOE E2,US ING e 
C4C540C SF Z6BESE2 823 

CS05C 27404 0404040 823 

40 823 

40C3C10SC94B 1608 824 SENCO OC CLE6E*® CARR. * 

C2CSE 34646 160D 825 BACBIT OC CLS*BIT °& 

40 CEC640C SC 240 1614 826 OFBYTE DC Cui7z* CG EB*® 

&CCSE24CCECIC9L3 161F 827 FAILED OC CLil®* IS FAIL ING® 

OCOCT69 310CT69 28NOVES O2MAR 70 LIMAY7C C1 NOV70 LONOV7 1 PROG 1D 
816502 816529 816542 €1€631 816671 816764 818677 PAGE 
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OBJECT CODE ADOR STMT SCURCE STATEMENT 
C905 C7 827 
162C 828 TABBIT EQU) * 
FTFOFSF4F3F2F1FO 1627 825 Oc CL8* 765432108 
830 
B31 EEKSERKEA HEA KHKE CESAR SEKEKE SSS ESR SSEKKSASSRSEESEKCKEKKESEESKEKE SSE VEEKK ESE SHEKSEHEESKKE 
832 * RESERVED STORAGE * 
833 SHSKRKSEKRSHSREKSERAHKSAGKEKSESKHKSSKERHEKCEREKREKSSKEKS SSK SEREGKSE SHEE KSA GEKKEKSERKEKERSS 
00 1628 834 TAGS DC XL1" 08 INDICAT ORS 
00 1629 835 EB1ERC OC XL1*O# EB1 ERRORS 
ce 162A 836 EBZERC OC XLL*O8 EB2 ERRORS 
000000 1620 837 BUSUB OC XL3*O® 
0000 162F 838 BTSON OC XL2*0* BITS ON SAVE AREA 
FFFE 1631 839 BISOFF OC XL2°FFFF® BITS OFF SAVE AREA 
FFFF 1633 840 CMPLNT DC XL2*FFFFS 
1635 841 STATO ODS CL2 
1637 842 STAT2 DS cL2 
1639 643 STAT6 ODS CL2 
163B 844 STAIX DS CL2 
163D 845 ERT1 ODS CL2 
163F 846 WSECS OS CL2 DELAY TIME AREA 
847 
BEB KHER EKSSSH SRE SSSESHKKSESKSKARARRSEAKKEKAHKHKARSKEESEKRKKEESE SERS LAKE SAK SEAKAKSEAE 
849 * EQUATES * 
B5 QO SRSA RSESGHSL SSK SAAKKEASEMSERKKKKKEKHKAKHKKEKKEKS KEEKEKESE SHERKESE RS SES SEHKESEKH 
0008 851 ARR EQU x8? ADDRESS RECALL REGISTER 
0001 852 XR1 EQU) xf. INDEX REGISTER 1 
0002 6853 XR2 zQU xt2¢ INDEX REGISTER 2 
O80C 854 LPI EQU  x*800F LINE PRINTER IMAGE AREA 
O87C 855 LPD EQU  xX*87C* LINE PRINTER DATA AREA 
0878 856 UCSFLG ECU x*878° 
COEC 857 LOFOLG EQU- x*EO! 
OOE4 858 LPIAR EQU X*E4S 
OC0E6 859 LPDAR EQU. X*E£6? 
0212 860 TEST EQU  xX*2125 ENTRY TO DCP READ DATA SW*S ROUT. 
0216 861 LINK EQU X*2168 ENTRY TO DCP CHAIN ROUTINE 
O21A 862 PRINT EQU. X*21A® ENTRY TO DCP PRINT ROUTINE 
O21E 863 UNPACK EQU = X*2I1E® ENTRY TO DCP UNPACK TO EBCDIC RTN 
©0222 864 HALT EQU X*2225 ENTRY TO OCP ERROR HALT ROUTINE 
OOEC 865 NRDY EQU_ X*EOS 
OOEG6 866 BUSY EQU X*E6® PRINTER BUSY 
OQOE4 867 CABUSY EQU X*E4E LEFT CARR.BUSY 
OOEC 868 RICABY EQU X*EC® RIGHT CARR. BUSY 
OOEZ 869 PBBUSY EQU. X*E2! BUFFER BUSY 
870 * INDICATOR FLAGS. 
0040 87i TAGL EQU xX*408 
0020 872 TAG2 EQU x*208 ONE OR MORE SENSE CMDS CORRECT 
QO1C 873 TAG3 EQU- x*108 SENSE TIMING BIT ERR 
0008 874 TAG+ EQ x*0BF MORE THAN 1 SENSE CODE IN ERR 
0002 875 TAG6 ECU xXx*O2" 
0001 876 TAG? EQU- x*Ol® 
877 * SENSE SWITCH EQUATES. , 
0208 878 SBYTEO EQU x*208! DCP SENSE SWITCH AREA | 
0209 879 SBYTEL EQU x*2098 DCP SENSE SWITCH AREA 
C20A 880 SBYTE2 EQU x*20A! SECTION SENSE SWITCH AREA 
881 * CONTROL PGM SENSE SWITCHES. 
0004 882 SSWO5 ECU xX*'04! PRINT MESSAGES ON MFCU 
0080 883 SSwO8 EQuU  x*808 USE 5203 RIGHT CARR. 
884 * SECTION SENSE SWITCHES. 
004C 885 SSW1l EQU  xX*408 HALT BETWEEN COMMANDS 
0020 886 SSH12 EQU  x*208 DELAY BETWEEN CMDS. 
0010 887 SSWI13 EQU xXx*108 SECONDARY HALT OP TION 
OcocTes 310C T69 28NOV69 O02MART0 1LMAYTO 01 NOV7G 19NOV71 PROG ID OE 02-4 
816502 816529 816542 816631 816671 816764 818677 PAGE 7A 


mw 


~ ; ; 
Be 7 
MMe Po. ruse Bey 
; IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589953 15H MAINTENANCE DIAGNOSTIC PROGRAM Redhat Pe Gat, bite PART £0. 2589953 
| PAGE 8 Cos Sauwatied oe PAGE 8A 
4 * % Lo 7 
i E024 5203 LINE PRINTER FLUNCTEON TESTS . E024 5203 LINE PRINTER FUNCTION TESTS 
i 
ERR LOC CBJECT CGOE ADDR STMT SOURCE STATEMENT CRCSS-REF ERENCE 
889 SYMBOL T LEN VALUE DEFN REFERENCES 
i 890 
891 * COMMENT CARDS ADBUBY A 002 1288 0715 0514 
i 892 *£ee48246662 SECTION E02 KEKKEKK SKK SAESKKCKEKSKEKEKS REKSKHKHEKSEKHKESS SEK KSEKEKKEEKSE ACCABY A 002 128A 0716 0518 
893 * ROUT.1 - SENSE CMDS ANALYSIS TEST ADFOLG A 002 1286 0714 0440 
894 * ROUT.2 - SENSE TIMING BIT TEST ADPIBY A 002 128C 0717 0522 
| BGS FESHASSHEKSEESSEKESESSESERSESHESERERSE SKEKSESLEKKRSEKESEKESLSECECESERKSHAEKHKRERKSEKCAEKKEE ACLOT A 006 1166 0614 0607 061i 
; 896 * NOTES - AD1L9 A 006 115D 0612 0609 
| 897 * 1.SET SSh-05 BEFCRE RUNNING THIS TEST. ALBAC A C04 OAAA 0077 co7o 
898 * 2.SET SSW-13 IF NG ALTERNATE PRINTER. ALCOP A003 OBF8 0199 0182 ~ 
899 * 3.SET C.E.SWITCH TO CVERRIDE IDLE CONTROL BEFOPT &'NNING THIS TEST. ALSZF A O17? 151F 0804 C087 
i SOD FHSS S SHE SEE REE EES EESE EER ES ESSER AKERS SSE REG HEEER LES OHEKEREREERR ESET ES ANBAD A 004 OAFC 0106 0104 
FFFF 902 END ANEBL A 004 CE2C 0300 0298 * 
ANEB2 A 0C4& OD3C 03C1 C2S9% 
ANERR A 004 OAE2 0100 0061 
| ANYGUD A 004 0813 0112 0109 
ARR C 001 0008 0851 0398* C3SS 04CO* C401 0402 0403* 040% 0418 0441* 0442 04437 0444 
0580 0633 
ASTERR A 004 11A5 0632 o5CC 
AVID A004 O0C49 0226 C222 
AWOUN A 004 i118C 0622 0619 
BADBIT A 005 1i6CD 0825 0338* 
BAPRT A004 OCC& 0272 0270 
BIBAD A OCS CDAA 9338 0320 
BOTALT A002 OE€4D 0385 G380* C3e81* 
BROUT A 004 OECO 0418 0471 
BSEXIT A 004 OFE4 0427 0418 0423 
BSYLP A OQ6 104C 0527 0517 0521 0525 
BITES A OCT 158F 0813 0190 
BTISOFF A 062 1€31 ©0839 0288* C30CG*® 03C1* 
BTSON A O02 162F 0838 0294% 0295* 0310 
BUALT A CC2 1681 0543 O515* 0519* 0523* 0532 
BUBY A004 1010 0517 c715 
BUFF A008 1473 O788 0516 
BUMSG A O08 144D 0784 0516* C520* 0524* 
BUNALT A 002 O€30 0378 03734 0374% 
BUSCT A CO3 127C O7O1 0513 
BUSCTI A 003 1273 0702 €419 
BUSUB A003 162D 0837 0419% 0420% 0513* 0527% 
BUSY C 001 OCE6 0866 0422 C497 0525 
BUTOLO A014 1458 0785 0537 
CABUSY C 001 O0&4 0867 04 87 
CABY A 004 1031 0521 C483* 0487* 0716 
CARR AOO8B 1463 0786 €520 
CHOFF A 004 OD90 0328 0324 
CHRDY A 004 1082 0544 0526 
CHT11 A O02 1480 0796 0679 
CHT13 A CO2 1482 0797 0201 0355 
CKT16 A O02 1484 0798 C556 
CHTL7 A O02 1486 0799 0491 
i CLINK A CO& OE6A 0393 0387 C389 
CMND A003 OFB8 0490 0447* C448 0449 0462 0479* C480 0481 0486 0492 0495 
CMPLNT A 002 1633 0840 0296* 0297%* 0298 0299 
! COCOD A 004 ODE6 0317 C312* 0326* 
CSSWOA A004 OF23 0454 0452 
Cvp A CC4 OE6F 0398 0622 0638 
CABOT A006 1132 0601 C598 
DADEND A 002 1280 0710 0599 
| DECGAN A 006 OEAS 0410 0413 
DECONE A001 1284 0713 C375 0282 0412 
| DECZRO A CCL 1283 0712 0409 
DELAY A 004 1C52 0528 0514* 0518* 0522* 
DEPP AOOB 12E5 0743 0554 
DIVID A CC4 1175 0617 0613 0615 
| COEB1 A004 OD56 0313 0327 
DOENSE A 0C4& OA4A 0050 0044 
DOHALT A 006 1238 C679 0669 C671 0673 
DORP A006 OE£1B 0374 C376 
DATE = Q60LT69 310CT69 28NOV69 O2MAR 70 1LIMAYTC O1NOV70 19NOV7L PROG ID OE02~4 DATE O6CCT69 310CT69 28 NOV69 O2MARTO 11MAY70 O1NOV70 19NOVT1 PROG ID 0E02-4 
EC NT. 81€5C2 616529 816542 816631 816671 816764 818677 PAGE 8 EC NO. 816502 816529 816542 816631 816671 816764 818677 PAGE 8A 
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| Gaze 5203 LINE PRINTER FUNCTION TESTS £024 5263 LINE PRINTER FUNCTION TESTS 





CROSS-REF ERENCE CRCSS-REFERENCE 


SYMBOL T LEN VALUE. DEFN REFERENCES SYMBOL T LEN VALUE OEFN REFERENCES 


“ pskpop A G04 1302 0749 C640 C641 Cé48 NITINOC A 0C6 0073 0321 0318 0354 

” guseoP 003 12f7 O747 0642 , NOBALT A002 OFFE 0510 04S9 

b EBIERC ool 1629 0835 0078 = =c1024 0237 0245 NOBET A 003 OE08 0368 0309% 0333* 0343 
| EBzERC A OO1 162A 0836 0058 CCE3 OC81 C€105* 0234 C242 NOBUSY A C15 144C C782 C504 

€o0cc cc2 15428 0808 OLILe 0221 0226 0232 NCERR AOO3 1LOEF 0585 0592 


A 

A 

A 

A 

A 

m £FFS. A 002 12€5 06596 c288. : NOTRIT A C06 OFSC 0480 0478 ; 

ENT. A 008 14AE 0795 0205 0359 3 NRCY C 001 OOFO 0865 C270 0464 0544 

* ERNRDY A 004 OF57 C466 

ip A 
A 
A 
A 
A 








: NRDYER A 004 108D 0564 0544 
002 163D 0845 6 03424 0344* C366 0375* C382* 0480* 0635. 0639 0643 0646 OFBYTE A OO? 1€14 C826 0311* 0323 0325% 0342 
oce 1CD1l 0569 . , OKSEN AO27T 15€9 0822 o2c9 0254 
CO2 1294 OF22 ONE A002 1267 0697 0102 0105 0131 0137 0143 0149 0155 0161 0167 0173 O302 0313 
002 129A 0725 os. 0316 0374 C381 C398 0403 0410 0420 0441 0443 0460 0527 0620 
ool 1293 o72t C225 ; ONLBYT A O17: 153E€ 0806 0094 
AOllL 16€1F O827 363... ; ONTUTR A OO1l 1278 O7C6 C603 ws 
7B C06 OECA 0420 0622: OREBL AOO& ODOC 029% C292 
“A COG 1197 0626 0567 : : GREB2 A O04 OD10 0295 0293 * B33 i 
A002 1275 O703 0714 , OTORZ A 006 CEST 0407 0402* 
A 002 1268 0699 0618 0626 CUTLCG A004 0825 0122 oos9 0096 ; 
A004 OF7D0 0476 C440 PBBUSY C OC1 OOE2 0869 0517 
A 006 OF9D 0408 0405% Prey A004 1045 0525 0717 
A C06 CE&8B 0405 03994 PCPSUD A 002 12F4 0746 0285 06€41* 
A006 L1L6F O616 0605 PORK A 004 OCS? 0248 0235 0238 0240 0243 0246 
A CC& LIEE 0649 0647 PREXIT A 004 125E€ 0690 0633 7% 
A 004 OA88 0065 0112 PRIN A 008 1468 0787 0524 
C 001 0222 0864 0210 0218 0223 0228 O248 0362 0370 0377 0384 0424 0468 0509 PRINT COOL O21A 0862 003C 0C35 OC84 0091 0114 0178 0183 0187 0191 0195 0202 0206 
0542 0561 0687 0251 027% 0280 0345 0350 0356 0360 0501 0505 0534 0538 0551 
i A013 1418 O778 C678* : 0557 0649 0658 0664 0674 0680 0684 
a A co3 141E O779 06019 0624 0677 PROD A006 O&£&38 0381 0383 
is HLTEID A O62 11F7 0653 €499* .0532*% 0593* 0686 PR4LI A 004 OBDS 0183 0175 0177 
AX BYT A001 CESE 0397 C4cCB84 C4104 PSTERR A004 11A9 0633 C467 0473 0533 0546 0565 
s 4BEP A C16 1362 O757 0594* 0667 : PTITL A 004 OCDA 0280 0271 
* {DAT A CO2 OCIA 0211 Coe3* CC9C* 0113* 0214 PUIDIN A 002 1259 0688 06 86* 
Hes TAVC A005 1423 0780 0601 RACEBL A GOB 15CE 0821 0172 c€1si 0198 
i- ESBUSY A CC& CEFF O511 0493 0496 0497 RACEB2 A 008 15CB 0820 0166 
bo SALT A003 OCLt7? 9279 C273 RAC1 A 002 oB88 0171 0168* 
p JUSUN A CC4 cc39) «(0221 0217 , RAC2 A 002 OBAT 0165 01624 
ie KNALB A CC6 122D 0753 0645 0€78 RELORC A 021 %4LSOA 0802 0038 
a KORP Aoc2 oc9c 0249 0231% 0236% 0239% O241*% C244* C247* RESALT A O16 149C 0793 0277 
: tACEB1 A CO? 15C3 O®81S C160 RESTO A 004 1190 0627 0602 0625 
bo LACEB2 A O18 16CO 0818 C154 REXEB1 A GOB I15AE 0817 0148 0194 
' LACMND A O18 1327 O752 06427 0645* 0648% 0652 REXEB2 A008 15AB 0816 0142 
ee taAcl A OC2 OBS6 O159 C1 56* REX1 A CO2 O874 0147 0144% 
ie LAC2 A002 oe8s 0153 C150 REX2 A 002 0863 0141 013 8* 
 4O0CMD A CO6 OFC6 C447 046429 RICABY C 001 OOEC 0868 0483 
7 LEAVET A 004 OCAD 0257 c213 RNUM A 001 OAO3 0013 0511 0547 
i LEXEEL A003 15A3 0815 0136 RTN1 A001 OA10 0024 cos 
t LEMB2 A C1T 15AC 0814 ©6130 RT A001 OCBl 0264 0026 
mtb A002 oOf852 0135 ci32¢ RYTCOD A O11] I156F 0811 0125* 0186 
ere LEX2 A 002 cR4i 0129 01264 , SABTR A OO6 1138 0603 0600 
“LFICOD A O18 1564 0810 0124 SAVTUU A 002 1C08 0571 0446* 0567 
z LICDSA A006 OFCE 0495 C0485% 0489% SAVWUN A 002 1006 0570 C445* 0566 
ro LINK C COL 0216 0861 0257 0393 ae SBYTEO C 0Ol 0208 O878 0028 0176 O272 
 ° gOFOLG C 001 OOEFO 0857 0476% . 4 SBYTEL C 001 0209 0879 0477 : 
£ LPO Cc 001 Os7C 0855 0285*% SBYTE2Z C 001 O20A 0880 0212 0364 0451 C454 
ft PDAOR A 002 127C )}6=—6 0. 708 C475 C597 SCARD A 005 O082D 0124 0200 
P LPOAR C001 OOEG C&59 04758 SCOIE AOO7T 1552 0809 0117 
oe LPI Cc 001 C8OCc 0854 0458 0458 0459 0459 soc A006 OEC& 0419 0426 
pee — LPIAOR A O0C2 127A O7CT 0474 SDEHF A 004 1C8A 0546 0530 
».. tPIAR C 001 GOES 0858 C474 SEBTU A004 OE34 0380 0369 
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ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT 
> 2 DECK 4 & * QAA1 5C 31 00 32 70 MVC 0°50¢XR1),500,XR1) WIPE 50 MORE 
CAGO 3 £03 START X*AOO® -* BAAS OF OO ODC?T OD4F 71 SLC BLAKNT(1) » ONE 1550 BYTES DONE? 
. 6 REKAAEERRAK EE ASSSEAESS HES SERS AEA ALARA FATEH AL EAH RES HAG HAHA ES AERAE BE OAAB CO 01 OAD 72 BNZ MIVMOR 
> 5 * * ® OAAF CO 87 0024 73 8 BROUT 
6 * SYSTEM/3 52C3 CHAIN CHARACTER COUNTER TEST * , OAB3 C2 02 19FO 74 LA TWOIN »XR2 LGAD SAMPLE AREA ADDR. 
7% * OAB7 BO E2 01 75 TAKSAN SNS 1(,XR2)9X°EZ* 5 SENSE TIMING BYTES 
Q HERES SEERRAS EE ERREGASAAERSHE SESE SEE BSS SE YRAS TES AGHA SE SEEATERAFTTHRE | QM. - -OaBA E2 02 01. Ane 3a 76-. .--- LA .- 14eXR29,XR2-- . - .3 ADD 1 TO SAMPLE AREA ADDR... 
bao 9 + SECTION 3 - ROUTINE 1 > ee OABD BD FF O1 ” 77 CLI 1(,XR2),X°FFE "4 END OF SAMPLE AREA — . 
rant 10 HHRHHRRAAALAREERAARES SREAKAH AG HEAH ARE RLE TE HS HARA KA GEES EL EA SAT HERGR ERE SE , CACO CO 01 O0AB7 «78 BNE TAKSAN 4 IF NOT, LooP 
> OAOO £033 0A01 il oc XL2*E033° PROGRAM IDENTIFICATION °e ; 79 * 16 =24.3 USEC.LCOP 
CA0Z2 00 OA02 12 oc XL1°O* FLAGS _OAC4 BC 00 00 80 MVI O(,XR23,X*00? ZERO 2ND SENSE BYTE 
OA03 O1 OA03 13 oc XL1*1¢ CURRENT ROUTINE NUMBER Bl REAR ARE ASAE ASAE EAH SEER AE RE SKERESLERS EEE ASSES SSE KSSH ETARE RE RSE 
2 OA04 OCCO OA05 14 oc | s XL 2*0® - RESERVED @ 82 * CHECK FOR NO EMITTER PULSES * 
OAO6 OAOD QA07 15 oc AL2(RTN1) ADDRESS OF FIRST ROUTINE PREFIX BS HERE RAHKREK EER ES AS SREREHGEA SRA SORHKAKSLS RERGRHEASULASRAALAHAK SEEKS SERSERS RASS HER 
OAC8 ODC4 QAOS 16 oC AL2CERT1) ADORESS GF ERROR RECORDING TABLE OAC? 3C B88 OAD6 B4 avVI CHEON»sX*B8* 
9 OAOA EC5000 OAOC 17 SPUuDT OC XL3"ECSOOOS UNIT DEFINITION TABLE — PRINTER 8 OACB C2 02 19FO 85 LA THOIN »XR2 LOAD TIMING AREA ADDR. 
1B RREREAKAAEE AR AAA ERG RAATS RAKES SE KERK EE SERA SEES HSH SKES HSE RES HSTSSHEARES OACF 3C 28 ODC9 B6 PAZZ MVI NOEM, X*28° LCAD TRY COUNT CF 40 
19 * * OAD3 E2 02 O01 87 CHKNE LA 1,XR2)_XR2 ADD 1 TO ADDR< 
a 20 * - ROUTINE 1 -— CHAIN CHARACTER COUNTER TEST * ® OAD6 B8 20 00 88 CHEON YBN O%XR2)2B*100000" CHAIN EMITTER ON 
oe 21 + > eave OADS F2 10 14 89 JT ANYMIS 
ca 22 soe ok aM ee aA A a ak EE RH SRK ER AAR KA HRA KTH ES EES KS KRE SS KELKESKHEREHS KH oS CADC CF 00 ODC9 :0D4F 90 SLC NOEM(1),CNE TRY 40 SAMPLES 
5 OAOD 01 CAOD 23 RTNI- DC xL1*1* RCUTINE NUMBER e DAE2 CO 01 OAD3 91 BNZ CHKNE 
OAOE 00 OAOE 24 oc XL2*°0°* FLAGS OAE6 CO BT 0222 92 B HALT HALT NO EMITTER PULSES 
OAOF FFFF 0A10 25 oc XL2°*FFFFE LAST ROUTINE OAEA- E051 OAEB 93 DC XL2°EO51® = 
3 26 HERESEA PERE TOA ELSIESS SRE SSOR ES OREEL TORE ER CIES SOE R STEN EN TST eee @ OAEC CO 87 ODOE 94 B GAWAN 
OAL1 CO 87 0212 27 B TEST ei ae - Sole a OAFO 3D B9 OADE.. -... 95 ANYMIS CLI CHECNeX*B9R_ «1... TEST FOR BIT CFF BEEN DONE 2.052. .2 coe... = 
QA1LS 2C 38 OA3C 28 MVI TECHBI eX" 38* SET Tf CHK.48 CHAR. BIT CN OAF4 F2 81 08 96 JE SIMYNA 
s OA19 OC O2 OD?F ODT9 29 MVC WHAIN(3)» FRATE PUT 48 IN TITLE 8 OAF? 3C B89 OAD6 97 MVI CHEGN sX*B9* CHANGE TO CHECK FOR BIT OFF 
OALF 3C 2F ODCB 30 MVI HICHCT ,X*® 2F° SET HIGH CHAR CCUNT FOR 48 CHAR OAFB CO 87 OACF 98 B PAZZ 
OA23 30 FF 0878 31 Ctl UCSFLGsX"FF® UCS FLAG ON 99 HAREREE SAGE RE SALAS TASSSSS SESE SESALEAE RELEASES HERESESEASEREAARERTERELE TE 
a OA27T F2 O2 OE 32 JNE SENAT eo 100 * CHECK FOR MISSED EMITTERS * 
ok OAZA 3C 39 OA3BC 33 MVI TECHBI,X*39* SET TO CHK. 48 CHAR.BIT OFF LO] FFRSSAREKSERERSKRASSL SERS HER ELFHRAT SESH LEKES AAAS SEAS RAR VE RERS KH SLERKSSE EH 
‘ OAZE 3C 77 ODCB 34 MVI HICHCT,X* 77° SET HIGH CHAR CCUNT FOR ECS OAFF C2 O02 19FO 102 SIMYNA LA THCINeXR2 LOAD TIMING AREA ADDR. 
5 OA32 OC 02 OD7TF OO07TC 35 MVC WHA IN(3) 9 EXCASE PUT 120 IN TITLE @ 9803 3C 11 ODCS% 103 YABIT MVI NCEM,17 LOAD TRY COUNT CF 17 OR 10 
OA38 30 £3 ODC2 36 SENAT SNS STAT39X*E3* GRAB STATUS OBO? E2 02 O1 104 NOBIT LA 1(,XR2)_XR2 ADD 1 TO ADDR. 
OA3C 38 04 ODC2 37 TECH8I TBN STAT3,B*100* 48 CHAR. BIT CN OR OFF OBOA 88 20 00 105 TBN 0(—XR2)58*1000008 CHAIN EMITTER GN 
9 OA40 F2 lu 17 38 JT GOPRT a OBOD F2 10 18 106 JT  GOGDUN 
0A43 38 04 0208 39 TBN SBYTE0O,SSWOS PRINT ON MFCU Chae 0810 OF OO ODC9 OD4F 107 sic NCEM(1),0NE TRY 17 GR 10 SAMPLES 
OA4T F2 90 OA 40 JF UDALT : ; . heats : 0B16 CO 81 OB21 _.. 108 BZ MISEM 
D OA4A CO 87 G21A 41 Bo PRINT PRINT ‘IMAGE ANDO CHAEN DO -NOT-AGREE® 8 OB1A C2- O1- OBO7 - ---- ~~ -- --289~--- a NCBIT,~XR1-.-..--.. . --LCAD LDOP--ADDR. # fot Weththcl welche sieideke hget acuale: Ce 
CASE Cl OAGE 42 bc xL1*c1* OBIE F2 87 OE 110 J CHEND 
OA4F 1C OA4F 43 oc IL1*28* CB21 CO 87 0222 111 MISEM 8B HALT HALT»MISSED AN EMITTER PULSE 
2 OA50 ODB4 OA51 44 oc AL2CERUDT) 8 0B25 E052 OB26 112 oc XL2*E052° 
ee OA52 ECOE OA53 45 DC XL2"*EGOE® : OB27 CO 87 ODODE : 113 8 GAWAN eee 
9A54@ CC 87 0222 46 UDALT 8B HALT UDT ERR HALT OB2B C2 01 0803 114 GOODUN LA YABIT »XR1 LCAD LOOP ADDR. 
3 GAS8 EOQOE OA59 47 oc XL2*°EQOE® | 3 OB2F 34 02 ODBE 115 CHEND ST ALRSAVs,XR2 
OA5A 38 04 0208 48 GOPRT T8N SBYTEOySSWO5 PRINT ON MFCU 0B33 OD O01 ODBE OD64 116 CLC ADRSAV(2) sLASADR ENTIRE FIELD CHECKED 
OA5E Fz 90 OA 49 JF TIPMU CB39 DO 01 00 117 BNE O(eXR1) 
> OAG1 CO 8&7 O2IA 50 B PRINT PRINT *XXX CHARACTER CHAIN CHARACTER | 9 LL Q RRSSRRAEREEAAR SESS HARSHEST SRST SERSSHSSERK STATE SH SLRS SARAH RAS RAKATERSESR TS 
CA65 41 OA65 51 DC XLL‘41° COUNTER TEST® wk 119 * SENSE 1550 SAMPLES CF TIMING AND CHAR.COUNTER * 
: OA6& 1C OA&E 52 DC IL1*28* L20 SHARE AE RRA RE RERS SSR ERASERS SHRATLA ES SSKKERSAE SSA SAS SHESREK TRASK AT SRARSE THE 
> OA67 0098 0A68 53 oc AL2(TITLL} | 8 0B3C 35 02 OD6E 121 L HODEL »XR2 LOAD 350 MS SEARCH 
veces vo AABY E009. ne  OAGA 54.0 BO XEZFECOO No cc eee eee nee one eee ef oye OB40, 36,02 0068 |, | 222 HMCOP A NEGUsXR2.0 0 DECREMENT DECAY a cane eee 
OA6B 38 20 OAOC 55 TIPMU TEN SPUCT,B'100000" 100-200 LPM DEVICE 0B44 CC 81 0881 123 BZ EMON 3 i ee ee 
? OAGF F2 90 14 56 JF JUMPIT @ 0848 30 E2 ODCO 124 SNS STAT2 »X*E2" GRAB TIMING 
OA7T2 3C OA 0055 57 MVI THRTEN,X"CA® GB4C 38 01 ODBF 125 TBN STAT2-1:B*1* HOME LATCH ON 
OA76 3C OA OB04 58 MVI YABIT+1,X"0A* OB50 CC 90 0840 126 BF HMOGP 
> OATA OC O1 OBD1 OD72 59 MVC HICNT+5(02),ADMAX i @ 0854 3C 96 ODCD 127 MVI MSECSs150 SET 1560 MS DELAY 
OA80 Of O01 OCOB O0D70 60 MVC LOCNT+5(2),ADMIN OB58 3C 01 OBAC 128 MVI SHLONG41,X* 01" " 
61 Shee ot eae oa a KK a RAGA EAA RA SKS AKSEMER ES AES ESERASRS SRE TERS FHTAH OB5C 38 20 DAOC 129 TBN SPUDT »B*1C00008 1C0-200 LPM ? 
> 62 * TAKE 1550 SAMPLES OCF CHAIN EMITTER TIMING * 8 OR60 F2 10 08 130 JT NGUCS 
63 SERRE EAA AERA SEREREASEGASAA AE RAS SHEA SRE DE AAS SRST ASE RSHSR IRATE AS rks OB63 3C FE ODCD 131 MVI MSECS,255 
OA86 3C 00 ODCS 64 JUMPIT AVI LPOUNT»X*00* START LGOP CCUNT AT O OB67 3C O07 OBAC 132 MVI SHLONG+1,X*07°* 
> OABA OC O1 LFFF OD&A 65 MVC ENTUU (2)3CCF 9 OB6B OD FF 0800 0800 133 NOUCS CLC LPI(256),LPI GELAY 1 MS. 
OA90 3C 1E ODCT &6 LUGAN MVI BLAKNT,30 SET WIPE COUNT OB71 OD 3B 0800 0800 134 CLC LPI(6C),LPI 
CA94 C2 01 1FFD 67 LA SEMID,XR1 END CF AREA ADDR.» | OB77 OF OO ODCD OD4F 135 SLC MSECS(1),CNE DECR DELAY COUNT 
9 OA98 4C 31 00 IFFE 68 MVC 0(50¢XR1) sENTUU-1 WIPE 1ST 50 9 OB7u CO 84 0B6B 136 BH NGUCS 
OASD 36 CL ODEC 69 MGVMOR A MIFTYsXR1 DECR.ADOR. BY 50 | 0B81 C2 02 19F0 137 EXON LA TWOIN eXR2 LGAD TIMING AREA ADDR. 
2 jo 
DATE 25AUG69 310CT6S 11MAY70 O1NOV70 19FEB71 PROG ID 0E03-3 | DATE 25AUG69 3L0CT69 LIMAY7O OINOV7O 19FEB71 PROG ID OE03~-3 
EC NO. 816485 816529 816671 816764 818912 , PAGE 1 EC NO. 816485 816529 816671 816764 818912 PAGE 1A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 2589955 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589955 
a : PAGE 2 °e PAGE 2A 
a £033 CHAIN CHARACTER COUNTER TEST : e £033 CHAIN CHARACTER COUNTER TEST 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT : ERR LUC OBJECT CODE ADDR STMT SOURCE STATEMENT « 
> OB85 C2 O1 13€0 138 LA - GNEIN,XR1 LOAD CHAR.CTR.AREA ADDR. @ OC6E F2 04 2A 206 JNH ISSEQ 
ee OB89 BO E2 Ol 139 SLOOP SNS 104XR2),X*E2* 5-SENSE TIMING BYTES cae OC71 70 7F 03 207 CLI 30—¢XR1) 9X" 7F* IS 3RD HOM SAM 7F 

opsec 7C El O1 140 SNS  =$1(,XR1),X*E1* 5-SENSE CHAR.CTR.BYTE OC7S F2 01 24 208 JNE ISSEQ . 
> OB8F 5C 00 00 O1 141 MVC O(1eXR1)910eXR1) 6-PuT C.C-eINTC LO ADDR. @ OC77 B& 10 03 209 TEN 3(,XR2),B*10000* 

0893 36 O1 OD4F 142 A ~ ONE,XR1 6-ADD TG C.C.ADOR. OC7A F2 10 15 210 JT NOSHF T 

OBS? 36 02 OD4F 143 A ONE »XR2 6~-ADD TO TIMING ADDR. : Oc7D B8 10 04 211, TBN 4(,XR2).B*100008 eee 
® OB9B 34-02 ODBE 144 St —§ ADRSAV,»XR2 6 - ae a OC80 F2 10 OF 2 Baa “JSF  NOSHFT- - : ~ 

OB9SF OD O01 ODBE OD64 145 SHLGNG CLC ADRSAV(2) sLASADR 22 OR 10-ADOR.REG.TO END ; oc83 88 10 05 213 TBN 5 (,XR2},B*10000° 

OBA5 CO O1 OB89 146 BNE SLOcP . 4 t OC86 F2 10 O09 214 JT .NOSHFT 
2 147 * 48~-CY. 73 USEC. Loop i S ocs9 CO 87 0222 215 B HALT. NO PSS1 HALT 

148 * 60-C¥. 91.2 USEC LOCP FOR 100-200 : ocsD EC57 OCBE 216 OC. XL2*EO57* : 
OBA9 3C OO 1FFE 149 MVI ENTUU-1,X"008 ZERO 2ND SENSE BYTE : OC8F F2 87 7C 217 J GAWAN : 
e LSO SHRASEE REARS REA AREE AAS EER SAAR EK EK RAH RE SE AE RE AKT SEE RE EE & oC92 CO 87 0222 218 NOSHFT B HALT NO CC SHIFT HALT 
ia 151 * CHECK HOME LATCH MISSING * ee OoC96 £058 ocos7 219 oc XL2°E0O58* 
ie 152 AERREAE ARERR EAR ARERR AA RETEST AH SAREE RAR ea RS RS CC98 F2 87 73 220 2 GAWAN 
2 OBAD C2 O02 LOEF 153 tA TWOIN-1,XR2 LOAD TIMING AREA ADDR. ; 2 OC9B C2 O02 1308 221 ISSEQ LA GANEIN-5,XR2 SET XR2 TG 4 SAMPLES 

OBBi OC O01 ODCE OD40 154 MVC SAVSAM(2),ZERO OCSF 36 O02 ODCE 222 A SAVSAM,XR2 BEFORE HOMSAM 

OBBT OC O01 ODBE OD4D 155 ZERSAM MVC SAHCNT (2) ¢ ZERO ZERO SAMPLE COUNTER OCA3 8E CO 00 OD4F 223 ALC 0(1,XR2),0NE ADD 1 TO HCMSAM -4 
€ OBBD E2 02 02 156 ADWUN LA 10,XR2),XR2 ACD 1 TO SAMPLE ADDR< | & OCA8 9D 00 00 04 224 CLC O(1sXR299409XR1) - HCMSAM-—4 NOW SAME AS HOMSAM+4+4 

OoBCO B8 C1 OO 157 TBN O(,XR2),B°1° HOME LATCH ON i OocaAC F2 O01 O09 225 ‘SNE NOSEQ 

0B8C3 F2 10 27 158 JT GOTWUN YES JUMP : ' OCAF CO 87 0222 226 8 HALT NC CC RESET HALT 
& OBC6 OF O01 ODB6 OD4F 159 ALC SAMCNT(2),0NE ADD 1 TO SAMPLE CNTR. i & OCB3 E055 OCB4 227 OC XL2°EO55® 

oBcC OD O01 OLBSE OD59 1é0 HICNT CLC SAMCNT(2) yFEMAX SAMPLE CCUNTER OVER MAX S i OCB5 F2 87 56 228 J GAWAN : 

OBD2 F2 04 11 161 JNH LOADUN: JUMP IF NOT i OCBS 4D CO 03 ODCB 229 NGSEQ CLC 3(1¢XR1) ,HICHCT WAS 3RD HOM SAM LESS THAN 2F OR 77 
£: OBD5 3D FF 0878 162 CLI UCSFLG»X* FF UCS CHAIN : i @ OCBD F2 04 48 230 JNH  BAGFR. =~ THEN ITSA BAD CTRE 
ae. OBDS F2 81 0A : 163 JE LOADUN — : . SKIP HALT IF YES 7 a ae : OCCO 3C OA ODCS 231 MYiT NCEM, X*OA® LCAD SKIPPED 1 ERR CCUNT 

OBDC CO 87 0222 164 B HALT HALT NO HOME cATCH OR 1 MISSINE \ occs 3C 28 ODCA 232 MVI TRICT»X*28! LCAD SAMPLE TRY COUNT 
c OBEO E053 CBE] 1265 oc XL2*E053°* i @ Ooccs 36 O02 0D53 233 A FCUR» XR2 SET XR2 TC HOMSAM ADDR. 

OBE2 CO &7 ODODE 166. B GAWAN | OoccC 36 O02 OD55 234 PLOOP A THRTEN, XR2 SET XR2 13 OR 1C AHEAD GF HOM.SAM. 

OBE& C2 O01 OBBD 167 LCADUN LA ADWUN »XR1 LGAD LOOP ADDR } OCDO 4E O00 03 OD4F 235 ALC 3¢1,5XR1),0NE ACD 1 TO EQUAL NEXT CHAR.COUNT 
€ OREA F2 87 51 168 J CEND ' @ OCcD5 90 00 03 Q3 236 CLC 301,XR2)_302XR1) ARE THEY EQUAL NCW 

169 #FSEESHASERAES SAE SAAEA LESS RSA SEAS SRASRAT ARATE RS HRRR TTS RRR EREEE EERE REESR fT! OCD9 F2 81 15 237 JE GUUDY JUMP IF YA 
170 * CHECK FOR TCO MANY HOME LATCHES * OCDC 4E 00 03 OD4F 238 ALC 3(1—2XR1),GNKE ACD 2 MORE 
cc LV] FEREESRRASLSRS SRSA SAE LARATSS ARASH RS SARSSATSSRARHARS SKS RESReesaeseese | CF OCEL 9D 00 03 03 239 CLC 3€19XR2)930yXR1) ‘IS IT CNLY -t AHEAD 
OBED OF O1 ODBG OCD4F 172 GOTWUN ALC SAMCNT(2)4.GNE INCREMENT(1) SAMPLE COUNTER } OCES F2 84 2 240 JH BACTR IF NOT ITSA BAG COUNTER 
OBF3 3D FF 0878 173 Cul UCSFLGy,X*FF® i OCE8 OF CO ODC9 OD4F 241 SLC NOEM(1),0NE DECR-SKEPPED 1 ERR COUNT 
Cc OBF7 F2 01 OC 174 JNE LGCNT | c OCEE F2 81 17 242 JZ BACTR GC TO BAD CTR. IF 10 OF "EM 
ae CRFA OD 01 O0O0C6 CD4D 175 cLCc SAVSAM(C2) 2 ZERO i OCF1 36 O01 O0D55 243 GUUDY A THRTENsXR1 

ocoo F2 01 15 176 JNE TOME | oe as ae OCF5 OF OO GDCA OD4F - - 244 _ SLC TRECTCLPSCNE = °° ~~ LOGKED AT 40 ChKAR.COUNTS YET 
€ 0CO03 Fz 87 2E 177 J SAVIT ow 8 OCFB CO O14 OCCC 245 BNZ PLOCP LcOP IF NGT 

O0CO6 OD O1 ODB6 OD57 178 LOCNT CLC SAMCNT(2),FEMIN SAMPLE COUNTER UNDER MIN OCFF CO 87 0222 246 B HALT CC ERRGR DUE TO EXTRA 

Ococ F2 02 1C€ 179 JRL LGLPAD 0D03 E059 OD04 247 DC XL2"*EO59¢ EMITTER PULSES HALT 
@ OCCF GD O01 ODC6é O0D4D 180 CLC SAVSABE£2),ZERO 1ST HOME LATCH SAVE EMPTY 8 0005 F2 87 06 248 J GAWAN 

oc1ls5 F2 81 1C 181 JE SAVIT : Lene 0008 CO 87 0222 249 BACTR 8B HALT BAD CC HALT 

0C18 OD O01 ODB6 OD51 182 TOME CLC SAMCATE2), TWO SAMPLE COUNT HIGHER THAN 2 ODOC E056 ODOD 250 DC XL2°E056® 
€ CC1iE CO C4 OBES 183 BNH LOADUN i 8 ODCE OF OO ODCS8 OD4F 251 GAWAN ALC LPGUNT(1),0ONE ADD TO LOOP COUNT 

QC22 CO 87 C222 184 B HALT HALT,TGO MANY HOME LATCHES i 0014 CO 87 0212 252 B TEST 

O0C26 E054 oc27 185 DC XL2'E054?* 0018 3D 32 ODC8 253 CLI L POUNT,X*32° DGNE A 50 LCCPS 
é 0C28 F2 87 E3 186 J GAWAN , @ ODIC CO 82 0A90 254 BL LUGAN BR TO SAMPLE AGAIN 
tse 0C2B OD Ol ODC6& OD4D 187 LOLPAD CLC SAVSA#(2) . ZERO 1ST HOME LATCH SAVE EMPTY ‘ 0020 CO 87 0216 255 B LINK 

OC3i F2 01 06 188 JNE ALRSVC NG,THEN SKIP IT | 256 
e 0C34 OC O01 ODC6 ODB6 189 SAVIT MVC SAVSAME2) »SAMCNT SAVE 1ST HOME LATCH COUNT ; @ Q57 KEKRERE RARE RRA EARS SRE S SARA EARS EASSESAAAESAS AR AGFA SS AAS SHR ASRS RAK HAH 

OC3A C2 01 O887 . 190 ALRSVD LA ZERSAM2XR1_ | 5, LOAD LOOP ADDRe on ee ee | ceseen eee cee en te ee QR BR oo CHECK FOR-BUSY-€: DELAY: SUBROUTINE ~ “o-oo aeen 
“""  “OCBE°34 02 ODBE ~~ ~~ ~~ """191 CEND ” ST ~ ~ ADRSAV,XR2 | 259 HHERKEAEEREEAEERALSSSEAFHES SH SES EASASERSS SESSA SAS IAS SSS SSS SESH KS SHS TES HS 
¢ O0C42 OD O01 ODBE O0D66 192 CLC ADRSAVU2) sALMLAS ALt SAMPLES CHECKED € 0024 34 08 OD4B 260 BROUT ST BSEXET+3,ARR LCAD RETURM ACDR. 

0C48 DO C1 a0 193 BNE O(2XR1) LOOP IF NOT me 0028 OC 02 ODDO OD5C 261 SDC MVC BUSUB (3), BUSCTI STCRE DELAY CCUNT 

194 FHRERREEESARASRERARE ES GASSES ES SRASERREREASES SSS S ERE RRRESEREESESEE EE | OD2E OF O02 ODDO OD4F 262 FLOOP SLC BUSUB(3),CNE 
S 195 * CHECK CHARACTER COUNTER RESET Sor * 8 0D34 F2 81 O07 “263 SZ TOLGNG — , 
DDG Re ok tek oe ok eek ee RR ER RRR ERAS ERASERS ASS SHA ERA EEE ER ARE 0037 Cl E6 OD2E 264 TIO FLOCPsBUSY 

OC4B C2 01 13DF 197 LA GNEIN-1,XR1L i 0038 F2 87 OA 265 J BSEXIT 
$ OC4F 36 01 QDC4 198 A SAVSAM,XR1 e OD3E CO 87 0222 266 TOLONG B HALT 

0C53 C2 02 19EF 199 LA TROIN-1,XR2 OD42 ECil 0043 267 DC XL2*EO11® 
“ OC57 36 C2 ODC6 200 A SAVSAMsXR2 ! 0D44 CC 87 O0D28 268 B SoC 
we OCc5B 7D 00 03 201 cli 30,XR1),Xx*'OCc! 3RD HOM SAM 00 © 0048 CO 87 0000 269 BSEXIT B -* 

OCSE F2 01 O08 202 JNE HOSAM3 : 270 SHEARER RS EKER EEE SERRE SARA SERRATE RE EE RRS AAS EK SESS REE SRK RAE EES SEKEKAREK 
a 0C61 4D 00 OO jDCB 203 cuc O(1¢XR1L) eHICHCT HCMSAM 2F OR 77 ; 271 * CCNSTANTS * 
Ss OC&6 F2 81 AS 204 JE GAWAN ; g 272 SREERKHSSEEKERS ARR HAAR AAR EKA ARESE ESSE SSS ELAR SS SAR EASE AEA RES SASSER SH 
ae 0C69 4D 00 03 ODCB 205 HOSAM3 CLC 3(1,XRLI,HICHCT 3RD HOM SAM GREATER THAN 2F GR 77 as OD4C 0000 OD4D 273 ZERO DC Ii2*o* 

° c 

DATE 25AUG69 310CT69 LIMAY70 OLNOV7O 19FEB71 PROG ID OEF03-3 ; DATE 25AUGE9 310CT6S LIMAY70 CINOV7O 1SFEB71 PROG ID 0E03-3 
i: EC NOw 816485 816529 816671 816764 828912 PAGE 2 e EC NO. 816485 816529 816671 816764 818912 PAGE 2A 
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18" HALNTENANGE DIAGNOSTIC PROGRAN Sake oe a ey end ue Pa PERT WD. zseesss i o 388 WAINTENANCE ‘Diagnostic PROGRAM a PART NC. | 2589955 
: . £033 CHAIN CHARACTER COUNTER esr Be cae o £033 CHAIN CHARACTER COUNTER vEST 
_ , BRR LOC OBJECT cove ADDR STMT SOURCE STATEMENT H 06tC“<«é‘éiERRAR:« LC: «BET cone ADOR STRT SOURCE STATEMENT 
.. # OB4e 0001 eo OD4F 274 GME DC - EL2°1" |e OOE6 338 BUSY £QU Xx*E6* PRINTER BUSY CODE 
= Seeotoone opsi 275 THD 06 OC 312°2° . . 000s 339 ARR EGU x's ROVRMECALL REC. . 
is. gps2 aces 9053 276 FOUR Oc ru2zeae ; oe 0222 340 HALT GOU %*222° ENTRY TO DCP ERROR HALT ROUTINE 
 @ — @bS4 000d OD55 277 THRTEN OC aiL2*13* | ® «B42 * = SENSE SWITCH EQUATES 
mee - ODS6 025F : COS? 278 FENIN DC ¥1.2*607* “ O208 342 SBYTEO EQU x* 208° BEP SENSE SWITCH AREA 
"858 026D ors9 279 FENAX OC ¥224622° ee 343 * CONTROL POM SENSE SWITCHES ; 
aa s _ DSA 046000. O0SC 280 BUSCTI BC XE3*640000* - 2 0004 344 SSHOS — X*O4* PRINT MESSAGES ON MFCU eS 
Nyt > GBS eceonsNNeBO 0862 261 - pO xeeroe MUST FOMEDIATELY PRECEDE *LASADK® ae FFFF 345 a2 
i FS." 9863 FFE OD64 282 LASADR BC #1218190). 4 
jm ~- 9pe5 1FFD0-——(‘“(;*C SS 283 ALMLAS BC | AL2(8189) '& . & 
io ‘S067 FFFE  .OD68 284 WEGl OC  AL2*FFFE® 
i, te, B69 OOFF OD6A 285 COF OC xXL2*OOFF® a I 
. OD68 FFLE Re «-28E MEFTY DC 412°~50* ® e 
be OD6D 3400 - -« OB6E «287 HODEL DC xXLZ*3A00* Ee 
. GD6F OD74 | OD70 288 ADMIN OC ALZCFEMINND a 
oa GDT1 ODT OD72 289 ADMAX DC AL2(FEMAKK) g ® E 
oD73 6108 OB74 290 FEMENN OC IL2°475°* : : 
- OOS OLES OD76 291 FEMAXX DC 112 *466* &E 
z: ® 292 ; & 4 
EC = <> 233 EREESES SEEESESSHEESSSESEERALES OR YEEASS EFEOEFEES EEGEELER VF SHETECTAE LAE SE sg . " 
ee. 294 * PRINTOUTS *« §. = 
eek, » 295 RRELDASHFLSGSSSSSEALALDSLSE SERESEGSEELAE SLES ORALG GAVE IRE SLAG SS LIFIE AIST SS 3 @ ie. 
- O07? 40F4FR OD79 296 FRATE DC CL3* 46° e 
ODTA FIF2ZFO OTC 297 EXCASE OC €i3*120° : ee 
=) ODD 464040 OD7F 298 wialM DC CL3* * 2s 2 : 
as O80 40CSCEC1D9468C3C8 0DS2 299 oc CLZO* CHAR.CHAINsCHAR.CTR® setae _ & 
fe “ODe6 C1C9D568C3C6C 109 299 Pe: 
_£ OD90 48C3E3D9 299 ® = 
is 009% 4BESC5E2E3 ones 300 T1711 OC Ct5*.TEST* . 
Z CD99 CID4C1C 7054600105 OPAB 301 DC CLEGTEMAGE AND CHAIN * ee 
@ = =—-- «OAL: CasOC3CBCICSDSA0 302 ;® e 
eed ODA9 C4DE40D506E24001 ODBG 302 ERUOT OC CL12°D0 NOT AGREE* a 
ei OOB1 C7N9CSC5 302 i 
a © a . 303 | @ EC 
w ‘ 364 Kick ES SDSS E SEES SESS OERESEERERERL GEES SERBS FHFVS SERVES CHEF ESSNLTSSES ES BE 
ie 305 * RESERVED STORAGE * j-  ——-— —- 
€ : : 306 RRGHSESESORARE HE 44D FEHR GLERLSLEESSLLIESSLALLESSLI FRAGILE SESSE CE ATAS GOS SS @ ra 
Opes GOGO OD86 307 SAMCNT DC XL2*°0* ae iP 
_ B87 CCOGoOCEDONN cose 308 po CLO FOF MUST IMMEDIATELY PRECEDE * ADRSAV® E 
a GDBD - ODBE 309 ADRSAV DS = CLZ @ = 
Bo SBF CDCe 310 STAT2 DS Ci2 z 
, ooc. ONC2 3131 STATS DS cL2 re 
1, 90C3 ODC4 312 ERTL OS CL2 » F 
coe ODES ODC6 313 SAVSAN DS cL2 o 
* OBC? ODC7 324 BLAKNT DS CL 4 
. & once : ODCS 315 LPOUNT DS Cii ® : 
— eDc9 ODCS 316 NOEM DS CLI o 
UDCA ODCA 317 TRICT DS CLI x 
® eoce COCR 318 HICHCT DS CL a er 
DCC ODCD 319 MSECS DS C412 eae ae 
2 ODCE ODDO 320 BuSUB DS CL3 oe. 
- @ 1360 | 322 ORG x*13EC" ® rs 
é | 13E0 322 GNEIN EQU * CHAR.COUNTER SAMPLE AREA = 
* 13E0 19ED 323 DS 31CL50 te ; 
: @ 19EE ISEF 324 os ci2 & ue : 
£ _ # 19FO 325 THOIN EQU *¢ TIMING EB2 SAMPLE AREA P, 
: 19FO FFD 326 SEMID DS 31CL30 E: 
: @ FFE 1FFF 327 ENTUU DS CL2 @ 
% : 328 EREAREK KGL GEGRELEALERREARERHSE SAS EAGLRSBRERLE FRE ARALGERD SIAPSESLENSSE TORE { 
: 329 # EQUATES * | 
! * @ 330 SERERGESSESSESSOEAEERESERDSESSESARRES SS HEHSS IG PIBLAASSALSFSHERS FHSS SSS SH | 2. 
ee 0001 332 XR1 equ 1 INDEX REGISTER 1 ‘ena 
: oco2 332 XR2 EQU 2 INDEX REGISTER 2 
= @ 0800 333 LPI EQu  x*s00* LINE PRINTER IMAGE AREA ® 
é 0878 334 UCSFLG EQU x*s78* ; 
% 0216 335 LINK EQU  X#216* ENTRY TO DCP CHAIN ROUTINE 
= @ 0212 336 TEST QU xX*212° ENTRY TO DCP READ DATA SW*S ROUT. 2 
: 021A 337 PRINT EQU  xX*21A° ‘ENTRY TO OCP PRINT ROUTINE | : 
® * | ® 
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o & @ 
SYMBOL T LEN VALUE DEFN REFERENCES se . SYMBOL T LEN VALUE DEFN REFERENCES 
ADHAX A 002 . OD72 0289 ocs9 SOF A 002 OD6A 0265 0065 
ADMIN A 002 OD70 0288 9060 F @ pazz A 004 OACF 0086 0098 i 
ADRSAV A G02 ODBE 0309 O115* 0116 0164% 0145 --0191% 6292 : PLOGP & 004 OCCL 6234 9245 { 
ADWUN A 003 OB8D 5156 0167 i PRINT C€ 002 022A 0337 Gd41 «0050 : 
MLRLAS A 002 ODEG C283 0192 | @ RYN1i = A 002 OACD G023 015 —_ | 
ALRSYD A 004 O0C3A 0190 188 SAMCNT A 002 ODBE 0307 0G155* O159* 0160 0172% 0278 0382 0169 
AMYMIS A 0046 OAFC 0095 0089 SAVIT A 006 O0C34 6189 0177 0181 E 
ARR C 001 O008 0339 0260 i @ savsam A 002 ope 0313 0154 C175 0180 0187 0189% 0198 0200 0222 E 
GACTR A 0O4 OD08 0249 0230 9240 0242 ; SBYTEG C C01 G208 0342 0039 0048 E 
BLAKNT A 001 ODCT 0314 C0664 OUTI> i SDC A 006 CDZ8 0261 0268 _ 
BROUT A COH CD24 0260 ocT3 | @ SEMID £050 FFD 0326 0067 : 
. QSEXIT A 004 OD48 0269 B260% 0265 { SENAT A 004 GA35 0036 0032 Ee 
' guscTY A CC3 Obst C280 0263 ‘ SHLONG A 006 OB9F 0145 0128 O132* 
BYSUB A 003 ODDO 0220 0262% O242* i @ SIMYNA A GO4 OAFF 0102 0096 
@usY € 001 O8F& 0338 0264 { SLOOP aA 003 of69 0139 2146 
‘CEND A 604 GC3E 0191 0166 i spupT a 003 Oa0c 0017 0055 6129 
CHEND A 004 OB82F 0115 0110 ( @ sswos C GDL 6004 0344 0039 0046 
CHtON A 003 OABE 0088 $00894% 0095 9097" fot: STAT2Z A 002 ODCO 6310 0124* 0125 
CHKNE A GUS CMTS TST Gos t STAT3 A 002 OBC2 0311 0036% 0037 
/  £MON A 004 98382 ©1237 0123 , @ aksae e 003 Gabe 8075 onze 
ENTUU A 002 FFF 0327 0O6S* 0068 05.49% } TECHBI A 004 GA3C 0637 0G28¢ 0533+ 
ERTL A 002 ODC% 0312 0026 } TEST C€ 001 0212 0336 0027 0252 ae 
) BRUOT A C12 OTB% 0302 0044 @ THRIEN A 0C2 OD5S C277 | OOST# 0234 C245 % 
‘ EXCASE A 003 OD?C 0297 0035 TIPME 2 004 Of6B8 0055 0069 = 
£03 A 001 OADG 0003 3 TITLE A 005 CD98 0300 0053 
) FEMAx A COZ ODS9 C279 0160 ' @ TOLCNG A 004 BDZE O266 0263 
FEMANX A 002 OD%S 0291 0285 TOME & COB OC18 0182 its : 
_ « €EMIN A OC2 ODST C276 0278 : TRICT A O01 CDCA 0317 O232% C246%. 7 
} FEMINN A 002 OD74 0230 0288 i eS 6 & 002 0051 C275 0182 
FLGBP A CO6 ONZE 0262 0264 Fo--: FHWGIN A O01 19FO 0325 0074 0085 O102 O137 153 9199 
four A 002 O853 C276 0233 t UCSFLG C 001 0878 6334 0031 6262 0173 
f FRATE A 003 ODT cz 6029. i @ UPatT A 004 OA5& 0046 0040 
GAWAN A 006 CDCE 6251 0053 0123 0166 0186 0204 G217 G220 0228 G248 HHAIN A 003 OD?7F 0298 029% 0035+ 
_  GOQBUN A 004 O8Z8 61124 0106 KR1 C962 8001 0332 G067# DOSE 069% D670 “COTO 0209% 0114* 0117 9138* 0140 O14) O16) foe unas sapere 
R GOPRT A 006 OASA C048 2038 @ O142% 0167 C190 0193 0197% 0198* 0201 9203 O205 207 224 O229 ~ 
ri gOTWUN A O06 OBED 0172 152 : G235 0236 0238 0239 02434 
GUUDY A 004 OCF1 0243 6237 ; XR2 Ceci 0002 0332 Cors* 0075 0076 OOTEX OOT7 0080 0OBS* OCs7T COS7T* (OES O01C2* CIOs 
Bo watt C 001 0222 0340 B0o46 0052 O112 0164 0164 0215 0218 0226 0246 0249 O266 | ® 0104% 0105 215 012% 0122% C137* 0139 0243% C144 0153% 0156 O156% 
HICHCT A GOL ODCB 6318 CO20* 00347 0203 0205 0229 0157 0192 0199% O200# 0209 0211 0213 0223 0222% 0223 0226 0233% 
. -HECNT A 006 O8LC 0360 00594 of 0234% 0236 0235 
RB wEcCOP A004 0840 0122 0126 { @ YABIT A 004 0803 0103 0058* 0114 
HODEL A CO2 OD6GE 267 0121 Posts ZERD A 082 ODSD 0273 0154 0155 0175 0180 0187 
HOSAM3 A COS OC69 0205 oz02 i ZERSAM A 066 OBBF £155 0190 
B  ISStQ A 006 OL98 0221 0206 0208 i @ 
JUMPIT A 004 OABE D064 0856 TOTAL STATEMENTS FLAGGED 1N THIS ASSEMBLY = a 
LASADR A 002 O64 0282 0186 0245 
BO oOLINK C JO 6216 0335 0255 ; © 
LOADUN A 004 OBES 0167 0161 0163 0383 
LOCNT €& 006 OCO& 0178 00609 0174 | 
B <.mLPAD A oo6 OCC2B 0187 6179 s 
LPI C Oc1 O800 0333 6133 0133 0236 0134 
LPOUNT & 001 ODC8 C315 00644 0253 0253 
B LUGEN A 004 GADD dG 0254 ' @ 
. «6©M2€TY A coz O96C 6286 0069 + the 
WISEM A G04 0822 01112 0108 i i 
@ wovMoR # 004 OCADD 0069 C072 ® os 
MSECS A COZ ODCD 0319 0127* 0131% 0135* f 
NEGI A 002 OD68 0284 Gazz = 
@ woerr 8 003 C807 0104 0109 @ if 
NOEM A 001 CDC9 C316 0086* 0090* 0103% G107* 0231* C241* mS 
NOSEQ A COS OCBB 0229 0225 t: 
@ ROSHFT A 004 OC92 0218 C210 O212 02:4 & « i 
NOUCS A 006 0868 0133 0130 0136 ee 4 
ONE A 002 OD4F 0274 C972 0099 O107 0235 0242 0143 0159 O172 0223 0235 0238 9241 
€, C244 0251 0262 ' @ 
‘T’ QNEIN A001 1360 0322 0238 0197 0221 ines 
e } | @ 3 
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. E033 CHAIN CHARACTER COUNTER TEST 
OBJECT CARD LISTING : 
a ~~ =5 @ oe Ses re 8 ga cee i 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 
8 CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 4S THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 
3 ee ef ae e e -_* 4 
aaa Te-¥s8C< 6& «68-4 «OC 14A8 OMe SOK K{IC-H{ OBCPAat;LO 27C¥Z*"0/8a—D4 ICU Hicr7c#e< -5™CPO 0804 ” 4Q<E0330001 E 
$ ° eum e e se a. ee oo. ‘es ‘aa, : : : 
T4-ZSOT-DC*#.2DA% 8A HHOZ HUH*BFZD *CS$L-C2BG S.-CT- D-T2U 5 /OHEEJO (Wt +65 HCPHEECO CNM *KHEO330002 a 
& - s s e e es e e ee ae a e 
T#-DO] YA OAB*D (#-OAC 2(*#CO C¥#- < J@™"*COYSG-7GO-D -"MOl A™W={-D(SEO 1 CHE VECM" &D IOH* 11£@2E0330003 Z 
BS. ° ° ee s e e e o ° e ° : 
T+-,,CKLB /XOZ+H A8—HA?~2AD DH_#0 C28B8_$B /XO{B— (23HB $-— {HEE a C*UCLa AB_| /CH S8ED =ZaGE0330004 iy 
¥ §. T+~ZWOH*(CT69B_$ 2- &-a>£_ GOH*H3 aH BF> aD&ETIB-—HADB a/ $CO (€2ES5)OHD .H*HABO=2/C# /OH SB8EH ®*8aF 0330005 
Ss : oe e e e e s 2 e = ee 
7 T+—-_/OH*(CZHABOX 4 ~—6=CED(?7-5U4 D {EHCS$TQBCOT -&> A<+H(OC-ACS* U _ LIQC3LCAB: 8H Y <@/ R1¥*E0330006 
oe Se oe ee e ee e es ee —_ 7 = eeee e a Ms a 
T4+->¥BC3"C#49A0> -C->adH -— CLZH — CG €3ES5{OHE.ESt BF-~CB J{-Z+HAt+D AP LQACMa6 -5 ‘1 ( “Ht ” 1ROEC330007 . 
S ° eo coe « e eo ° e e ° ° 
T+-?7PC$8( &6=COL E>1] o"ZHBFz:a < &7FCM4< &66CM7 S -F8 EC2DB*+ &6 6CMAl E66CNX2AAD **0-— S$HMEO330008 
&. - Te-OK $s | HABZBG Se. -M@BGCE#B E>'3Y) JC-D(_-S}l-aHs}H AC 4AC*Q (L2HAESH Ge-4ACSQUN"HBG 4 AC*Q 91UE0330009 
. T4#-10CM72-J0( &6 6CNG A ?WOH*BH>A MaY=TCED(i-Sta-D FC D(i1-660-D._3& BCS$8( 86=COFE EC B I< 12¥E0330010 ~ 
T+-2H73QAC#$B /X 20-HO1LX4 = "HABD4S 7edYFVLE CC¥? 2A8Z'=O0J 2 KK8D | 2DAQ8D L2D =8D P 20 U @6£E0330011 
@ —_ ese see ° ° oe = ° - 
T+-3COH*BH>APAY) @0H*BH>AQAY)30-H L63QBC*E+ {L94 L2 &X SCHSSEP 2/5R¢C <C2"HDKCO HC*U 324E0330022 
e A es oe ee eo ee es eo * e 
T+#-3=|B-(2TQECNS 6 -SNL- CCM=} < CaYODNi~ CCM=) < CaYE-CO (2E5faYD P{-D{N&@ CFY(La AC<O J8DE0330013 
: e e e e a ° e e 
T4+-490H*BHDAR@Y* FOHtBHD>AOC- (2 5 JCH*¥BDT42C%T —-D &OH*PETENCMZ< -7 SCNOJ -—7ECK®2-E- A9-4 3L8EC330014 
&. T+-54.7HGB3BG S.- -D*BGCKT 70 & B & C&I-~ W4 OD aksn ofung unmeee (3 5 & 3B LAKEOS30015 
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a IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589957 18M MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 2589957 
. bine ae PAGE 1 PAGE 1A 
© E042 5203 CYCLE STEAL & HAMMER ADDRESSING TESTS EO%2 5203 CYCLE STEAL & HAMMER ADDRESSING TESTS 
C: ERR LOC OBJECT CCDE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT i 
2 DECK 4 OA92 F2 10 09 70 JT CHPCc2 3 
*. oA0O 3 UVWXYZ START X*A00® OAS5 CC 87 0222 71 8 HALT PCl NOT GN AFTER BLANK FIELD 
G & KEEKESSEKASASRSEASERSKSEARSEPSESSERKRERASSRSERERASENKTESSESSSERE ESKSEHKSESSEKTS SH OAS9D E062 OASA 72 pc XL2*E062* ERR HALT 
Ay 5 * * OA9B F2 87 05S 73 J GAWAN 
o~ 6 * SYSTEM/3 5203 CYCLE STEAL & HAMMER ADDRESSING TESTS * OASE 39 O08 0D32 74 CHPC2 TBF STAT2.B*1000° PC2 OFF 
we 7+ * OAA2 F2 10 09 75 JT CHPC3 
Q SSKSRERTESSECERALSS SHAKES ERK SKE KSSELKES REESE KSEE SSS ESEKKSKE KHKSESEK SES ERKEHAS OAAS CO 87 0222 16 - 8B HALT PC2 NOT OFF AFTER BLANK FIELD 
7% 9 * SECTION 4 — ROUTINES 1 & 2 * OAAO E063 OAAA 7 oc XL2*E063* ERR HALT 
fae LQ SHREPESEEAESEAAEAR EASTER ATEKRES THERE SESSEKAT TSE EKHKE ESS EES SELKESLEK SES SAERESK OAAB F2 87 €5 78 J GAWAN : : : of 
: OACO £042 OAOL 11 oc XL2*E042!* PROGRAM IDENTIFICATION OAAE 39 04 0D32 79 CHPC3 TBF STAT29B*100* PC3 OFF } 
: OAC2 OO OA02 12 oc XL1°0* FLAGS OAB2 F2 10 09 80 JT CHHSL : 
@ - O0AO3 01 OA03 13 oc xLitie CURRENT ROUTINE NUMBER CABS CO &7 0222 81 B HALT PC3 NOT OFF AFTER BLANK FIELD 
j OA04 6000 OA05 14 DC xL2*O?* RESERVED OABS E064 OABA 82 oc XL2"E064* : ERR HALT Po 
a OAGS CAOD OAO0T is oc AL2Z(RTNI) ADDRESS OF FIRST ROUTINE PREFIX OABB f2 87 B5 83 J GAWAN ; 
iG OA0s OD36 OAG9 16. oc AL2ZCERTL) AODRESS OF ERROR RECORDING TABLE OABE 39 02 0032 84 CHHSL TBF STAT2 .B*10° HAMR.SET LATCH OFF 
OACA £95000 oAOcC. 17 SPUDT DC XL3*E050C0* UNIT DEFINITION TABLE -— PRINTER OAC2 F2 10 09 85 JT UPCPF , 
. i LB SSESSERKAAEAKSESS SKERKERSSERERERARAAES SEES THERE KEKE SAAS ATH SEARS S CEKHESKSTSE OACS CO 87 0222 86 8 HALT HAMR.SET LATCH ON AFTER BLANK FIELD 
c 19 * * OACS £065 OACA &7 oc XL2*E065* ERR HALT j 
: 20 * ROUTINE 1 - CYCLE STEAL TEST * OACB F2 87 AS 88 J GAWAN 
21 * * BQ RHR RH Re RAKES HAAR HRA RAAAA REESE AERASE SEE ASER ELE SERS KASS AHH THESE 
C QQ KREKLEREKAER SEARS S SEAS SSA S SEAS AREKEAERKS RELA EKESERRSERRHS CAS SKE E REM EEE 90 * ISSUE PRINT AND SPACE WITH UNPRINTABLE DATA FIELD * | 
ciav 6) 6oQ AOD OL. OAOD 23 RITNL DC XLit 78 ROUTINE NUMBER Ql RRR RARER AE RSEREK EAE HAASE SEKRAARHS SKS PRES SAKES ERE RARE KE HASHES EK 
ee OAQCE OO OAOE 2 oc XL1*Q8 FLAGS OACE 3C FF O8SFF 92 UPCPF MVI PRDAT ,X*FF* INSERT AN UNPRTABLE CHAR. 
'- QAOF OBB7 CA10 25 oc AL2(RTN2) ADDRESS OF NEXT ROUTINE PREFIX OAD2 OC 83 O8FE O8FF 93 MVC PRDAT—1 (232) yPRDAT FILL PRINAREA WITH U.P.Ce. 
26 THAKSESASHKEESHEKARSKA AAG KASESSSARKESSSESAHS SKS RKSE RKK ASR SRKH SHAKE SE SE SEER ELSE OAD8 CO 87 0659 94 8 x10 ISSUE A PRINT & SPACE 
se QAL1 38 04 02C8 27 TSN SBYTEO,SSWO5 PRINT ON MFCU OADC E201 OADC 95 bc XL2*E 201° 
. QOA15 F2 90 OA 28 JF NRTIO OADE 30 E2 0032 96 SNS STAT2 ,X*E2?* SENSE TIMING BYTES 
OAI8 CO 8T O21A 29 B PRINT PRINT TITLE CAE2 38 10 0D32 97 TBN STAT2,8*10000° PC1 ON 
r OAIC 42 OA1C 30 oc XL1*42° OAE6 F2 10 C9 98 JT CKPC2 
oe OAID 10 OA10 31 oc IL1*is® OAES CO 87 0222 39 8 HALT PCl NOT GN AFTER UPC FIELD 
OALE ODOl OALF 32 oc AL2(TITL1)} OAED E0E6 QAEE 100 DC XL2*EO66* FRR HALT 
‘ OA20 E000 OA21 33 oc XL2*EQOO? OAEF F2 87 8i 101 J GAWAN 
G CA22 Cl EO OA29 34 NRTIO TIO BAPRT »NRDY PRINTER READY OAF2 38 08 O0D32 102 CKPC2 TBN STAT2,8*10008 PC2 ON 
thee “0426 F2 87 14 35 J TOGOON OAF6 F2 10 OS 103 JT CKPC3 
r CA29 38 04 0208 36 BAPRT TBN SBYTEOsSSWOS PRINT ON MFCU SW. ON OAFO CO 8T 0222 104 B HALT PC2 NOT ON AFTER UPC FIELD 
a OA20 F2 SO COA 37 JF MRALT OCAFD E067 OAFE 105 DC XL2*EO67* ERR HALT 
OA30 CO 87 O21A 38 8 PRINT PRINT MAKE PRINTER READY OAFF F2 87 71 106 J GAWAN 
GA34& 41 OA34 39 oc XL1°41° OBC2 39 04 0032 107 CKPC2 TBF STAT2,3*10C® PC3 OFF 
C OA35 1F OA35 40 bec ILi"31°* OoB06 F2 10 09 108 JT CKHSL 
OAT6 0D30 OA37 41 uc AL2(MAKADY) 0809 CO 87 0222 109 B HALT PC3 GN AFTER UPC FIELD 
OA38 EOEL OA39 42 oc XL2"EOE1* i O80D £068 OBCE 110 oc XL2Z2*EO68S ERR HALT 
Cc OA3A FO TC O03 43 MRALT HPL X*O3",X*7C* HALT EL : OBOF F2 87 61 ill J GAWAN 
OA30 3C CO 0037 44 TOGOON HKVI LPOUNT, X*00°* ZERO LOCP COUNT 0812 39 02 0D32 112 CKHSL TBF STAT2 5B*108 HAMR.S=T LATCH OF 
e G5 SRERERE RASH ERLE ET ERAS SEAGER E RSE RERARA ERASE ESEAEEA ELSE SERELS HE SLE KEK EE ne 0Bl6 F2 10 09 113 JT GUDPF 
C 46 * ISSUE PRINT AND SPACE WITH @LANK DATA FIELD * 0819 CO 87 0222 114 a HALT HAMR «SET LATCH ON AFTER UPC FIELD 
been ; QT] CESSES EAE SHACES AKERS AESESESRAKSRARAHEKKKRSERSAMSYASA KEKE SHSHLEE RELA SKS KEK OBLD E069 OR1E i115 DC XL2*E C698 ERROR HALT 
eee OAS) 31 E6 OCE8 48 KZANGO LIO WROADRyLPDAR LOAD DAR WITH WRONG ADDR. OB1F t2 87 51 116 J GAWAN 
c QA4S 3C TF OATB 49 MVI FORCE+1,X*7F*# Ss LLP SERRE SSAA RE RERESA KARA KEK RRAREERASSRERRSEKESS LESTER H RAS ESET EK SEES 
OA49 39 30 OAOCC 50 TBF SPUDT,B*110000* 100 LPM? 118 * ISSUE A PRINT ANO SPACE WITH PRINTABLE DATA FIELD * 
OA4D F2 10 OE 51 JT SUNERD rc L1G RRRERERK SAREE REA AAAKE RARER EE AER EERE RAKES SES ESR EEE SHEER RAS ETRE 
C OAS5O 30 E2 CD22 52 SNS STATZ2,X*E2* GRAB TIMINGS cS 0822 3C C8 O8FF 120 GUDPF MVI PRDAT,CtH® INSERT AN®H® 
OAS4 38 O2 0031 53 TBN STAT2-1,8'10* HMRS.IN POS.M-2 Sty 9826 OC 83 O8FE O8FF 121 MVC PRDAT-1(132),PRDAT PROPAGATE IT ‘ 
. OA58 F2 10 OB 54 JT LOBLNK an oB82Cc CO 87 CC59 122 B x10 ISSUE A PRINT & SPACE 
. OASB F2 87 04 55 J SFOUR ate QB30 E201 0631 123 oc XL2*E201° 
OASE CO 87 0889 56 SUNERD B M4DEL ' 0832 39 E2 CD32 124 SNS STAT2,X'E2?* SENSE TIMING BYTES 
co OAG2 3C TC OCATB 57 SFOUR MMVI FORCE+1,x"7C*# 0836 38 10 0032 125 TSN STAT2sB8*10000° PC1 ON 
~ OAGE 3C 40 OB8FF 58 LOBLNK MVI PRDAT sX*408 PUT A BLANK IN PRT.AREA OB3A F2 10 09 126 JT CHK PC2 
one OAGA OC 83 OS8FE O8FF 59 MVC) =—- PRDAT—10132) »PROAT OB3D CO 87 0222 127 8 HALT PCL NOT GN AFTER PRTABLE FIELD 
‘ OATO CO 87 OC5D 60 8 NEXIO GG DO A PRINT & SPACE C 0841 EO6A OB42 128 OC XL2*EQOGA* ERR HALT 
c OA7T4 E201 OATS 6% oc XL2*E201°* Pt 0843 F2 87 20 129 J GAWAN 
OAT6 30 EG OD34 62 SNS STAT6,X*E6* SENSE DAR | €B46 38 08 0032 130 CHKPC2 TBN STAT2,8*1000° PC2 GN 
Cc CATA 30 OC CD34 63 FORCE CLI STAT6 9#—-* O1D DAR FORCE CORRECT ADOR. | : OB4A F2 10 09 131 JT CHKPC3 
CATE F2 81 09 64 JE GETIM > CB4D CO 87 0222 132 B HALT PC2 NCT ON AFTER PRTABLE FIELD 
GA81 CO 87 0222 65 B HALT DAR WRONG HALT pres 0651 E06C OBS2 133 pc XL2*E06C* ERR HALT 
ps OA85 E061 OA8B6 66 DC XL2"E061°* Yo 0853 F2 87 1D 134 J GAWAN 
os OA&7 F2 87 ES 6T J GAWAN i 0856 38 04 0D32 135 CHKPC3 TBN STAT22B*°100°* PC3 ON 
OASA 30 E2 0032 68 GETIM SNS STAT2 eX*E2° SENSE TIMING BYTES OB5SA F2 10 09 136 JT CHKHSL 
C CASE 38 10 0032 69 TSN STAT2-s8* 10000* PCl ON Lc 0850 CO 87 0222 137 B HALT PC3 NOT ON AFTER PRTABLE FIELD 
DATE 25AUG69 1LIMA&Y70 O1NOV70 PROG ID 0E 04-2 | _ DATE 25AUG69 LIMAYTO O1NOV70 PROG ID O£04-2 
C fC NO. 816485. 816671 816764 PAGE 1 | ~ EC NOG. 816485 816671 816764 PAGE 1A 
S| Ss 
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C 1 
| 














as ES 7 Z 7 . 
ba % 
i i Oo 
; ae 
18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. (2589957 if @ IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589957 
ae , ; PAGE — 2 ii PAGE 2A 
id 
E042 5203 CYCLE STEAL & HAMMER ADORESSING TESTS o €042 5203 CYCLE STEAL & HAMMER ADDRESSING TESTS 
G ERR Lac OBJECT CODE ADDR STMT SOURCE STATEMENT t oO ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
y OB61 EOG6E O0B62 138 oc XL2*EQGE® ERR HALT ae O0C23 OF 00 OD37 OCE2 206 SLC LPOUNT (1), ONE DECR. LOOP COUNT 
rs OB8€3 F2 87 0D 139 J GAWAN ale" O0C29 CO O01 OBEB 207 BNZ LANEG 
ve OB66 38 02 0032 140 CHKHSL TBN STAT2,B*10* HAMR.SET LATCH ON a oc20 CO 87 0216 208 B LINK GEDOUT 
ti OB6A F2 10 06 141 JT GAWAN ; bate 209 
Cc OBED CO 87 0222 142 8 HALT HAMR.SET LATCH GFF AFTER PRTABLE Heise 210 FERRER REE ELE RAALARSREERARE RES AKARA SEAS HE RRASKRE RAKE ERK AKER ALAS KA ERHAARE 
7. O871 EC6F O872 143 pc XL2"EO6F* FIELD --ERR HALT a 211 * CHECK FOR BUSY & DELAY SUBROUTINE * 
* O0B73 OE 00 CD37 OCE2 144 GAWAN ALC LPOUNT (1),0NE ADD YO LOOP COUNT if 212 FEREREKEREAKARERERARAAS EAE SAAH SAAR E SAS SRSRSSKASTS SHS SKAKASAE RE RKKSA AK 
os OB79 CO 87 0212 145 8 TEST le ws 213 
= OB7D 3D 14 0037 146 cLI LPOUNT sX*148 20 TIMES THRU ee 0C31 34 08 0C58 214 BROUT ST BSEXIT4#3, ARR LGAD RETURN ADDR. 
., O0B81 CO 82 OA41 147 BL KZANGO 0C35 GC 02 0D3C OCF1 215 soc MVC BUSUB(3) s6USCTI STORE DELAY COUNT 
C 0685 CO 87 0216 148 8 LINK GEDOUT ; a OC3B OF 02 OD3C OCE2 216 FLOOP SLC BUSUB(3),.GNE 
a 149 i OC41 F2 81 O7 217 JZ TCLONG 
: VSO SERRKESETEREESRAER EERE EEREAKERASLSERE STA SAKE SESRAKLK SHEETS ARLEAKEAKEKARKAKEKE ; 0C44 C1 E6 0C3B 218 TIO FLOOP, BUSY 
C 151 * WAIT FOR M4 THEN DELAY SUBROUTINE * C OC48 F2 87 OA 219 J BSEXIT 
Me? L5H 2 CHKERESRERKEKSESRERSEKREK SAA KEKE AAS RKAS KEKE KESLACKAKESSSEKAKKRKESEKAKEREKRA AE : = Of4B CO 87 0222 220 TOLONG B HALT BUSY ERROR 
oa OB89 34 08 OBB6 153 M4DEL ST MEXIT#3,ARR SET RETURN thas OC4F E011 ocso 221 DC XL2*E0O11° 
Pas 988D 30 E2 0032 154 MITEG SNS STAT2_X*E2¢ GET TIMING 7 0C51 CO 87 0C35 222 8 soc 
ws 0891 38 O01 0032 185 TBN STAT2 2B*1°* HAMMERS IN M4& is ocs55 CO 87 0000 223 BSEXIT B *—* 
“A 0895 CO 90 OBeD 156 BF MITEG 224 SHERERKKEAAKEAEEK SER AAREEAE ERAAK SRE SHE RAAASARERASASARAS AEA SKAAHEASSAKHRE 
- O0B99 3C 28 0039 - 157 MVI MSECS eX #288 40 MSEC DELAY of: 225 * EXECUTE SIO SUBROUTINE * 
039D CO FF 0800 0800 158 WAT cLe LPI(256),LPI DELAY 1 MSEC. i = Se 226 FHERERSARRLER SAKES EERE SERER AH SELES SRESRS SSH RCTSES EAST SHEKES EG ERE AE 
OBA3 OD 3B 0800 CS00 159 cLc LPI(60),LPI : OC59 31 £6 OCE6 227 xia Lic L PDADR,LPDAR LOAD DATA ADDR.REG. 
OGA9 OF 00 0039 OCE2 160 SLC MSECS (1 } »GNE DECR. DELAY COUNT coo OC5D 36 C8 OCE2 228 NEXIO A ONE gARR 
OBAF CO 84 OB9D 161 BH WAT ‘ oy Ooc6él 34 08 OC9T 229 ST LDCMD45,ARR LOAD PARAMETER POINTER 
0683 CO 87 ccoo 1€2 FMEXIT 38 *—*% RETURN OC6é5 36 O08 OCE2 230 A ONE, ARR 
163 ae OC69 34 08 OCDA 231 ST EXIT T+3,ARR SET UP EXIT 
1E4 SHS SEKSERAASAAERES AS ERASE EKKSKA GRE RES AREAES RAS SRE SHES AKERS SAKE EKKE SERS aa OC6D 34 01 OCDC 232 ST SAVWUN, XR1 SAVE REG. l 
165 * * ahha OC71 34 02 OCDE 233 ST SAVTUU sXR2 SAVE REG.2 
166 * ROUTINE 2 — HAMMER ADDRESSING TEST * Se a OC75 C1 EO OCTC 234 TIOCHK TIO ERNRDY»NRDY BRANCH IF NOT READY 
167 * * a ot OC79 F2 87 OA 235 J TIOOK 
a L6G SHRHEKERRESARRERE ES LAE SEARS RAAT HAS REKERESRES EEK SKE CAA SKE SHAK KE SELES AEERAD OC7C CO 87 0222 236 ERNRDY B HALT 
G O88B7 02 OBET 169 RTN2 oc xLif2* ROUTINE NUMBER : = ocso ECtO Ocsl 237 DC XL2*E010* NOT READY ID. 
= OBBB OO oess i70 oc XL1to* FLAGS ngs Ooc82 CO 87 OCT7S 238 B TIOCHK 
fo OBB9 FFFF OBBA 171 oC XL2°*FFFEFt LAST ROUTINE . ; OC86 CO 87 OC31 239 TIOGOK 8B BROUT 
oo L7Q SREREESHSKESSESRASEKARARASEHARH EKA KAKASERKSERKERSE SRE RK AEKSSEKRES SRE SSAKESSES ; i OC8A 31 EO OCEA 240 LIO FOLG,LOFOLG 
we O&8BB 38 04 0208 173 TBN  SBYTEOsSSWO5 PRINT ON MFCU ot Re OC8E 31 E4 OCE4 241 LIG LPIADR,LPIAR LGAD LSR ADDRESS REGISTER 
ed OBBF F2 90 OA 174 JF RETIO : O0C92 OC O1 OCAB CO0D 242 LDCMD MVC CMND+2 (2), *-* SET UP COMMAND FROM PARAMETER 
f. OBC2 CO 87 O21A 175 8 PRINT PRINT TITLE ~ dee CC98 38 80 0209 243 TBN SBYTE1,SSWO8 PRINT ON RIGHT CARR. 
a ORC6 42 OBC6 176 oC XL1*42°* _ ‘ae OQC9C F2 30 04 244 JF NOTRIT 
sae 9Pc7 10 oBc7? 177 oc IL1*16*# : OCSF 3A O08 OCAA 245 SBN CMND+1-~-B*10008 SET RIGHT CARR.MOD.BIT ON 
¢: oBCc8 ODl1l GBC9 178 oc AL2(TITL2) mS eps, OCA3 OC 01 0D36 OCAB 246 NOTRIT MVC ERT1(23 eCMND42 
, OB8CA E000 OecB 179 oc XL2'EOOO® fe Set OCAS F3 00 OO 247 CMNOD sto X*O*,X*08 COMMAND LOADED DURING EXECUTION 
OsBCcC Cl EO OBD3 180 RETIO TIO TRPABsNRDY PRINTER READY OCAC Cl E6 OCRS6 248 Tie ISBUSY, BUSY s 
Ps ORDO F2 87 14 181 J LANE a OCBO CO 87 0222 249 B HALT IF NCT, HALT CN ERKOR 
X OBD3 38 04 0208 182 TRPAB TBN SBYTEO, SSWO5 PRINT ON MFCU SW. GN : ue OCB4 £016 OCRS 250 DC XL2"*E0168 NOT BUSY HALT 
a OBOT F2 90 OA 183 JF MHALT Btn OCb6 35 02 OCEO 251 ISBUSY L ZERO, XR2 
C OBDA CO 87 C21A ‘ 184 B PRINT PRINT MAKE PRINTER READY hae OCBA Cl E2 OCCl 252 DELAY TIO BSYLP ,PBBUSY PRINT BUFF BUSY 
‘ OBDE 41 OBDE 185 oc xL1*"41° : as OCBE F2 87 CE 253 J XIOEXT 
OSDF iF OCBDF 186 oc IL1*31° OCC1l 36 02 OCE2 254 BSYLP A ONE » XR2 TRY FOR ABOUT 1.5 SECONDS TO 
OBEC 0D30 OBE1 187 Oc AL2(MAKADY) ; occs CO 01 OCBA 255 BENZ DEL AY CLEAR BUSY 
OBE2 EOEL OBE3 188 oc XL2*EOEL® SDs occs CO 87 0222 256 B HALT BUSY HALT 
OBES FO 7C 03 189 MHALT HPL X*°03",x*7C# HALT €1 OoccDdD £012 OCCE 257 oC XL2*EO12* 
O8E7 3C 03 0D37 190 LANE MVI LPOUNT, 3 SET LOOP COUNT OF 3 OCCF 35 01 OCDC 258 XICEXT t SAVWUN?XR1 RESTORE REGo1 
OBEB C2 02 FFES8 191 LANEG LA NEG24y9XR2 LOAD A NEG. 24 OCD3 35 02 GCDE 259 L SAVTUUsXR2 RESTORE REG.2 
OBEF 39 06 OAOC 192 TBF SPUDT,B*1108 96 PRINT POS. Ooco7 CO 87 oCODCO 260 EXIT B e~—% EXIT SUBROUTINE 
Cc OBF3 F2 10 CF 193 JT FOUNIT bs ocpB co0O0 OCDC 261 SAVWUN DC IL2*Of 
mee OBF6 C2 02 FFE2 194 LA NEG3CyXR2 LOAD A NEG.30 FOR HAMR.COUNT ace OcDD 0000 OCDE 262 SAVTUU DC IL2"08# 
2 OBFA 38 04 OAOC 195 TBN SPUDT,B* 1008 120 PRINT POS. Sop 263 
OBFE F2 10 04 196 JT FOUNIT , 264 KEKE ERE REE RAERESERARES ESSA RASS ARSE SKA REALS AERAA SKK KESE HK KASS RSS 
0CO1 C2 O02 FFOF 197 LA NEG33,XR2 LOAD A NEG.33 FOR HAMR.COUNT i C 265 * CONSTANTS * 
OCOS C2 01 O87F 198 FOUNIT LA LPD+4+34XR1 LOAD DATA AREA ADDR. : . 266 FHEKKEAKRHKEKEKERASEKEKSEASKAK SAASKSRAKASHAKHA AAAS SAKERSE SESKESSELTRASKAKEK 
OCO9 4C 03 00 OCEE 199 ZIPIT MVC 0(4_9XR1)sEXES PUT 4 X*S IN DATA AREA e OCDF 0000 OCEO 267 ZERO DC IL2*o* 
OCOE CO 87 0C59 200 eR X10. GO PRINT : SS OCEl 0001 CCE2 268 CNE DC IL2*y? 
0C 12 E201 oci3 «6201 oc XL2*E201¢ OCE3 0800 OCE4 269 LPIADR DC »L2*800° IMAGE ADDR. 
0C14 CO 87 0212 202 BE TEST GO READ DATA SWITCHES 1. ae OCE5 O87C CCE6 270 LPDADR OC XL2*87C* DATA ADDR. 
0cis D2 O01 04 ; 203 é LA 40 eXR1),XR1 ADD 4 TO DATA AREA ADOR. : © OCcCET? 0870 CCE8 271 WRDADR DOC XL2*08708 
OC1B 36 02 OCE2 204 A CNE 9XR2 ADD 1 TO HAMR .COUNT “ 4 OCE9 7070 OCEA 272 FOLG DC XL2*7070# FORM LENGTH 112 
OC1F CO 01 OCO9 2e5 ENZ ZIPIT BR TQ OO NEXT HAMR. i C OCEB E7ETETE7 OCEE 273 EXES DC CL&o*XXxx?® 
YATE 25AUG69 LLMAY70 O1NOV70 PROG ID 0£ 04-2 / ~~ DATE. 25AUGE9 11MAY70 O1NOV70 PROG ID OE04-2 
C NO. 816485 816671 816764 - PAGE 2 i oS €C NO. 816485 816671 816764 PAGE 2A 
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© iss MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589957 o IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589957 
| PAGE ; nes PAGE 3A 
Cc ' CO 
E042 5203 CYCLE STEAL & HAMMER ADDRESSING TESTS CS E042 5203 CYCLE STEAL & HAMMER ADCRESSING TESTS 
Cc ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | o CROS S-REFERENCE 
OCEF 040000 OCFl 274 BUSCTI DC XL3"400C08 | SYMBCL T LEN VALUE DEFN REFERENCES 
C 275 SESSRRLARSEERASSASAAAAEAGASS $4 RERSERAE SES OPRETHRESSEEREESSEEATE SSR EEEE SES % 
: : 276 * PRINTGUTS * C ARR C 001 ocos c298 0153 0214 0228* 0229 0230* 0231 = 
277 SEMSRAESSLARSEASSAARALSAERSRASHATASESASE AS EREATEARE EES REE EERR SESE REEEE BAPRT A 004 OA29 0036 0034 
C OCF2 C3E8C303C540E2E3 ODO 278 TITL1 DC CLI6*CYCLE STEAL TEST® - BROUT A 0046 O0C31 0214 0239 
OCFA C5C1D340E 3C SE 2E3 278 \“" BSEXIT A 004 0C55 0223 0214* 0219 
0002 C8C10404C5D940C1 OD11 279 TITL2 DC CLIG*HAMMER ADDR.TEST® BSYLP A004 OCC1l 0254 0252 : 
~ ODOA C4C4D94BE 3C 5E2E3 279 
c ~ BUSCTI A 003 OCF1l 0274 0215 
OD12 D4C1D2C540F5F2FO 0021 286 DC CLI6*MAKE 5203 READY,* “' BUSJB A003 O0D3C 0290 0215* 0216* 
rts ODIA F340D9C5C1C4E86B 280 ete BUSY Cc 00 OOE6 0311 0218 0248 
C 0022 E3C8C5D54CD9C5E2 0030 281 MAKADY DC CLIS* THEN RESET HALT® { CHHSL A nea OABE 0084 0080 
0D2A C5E340C8C103E3 281 © CHKHSL A 004 oB66 0140 0136 
ee F | RESERVED SHOR n ee Net tt STRESSES SSEAAS ES SITAEESE EEE SENAE TEESE ES CHKPC2 A 004 0B46 0130 0126 
: * . CHKPC3 A 004 O0B56 0135 0131 
& 284 SRESSESERERRERRA SE ACES RERSERES SS AEE AEA AERASE RESETS ES CRREEEERREEEER Cc CHPC 2 A 004 OASE OOT4 oo70 
0D31 0000 0D32 285 STAT2 DC XL2¢O8 CHPD3 A004 OAAE 0079 0075 
C gee? 0000 oo gee Sete oe meee - CKHSL A004 0B12 0112 0108 
2 ~  CKPC2 A 004 CAF2 0102 0098 
0037 0037 288 LPOUNT DS Cll CKPC3 A 004 OBO2Z 0107 0103 
c rae ie cs Dees ps ote p> CMND A 003 OCA9 0247 C242* 0245% 0246 
“ DELAY A 004 OCBA 0252 0255 
bana oo Go eee re eeenen eres RRR RRS EERE ESSER ARERR ARR ESR ARERAEH +++ ERNRDY A 004 OC7C 0236 0234 
Ss * ~ ERT1 A 002 0D36 0287 0016 0246* 
- 293 SER RAR RARER RR SE SA SEER RRR ARR ERE CREE RAS RE RE RARE REESE RE SS HERE RE C- EXES A 004 OCEE 0273 0199 
FFE8 294 NEG2& EQU -24 EXIT A 00& OCD7 0260 0231* 
c FFE2 295 NEG3O EQU -30 ~ FLOOP A 006 0C3B 0216 0218 
FFOF 296 NEG33 EQU -33 “- FOLG A OQO2 CCEA 0272 0240 
O8FF 297 PRDAT EQU x®O8SFF# FORCE A 004 OATA 0063 0049* 0057* 
C OCO8 298 ARR EQU = XxtoOge ADORESS RECALL REGISTER ~ FOUNIT A 004 CCO5 0198 0193 0196 
ane as0 ee ee ANDER REGISTER 1 \ GAWAN A 006 OB73 0144 OC6&7 0073 0078 OC83 0088 0101 0166 C111 0116 0129 0134 0139 
INDEX REGISTER 2 C141 
c 0800 301 LPI EQU = ¥tg00F LINE PRINTER IMAGE AREA ~ GETIM A004 OA8A 0068 0064 
O87C 302 LPD EQu X*87C# LINE PRINTER DATA AREA ' GUDPF A 004 CR22 012) 0113 
bee. OCEO 303 LOFOLG EQU X"EO# HALT C 001 0222 0309 0065 OC71 CO7T6 OO81 0086 0099 0104 0109 0114 ©6127 0132 0137 
c BOEE Voge Cone ea eee: a | 0142 0220 0236 0249 0256 
ISBUSY A 004 OCB6 0251 0248 
0216 306 LINK EQU = x*2168 ENTRY TO DCP CHAIN ROUTINE KZANGO A 004 OA41 0048 0147 
Cc 0212 307 TEST FQU  x*2128 ENTRY TO DCP READ DATA SW*S ROUT. LANE A 004 OBE? 0190 0181 
N O21A 308 PRINT EQU  x*2],A8 ENTRY TO DCP PRINT ROUTINE LANEG A 004 OREB 0191 0207 
eee go. at ecu eee ENTRY TO OCP ERROR HALT ROUTINE “++. LDCMD A 006 OC92 0242 0229% 
~ _ N 00 4 
Cc OOE6 311 BUSY EQU. xtEer PRINTER BUSY ae raeeNe ; ne Gace ose nose a 
COE2 ale Bo etase aie o eRe BUFFER BUSY LOFOLG C 001 OOE£0 0303 0240# 
ce ~. LPD C 001 o8s7C 0302 0198 
t eis 0208 314 SBYTEO EQU = x*208" DCP SENSE SWITCH AREA ““ LPDADR A 002 OCE6 0270 0227 
0209 a eee eau Rea ener DCP SENSE SWITCH AREA LPDAR C001 OO0F6 0305 0048* 0227* 
: Pp 0 08 0 9 
C 0004 317 SSWOS EQU x'Q4F PRINT MESSAGES ON MFCU ae eee ; Bae eee as oon a 
0080 318 SSWO8 EQU x*8o° USE 5203 RIGHT CARR. LPIAR C 001 O0E4 ©6304 0241 
FFFF 319 END 
c ~ LPOUNT A 001 OD37 0288 0044* 0144* 0146 0190* 0206# 
‘~ MAKADY A 015 0D30 0281 0041 0187 
“"** MEXIT A 004 OBB3 0162 0153+ 
e C -, MHALT A 003 OBE4 0189 0183 
eB - MITEG A 004 OB8D 0154 0156 
MRALT A003 OA3A 0043 0037 
C ~ MSECS A002 0D39 0289 0157* 0160* 
vat ~  M4DEL A 004 OBB9 0153 0056 
NEG24 C 001 FFE8 0294 0191 
CO =  NEG3O C OOl FFE2 0295 0194 
} ~  NEG33 C 001 FFDF 0296 0197 
. NEXIO A004 OC5D 0228 0060 
c - NOTRIT A C06 OCA3 0246 0244 
~ NRDY C001 OOEO 0310 0034 0180 0234 
[3° NRTIO A 004 OA22 0034 0028 
Cc. “". ONE A 002 OCE2 6268 0144 0160 0204 0206 0216 0228 0230 0254 
\ PBBUSY C 001 OOE2 0312 0252 
PROAT C OOl O8FF 0297 0058* 0059 0059* 0092* 0093 0093* 0120* 0121 0121* 
Cc ~ PRINT C 001 021A 0308 0029 0038 0175 0184 
Ls 
DATE : 
© ‘ee 4a. eieece” Bic Bierce PROG ID 0£04—-2 ~ DATE 25AUGE9 11MAY70 OINOV70 PROG ID 0E04-2 
: PAGE 3 ~' EC NO. 816485 816671 816764 PAGE 3A 
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Cc ? ee es age ee SS STEDS Fe rake zp a = a mae PS PL: 
‘ 1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO 2589957 ~“ IBM MAINTENANCE DIAGNOSTIC PROGRAM ; PART NO. 2589957 
PAGE 4 PAGE A&A 
om, nN ; : 
“”  €q42 5203 CYCLE STEAL & HAMMER ADDRESSING TESTS ~ £042 5203 CYCLE STEAL & HAMMER ADDRESSING TESTS 
CO CROSS-REFERENCE | ry OBJECT CARD LISTING 
SYMBOL T LEN VALUE DEFN REFERENCES 7 we 
Co fo THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D F H INDICATE NUMERIC SHIFT. 
* RETIO A004 OBCC 0180 0174 E = 
‘es RTNL A OOL OAOD 0023 0015 Piece CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 
c RT2 A OOl OBBT 0169 0025 iO . 
“  SAVTUU A 002 OCDE 0262 0233* 0259 = 
SAVWUN A 002 OCDC 0261 0232* 0258 Be wag ee ce ‘ a . ‘ es oo 
C) SBYTEO C 001 0208 0314 0027 ©0036 0173 0182 } oo. TeY:8DH & B-4 (COAG D B##8A H HAZ HOH*BFUHECEG <G-BSX2/1E8A H H@Z HOH*BFUD-CLC -8~ E/Q£0420001 
SBYTEl C 001 0209 0315 0243 r ~ 
soc A 006 0C35 0215 0222 eee i 2 ‘. . os . . Oo 
c. SFOUR A004 OAE2 0057 0055 Fo eeZ5 <2 47K3Q  <ECL"BXZ9K Y¥<as —-#K#HIXT-BCLG2D 2? 2/01 /0>T1GOH331 Bl a<-OT=BI" /O1 18-D NDAE0420002 
“" §$PUDT A003 OAOC OOC17 0050 0192 0195 a ; 
S$SwOS C 001 0004 0317 0027 0036 0173 0182 m ‘ ; . . _ oe e- 
co. Sswos C 001 0080 0318 0243 -  Te-DOCAQLIC4 CLL 2-EX /OHSBFG2/=U 08-424A (<?HEBSB G S.-Q?HGSLUHCL. 2D X /OHSBFI2Z/@M 9A % M-4E0420003 
“"  §TaT2 A 002 O0D32 0285 0052* 0053 0068* 0069 0074 0079 0084 0096* 0097 9102 0107 0112 | ‘ 
yeoe 0124* 0125 0130 0135 0140 0154* 0155 ae : = ie: ake ° ee 
rp STAT6 A002 0034 0286 0062* 0063 | qa-pe<PHEB*BG Se -RIHG_LUBCL.2D X  /OHSBFP2/2Ma"0T @CH<H™-TPOHF<O3H = AC#H(CT~ECL 2D X JOH 3$UE0420004 
“  SUNERD A 004 OASE 0056 0051 . 
TEST € 001 0212 0307 #°®0145 0202 : ‘ 2 os . . : 
¢  THOCHK A 004 OCT5 0234 0238 T4-ZWHDAWAYIAt - (<?HSB¥BG Se-R"H G#LUDCL.2D X /O0H S8FT2/6D9 -42a/ = IOH*BH>AZaYISI<- = H"00 096E 0420005 
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Pe aa eS 2g ae eet : tw | whe Beth eee al 5 es - - | : G - ; ‘ 
_ 7 {84 MAINTENANCE DIAGNOSTIC PROGRAM 2 2 : : PART 8O. 2589959 | IBM MAINTENANCE DIAGNOSTIC PROGRAM aot PART NO. 2589959 
ie < PAGE i fe PAGE 1A 
£055 OATA AND IMAGE ADDRESS REG. TEST . = £o55 DATA AND IMAGE ADDRESS REG. TEST + 
ERR LOC GBSECT CODE ADDR STMT SOURCE STATEMENT | : ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
% 2 DECK 4 i : OAB8D 3A O8 OFOD - 70 S8N DACMD1+1,8°1000° SET MOD.SIT ON 
GA00 3B UVWXVZ START X*A0Gt OA91 BA O8 DEAT Ti SBN DACMD2+1,B*1000" SET MOD.BIT ON 
RRR a A Se eae ek Mee eae oh ae ak ae a ake ahah eae hay oe oe eo eae ae ae oak oe aka steak Sok sake he teak speak dha teak eek CASS 34 08 SESD 72 SBN OACMD3¢1,8°1000° SET MOD.BIT ON 
5 5% SECTION PREFACE | * } CASS 3C TF OAEF 73 MOVHAM MMVI ZPRUNY+1,X°TE® 
Mees rete eee ase oe oh ote ae ae ae ae aa bee ae ae esi ae ae eke Sea ae aeahe eS ae he oe ke a se aka eae soak se a ak ake apeahe gk skak ak Shade ok skeageake see sk . OA9D 38 80 OFOE ’ 14 TBM SBYTE4, SSW20 OPTECN 1 ON? : 
7 + THIS AREA CONTAINS INFORMATION NECESSARY FOR SECTION OPERATION. * { OCAAI F2 10 06 7S. JT DUST 
a + THE PROGRAM IDENTIFICATION, FLAGS AND FIRST ROUTINE ADDRESS * : OAAG CO 87 1411 76 B x10 PRINT BLANKS 
9 * ARE LOADED BY ASSEMBLED DATA. THE CURRENT ROUTINE NUMBER 15 * GAAS £260 ; OAAQ 77 oC XL2°E 2008 ; 
10 * SUPPLIED BY THE CONTROL PROGRAM. SECTIGN UDT ENTRIES ARE * ; OAAA 39 30 OAOL 78 DUST TRE SPUDT,B*119000" 100 LPM PRINTER? : 
il * DEFINED PARTIALLY BY THE SECTIGN SO THAT THE CONTROL PROGRAM * : OAAE F2 90 12 79 - JF SIOST : 
t i2 * CAN SUPPLY GPTION BYTES. ~ t OABIL 3€ TC OAEF 80 MMVI ZPRUNY415X*7C $ 
7 23 Be bee he a ae Se ae ae he a se he Be oe ae he ae ake ate ae ak aR eee oh he ae ea ae ae a ao ee shea ae ashe ae aaah ae speak teak oe hee eae ae ak shea ak abe sk eae CABS 38 86 020C 8} TB SBYTE4, SSW20 OPTION 2 ON 
Sacco FO55 O40} 14 BC XL2°E055* PROGRAN IDENTIFICATION : OABS F2 10 23 62. JT NEVES : 
OAG2 00 GAD2 is on XLI'O* FLAGS k Oase CO B87 OFSB 83 B M4DEL WAIT FGR M4 AND DELAY 
OA0Z 91 ; O03 16 dC XLity? CURRENT ROUTINE NUMBER : OACO F2 87 20 - 84 d GRADAR 
OA04 0000 BANS i? BG XL24O# RESERVED ; OAC3 30 E2 i589 oe 85 SIOST SNS STAT2.X*E2? SENSE THE TIMINGS 
OAG6 CADD OAD7 18 ac AL2(RTN1) : ADDRESS OF FIRST ROUTINE PREFIX . C1. OAC? 38 01 1549 86 TBN STAT2,B°1* ARE HMRS.IN POS. 4 j 
SACB SRS OACS 19 BC ' AL2CERTLI ' ADDRESS OF ERRGR RECORDING TABLE : OACB F2 10 85 87 JT GRADAR 
BROA EOSOCO OAOC . 20 SPUDT DC AL3*EO5000* e UNIT DEFINI TIGN TABLE -— PRINTER ‘ OACE 38 80 O20C 88 TBN SBYTE4, SSHW20 LPOAR GPTIGN 1 ON 
QL AR ea the eke ae ae he oe He a che ete RK eae a a RK ae ae oe a ea aah ok ara eae seakeate ok a ak ak oe oak ae Sea Boake eek OAD2 F2 10 OA 89 JT NEVES 
22 . OADS5 CO 87 14112 90 B x10 PRINT A BLANK LINE 
23 * ROUTINE 1 - DATA ADDRESS INCREMENTING TEST * j : OADS E200 OACA 91 BC XL2*E200° 
24 * * ; OADB CO 87 OAC3 92 8 ' SIOST GO CHK. AGAIN 
2S Re oe ae sea eae ae ee ae te eae eae ae oh a ae a a eae a ak ea ae Se ae ae ce shea oh ak Seah aa ska sesh ake ee ae oR ae ge sek geaese Aee ak OADF CO 87 OF63 93 NEVES 8B CRPAH GO TO CHK.RESET SUBRT. 
RAOD O1 OAOD 26 RTAL oc Xi1*14 ROUTINE NUMBER : : e Do RR AR ae eRe oe a ae oe eae See a a ak Se eh techs chee A ES BE a a OE ok eo a 
SADE 00 OAOE 27 Bc xL1‘O° FLAGS 95 * CHECK DATA ADDR.REG.FOR CORRECT INITIALIZING 
OROF OFCS GA1O 28° BC AL2(RTN2) ADDRESS GF NEXT ROUTINE PREFIX i GG FERRER RAR ee AREAS RARE ERAS ERERSEH SERS RSE SER EESE SEES SAR SHKE KET AKERS SS 
29 PEER ERLE REAR ERE AREER A ERE EEE HERE RRS HO Soe Raa ea ae ak Sb teak sk tek she OAE3 38 80 O20C 97 GRADAR TBN SBYTE4S, SSW20 LPDAR GFTION 1 ON 
DAEL 38 04 0205 30 TBN SBYTEO, SSwO5 PRINT ON MFCU i OAET F2 10 15 98 JT SAWRYT 
AIS F2.90 CA 31 JF NRTIO : OAEA 30 EG 15AD 99 SNS STATE sX* EG? SENSE DATA ADDR. 
OF88 tO BT O214 32 8 _ PRINT PRINT TITLE ! OAEE 3D GO 15AD 100 ZPRUNY CLI STAT6 ,#-—* LPDAR AT 7F OR 7C 
BAC 42 OAT 33 BC xXL17428 ! GAF2 F2 81 OA 101 JE SAHRYT 
SAID 12 OA1D 34 BC IL1?*18* ; OAFS CO 87 0222 162 B HALT DATA ADDR.DID NOT START we. yg Cathet, ay 
: OALE 1546 GALF 35 BC AL2UTITL1) - i OAFO £070 OAFA 103 Dc XL2°EO7GE AT 7F HALT 
* GA20 EODO 0421 36 BE XL2*EG0D* OAFB CO 87 OAT2 104 B TOGGGN : : 
OAZ2 CL EO OA29 37 NRTIG TIG BAPRT>sNRDY PRINTER READY 105 TESRERERAE RES HERR REALE AA REE EREEREREERAEER ERAS CERES ERAS EE ee EHS 
DAZ6 F2 87 14 38 _ TIPS 106 * GENERATE SENSE INSTRUCTIONS 
CAZF 38 04 0208 39 BAPRT TaN SBYTEG, SSWO5 PRINT ON MFCU SW. ON LOT 45 Sak ae Re eK eR RR A aK Hk RHR ARAL SKATE KE RAK EAT ESS RE 
QDAZD F2 90 OA 40 JF MRALT OAFF 3€ OO 14€5 108 SAWRYT NVI STU, X*C0* StV 2ND INDEXED SNS BDISPL.TD O 
QABD CO 87 O2Z1A 41 8 PRINT 0803 3C 19 14Cz 109 AVI SHUN, X*198 SET 1ST INDEXED SNS DISPL.TO 25. 
GA34 41 OAB4 42 bc HLL *41° ‘s OBST C2 01 14C2 110 LA SWUN, XRi LGAD iST INDEXED SNS ADDR. 
9A35 22 0435 43 DC 1L1°348 OBOB C2 62 0B68 Lil LA DARS1424XR2 LOAD START OF GENERATED FIELD 
PASE 159D OA37 4h DBC AL 2 (MAKADY } : OBOF 4E OO OG 14“AF il2 ADTUU ALC O(1, XR1), TWO ADD 2 TO 1ST INDEXED SNS DISPL. 
8438 ECE1 < 3A39 45 oC XL2*EOE1* 0B1i4 SC 02 00 00 113 MVC O{3 2 XR239004XR1 3 PUT INDEXED SNS IN GENERATED FIELD 
SARA FO TC 03 6 MRALT HPL = X*03",X*7C* HALT E1 ; OB18 36 O2 1481 114 A TREE, XR2 UPDATE GEN.FIELD ADOR.BY 3 
BA3D 38 20 GAOT 47 TIPS TEN SPUDT,.B*100000° THISA 300 LPM PTR.? OB1C 7D FF 00 115 CLI OL sXRIDgX* FFE 1ST INDEXED SNS DISPL.UP TOD 255 
OA41 F2 90 18 48 JF LOUNT OBIF CO 82 OBOF 116 BL ADTUU IF NOT+GC DO ANOTHER 
GAS4 3C 17 ODTO 49 MVI ININLI4+1,X°17° 0B23 C2 O1 14C5 117 LA STUL, XRI {OAD 2ND INDEXED SNS ADOR. 
GASES 3C 05 ODID 50 MMVI OINCONT+1,X%°05* 0827 4E 00 OO 14AF 118 ADTUTU ALC  0f€1,XR13, TWO ADD 2 TO 2ND INDEXED SNS DISPi. 
ORC BC 08 ODET 51 MMVI BESSLI+1,4°08* OB2C 9C 02 00 00 119 MYC 0135XR2)5,00,XR1) PUT INDEXED SNS JN GEN. FIELD 
ASO 3C 81 OESA 52 wv I M3XT4+1,X*81°¢ OB30 36 O2 i4B1 126 A TREE» XR2 UPDATE GEN.FIELD ADDR.BY 3 
OASG 3C 81 GEET 53 BVI M2XT4+15X781° 0834 7D 6E 00 421 CLi Oly XR1D eX" 6E* 2ND INDEXED SNS DISPL.UP TO 1126 
. - OASE 3C 81 OFBA 54 MVI | MIXT#1.Xx*8i* 0837 CO 82 OB27 122 BL ADTUTY if NOT DO ANGTHER 
OS Stee ast teak Sle ak di ek ek a ck ok aa ah teak dk kek oi ak dak ak kak ak an keg ae LQ eR A Re a he ee ak ae ee eke ae a oe ak oteaeteateak aeah ae ae a a eae ae a he ke ea a ee ak ah a ea 
56 * GET HAMMERS INTO PROPER POSITION : 124 % WATT FOR HOME LATCH,THEN ISSUE PRINTESPACE 
7 A dike act kc Ji ok io ak ia ik a ek ik ak ok aco a ak a ie anc as ack L 25 RRR Re A eae Ra TR Sy aa ae RSE ESAT EERE RARER SAREE ARERERA TERI AS 
OASC 31 £0 14BF S8 LOUNT LIQ FOLG,LOFOLG 9838 C2 01 OBSF 126 LA HMLOOP, XR1 LOAD 1 FOR A BASE 
3460 31 £4 1486 $9 Lio LPTADR,LPIAR LOAD LSR ADORESS REGISTER OB3F C2 02 OC4E 127 LA DAR SZ2-14XR2 _ LOAD 2 FOR A 2ND SASE 
@AG4 34 EG 1450 60 Lio LPDADR, LPDAR LOAD DATA ADDR.REG. 0B43 30 E2 15a9 128 SAN SNS STAT2,X*E2® GRAB TIMINGS 
OA6B 3C OA 1583 61 MYT LPGUNT ¢X*OA®* LOAD LOOP COUNT OF 10 0B47 38 16 15A3 129 TBN STAT2-1,8" 100008 PSS-1 ON ? 
OAGC OC O2 15C1i 1L4AB 62 vc BADM3( 33, ZERO ZERO ERR COUNTERS 0848 CO 90 0B43 130 BE SAN 
BATZ 38 O8 OB59 63 TOGOON S8F DACMD+1,5*1000" SET MOD.8IT OFF OB4F 70 E2 10 131 HMLOOP SNS) = 18{,XR1),XK*E2* GRAB SENSE SYNC ON HOME LATCH 
GAG 3B 08 OFGD 64 SBF DACMD14+1,8*10008 SET MOD.BIT OFF 0852 78 01 OF 132 TBN 15€,XR1} BL! HOME LATCH UP 18.24 USEC.LOOP 
OATA 38 O8 DEAT 65 SBF DACHD2+1,8°1000* SET MOD.8IT OFF 0B55 DO SO 20 i33 BE Oty XR) tooP IF NOT 
e @ATE 38 O08 OESD 66 SBF DACMD34+1,871000! SET MOD.BIT OFF -- OBSB F3 £2 G1 134 DACMD SI10 X*OL*,xX8E2? PRINT AND SPACE 
O482 38 80 0209 67 _ BN SBYTE1,SSHO8 PRINT ON RIGHT CARR. OBSB F2 87 OB 135 J DARS1 GO SAMPLE 
OAEG F2 90 10 : 68 SF MOVHAM ; . 085E 0000 OBSF 136 oc XL2'O# SENSE AREA 
B49 3A 08 3859 69 SBN DACMD+2,.8°10008 SET “O0D.BiT ON 0860 70 E2 16 137 SNS 160 4XR1} pX*EZe 
oat 
MATE 210CT69 22 DEC69 205 ANTO O2MARTO LIMAY7O O1NOV70 O4JUNT1 PROG ID OEO5—5 : DATE 310CT69 22DEC69 203 ANT70 O2MAR70 LIMAY7D O1NOVTO 04JUN71 PROG iD 0E05-5 
CO NO. 816529 816547 816548 816631 . ‘816671 816764 818968 PAGE 1 EC NG. 826529 816547 816548 816631 816671 816764 818968 PAGE 1A 
s cS 
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ue 


£055 


DATA AND IMAGE ADDRESS 


ERR LOC OBJECT CODE 


08663 78 00 10 
0866 DO 10 11 


OB69 


OC4F 
ocsBd 


O667 
OD6B 
OO6F 
0073 
0077 
oD7D 
OD8i 
cDd85 
0088 
OD&E 
0092 
6096 
oDs8 
309C 
ONAO 
ODA4 
COA8 
ODAD 
OOB1 
0085S 
ODBA 
OOBD 
ooc3 
Coc? 
OfcsB 
-00CD 
ooo1 
ODDS 
00D8 
0 DcC 
GDDE 
ODE2 
ODE6 
ODEA 
ODEO 
COFL 
OOFS 
ODF9 
ODFD 
OE0d 
OE04 
OE08 
OEOC 
OEOE 


' OE12 
OEI6 

OELA 

OE1LD 

OE21 

OE24 

i OE28 
‘ CE2C 


DATE 
EC NO. 


‘ lade : 


C2 
C2 
3C 
3c 
OE 
36 
éD 
F2 
OF 
co 
co 


EO71 


co 
3C 
3D 
co 
2c 
3C 
36 
2D 
F2 
OF 
co 
co 


tuT72 


co 
9D 
F2 
co 


87 
01 
81 
87 


E073 


co 
36 
3C 
7D 
co 
35 
C1 
C2 
F2 
36 
co 
co 


87 
ol 
oO 
TF 
Ol 
02 
E6 
ol 
87 
02 
ol 
87 


E014 


co 


34 
39 
F2 
38 
F2 
co 
co 
30 


87 


ol 
30 
90 
80 
10 
87 
87 
E2 


OB6A 
14CC 
1580 
ope3 
0083 
14AF 
©cO 00 
14 

1560 
oo07D 
0222 


CAT2 
1580 
0D83 
ODT7 
15B2 
1580 
14AF 
15B2 
14 

1580 
OoB1 
0222 


OAT2 
00 oC 
OA 

0222 


OAT2 
14B6 
1580 
oo 

0073 
14AB 
OE0O 
OES4 
12 

14AD 
ODFS 
0222 


OOF1 


OE3A 
OAOC 
OF 

O20C 
28 

OF 9B 
OE3T 
L5A9 


310CT69 
816529 


ADOR 
OB69 
OCSE 
OC4F 
ocBCc 
OD66 
14AD 
14AD 
OD97 
00 
00 
14AD 
oocc 
opDdod 
O£0D 
220EC69 
816547 
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REG. TEST 
STMT SOURCE STATEMENT 

138 TBN 16 eXR1), *-% FILLER 

139 BT 17¢XR1} 

140 FEKSESHR ET ERR SE ADSLSESAEESSESERERSEATH LS CET AT EES ERS SEREEESEKEEESEA ESE EERERSE 
141 * SAMPLE THE D.AeRe AT 7.62 USEC 

L42Q FHRARESES ESSERE AALHRS EEE KAERERES EHS EEE AREER ERE EE EL REAR EE EKER ERATE ES 
143 DARS1 EQU * 

144 OSs Ct230 

145 DARS2 EQU * 

146 OSs CL110 

147 DS C1170 ° 

148 4EEHSEERSSER GREG SHELLS SE EERESESECEREEEELK ERASE RHE EEE EERE KEK SERAGEEAKEERERE 
149 * CHECK HAMMER POSITION M4& INCREMENTING . 

150 REEREERE EERE EHSEREE EE AKERS SER EERE ARE ERE E EKER AAE AK AREREREAEREEKHED 
151 LA DARS1414XR2 ; 

152 LA M4PSS1,XR1 LOAD POS. 4 TABLE ADDR. 

153 ININLI MVI SAMLIM, 33 SET INITSENCR. LIMIT (23 GN 300 LPM) 
154 NEPSS MVI THCHEK429XK "O08 SET INIT.DISPL.TO O 

155 DIPAD ALC THCHEK+2(1),0ONE 

156 SMAD a TWO eXR2 

157 THCHEK CLC O(1sXR1),0(,XR2) 

158 JE INCONT 

159 SLC SAMLIM(1),0NE 

160 BNZ SMAD 

161 B HALT D.A.P..DID NOT INCR. BY 12 HALT 

162 oc XL2*EO71* 

163. 8B TOGOON 

164 INCONT BVI SANLIM,8 SET INCR. LIMIT (5 ON 300 LPM) 

165 CLI THCHEK4+2,X"OAt 11 D.A.R. INCR.fPFS OGNE 

166 BL DIPAD 

167 MVC LASAV(O2),0(0,XR2) SAVE LAST PSS C.A.R. VALUE 

168 MVI- SAMLIM,X*0O8# SET SAMPLE LIMLT TO 8 

169 MALS A THO sXR2 

170 CLC LASAV(2},0€,XR2) THIS BYTE LESS THAN LAST OF PSS 

171 JH CHESUB . 

172 SLC SAMLIMO1) , ONE 

173 BNZ MALS : 

174 B HALT DeA-R.OIL NOT SUBTR. AFTER PSS 

175 oC XL2"*E072¢* 

176 8B TOGCON 

177 CHESUB CLC O0(22XR2)9120,XR1L) NOW EQUAL TO NEXT INIT.INCR. 

178 JE SUBCK 

179 8 HALT SUBTR. WRONG AFTER PSS 

180 oc XL2"*E073°* HALT 

181 B TOGGON 

182 SUBOK A TWLVE »XRl AOD FOR NEXT INIT.INCR. 

183 BESSLI MVI SAMLIM, 13 SET BETWEEN PSS LIMIT (8 ON 300 LPM) 
184 CLI OU,XRL)D»X* TEE ALL 3 PSS*S CHECKED 

185 BNE NEPSS 

186 EXLENT Lt ZERO, XR2 

187 AGAIN TIO YALED,BUSY PRINTER STILL BUSY 

188 LA GOM3,- XR1 LOAD M3 START ADDRESS 

189 J STRIT 

190 YALED A * ONE» XR2 WAIT FOR 1.5 SEC. TO 

191 BNZ AGAIN CLEAR BUSY 

192 B HALT BUSY TOO LONG HALT 

193 oc XL2*E014° 

194 8 EXLENT 

LCD SHEERS R EERE EEA RE REE SER EES ERAT ERE EEE REET ERASE S RHE SEREKEKRERESEERE 
196 * CHECK HAMMER POSITION M3 INITIAL INCREMENT 

LOT FRRASETE SRE RES AEE ES RERERERERERE EE REE EERE EEEEES EEE ERE KEE EEE EERE ER 
198 STRIT ST WHARTGO+3, XR1 

199 TBF SPUDT,B*1100008 100 LPM PRINTER? 

2090 JF CLIHAP 

201 TRN SSYTE4, SSW20 OPTION 1 ON 

202 JT BLAH 

203 B M4DEL WAIT FOR M4 AND DELAY 

204 B WHARTO 

205 CLIHAP SNS STAT29X*E2! SENSE TIMINGS 

20JAN70 O2MARTO LIMAY70 O1NOV70 O4JUNT1 PROG 10 OEO5-5 
816548 816631 816671 816764 818968 PAGE 2 
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E055 


ERR LOC OBJECT CODE 


0E30 
OE34 
OE37 
OE38 
OE3F 
OE42 
GE46 
OE48 
OE4C 
OESO 
OE5S4 
OE58 
OESC 
OESF 
OE 62 
OE65 
QOE68B 
OE6B 
OEGE 
OE71 
OETT 
OE7TD 
OE 80 
O€83 
OE86 
OE89 
OEBC 
O£E90 
OE92 
OE96 
OE9SA 
OEQE 


OEA2 
QEA6 
OEAQ 
OEAC 
OEAF 
OEB3 
OEB6 
OEB9 
GOEBD 
OEC1 
QEC4 
OEC7 
OECA 
OECD 
OEDO 
OE03 
OEDS 
O EDF 
OEE2 
OEES 
OEE8 
OEEB 
OEEE 
OEF2 
OEFS 
OEFB 
OEFC 
OF OO 


OFO4 
OFO8 


DATE 
EC NO. 


DATA ANDO IMAGE ADDRESS REG. 


38 
F2 
co 
38 
F2 
co 


01 
90 
87 
80 
10 
87 


E200 


co 
co 
co 
C2 
C2 
F3 
70 
78 
EO 
70 
7 
F2 
OE 
0D 
F2 
70 
F2 
70 
F2 
co 


87 
87 
87 
02 
ol 
E2 
E2 
40 
90 
E6 
82 
&1 
00 
00 
81 
8E 
$1 
9A 
O7 
87 


£075 


co 
Cl 
C2 
co 


C2 
F3 
70 
78 
co 
70 
79 
co 
C2 
70 
78 
EO 
70 
70 
F2 
OE 
oo 
F2 
70 
F2 
7D 
F2 
co 


8T 
E6 
01 
87 


01 
E2 
E2 
40 
90 
E2 
40 
90 
02 
E2 
40 
90 
E6 
85 
81 
00 
oo 
81 
91 
81 
9D 
07 
87 


E074 


co 
cl 
C2 
co 


c2 
c2 


87 


Ol 
87 


02 
ol 


15A9 
04 
0000 
O20C 
OA 
1411 


OF 2C 
OF63 
OE37 
OES5F 
1588 
ol 
00 
00 
00 
00 
00 
25 
15Ci 
15C1 
oc 
00 
10 
00 
OA 
0222 


OA72 
0E96 
OEA2 
OE12 


15B9 
ol 
00 
oo 
OEA9 
00 
00 
OEB3 
OECl 
00 
oo 
00 
00 
00 
25 
15CO 
15C0 
oc 
00 
10 
00 
OA 
0222 


OAT2 
OEF 8 
OFO4 
OE12 


OFOF 
15B6 


310CT69 
816529 


TEST « 


STAT2,B*1° 
OP1 

*—* 
SBYTE 4, SSW20 
BLAH 

xIo 

XL2*E2008* 
CLIHAP 

CRPAH 

WHARTO 
LUKPSE, XR2 : 
M3DAR,XR1 
X*O1"*,X*E2* 
O(sXRi),X*E2¢ 
0(,XR1),B*1000000"* 
O(,XR2) 
O(sXR1),X*E6t 
O€sXR1),X*82" 
GOAIT 
BADM3(1),ONE 
BADM3 (1), EIGHT 
TMM3E : 
OCsXR1),X*8E* 
GOAIT 

Ol sXR1)yX* 9A" 
GOATT ¢X*07'* 
HALT 
XL2*E0O75* 
TOGOON 
GOAIT,BUSY 
GOM2,XR1 
STRIT 


PART NG. 2589959 
PAGE 2A 


HAMMER IN M4 


GO TO WHERE ? 
LPDAR OPTION 1 ON 


IF NOT MOVE *EM 


GO TO CHK.RESET SUBRT: 


LOAD LOOP ADOR. 

LOAD SAMPLE AREA ADOR. 
DO A PRINT & SPACE 

GET TIMINGS 

PRINT START EMITTER ON 
IF NOT,LGoP 

GRAB DAR : 
INIT.JINCP.82 FOR M3 

* 

ADD TC ERR COUNTER 
OVER & ERRS ? 


HAS IT BEEN INCR. GNCE 

* 

THIS CHK.ON 300 LPM ONLY 
M3 INITJLINCR.LERRGR HALT 


WAIT TIL! CHD. DONE 
LGAD M2 START ADDR. 


REE RRR RE RK RK ETA SESE SESSLER SAH SES ASERSHSE SSS SAAATAS SSE LSS ESER 
* CHECK HAMMER POSITION M2 INITIAL INCREMENT 


BERSERK EERE RAEESE SER ERAAEAARERSRSE SSH ERSE SRS RSSRE EERSTE SARE SEEARE SAE RSAKSEYE 


M2DAR, XR1 
X*OL",X*E2* 
O(,XR1),X*E2* 
O(,XR1),B* 1000000 * 
LOKON 
OC,XR1),X*E2* 
0(,XR1),8*1000000* 
NOYET 

FAST, XR2 

OU yXR1),X*E2? 
0(,XR1),B*1000000°* 
O(,XR2) 

Ol yXR1) sX*EGt 
OC,XR1LIyX*85° 
TWAIT 

BAOM2(1),0NE 

BADH2 (1), EIGHT 
TMM2E 

Of eXR1),X*918 
THAIT 
O,XR13.X*9D8 
THAIT,X*O7* 

HALT 

XLZ2"EOT4* 

TOGOON 

TWAIT »BUSY 

GOM1, XR1 

STRIT 


LOAD SAMPLE AREA ADDR. 
DO A PRINT AND SPACE 
GET TIMINGS 

WAIT FOR PRINT START EMITTER ON 
GET TIMINGS 


WAIT FER PRINT START EMITTER OFF 


GET TIMINGS 


WAIT FER PRINT START EMITTER GN 


GRAB DAR 


INIT.INCR. 85 FER M2 


A2D 7O ERR COUNTER 
OVER 8 ERRS ? 


HAS IT BEEN INCR. GNCE ? 
* 

THIS CHK.ON 300 LPM CNLY 
M2 INIT.INCR.ERROR HALT 


WAIT TILt CMD.DONE 
LOAD M1 START ADDR. 


HAR REE ER RAE KATA EKSE EE SARAH SE KASD RKREAKSE SHEKKEKASHRA ASR AKAKEKSEKAREHKH 


* CHECK HAMMER POSITION M1 INITIAL INCREMENT 
HEEREKA RARER KR EE ES REAR T HE AEKAER AEE SKATES KE LRESRECAAARE KAT ERE GER EEKETELARS 


MILOK »XR2 
MIDAR-1,XR1 


LIMAY7O 
816671 


ADDR STMT SOURCE STATEMENT 
206 TBN 
207 JF 
208 WHARTO B 
209 oP1 TEN 
7 210 JT 
211. B 
OE47 212 DC 
213 B 
214 BLAH 8B 
215 B 
216 GOM3 LA 
217 LA 
218 DACMD3 SID 
219 LUKPSE SNS 
220 TBN 
221 BF 
222 SNS 
223 cul 
224 JE 
14AD 225 ALC 
1482 226 CLC 
227 JE 
228 CLI 
229 JE 
230 CLI 
231 M3XT JC 
232 TMM3E B 
OE91 233 DC 
234 B 
235 GOAIT TIO 
236 LA 
237 8 
238 
239 
240 
241 GOM2 LA 
242 DACMD2 SIO 
243 LOKON SNS 
244 TBN 
245 BF 
246 NOYET SNS 
247 TBF 
248 BF 
249 LA 
250 FAST SNS 
251 TBN 
252 BF 
253 SNS 
254 CLI 
255 JE 
14AD 256 ALC 
14B2 257 CLC 
258 JE 
259 CLI 
260 JE 
261 CL? 
262 M2xT JC 
263 TMM2E 3B 
OEF3 264 DC 
265 B 
266 TWAIT TIO 
267 LA 
268 B 
269 
270 
271 
272 GOM1 LA 
273 LA 
22DEC69 20JAN70  —- 92MAR7O 
816547 816548 816631 


OC1LNOV70 
816764 


LCAD LOOP ADDR. 
LOAD SAMPLE AREA ADDR. 


O4JUNT71 
818968 


PROG ID OEGS-5 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589959 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589959 
i PAGE 3 PAGE 3A 
E055 DATA AND IMAGE ADDRESS REG. TEST £055 DATA AND IMAGE ADDRESS REG. TEST + 
11 ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
a OFOC F3 E2 Ol 274 DACMDL SIO X*O1L*®,X*E2* DO A PRINT & SPACE OFD1 CO 10 13E5 342 BT BLINK 
OFOF 70 E2 OL 275 MILOK SNS 1€,XR1),X*E2* GET TIMINGS OFDS 3D FF 0878 343 CLI UCSFLG,X*FF# UCSFLG SET 
OF12 78 02 00 276 TEN O(9XR1},B"10° WAIT FER HAMMERS IN M1 OFD? FZ 701.0% 344 JNE = SENAT 
ce OF15 £0 90 00 277 BF Ol,XR2) OFDC 3C 39 OFES 345 MVI TECHBI,X*39° SET TO CHK BIT OFF 
OF18 70 E6 Ol 278 SNS 1(,XR1)yX*E6® GRAB DAR OFEO 30 E3 15AB 346 SENAT SNS STAT3eX*E3* GRAB STATUS 
OF1B 7D 7C Ol 279 CLI -LtyXR1)9X"7CE INITeINCRe7C FER M1 OFE4 38 04 15AB 347. TECHBI TBN STAT3,8*°100° 48 CHAR.BIT ON OR OFF 
© OFLE F2 81 25 280 JE SUSY OFES F2 10 17 342 JT OK YDOK 
OF21 OE OO 158F 14AD 281 ALC PADMICL),ONE ADD TO ERR COUNTER OFEB 38 04 0208 349 TBN SBYTEO,SSWO5 PRINT ON MFCU SW. ON 
OF27 OD 00 15BF 1482 282 CLC BADM1 (1) EIGHT OVER 6 ERRS ? Oper ta oe 350 JE HALIT . 
j OF20 F2 81 OC 283 SE TMM1E - OFF2 CO 87 O21A 351 B PRINT PRINT CHAIN OR IMAGE ERR 
OF30 70 88 Ol 284 CLI 1 lyXR1),x"88° HAS IT BEEN INCR. ONCE OFF6 CL OFF6 352 DC XL1°C1° 
OF33 F2 81 10 285 JE SUSY * OFFT 1A OFF? 353 DC IL1*26° 
c OF36 70 94 O1 286 CLI 1, XR1LD»X9948 THIS CHK.ON 300 LPM ONLY OFF8 15A7 OFF9 354 le AL2(CHAERR) 
CF39 F2 O7 OA 287 MLXT JC SUSY,X*07# : OFFA EOOE OFFB 355 oC XL2°EOOQE* 
OF3C CO 87 0222 288 TMMIE 8B HALT M1 INITSINCR.SERROR HALT OFFC CO 87 0222 356 HALIT B HALT CHAIN CHK.HALT 
CF40 E079 OF41 289 oc XL2°*E0O798 1000 EOOE 1001 357 oc XL2'*EOCE?® 
OF42 CO 87 OAT2 290 8 TOGUON 1002 38 04 0208 358 OKYDOK TBN SBYTEO,SSWO5S PRINT ON MFCU 
OF46 Cl EG OF46 291 SUSY TIO SUSY,BUSY WAIT TILL CMD.DONE 1006 F2 90 OA 359 JF RETIO 
OF4A CO 87 0212 292 B TEST 1099 CO 87 O21A 360 B PRINT PRINT TITLE 
OF4E 38 80 020C 293 TBN SBYTE4,SSW20 OPTION 1 ON 100D 42 100D 361 oc xI.1°42° 
OF52 F2 10 OA 294 JT LORIS 1O0E 13 1O0E 362 DC ILi*19° 
5 OF55 OF OO 15B3 14AD 295 SLC — LPOUNT(.1), ONE ALL HMR.POS*S TRIED 10 TIMES POOF 1559 1010 363 OC AL2(TITL2) 
brs OFSB CO O1 OAAA 296 BNZ OUST 1011 £000 1012 364 Dc XL2*E O00! 
OF5F CO 87 0216 297 LORIS B LINX 1013 Cl EO IOLA 365 RETIO TIO TRPAB,NROY PRINTER READY 
. 29Q CREEK EEEAKEREE RE ES EAE SEALER EER EERE ER ESE REE € SELES SEES REESE ER EES EEE ES 1017 F2 87 36 366 J TNUOL 
299 * CHECK RESET PROMPTING AKD HALT SUBROUTINE (LPDAR OPTION 1) POte 2ec08 ecee 367 TRPAB TBN  S8YTEOsSSWO5 PRINT ON MFCU 
300 FKERESERERKES SRR EEA LE EREE EELS EE SRE REESE SERRE EER ESS SLES ES EERE TERA ERES 101£ F2 90 OA 368 JF MHALT 
s OF63 34 08 OFSA 301 CRPAH ST SEXIT#3 9 ARR SET RETURN ADDR. LOet CG BT OeER oo . PEIN) 
OF67 38 04 0208 302 TBN SBYTEO,SSHOS PRINT ON ALT.DEVICE 1025 41 1025 370 DC XL1'41! 
OF6B F2 90 08 393 JF ESVEN 1026 22 1026 371 bc TL1"34° 
e OFGE CO 87 O21A 304 B PRINT PRINT-CHECK RESET INSTR. 1027 1580 1028 372 DC AL2(MAKADY) 
OF72 Ol OF72 305 oc XE L*o1® 1029 EOEL 102A 373 oc XL2*E0CEL® 
OFT3 34 OF73 306 oc ILL*52¢ 102B FG 7C 03 374 MHALT HPL X*03",X"*7C8 HALT El 
OF7T4 1580 OF75S 307 oc AL2 (MAKADY) 102E 38 20 OAOC 375 Ten SPUODT,B*100000* 
OF76 FO 7C O7 308 ESVEN HPL x*O7",X*7C* CHECK RESET HALT P0Ges <3) Or ais aE ERIKS 
0£79 vl E6 OFTS 309 NIPS TIO NIPS,BUSY MUST BE NOT BUSY 1035 3C 17 1330 377 MVI INILT +1 eX*178 
OFTD 3C 28 15AF 310 MVI -HAPOIN, X®23° DELAY 40 MSEC COUNT 1039 3C 05 1362 378 MMVI -ICTAB+1eX*05° 
OF 31 OD FF 0800 0800 31L TAW CLC LPIE(256),LPI DELAY 1 MSEC 1030 3C 08 1392 379 MVE —-BTSSLI#+1,X*"08° 
OF87 OD 38 0800 0800 312 CLC LPLEC60) LPI 1041 F2 87 OC 380 J TNUOL 
C OF8D OF CO 15AF 14A0 313 SLC HAPOIN(CL},GNE DECR.DELAY COUNT 1044 3C 21 1330 381 ERHTKS MVI INILT+1,X"21° 
Ite OF93 CO 84& OF81 314 84H TAW 1048 3C 08 1362 382 MVI ICTAB+1 yX* 08! 
OF9T CO 87 0000 315 SEXIT B 2 104C 3C 0D 1392 283 MVE  B8TSSLI+1,X*0D* 
c BLG FEAR EEKEREREE SERRE TEESE SNE GA SE AEEH EERE REA SE ES ERK RS ESS EERE SEE EEEE KE 3QS tERESRRE ESSERE SR SESEAES ESHA SEL RET S SE ESSE RES SRE SEE ESSE ETE SSE S RSE HS TES 
317 * WAIT FOR M4 THEN DELAY SUSRGOUTINE + 385 * GET HAMMERS INTO PROPER POSITION 
2] Q AHKKHKKEEESEEAREREAE EES EES ERE SS RS EA TREES SHEER EST SEE TESS EES EEEESE TES EE SH 3QG AKERKRASE EERE REEAS SAAR SASSER AE PESSE SESE EERE ERK S ESSE EE EE REAR ERE ESKER 
: CF9B 34 08 OFCB 319 M4DEL ST MEXIT+3y ARR SET RETURN 1050 31 EO 14BF 387 TNUOL LiO FOLG,LOFOLG LOAD FORMS LENGTH 
OFSF 30 €2 15A9 320 GETIM SNS STAT2,X*E2!# GET TIMING 1054 31 E6 1L4BD 388 Lio LPDADR,LPDAR LOAD DATA ADOR. REG. 
OFA3 38 O1 15A9 321 TBN  STAT2;,8°1° HAMMERS IN MG 1058 3C 9A 15B3 339 MVI _LPQUNT,X*OA* LOAD LOGP COUNT OF 10 
C OFAT CO 90 OFOF 322 BE GETIM 105C 3B 08 LOF6 390 SBF  1ACMD+1,8*1000° SET MGD.BIT OFF 
OFAB 3C 32 15AF 323 MV -HAPOIN, X'32¢ 50 MSEC DELAY 1060 38 80 0209 391 TBN SAYTE1,SSWO8 PRINT ON RIGHT CARR. 
OFAF OD FF 0800 0800 324 WAT CLC LPI(256),LPI CELAY 1 MSEC 1064 F2 90 04 392 JF HERE 
f OFBS OD 3B 0800 0800 325 CLC LPI(60) sL PI 1067 3A 08 10F6 293 SBN TACMD+1,8*°1000* SET MGD.BIT ON 
at OFBB OF 00 15AF 14AD 326 SLC HAPOIN(1),GNE DECR. DELAY COUNT 1066 CO 87 1411 394 HERE 8B X10 PRINT BLANKS 
OFC] CO 84 OFAF 327 BH WAT 106F E200 1070 395 OC XL2*E200° 
ce OFCS CO 87 0000 328 MEXIT 8B *—* RETURN 1071 39 30 OAOC 396 SECIT TBF SPUDT,B*110000* 100 LPM PRINTER? 
329 1075 F2 90 07 397 JF NOMOD 
330 1078 CO 87 OF9B 398 B M4DEL WAIT FOR M4 AND DELAY 
C 331 107C F2 87 15 399 J TYRWAS 
332 SHRESSERERLERE AREER ER EE SESE SAL SSE ASE TE SECES SS ESEEHE ERTS EEE EEE EES SL ESRES LO7F 30 E2 15A9 400 NGHOD SNS STAT2sK*"E2! SENSE THE TIMINGS 
333 * . 1083 38 O01 15A9 401 TSN STAT2,B'L* ARE HMRS.IN POS. 4 
hs 334 * ROUTINE 2 -— IMAGE ADRRESS INCREMENTING TEST * 1087 F2 10 OA 402 JT TYRWAS 
| 335 * ¥ 108A CO 87 1411 403 B x10 PRINT A BLANK LINE 
. 336 KRKERESSEEEESREREEEKH EH RERS ENTERS TAREE ERE RES SEEKS ERE REESE REESE EESERERE SES 108E E200 108F 404 DC XL2"*E200° 
. OFCO 92 OFC9 337 RTN2 ~~ DC xLl'2* ROUTINE NUMBER 1090 CO 87 107F 405 B NOMCD 
OFCA 00 OFCA 338 ec XL1"O8* FLAGS 406 SREKKEERAREKEAEKEEESE REESE RERERE SE ERES EGE EREK EE SKERSS KRESS HAA AS ASSES RE 
OFCB FFFF OFCC 339 DC =: XL2"FEFFS LAST ROUTINE IN SECTION HOT. ®s +, “GENERATE SENSE AN> RUGEION> 
pk 3GQQ SCESRRHETESESEHSERRER SERS ESSE RSSS AEE KKSES SE SLEEK SESE SKE SHEKHAR ER EKER EERE ESE 408 KERASRSAREESEEELER SESE AERAAGT SRL LHS AERA SHKERS SESSA SAKA AIA RER ES TS SERIES 
: OFCD 38 80 020C 341 TBN SBYTE4, SSW20 DON'T CHK IMAGE IF OPTION 1 IS ON 1094 3C FE 14CB8 409 TYRWAS MVI 1TUUs X*FE* SET 2ND INDEXED SNS DISPL.TO 254 
DATE 310CT69 22DEC69 Z20JANTO O2MARTO 11MAY70 O1NOVT7O O4JUNTL PROG 1D OF05-S DATE 310CT69 22DEC69 20JANTO 02MART7O LLMAY70 OLNOVTO O4SUNT7L PROG ID O£05-5 
4 EC NO. 816529 816547 816548 816631 816671 816764 818968 PAGE 3 EC NO- 816529 816547 816548 816631 816671 816764 816968 PAGE 3A 
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. : : 2 IBM MAINTENANCE DIAGNOSTIC PRGGRAM . : PART N12. 2589959 
IBM MAINTENANCE DIAGNOSTIC PROGRAM = PART NO. 2589959 | = PAGE 6A 
€ : PAGE 4 ' 
: j £055 DATA AND IMAGE ADDRESS REG. TEST . 
E055 DATA AND IMAGE ADDRESS REG. TEST | : 
c ER? LCC OBJECT CODE ADDR STMT SOURCE STATEMENT 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT - ; : 
i 138D CO 82 1361 478 BL ICTAB 
fe 1098 3C 10 14C€8 410 MVI IWUN,X*10° SET IST INDEXED SNS DISPL.TO 16 i 1391 2C OO 1580 479 BISSLI MVI SAMLIM, *-* SET BETWEEN PSS*S LIMIT TO 13 OR 8 
109C C2 O1 14C8 411 LA IWUN, XR1 LOAD 1ST INDEXED SNS ADDR. i 1395 36 01 1484 480 A LEVEN,XR1 ADD TABLE DISPL.TO TABLE ADDR. 
20A0 C2 O02 LOFF 412 LA TARS142,_XR2 LGAD START OF GENERATED FIELD i ae 1399 36 O02 1L4AF 481 NAGOR A TWO, XR2 ADD TO SAMPLE ADOR. 
C 10A4 4E 00 ©O 14AF 413 UUTDA ALC O(L,xR1L),THO : ADO 2 TO 1ST INDEXED SNS DISPL. : 139D 6D 00 01 00 7 482 CLC 101,XR1),0(0,XR2) SEARCH FOR NEXT INIT.INCR. - 
ma LO0A9 9C 02 00 00 | 414 MVC 003 yXR2)50(,XR1) PUT INDEXED SNS IN GENERATED FIELD ' 13Al F2 81 13 " 483. JE DUNAL 
1O0AD 36 O02 14B1 415 A TREE, XR2 UPDATE GEN.FIELD ADDR.BY 3 : 13A4% OF OO 15B0 14AD 484 SLC SAMLIM(1)~.ONE DECR.LIMIT 
f 1081 7D FE 0O 416 cul Ol,yXR1L)_X* FE* IST INDEXED SNS DISFL.UP TO 254 13AA CO O1 1399 485 BNZ NAGOR , ; } 
10B4 CO 82 LOA4 417 BL UUTDA : 1ZAE CO 87 9222 4358 B HALT PSS INIT.SINCRJERROR HALT 
1088 C2 01 14CB 418 LA ITUU,XRL LOAD 2ND INDEXED SNS ADDR. i 13B2 E078 13B3 487 DC XL2°E0788 ; ; 
< 1O0BC 4E OO 00 14AF 419 UTUTDA ALC O(1 sXR1L) 9 TWO ADD 2 TO 2NC INDEXED SNS DISPL. : Le 1384 F2 8&7 OB 488 J NUSAM ‘ 
10C1 9C O02 00 00 420 MVC O039XR2),0(,XR1L) PUT INDEXED SNS IN GEN. FIELD 1387 7D 00 00 489 DUNAL CLI O( ,XR1),*-* ALL PSS*S CHACKED 
10C5 36 02 1481 © 421 A TREE, XR2 UPDATE GEN.FIELD ADOR.BY 3 138A CO O1 135D 490... BNE ITZRO r . 
10C9 7D 78 00 422 CLI O€,XR1L) eX*78* 2ND INDEXED SNS DISPL.UP TO 120 13BE CO 87 0212 491 B TEST ; BO ape 
10CC CO &2 10BC 423 BL UTUTDA ; 13C2 35 O02 14AB 492 NUSAM L ZERG, XR2 WAIT TILL NOT BUSY : ; 
42G REFERER RSESRE EERE ER REA SERRE AKEKESESERE SKE GEE KK A EER SR AREAS AKT AGEAKASESEKE 13C6 Cl E6 13CD = 493 BUTIO TIO BULOP, BUSY : 
C 425 * WAIT FOR HOME LATCH,THEN ISSUE PRINTESPACE 13CA F2 87 OE 494 J SICEM 
; 426 KEKEREEERREREAKKSE REE SEE ERRASERATERCE LEAKE ESAS EK ERE SERS EAARKEREEAEER ARAKES ; 13CD 36 02 14AD : 495 BULOP A ONE,XR2 
1000 31 £4 1488 427 LIo LPEAOReLPIAR . LOAD LSR ADDRESS REGISTER 13D1 CO O01 13C6 496 BNZ BUTIO 
c 1004 3C FF O8T7F 428 MVI —s—- LPO+#3,X'FFS PUT UPC IN M4 1305 CO 87 0222 497 B HALT 
1008 C2 O1 LOEC 429 LA POOLMH,XR1L LOAD 1 FOR A BASE 1309 EOL] 13DA 498 pc XL2*EOU1L* . 
100C C2 O02 LIEC 430 LA TARS2+1,XR2 LOAD 2 FOR A 2ND BASE : 13DB OF OO 1583 14AD 499 SICEM SLC LPOUNT(1) »ONE GONE THRU i0 TIMES 
10EO 30 E2 15A9 431 NAS SNS STAT2,X*E2* GRAB TIMINGS : 13€1 CO O1 1071 500 BNZ ‘SECIT , : 
1OF4 33 10 15A8 432 TBN STAT2-1,8"100008 PSS-1 ON ? 13E€5 CO 87 0216 501 BLINK 8B LINK 
10E8 CO 90 1LOEO 433 BF NAS . : SOQ FREER AREEE KEARSE RHERAK AEE ESTERASE RASA SE SLATE SAE SSEEKAKARSEA KE KARA HARKS 
. LOEC 70 E2 10 434 POOLMH SNS 16(0,XR1),X*E2* GRAB SENSE SYNC GN HOME LATCH 503 * CHECK FOR BUSY & DELAY SUBROUTINE 
1LOEF 78 O1 OF 435 - TBN 125(,XR1)sB'1° HOME LATCH UP 18.24 USEC.LOOP 504 KEKRREEERERERERRA EERE SRE REAS HE SERAS SALAS ES SASHA SRE RS EAR AEAKAS EERE 
10F2 DO 90 00 436 BF OCyXR1L) Loop IF NOT 1369 34 08 1410 505 BROUT ST BSEXIT+3,ARR 
10F5 F3 E2 Ol 437 ITACMD S19 X*O1%,X"E2° PRINT AND SPACE | 13—ED OC O02 15BE 14B9 506 SDC MVC BUSUB(3),BUSCTI STQRE DELAY COUNT 
10F8 DO 87 Ll 438 8 17O,XR1L) GO SAMPLE ' 13F3 OF O02 1538E 14AD 507 FLOOP SLC BUSUB‘3) »GNE 
1OFB 0000 10FC 439 oc XtL2*or SENSE AREA { 13F9 F2 81 O07 508 JZ TOLONG 
/ 44Q FEREERRES KAR RR ERE EREHE SS SERS SE REARS KK GKE RASH SARK AGS RHA RKA KEK AAKS HEAKEKKE : 13FC Cl €6 13F3 509 TIO FLOOP, BUSY 
441 * SAMPLE THE Y.A.R. AT 7.62 USEC 1400 F2 87 OA 510 J BSEXIT 
GQ HERR REERE ERAGE EEE REE EEE EL ESSE EEE REE KARAS ABRAR SES EERE EAE EE KERR KERE EREEKE - ae 1403 CO 87 0222 511 TOLONG B HALT ERROR HALT 
Cc. 10FD 443 IARS1 EQU * : ts 1407 EO11 1408 512 DC XL2*EO11* BUSY ID. 
ine JOFD LEA 444 OS CL238 1409 CO 87 13ED 513 B soc TRY AGAIN 
LIEB 445 YARS2 EQU * 140D CO 87 0000 514 BSEXIT B *—% 
11E8 1250 446 OS Ct102 , . SS SHREK ERE ER ERE RARE EERE ERASE ERE SES ASE SAS AKA RAAASSAARAS EEA ESREEE 
1251 1318 447 OS CL200 516 * EXECUTE SIO SUBROUTINE 
"1319 3C 40 O87F 448 MVI LPD+3,X'408 BLANK UPC SLT FREER EE RRR REE EEA ERAS ERA LAS SKE A SL ASAS SS SARA TSAAHS SHARK ASKK AES RAE AES 
fe 131D 3¢€C 28 1388 449 MVI DUNAL+1,X*28* SET 48 CHAR.STOPPER 1411 36 08 14AD 518 x10 A ONE ,ARR : 
1321 C2 O1 14FO 450 LA PS148-1,XR1 2415 34 08 1443 519 ST LDCMD+9,ARR LOAD PARAMETER POINTER 
1325 30 E€3 1L5SAB 451 SNS STAT3 ,X*E3?* GRAB STATUS BYTES 3 1419 36 O08 14AD 520 A ONE »sARR 
1329 38 04 15AB 452 TBN STAT3,8°100° 48 CHAR.BIT ON 141D 34 08 14A4 521 ST EXIT+3,ARR SET UP EXIT 
1320 F2 10 08 453 JT SKUCS 1421 34 O1 1L4A6 522 ST SAVWUN ¢XR1 SAVE REG. 1 
1330 C2 O1 1512 454 LA PSLUCS—1¢XR1 MUST BE UCS : 1425 34 02 14A8 523 ST SAVTUUs XR2 SAVE REG.2 
1334 3C 58 1388 455 MVI DUNAL+1,X*588 SET UCS STOPPER t 1429 Cl EO 1430 524 TIOCHK TIO ERNRDY,NRCY BRANCH IF NOT READY : oe 
1338 C2 02 LOFA 456 SKUCS LA TARS1—-3 ¢XRZ 142D F2 87 OA 525 J LOCMD : . es 
133C 3C 00 1580 457 INILI MVI SAMLIM,*#-% SET INIT. TO 33 OR 23 1430 CO 87 0222 526 ERNRDY B HALT 7 
‘. 1340 36 O02 1L4AF 458 UPTWO A TWO eXK2 = 1434 EO1LO 14325 527 DC XL2°'EO10* NOT READY !0. 
1344 BD 02 02 459 CLI 2€.XR2) sX*02" INIT. INCR. O2 STILL 1436 CO 87 1429 — 528 B TIOCHK 
1347 F2 81 13 460 JE ITZRO 143A CO 87 13£9 529 LOCMD 8 BROUT 
% 134A OF 00 1520 14AD 461 SLC SAMLIM(1),ONE DECR. LIMIT 143E OC 01 1458 0000 530 MVC) =—- CMND#2(2), *-* SET UP COMMAND FROM PARAMETER 
1350 CO O1 1340 462 BNZ ~ UPTHO 1444 3B O8 145A 531 SBF CMND+ 1,8" 1000 SET MOD.BIT OFF 
1354 CO 87 0222 463 B HALT T.A.R. DID NOT START 1448 38 80 0209 532 TBN SBYTE1, SSWO8 PRINT CN RIGHT CARR. , z 
© 1358 E076 1359 464 oc XL2*E076¢ AT 02 HALT 144C F2 90 04 533 JF NOTRIT 
135A F2 87 65 465 J NUSAM 144F 3A 08 145A 534 SBN CMND+1,8"10008 SET RIGHT CARR.MOD.BIT ON 
= 1350 3€ 00 1371 466 ITZRO MMVI CHK INC4+2,X*"00°* SET INIT.DISPL.TO 0 1453 OC O1 1585 1458 535 NOTRIT MVC ERT1(02),CMND4+2 - , 3 
C 1361 3¢ GO 1580 467 ICTAB MMVI SAMLIM,*-* SET INCR. LIMIT TO 8 OR 5 1459 F3 00 00 536 CMND SIO. =—X*0#,xtO8 COMMAND LOADED DURING EXECUTION 
Mes 1365 O€ GO 1371 14AD 468 ALC CHKINC4+201),0NE ADD TO OISPL. 145C Cl E6 1466 537 TIO ISBUSY,BUSY 
; 1368 36 02 14AF 469 ROGAN A TWO,yXR2 ADD TO SAMPLE ADDR. 1460 CO 87 0222 538 B HALT IF NOT, HALT ON EKROR 
s 136F 60 60 OC 00 470 CHKINC CLC OC1eXR1) 00 eXR23 SAMPLE EQUAL TO TABLE INCR. 1464 E016 1465 539 pc XL2"*EO1L6! : NOT BUSY HALT 
1373 F2 81 13 471 JE TTSOK 1466 35 O02 14AB 540 ISBUSY L ZERO,XR2 
1376 OF 00 1580 14AD &T72 SLC SAMLIM(1)¢ONE DECR.LIMIT 146A Cl E6 1471 541 DELAY TIO SYLP »BUSY PRINTER STILL BUSY 
N 137C CO 61 1368 473 BNZ ROGAN ‘ 146E F2 87 OE 542 J XIQEXT ae 
1380 CO 87 0222 474 B HALT T.A.R-DID NOT INCR. 1471 36 O02 14AD S43 BSYLP A ONE gXR2 TRY FCR ABOUT 1.5 SECONDS TO 
1384 E077 1385 475 DC XL2"°EOT7TE BY 8 HALT : 1475 CO 01 146A 544 BNZ DELAY CLEAR BUSY 
gf 1386 F2 87 39 - 476 J NUSAM 1479 CO 87 0222 545 B HALT : BUSY HALT 
' 1389 3D OB 1371 477 ITSOK CLI CHKINC+2,X"068 11 T.A R.INCR. DONE ‘ 
S DATE 310CT6E9 22DEC69 Z0JANT70 O2MARTO LIMAY70 O1LNOV70 O4JUN7T1L PROG ID OEO5-5 
DATE 310CT69 22DFC69 Z0JAN7TC O2MARTO LIMAYTO OLNOV7O O4&JUNTL PROG 1D OEC5-5 EC NOw 816529 816547 816548 816631 816671 816764 818968 PAGE GA 
z EC NOw 816529 816547 816548 816631 816671 816764 818968 PAGE 4 ; : 
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18M MAINTENANCE DIAGNOSTIC PROGRAM . : : PART NO.j 2589959 2. IBM MAINTENANCE DIAGNOSTIC PROGRAM : : PART NO. 2589959 
c PAGE 5 ' ~ PAGE 5A 
“ . i 
e £055 DATA AND IMAGE ADDRESS REG. TEST > oe €055 DATA AND IMAGE ADORESS RES. TEST 
~ ‘ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT : ERR COG SBJELT SOE AODR STMT SOURCE STATEMENT 
| ; 
z 147D E014 147E 546 DC =—_- XL2* E014# : er perenne ons . 
147F 3C 80 15AF 547 XIOEXT MVE HAPOIN,X* 80°® LGAD DELAY COUNT OF 128 i 
1483 OD FF 0800 0800 548 Wt CLC LPI(256)yLPI DELAY 1 MSEC. : ; 156C FSF2FOF340D4E4E2 ISTE 604 pc CL19*5203 MUST SE READY.* 
< 1489 OD 3B 0800 0800 549 CLC LPI(60) ,LPI 3 : ec pee aaa : one ; 
148F OF 00 15AF 14AD 550 SLC HAPOIN(E) ONE DECREMENT DE T - 
1495 CO 84 1483 _ 551 BH WT ee ats coon 157F E3C8C50540D9C5E2 1580 605 .MAKADY DC CLIS* THEN RESET HALT® 
‘ 1499 35 02 1446 552 t SAVWUN» XR1 RESTORE REG.2 L587 CSESS0C8C1DSES 605 ‘ : : 
149D 35 02 14A8 553 t SAYTUU, XR 2 RESTORE REG.2 158E C9D4C1C 705405040 1598 606 DC CL14*IMAGE & CHAIN ; 
Z 14A1 CO 87 0600 554 EXIT 8B —* EXIT SUBROUTINE 1596 C3C8C1LC9D540 606 
: 555 : 159C C4D640D5D6E340C1 15A7 £097 CHAERR DC CL12*00 NOT AGREE* 
” 14A5 0000 1446 556 SAVWUN DT IL2"0# 15A4 C7TD9C5C5 607 : 
14A7 0000 14A8 557 SAVTUU DC IL2*o° 608 REAEEEERELLERE EE SEAL EAERE SESE SE CRESS EK KAE SER ES SES SEES LE SEEKS FEKETE SE RAESESE 
4 55Q EAKTSHREE SESH TR AARERSERA RSL AKA S EERSTE SEA SEATEAT SERRE SERS EERE KE KES ELERES 609 *- RESERVED STORAGE ; : 
559 * CONSTANTS . 610 KEKEESKEAKAKKAAK KK SEKEAKKKSEKKARELSSERARSEKESKSE SSERK SS ESE KE REESE RSEKRKKKHKKSKKHKHE : 
560 SHEREKE KEEKR HKKE KEE ERAEEADEERERE EAA ESA R ERE EES ER ES EEE ERE S EASES KES 15A8 0000 , 15A9 611 STAT2 DC XL2°0° 
: 1449 00 1449 561 pc IL1*08 15AA 1548 612 STAT3 DS cL2 
14AA 6000 244B 562 ZERO oc 1L2*o? : : ‘ 15AC 0000 I15AD 613 STAT6 DC XL2°O* 
- * ¥4AC ODO] © 148 563 ONE oc ‘ IL2*1¢ : 15AE 0000 ISAF- 614 HAPOIN BC XL2°*O* 
eee! o0os Take. 7656 RUB Ne fiche. 15B0 00 15B0 615 SAMLIM BC XLL*O* 
14B0 0S03 14B1 S65 TREE DC 1L2*%3° 1581 0000 15B2 616 LASAV OC XL270°* 
1482 08 1482 566 EIGHT DC ILi#s* 1583 1583 617 LPOUNT DOS cil 
é 1483 0008 1484 567 LEVEN OC 1L2*211* 1584 1585 618 ERTL ODS ci2 
14B5 000C 1486 568 TRLVE cc IL2*12* 15B6 0000 15B7 619 MIDAR DC XL2"08 M1 SAMPLE AREA 
1487 040000 1489 569 BUSCTI DC XL3*40000°* _ 1588 0000 15B9 620 M2DAR_ OC XL2*O* M2 SAMPLE AREA 
5 148A 0800 1488 570 LPIADR OC XL2*8008 IMAGE ADDR. 15BA 0000 158B 621 M3DAR OC xL2°0" M3 SAMPLE AREA 
148C O87¢ 1450 571.LPDADR DOC XL2*87C* 15BC 1SBE 622 BUSUB ODS cL3 
14BE 7070 14BF 572 FOLG OC XL2*7070* FORM LENGTH 112 : Babe 15BF 623 EADM1 OS cil 
a 14CO T0E619 14C2 573 SWUN DC XL3"70E619¢ i 15C0 15CO 624 BADM2 DS cil 
vt 14C3 BOE600 14C5 574 STUU DC XL3"BOE600# 15C1 15C1 625 8ADM3 DS eu 
1406 TFOES1L0 14C8 575 YWUN oC XL3*70E4108 7 &26 AKA AALALR RAH RAESASESRAKSAE FSSA SSS SRA SERS REESE FHS SERS HK SKK RARE RRAERIS 
x, 1409 BOE4SF T : ' ‘ / 627 * EQUATES * 
: . : face Bh ne neek bos = oor 628 SERHEEREAEKKE REESE REKERESSERS SE SS SSSESRASS SS SSA AS SASS SE SHAK RARE SERS SKS SER 
14CC 7FSB97A3AFBBC703 14D3 578 OC XL8'7F8B97A3AFS8BC7D3* DAR VALUES FOR HMR.POS.4 PSS1 QOOS: G22 ARK © EAU) tO8! ADDRESS RECALL REGISTER 
1404 DFEBE7 1406 579 oc XL3"DFEBFT® 132 PP 0001 639 XR1 EQUI INDEX REGISTER 1 
1407 08 14D7 580 oc xL1*08° 0002 631 XR2 EQU) 2 INDEX REGISTER 2 
14D8 J38FOBATB3BFCBO? 14DF 581 DC XL8*°838FORATB3BFCS07* DAR VALUES FOR -POS. 0800 632 LPI equ xX" 800° LINE PRINTER IMAGE AREA 
14£0 E3EFFB 1462 582 OC XL3°E3CFFB® : 132 PERE: ORR er Gano S 0876 633 LPD eouU x*B7Ct LINE PRINTER DATA AREA 
14E2 08 14E3 583 oc XL1°08° 0878 634 UCSFLG EQU  x*8785 
-146€4 87939FABB7C3CFDB 14EB 584 DC XL8"87939FA3B7C3CFDB* DAR VALUES FOR HMR.POS.4 PSS3 OCEO 635 LOFOLG EQU = X*EO® 
e 14EC ET7F3FF 1SEE 585 oC XL3 *E7F 3FF® 132 PP OOE4 635 LPIAR EQU XTE4® 
is 14EF O87F 14FO 586 oc XL2*O87F® ze OOE6 637 LPDAR EQU  X*E6* 
587 0216 638 LINK EQU  X*216* ENTRY TO DCP CHAIN ROUTINE 
c 14Fl 588 PS148 EQU * ° 0212 639 TEST EQU X*212° ENTRY TO DCP READ DATA SW'S ROUT. 
14F1L C20A121A222A020A 14FB 589 De XLLL®OZOALZLA2Z22ZAN2Z0A121A2Z* 1. ALR. O21A 640 PRINT EQU X*21A* ENTRY TC DCP PRINT ROUTINE 
14F9 121A22 589 a a MM 0222 641 HALT EQU  xX*222° ENTRY TO DCP ERRGR HALT ROUTINE 
14FC 0500151D252D050D 1506 590 oc XL11*050015102520050D151025* HAR. OOEO 642 NRDY EQU = X*EO® 
1504 151D25 590 ce ie a OOE6 643 BUSY FQU X*E6S PRINTER BUSY 
1507 9810182028000810 1511 591 oc XLL1*C8101820280008101820z8* 644 * —SFNSE SWITCH EQUATES. 
< 1SOF 182028 591 pee 0208 645 SBYTEO EQU xX*208° DCP SENSE SWITCH AREA 
1512 03 1512 592 DC xL1*03* 0209 646 SBYTEL EQU Xx*209° CCP SENSE SWITCH AREA 
1513 593 PS1UCS EQU. * O2QC 647 SBYTE4 EQU  xXx*Z0C* SECTION SENSE SWITCH AREA 
1513 020A121A222A223A I51D 594 DC XLIL*O20A1LZ21A2Z72A323A424A52" TLALR.VALUE 648 * CONTROL PGM SENSE SWITCHES 
1518 42452 594 ee 000% 649 SSHOS EQU Xx"04? PRINT MESSAGES ON MFCU 
- 151E 050D01510252D3530 1528 595 DC XL11*0500151025203530454D35" U.C.S. 0089 65u SSWO8 EQU  X*80" USE 5203 RIGHT CARR. 
7 1526 454055 595 651 * SECTION SENSE SWITCHES. 
1529 0810182028303840 1533 596 oc XL11*0810182028303840485058° COBO 652 SSW20 EQU = xX"80° LPCA&R OPTION 1 
; 1531 485058 5$6 FFFEF 653 END 
C 1534 03 1534 597 oc XLL*03° : 
SOQ SLEREKAKEAEEKHEAKERE SAREE E AEE ATERTERESE KECK ES SHATRKERE SESE HEEEEKEKEESSEERERE 
7 599 * MESSAGES 
€ 600 KEKKKETEASREKEEHESRS SESS S SEAEEKS ERASERS HEE FAS THE TCLHS KEKE SEES SE HEERESEED 
1535 C4C1E3C140C1C4C4 1546 601 TITLI OC CL18*DATA ADOR.REG.TEST® 
1520 094BD9C5C74BE3C5 601 
c 1545 E2E3 601 
tat 1547 C9D4C1C7C540C1C4 1559 602 TITL2 OC CLIO" IMAGE ADOR.REG.TEST* 
154F C4D94BD9C5C74BE3 602 
c 1557 C5E2E3 - 602 
155A D7D9CSE2ZE240C3C8 1568 603 oc CL18*PRESS CHECK RESET,® 
2 
DATE 310CT69 22DEC69 20JAN70 02MART0 LIMAYT0 01NOVv70 04JUNT1 PR 2 “++ DATE 310CT69 22DEC69 20JAN70 O2MAR 70 LIMAYTO O1LNOV70 04JUN71 PROG ID O£05-5 
EC NO. 816529 816547 816548 816631 816671 816764 818968 ee ” Rete EC NO. 816529 £16547 816548 816631 816671 816764 618968 PAGE 5A 
€ 
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1 ; . : | IBM MAINTENANCE DIAGNOSTIC PROGRAM PaRT NOw 2589959 
IBM MAINTENANCE DIAGNOSTIC PROGRAM ue ae NO. na : PAGE 6A 
. : £055 DATA AND IMAGE ADDRESS REG. TEST 
E05S DATA AND IMAGE ADDRESS REG. TEST | e 
oe 4 CROSS—REF ERENCE 
CROSS~REFERENCE \ 
i SYMBOL YT LEN VALUE DEFN REFERENCES 
C SYMBOL T LEN VALUE DEFN REFERENCES © 
; : ITSOK A 004 1389 0477 0471 
AOTUTU A 005 0827 0118 0122 ; { : rTuu &£ 003 14CB 0576 0409* 0418 
e ADTUY A 005 OBOF 0112 0116 : : 1TZRO A 004 135D 0466° 0460 0490 
tt AGAIN A 004 ODSF5 0187 0191 ° IWUN A 003 14C8 0575 0410* 0411 
ARR C 001 0008 0629 Q301 0319 0505 0518* 0519 0520* 0521 : : LASAV A O02 1582 0616 0167* 0170 / ‘ 
BAOML A OG1 158F 0623 0281* 0282 LDCMD A 004 143A 0529 0519* 0525 . - 1 
BADM2 A001 15CO 0624 0256* 0257 LEVEN A 002 1484 0567 04380 ; 
BAODM3 A O0O1l 15CL 0625 0062* 0225* 0226 : LINK C00 0216 0638 0297 9501 
c BAPRT A& 004 OA29 0039 0037 LOFOLG C 001 OO£O 0635 0058* 0387+ - 
BESSLI A 004 ODE6 0133 0051* 1LOKON A003 OEFA9 0243 0245 
BLAH A 004 OEF4C 0214 0202 0210 ; LORIS A 004 OFS5F 0297 0294 
s BLINK A004 13E5 C501 0342 LOUNT A004 OASC 0058 0048 
BROUT A 004 13€9 0505 0529 , LeD C 00l O87€ 0633 0428* 0448*% 
BSEXIT A004 140D 0514 0505* 0510 ; LPDADR A 002 14BD 0571 ~ 0060 06388 
: BSYLP A004 1471 0543 0542 , LPDAR COOL OOF6 0637 0060* 0388+ ; 
BTSSLI A 004 1391 0479 0379% 0383+* LPI C 001 0800 0632 0311 0321 0312 0312 0324 032% 0325 0325 O£48 0548 0549 0549 
BULUP A 004 13CD 0495 0493 : LPIADR A 002 1468 C570 0059 0427 
. BUSETI A 003 1489 0569 0506 LPIAR C OOl OO0E4 0636 0059* 0427% 
BUSUB A 003 15BE 0622 0506* 0507* = !POUNT A O01 1583 0617 0061* 0295* 0389* 0499% 
BUSY C 001 OOF6 0643 0187 ©0235 0266 0291 0309 0493 0509 0537 0541 LUKPSE A003 OESF 0219 0216 
£ BUTIG A 004 13C6 0493 0496 MAKADY A 015 158D 0605 0044 0307 0372 
tt CHAERR A 012 L5A7 0607 0354 MALS A OU% ODB1 0169 0173 
CHESUB A 0C4& ODDL 0177 oO171 : MEXIT A 006 OFCS 0328 0319* 
CHKINC A 004 136F 0470 0466* 0468* 0477 MHALT A OC3 1028 0374 0368 
CLIHAP A 004 OE£2C 0205 0200 0213 MOVHAM A004 0OA99 6073 0068 
CMND A003 1459 0536 0530% 0531* 0534* 0535 MRALT A 003 OA3A 0046 0040 
CRPAH A 004 OF63 0301 0093 0214 M1DAR A 002 1LEB7T 0619 0273 
CACHD A003 0858 0134 0063* 0069* ; MLLOK A 002 OFOF 0275 0272 
DACMDL A 003 OFOC 0274 0064* 0070* MLXT A 003 OF39 0287 0054* 
Cc DACMD2 A 003 GEAG 0242 c065* 0071* . M2DAR 4 002 1589 0620 0241 
GACMD3 A 003 O€5C 0218 CO66* 0072+ M2XT A 003 OEFEB 0262 0053* 
7 DARS1 A OOL 0869 0143 Ol1l 0135 0151 : : "*-  MBDAR A 0O2 15BB 0621 0217 
; D*8S2 A OOl OC4F 0°45 0127 ‘2! . M3XT A 003 OF89 0231 0052* 
DELAY A 004 146A 0541 0544 M4DEL A 004 OF9B 0319 0cs83 0203 0398 
DIPAD A 006 OD77 0155 0166 M4PSS1 A OCL 14CC 0577 0152 
OUNAL A 003 1387 0489 0445* 0455* 0483 . NAGOR A004 1399 0481 0485 
DUST A 904 OQAAA 0078 0075 0296 NAS A 004 10E0O 0431 0433 
EIGHT A O0Ol 1482 0566 0226 0257 0282 NEPSS A 004 OD72 0154 ~. 0185 
c ERHTKS A 004 1044 0381 0376 NEVES A004 GADF 0093 0082 0089 
ERNRDY A 004 1430 0526 0524 NIPS A 004 OF79 0309 0309 
ERTL A OO2 1585 0618 0019 0535* NOMOD A004 107F 0400 0397 0405 
i. ESVEN A 003 OF76 0308 0303 NOTRIT A 006 1453 0535 0533 
EXIT A004 14Al 0554 0521* NOYET A 003 OE€B3 0246 0248 
EXLENT A 004 ODFi 0186 0194 NROY C O01 OO0EO 0642 0037 0265 0524 
c FAST A003 OEFC1 0250 0249 NRTIQ A 004 OA22 0037 0031 
‘és FLOOP A 006 13F3 0507 0509 NUSAM A 004 13C€2 0492 0465 0476 0488 
FOLG A002 14BF 0572 0958 0387 ; OKYDOK A 004 1002 0355 0348 
C. GETIM A 004 OFSF 0320 0322 ONE A 002 14AD 0563 0155 0159 0172 0190 0225 9256 0281 0295 C6313 0326 C461 0468 
GOAIT A 004. OF96 0235 0224 0229 0231 0235 0472 0484 0495 0499 0507 0518 0520 0543 0550 
GOML A 004 OF04 0272 0267 OP1 A 004 O0£€3B 0209 0207 
f GOM2 A 004 OEFA2 0241 0236 ms POOLMH A 003 1OEC 0434 042¢ 
GOM3 A004 O€F54 0216 0188 ; PRINT C O01 O21A 0640 0032 C04i 0304 0351 0360 0369 
GRADAR A 004 OAE3 0097 0084 0087 PS1UCS A 001 1513 0593 0454 
C HALIT A 004 OFFC 0356 0350 PS148 A OOl 14F1l 0588 0450 
HALT C001 0222 0641 O102 0161 0174 O179 0192 0232 0263 O288 0356 0463 0474 0486 RETIO A004 1013 0365 0359 . 
0497 0511 0526 0538 0545 ROGAN A 064 136B 0469 0473 2 
f HAPOIN A 002 15AF 0614 0310* 0313* 0323* 0326* 05%7* 0550% RTNL A OOl OAOD C026 0018 
HERE A 004 1068 0394 0392 RTN2 A OOl SFC9 0337 0028 
HMLOGP A 003 084F 0131 0126 SAMLIM A OO1L 15B0 0615 0153* 0159* 0164* 0168* 0172* 01837 C457* 0461* 0467* 0472% C4 79% 0484% 
C TACMD A 0O3 10F5 0437 0390% 0393+ SAN A004 0843 0128 0130 
TARSL A 001 10FD 0443 0412 0456 SAVFUU A 002 14A8 0557 0523* 0553 
TARS2 A 001 LIEB 0445 0630 SAVWUN A 002 1446 0556 0522* 0552 
ce ICTAB A 004 1361 0467 0378* 0382* 0478 SAWRYT 4 004 OAFF 0108 0098s 0101 
INCONT A 004 OD9C 0164 GO50* 0158 SBYTEO C 001 0208 0645 0030 0039 0302 0349 0358 0367 
INILI A004 133C 0457 0377* 0381* SBYTE1 C 002 0209 C646 0067 0391 0532 
R ININLI A 004 OD6F 0153 0049% SBYTES4 C 001 020C 0647 0074 0081 0088 0097 020i 0209 0293 0341 
ISBUSY A 004 1466 0540 0537 
. DATE 310CT69 22DEC69  20JAN70 O02MAR70 LIMAY7O OLNOV7O O4JUNTL PROG ID OE 05-5 
‘+. DATE 310CT69 22DEC69 20J5AN70 O2MAR7O 1L1MAY70 C1NOV70 04JUN71 PROG ID OEO5-5 EC NO. 816529 816547 816548 816631 816671 8167646 818968 PAGE 6A 
EC NO. 816529 816547 816548 816631 816671 816764 818968 PAGE 6 
c 


0280080080000 08 8888888 8G0CCCCCCCE SS 





ee28 8 ®@ 








erates , tap es fae ts 


mM i > i 
¢ | Q : 
ay : i 
a ; - NG 
184 MAINTENANCE DIAGNOSTIC PROGRAM es ; : PART NO. 2589959 { 4 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589959 
C PAGE ~ 7 | PAGE 7A 
E0SS DATA AND IMAGE ADDRESS REG. TEST | it E055 OATA AND IMAGE ADDRESS REG. TEST 
. . wo 
i CROSS-REFERENCE | OBJECT CARD LISTING 
. 1 
C SYMBOL T LEN VALUE ODEFN REFERENCES we . eee 
? THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS © E H INDICATE NUMERIC SHIFT. 
SOC A006 13ED 0506 0513 | A 
Cc SECIT A CO& 1071 0396 0500 t CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 Ct 65 THROUGH 80 CL 81 THROUGH 96 
SENAT A 004 OFEO 0346 0344 ‘ 7 \ . : 
SEXIT A 004 OF9T 0315 03014 | oe 
C SICEM A 006 1308 0499 0494 oo ce eo e ° o é ‘s wii aie 
S1IOST A 004 OAC3 0085 C079 0092 T+-Y38EM & B-4 N_3AG D C@U8A H H@Z HOH*BFUHKEM$ —- <G-8SX2/1E8A H HaZ HOH*BFUDSEQT -8> )LOEO55C001 
SKUCS A 004 1332 0456 0453 : 
i SMAD A 004 OD7D 0156 0160 ° e eo é 7 sein aes s': 3e 
SPUDT A003 GACC 0020 0047 O078 0199 0375 93398 : T#-Z25- <8H Y<@Z QUA¥*¥(#COECRS432B 7 XIHD+ST2AC>0@-E3 2<3 M?3GUE.Z19/K "2 YNZOCBE*DMD3% HBSU LK E0550002 
SSWOS C O01 0904 06%9 0030 0039 0262 0349 0358 0367 
- SSwo8 C 061 GO8D 0650 0067 0391 0532 « _ ‘ eo ‘ é - 7 : 
SSk20 C 001 0089 0652 0074 O08: 0088 0097 0201 0209 0293 0341 : T+-DO+0-]CLZHCD* #8 934H BB-HEDCY HB5U:8 a(4+--4+Z3Y HOV42-0.2+H SCIH SAZBGEAGS CUOB-3 2UAK *18E0550003 
STAT2 A 002 15A9 0611 0085* 0086 0128* 0129 0205* 0206 0320* 0321 0400* 0401 %421+ 1432 
: STAT3 A OCO2 15AB 0612 0346* 0347 0451* 0452 ' i “a et z | « So. . “ a es eu, 
rate STAT6 A OO2 LSAD 0613 0099* 0190 T#-,,1GOH#3S -3 2DB{ /0=$aY#-<+H NDL-AEEX2DAM8— H <@/ HOH=MD3H OH* HO@BGCE<B- H<a/ N<+Q EKCEO5S50004 
.-, .STRIT A 004 OQE12 0198 0189 O237 0268 ; 
c sTuyu A 003 14C5& 0574 OL98* O1L7 arte a s 7 oes ses . . . 
‘SUBOK A 004 ODE2 0182 0178 T#-2WEE4* AQ_@VD HOH*BH>AOOH*#H*TO EXMaFJL30-DMOZH BB6_+ M,90B & /Kin-d OHH.C3H AE<M #C*E0550005 
SUSY A 004 OF46 0291 0280 C285 0287 0291 : 
SWUN A 003 14C2 0573 0109* 0110 ee a ee ‘ 3 ts, S 7 Si! eh et es ‘ 
TAW A 006 OF@1 0311 0314 i T+-_/L- EH=* - (-HMZP5> <BBB2~ B &_|O-H<LTESEEU S8DAGYOI .&7CSDG-— AC*BE J}S ~HGBO *+H =E-F0550006 
TECHBI A 004 OFE4S 0347 0345* : 
Fest Cc Col 0212 0639 0292 0491 s e es eeeeoseeseaeecee eo 8268 @eeeeeeeeneasnneanen odo gaeaeeseeoeeenoea eeaeeceaesenese @eenee @eoeoceaesaneaneonen ee eseoone 
THCHEK A 004 OD81 O157 0154* 0155* 0165 : TA-_YDG- DC EDE 4EYE0550007 
TIOCHK A 004 1429 6524 0528 . ; x 
c TIPS A 004 0A30 0047 0038 | —_ # @e es po @e@eee oe = eo e 
tre: TITL? A C18 1546 0601 3035 T4#-5/0-H.EZHAE<O aHJOOL (-08 CQ< M,LQBEH*_ @YD MCO NZAK_O D(-*8) G S$.-**BGSXHAOBAG OL&Y &5*E£0550008 
TITL2 AOlD 1559 0602 0363. i = . 
c TMMLE A OC4 OF3C 0288 0283 ° ° a. S < . ee es a ‘ste 
THMZE A 004 OEFEE 0263 0258 ? T+-7*CQ] --57. D N2- @BADO(-HM,24 AESH AYEMCO NZAK _O D(Z*BG S$.-*2%B G3XH) & <3YDHOH* BH> #-QE0550009 
TMM3E A CO& OCEBC 0232 0227 : iz . 
- TNUGL A 004 1050 0387 0366 0380 ‘ * a8 . = é = : * ee 
TOGGON A 004 OA72 0063 0104 0163 O176 0181 0234 0265 0290 T+-8P*QBGBXH6 JK 61 4NZG5" < ACP< 5 /K,03Q+ <HACVL 2/146 /K_O D(**B G S.-E<BGC+D4 &8 :4L $C*E0550010 
TALONG A 004 1403 O511 0508 
TREE A 002 1481 0565 OLL4 0120 0415 0421 . . ‘s Se a oe eee: “~ ws ‘ be pS 
TRPAB A004 101A 0367 6365 T4+-9K8-32U 28- H <a/ YOH*¥|Wa23GCT* 08/0Z+ DND-HEA<B G 8- H<c/ HOH* MDSH OH*+.<B5GC6] 708 #: E£0550011 
. TWAIT A COG OEF8 0266 0255 0260 0262 0266 s 
. TWLVE A 002 1486 0568 0182 : 7 $: ie. AS * Pe < * é 2 ap aie 7. 
Two A 002 14AF 0564 0112 0118 0156 0169 0413 0419 0458 09469 0481 T4-2 ((@HBCV"B JO #0=HA*4+H 30 = 81 *+Q =QH aYDVC- NOJK_C& NOJK232YD <~Q8 @YDE-RY O-* HOH* =24F0550012 
TYRHAS A 004 1094 0409 0399 0402 7 
a UCSFLG C 001 O878 0634 0343 ° 3 Se arose. See - aoe. 3 sid 
UPTHO A 004 1340 0458 0462 T+-#H S.-}*BGBX. A9-:00-D+Y2ZBGC/. B JOS2=HA*4+H 3D OI +DPCS GV <B &C,{B —#A*+H 3D 81 2ZHEO550013 
UTUTDA A 005 OBC 0419 "0423 . . 
UUTDA A005 10A4 0413 O417 = — ° ek eos Boe = ae . . Pee 
UVWXYZ A O01 OAOD 0003 T+-aC GCW G6E 1H AIES E* My E4 E* MZ?PHACG6J THADGE ) THGBZBG S.-)<B GSBX.A9-#80-DI ACB GC/H QEHE0550014 
WAT A CC& OFAF 0324 0327 : 
c WHARTO A 004 O£37 0208 0148+ 0204 0215 - < e < oe ie . . ‘és oe 
wt A 006 1483 (548 0551 T+-d=0-HICAHAE$S$ 38-E08-E8 -C-U A 09-E'= G2-KM+ AO "EHS AOWE. 22-61 *S G2-JA'V G2A0, 70H EDHE0550015 
x10 A004 141: C518 0076 0090 0211 0394 0403 
‘. XIOEXT A 004 147F 0547 0542 a . ° ° ys gt ° . a ee e 
oat XR C 001 0001 0630 0110* 0112 0113 O115 0O117* 0118 0119 O121 0126* 0131 0132 0133 T+—-* SH>ASOH*H4ZG WC4$ /OHK+H BCIH &B-a@ ES<My* ABD, /OHOC —fWTI-D -T 2U T SOHE LENT=A @Aa0 6,*E0550016 
0137 0138 0139 O152* 0157 0177 0182* 01846 0188* 0198 0217* 0219 
Cc 0220 0222 0223 0228 0230 0236* 0241* 0243 0244 0246 0247 0250 oes os. we oa Se es te we a) < _ esas ve 
0251 0253 0254 0259 0261 0267* 0273* 0275 0276 0278 0279 0284 T+-=49-"91B-N,07 "B H G#B H a EEQM,*BDC8G /0 ( -PZCCSEEUS JC ZO! {X202EEat"0O- 8B *Z EQ550017 
0286 0411* 0413 0414 0416 0418% 0419 0420 0422 0429* 0434 0435 
C 0436 0438 0450* .0454* 0470 0480* 0482 0489 0522 0552 es oe ee < a . : = es ° 
XR2 C 001 0002 0631 Ol11* 0113 0114* O119 0120* 0127*% 0151% G1&S5* 0157 O167 0169* 0170 T4+-"?CLZTH - CO NelK_OHE[,aBG B }"*+H BC< ED=M *"O/82-DDICU]9SOCC TEEZBAAG,a/ P+ & BBIH 58<E0550018 
O1L77 0186* 0190* 0216* 0221 0249* 0252 0272# 0277 0412* 0414 415% 
C 0420 0421* 0430* 0456* 0458* 0459 0469* 0470 0481* 0482 0492* 0495* enters = . en os z 3 wi a z. . . ; 
0523 0540* 0543* 0553% T+/ DU , JOHEOJY NZ= +0H*BH> ++ &€ BBIHEBZBG /ZBDIN RS CASA EaY*6+ & B@BIHEBZBG /ZAH/O (84D 6SDE0550019 
YALED A 004 OE£00 0190 0187 
& ZERO A CO2 14AB 0562 0062 0186 0492 0540 Ss - &, . ‘ . ae Z 
‘'tl  ZPRUNY A 004 OAEE 0100 0073* 0080* T+/AVOGOC+B8 HCIH EC30PD34@AN(S! - LU?HGCCO/D34aBA( SI SLUTG~-E.al9/K °*4| YNZ3ZHDIQ8- H TaZ 9BQE0S50920 - - 
C TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 e x6 = es es. te Se 7 . 
T+/B-ACYHDI$ /1& JS8- 9K Y¥<aZ GOH*® |W"HGELCSEEUS8 JO Za/ HOH*MD3H OH* €-33=E<ZaDALHO-D M2<H R,HEOSSOO21 
C 
DATE 31CCT69 22DEC69 20JAN70 O2MARTO 1L1MAY70 C1NOV70 O4JUNT71 PROG ID OE05-5 DATE 310C T69 22DEC69 20JAN70 O2MARTO L1LMAY7O O1LNOVTO O4JUNTI PROG 1D OE 05-5 
EC NO. 816529 816547 816548 816631 816671 816764 818968 PAGE 7 EC NG. 816529 816547 816548 816631 816671 816764 818968 PAGE 7A 
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MSs om MO 


F055 DATA AND IMAGE ADDRESS REG. TEST 


OBJECT CARD LISTING 


CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 


cy 


ee e en, 


EH= * - 


ec . ee 


T#/C$ /C*L- (-HMEPT= <B BOWLB JLoL- EH= * ~ (-HM2P58 <B BD. O19AK #1 | aH-aH AD+O N& E0550022 


cy 


THAC20-HJ#CCSEEU 
T+/(L1D H>30YDAT 
T4#/++0H*BH> A6aY ) 
T+/|1D6D2 AOOL-D 


“T+/EDOY*+(—-HM, * 


T+/&" S.—-D*BGD=7 


8DAOYO! &8GCSDG- 


B JLO<+<ND3-DEE? 
Vi L¥LO ES + AL 


M_CQBEH*_ D aYD 


ADaS /OHSBADI AO 


40 (--M,LEHED< 


AC*BE 11S BGDE 
2D TB JMKIE-L><H 
1EH46 /K2$E 1H 
LCO NEAK_O DLW*B 


3EH7T JALOH*BETE 


6BAK_( -MZCEAEHQ 


BDIY@ AGO(—HM, #4 


ADO@ ES My* ADE? 


G S.-3|HGB874 =< 


HEA < /O0=E.UI /O 


4 KYO; MKPHGBIB 


B ?HADOa ES Me* 


/OHS8G+2/3U! BLK 


_— ADS7 /OHKCEHMDAG 


=EH72-&7A9/ | 38Y* 


G S.-D<BGEBX /11! 


Lath 
7 ’ 
: 
oe pee iment TN et CAC TC 


19UE05500 23 
AD4 J-8E0550024 
LOHH” PROEOS50025 
WDS4 $1 £0550026 


HOH*® 3/*E0550027 


ZC D aS-£0550028 


T+/S2EES C2HEEY 8- HI@Z O+#—MO-O AESMMO"< <GHEFS JOHS8AQ5 /Ks05Q M#HGC TQBEHT JJ DOH* 2 6£0550029 

r e e ‘ohae e ee e se e li es a a eeeee @eeeoeee8 ee ee e ec. | 

T+#/K5 S.-EC2 EEQ ("0- B (+0- B | AO?EH7T /AKCCED MZTMBEHT /0 A H O- BO EH<E0550030 | 
es eee s e - e 

T+/LOC & - BGL O*GCWFSCH GCUD.C U"X=.Vi42?>a-L7=? TBHt}W? 337a7P =" #BHSLX:2>70a"$9"| "BGa $2ME0550031 


T+/M, -YKESHD -Y KFSHECJSHM) EK4ECIM }I€-EFB Y -&FB- y” OHHD/YSHTH = €UZ KA&4NGKM_(CLSECNM HDA- #Y%E0550032 
T+/NWHB-O+DAHME- C1<GTOMCAL<LRK®X E147T13eT2}LALAN * OL DOM?R1#) « 8aP SEfARLS. Sa<fHl¥ | KE(U 2&0 0550033 
T4+/G/13 -E8675a?C 3E(LU8>( OZN 6*P Al+/,8aTESMCRI$. E84CHO) | T29L ALAN * MCC 2<61 SMCDS5UC N5>< J2EE0550034 
TALOZE<GG6*PE ae ek ee eee ea oeegeg aha G Pay one wns FF eossoess-- 
tos ee oo eens ae Ponery cone pa ea eee oe £1 6E0550036 
mo 8S Lee eee Beg eee ee Sry sega a Detar ig mee 7 MEOS50037 
Est xE7*=- DC PHS ="TMeFl | OC “veg asc RA oC 2° ee 92350317710 605712#*E0550038 
. 
c A 
C A 
| : vy . 
: Cc 
SS LAST PAGE ----------------------—-----------—------------ 
* DATE _ 310CT69 220EC69 20JAN70 O2MARTO LLMAY70 OiNOVv70O O43UNTL PROG ID OE05-5 
ns EC NO@S- 816529 816547 816548 816631 816671 816764 818963 
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52C2 CHAIN EMITTER TIMING TEST 


ERR LOC OBJECT CODE 


0A00 


0A00 
OAO02 
0A03 
OA04 
CA06 
OA08 
OAOA 


OAOD 
OAOE 
OAOF 


OAl1 
OA1L5 
0A18 
OAC 
OALD 
OALE 
0420 
OA22 
0A26 
CA29 
OA2D 
0A30 
0A34 
0A35 
- 0A36 
0A38 
OA3A 
0A30 
OA41 
0A45 
DA48 
OA4C 
OASO 
OA54 
OA58 
OASC 


OAG2 
OA66 
OA6A 
OA60 
CA73 
OAT9 
OA70 
OA8l 
OA85 
CASA 
OABE 
OA93 
OA9T 
OA9D 


DATE 
EC NGe 


€05000 


Ol 
00 
FFFF 


38 04 
F2 10 
CO 87 
42 

19 
OCT6 
E000 
C1 £0 
F2 87 
38 04 
F2 90 
CO 87 
41 

1 
0c95 
E0E1 
FO 7C 
3C OA 
38 20 
F2 90 
3C ic 
3C 19 
3¢ 19 


3C OF 
oc Ol 


3C 04 
3C 08 
F2 87 
OE OO 
oc 01 
c2 01 
C2 02 
9C G3 
4E 01 
36 02 
40 01 
co cl 
oc 03 
CO 87 


25AUG69 


816485 


0206 
O21A 


o%3 

OC9A 

Caoc 

1A 

OB2E 

OAFA 

osad 

OB6E 

OB75 

0845 CC5A 


OcAo 
oc98 
06 


OCAO 0C45 


OCGE O0C52 
OC4E 
OEC3 

00 00 

00 0C40 
0C44 

oo 9C50 
OA81 

1FF3 0C56 
OCclL7 


ADDR STMT 


OA01 
OAC2 
0A03 
Oa0S 
OAOT 


_OA0S 


OACC 


0a00 
OAOE 


. OALO 


oaic 
OA10 
OAIF 


 0A21 


0A34 
OA35 
OA37 


' OA39 


310CT6S 


816529 


PART NU. 2589961 
PAGE 1 


SOURCE STATEMENT 
2 DECK 4 
3 €06 START X®AO09* 
4 SRESEEEREEEEEERSE OE EOCREGEEEG EEEREEE SER ERHS ESE EERRERESSEEEGESEKSEEEGESEEESEEERE 
§ ¢« * 
6 SYSTEM/3 52C3 CHAIN EMITTER TIMING TEST » 
7 ¢ 
& FOSSA SEES SES ERE EESE HERES ELEESSEEEEES EEECERS EE 9 F949 09 24 49SE4 4S 9940R SE 
94 SECTION 6 ~ ROUTINE 1 * 
LO PRSSEHEREREEEEEOHEEGEESHESAAESSEHE ESE SESE ESEESEESE SOE OHS OSESEREESGESSEESEE 
11 oc XL2°E063° PROG IDENTIFICATICN 
l2 OC XL1°O° FLAGS 
413 oc xLifae CURRENT KCUTINE NUMBER 
14 oc xL2e¢oe RESERVED 
15 cc ALZ2CRTNL) ADORESS OF FIRST ROUTINE PREFIX 
16 oc AL2ZCERTI) ADORESS CF ERROR RECORDING TABLE 
17 SPUOT OC XL3°EC5O008 UNIT DEFINITICN TABLE - PRINTER 
18 SHSSEKSTELESHS GERSEEE EE SABEEREEEREREREEBEREE SEES GRE ERES GEREEAESS O34 EERE 
ig ® 2 
20 2 ROUTINE 1 ~ CHAIN ERITTER TIHKING TEST : % 
2i 2 % 
22 PRERSEEEEAKERES SE SELES EERESLEDEES SE EEEEEAEHRBEEDESSSESEESEES EE ETEOSEEEEEDE 
= RTNL DC XL1°18 RCUTINE NUMBER 
24 oc XL2*o# FLAGS 
2t Oc XLc * FFFFFE LAST ROUTINE 
26 FORE EEHES EES SESE ESHS (9EEEER STEERS EES EREREESEREESEEEEHOSEESTESAEEE EES 
27 TBA SBYTECsSShWC5 PRIAT CN MFCU 
2eé JT NRTIO 
2¢ 8 PRINT PRINT TITLE 
3¢ oc XL1*°42¢ 
31 OC . 1L1*25¢ 
3¢ oc AL2QTITL1? 
37 oC = XL2*ECO78 
34 NRTIO Tid BAPRT,NRDY PRINTER READY 
. 38 ’ NCOGOT 
3é BAPRT TSN SBYTEO*, SSwWO PRIAT IN MFCU SW. ON 
37 - JF MRALT : : : 
38 B PRINT PRINT MAKE PRINTER READY 
3S oc XL1*41° a 
40 cc 1L1°318 
41 oc AL2@MAKADY) 
42 oc XL2"E0EL* 
4&3 PRALT HPL X*03%,xX*7C# HALT EL 
44 NOCGOT KVI LPCUNT,10 
45 TSN SPUDT »8* 210C000* 1CC-200 LPM ? 
46 JF SNOTRE : , 
* 47 MVI CEMAX41_,X*1C8 - 
48 “V1 LTINAM41,X*°198 e 
49 MVE - MANTI41¢X*198 , 
50 MVI HMMING@1,X *C8? 
51 PV HMMAX4i e X*OF® 
S22... MVC GCBAK4 362) ,ADFRTY ; 
SZ ERERREREERESES EERE TES EAESERS EERESS EERE EEEEEES EES EE SESS 0086485 OE8E9908 58 
54 * GENERATE THE SENSE INST?HUCTICNS * 
55 EFSSEKKERERESS 4S SSRECSERE EES SEEESEAEREHRREREEEEEEOSEREDES EERESE EE OE E4ERT OE 
56 SNOTRE MMVI MSECS,X* 048 SET & MSEC DELAY 1ST TIME THRU 
57 MMVI TSUNT 28 
58 J TOGCON 
59 SKGOQON ALC .MSECS(1),NIKE AOD 9 TO MSEC DELAY 
60 TOGOCN MVC STUUC2) 5S AMADR LOAD STARTING SENSE ADDR. 
61 LA STUU, XR1 LCAD SENSE INSTR.ADOR. - 
62 LA SEN IN@3,XR2 LOAD GEN.FIELD ADOR. 
63 ADTUU HVC 014—eXR23-00—XR1) PUT SENSE INSTR. IN GEN-FIELD 
64 ALC O29 <XR1),.0NE ADD 1 TO SENSE INSTR. ADDR. . 
65 A F.JUR y XRF UP GEN.FIELD ADDOR.BY 4 
66 . CLC 0(29XR1)» LASADR 1100 SENSE INSTR.GENERATED? 
67 BNE AOTUU 
68 MVC SAMRET (4) » BRUNC PUT IN UNC BR 
69. 8 BROUT 
L1LMAY70 Oinov7c 19FEB71 PROG ID 0E06-3 
$16671- 816764 618912 PAGE 1 


Se a eat en ns re ee ee mie ie ae rennet Seeman == 
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ERR LOC OBJECT CODE 


ORAL 
OAAS 
OAAD 
OAAD 
OAB3 
OABS 
OALF 
OAC5 
OAC9 
GACD 


OADL 
OADS 
OADS 
OANA 
OADF 
OAE3 
CAE? 
OAEA 
CAEE 
OAFI 
OAFS 
OAF9 

_OAFD 
0801 
CB04 
CBO? 
oBcD 
0810 
0813 
0B17 
Ce 1B 
oBiz 
CB2l 
0827 
Cb2A 
082D 
0B31 
083% 
cB38 
0838 
0B 3E 


0842 
0B 46 
CB4A 
084D 
OB51 
0B55 
0B59 
CB5D 
0863 
OB67 
0860 
OB71 
0874 
0878 
0878 
08 7F 
0B8i 
0B84 


DATE 
EC NO. 


5203 CHAIN EMITTER TIMING TEST 


C2 
78 
F2 
36 
co 
36 
78 
co 
Te 
co 
3C 
3C 
36 
7D 
F2 
oE 
78 
F2 
co 
36 
7D 
F2 
OE 


79 


F2 
30 
F2 


78 
F2 
24 


36 
36 
79 
co 
ce 
cc 
cc 
oc 
co 
OF 
30 
F2 
30 
F2 
co 


E2 
01 
90 


FF 
38 
00 
84 
87 
30 


ol 
20 
99 
o1 
ce 
01 
20 
90 
Cl 
10 
co 
28 
ol 
306 
81 
00 
20 
90 
87 
et 
30 
By 
co 
20 
90 
20 
84 
87 
OL 
90 
ol 


Ci 
Ol 
20 
90 
87 
87 
87 
Ol 
87 
01 
10 
82 
1B 
04 
87 


EC82 


F2 
cc 


87 
87 


oce7 
oc96 
OAAL 
OCA2 
0800 
0800 
OCA2 
0aB3 
OEco 
130C 


25AUG69 


816485 


OCA0 
08006 
6800 
0C40 


CC49 


CC40 


ecsd 


OC 9F 


ADDR STMT 


OB80 


310CT6S 
816529 


70 
71 
72 
73 
74 


TS. 


176 
77 
78 
79 
ec 
81 
82 
83 
84 
85 
86 
87 
ee 
89 
9¢ 
91 
92 
93 
94° 
95 
96 
97 
98 
$9 
100 
1901 
102 
103 


104 


105 
106 
107 


108 


109 
110 
111 


& 


Ay Sang eres tere egret 
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ney eam ee nent Hee TREE 


SOURCE STATEMENT “4 

SEEEEREEREEEGE ESS EFAS EEAEERE SHEDS CESK OEE EEREEH SSE RSDEE SEEGER EEESEEEEREE 
* FINO HCME LATCHe THEN SAMPLE AT 9.12 USEC FOR 10 MSEC * 
HEHE AEAGALEGEE EES EE OESETOERS ES ERED EEE EEEESERERE EEE EEEEEREOEESEREEEEEREER 
SNIK SNS  - STAT29X*E2* GRAB THE TIMINGS 


TBN STAT2-1,6°1° HOME LATCH ON? 

BF SNIK : 

MYC HCMCNT(L) oe MSECS SET UP DELAY CCUNT 
TWA cLC LPI(256),LP1 1 MSEC 

cLc LPICGOd LPI DELAY 

suc HOMCNT¢1) »CNE DECReDELAY COUNT 

BH Twa 

8 SENIN GO SAMPLE 1100 BYTES AT 9.12 
RETURN MVE HCHIN¢1,X*308 WIPE HI ADOR. BYTE 


SEEREESE SEE AES HED EEEREGESEEES SOORERERE SERED SESS $995 0E54 84504849 ESOEHSEEE 

* CHECK TIMING BETWEEN CHAIN EMITTER PULSES * 

PERRETESSEE SAS HRS SESE SELERE TES EEEE FEDS SHEEREE OS 4 OFEEEREESENESEEESASESER 
. LA. SENIN,XR1 LCAD ADDR. GF 1ST SAMPLE 

FIBIOF TBN Cl—xXPh1d,8"1000008 FINO CHAIN EMITTER OFF 


JF ENIF 
A ONE eXR1 
8 FIBICF . 4 
ENIF A GNE,XRi : LOOK FOR RISE CF CHAIN EMIT. 
TBN 0(.xR1).8*100000° 
BF ENTF 
TEN O(,XR1),8°18 HOME LATCH ON 
8T FIBSIOF SKIP THIS EMITTER 
NEXEM MMVI SAMCNT,X®CO® ZERO EMITTER SAMPLE CNT. 


ITNAM MMVI | NTHOM'1940 ‘SET MEIN AT 365 USEC 
LKGAN A ONE» XR1 : 
CLE =2 0, >R19,X*30° 1190 SAMPLES CHECKED 
JE TSAL 
ALC = SAMCNTO19 9GNE | : 
TEN =O 099R1948"91000008 CHAIN EMITTER STILE UP 
JF FIRESE 
8 LKGEN 
FIRISE A CNE»XR1 . 
CLI =. 2p XR19_X*308 “1100 SAMPLES CHECKED? 
JE TSAL 
ALC = SAMCNTOLD g CNE 
TBF =O €,xR19,8°1000098 EF CHAIN EMIT DCWNeFINO NEXT RISE 
"JSF 1TSUP : 
CEMAX CLI SAMCNT»45 MCRE THAN 410 USEC *TREEN EMITS. 


112 JH OTOMAY 

113 B FIRISE si 

‘114 ETSUP TAN 1¢—xR1)9B°1° IS THIS A HOME PULSE 

115 JF ONTHCM ¢ 

116 ST = SAVF1,xXR1 

LL7 FESS eeEESSERESE SHS EEKEKESES EES SEES EEE SESEKESSSESERHESEKAEHSETE VE SVESEVHVSE 
118 * CHECK PULSE WIDTHS & HOME PULSE TIME * 
LIS KB SHRSEKEERSEESE ERE ESEREEEEEKSESEESEKESAERESSESEKARETS OESSESESSESEREKESSSE PEEKS 
120 GOBAK A SISFReXRi SUBTR.120 OR 72 FROM HOME ADDR. 

121 GORK A CHE oXR1 

122 TBF ClyX21),8"1000008 FIND GAP 

123 BF  GCRK 

124 B LULSE GC CHECK 142NC EMITTER WIDTH 

125 B LULSE GO CHECK 143RD EMITTER WIDTH 

126 B LULSE GC CHECK 144Th EMITTER WIDTH 

127 MVC LEEAST(2) sLEEADR SAVE 144TH ADDR. 

128 B LULSE GO CHECK 145TH EMITTER WIDTH 

i29 “SLC = LEEADRE 2) pLEEAST DIFF.*TWEEN 144TH AND 145TH 

130 HMMIN CLI LEEADR»16 SAMPLE DIFF.LESS THAN 16 OR 8 

131 JL HOMER 

132 HMMAX CLI ° LEEADR»27 SAMPLE DIFF.MCRE THAN 27 OR 15 

133 JNH = SEEWUN 

134 HOMER 6B HALT HCME TIME ERROR HALT 

135 DC =—_- XL2* 082° 

13€ J GNIP . 

137 SEEWUN B LULSE 
LIMAY7O = OLNGV70.——s«L FEB. PROG 10 OE06-3 
816671 816764 818912 PAGE 1A 
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ERR LOC 


0B88 
oBec 
0890 
CBS4 
— ORGS 
OBSC 
OBAO 
OBAS 
OBA6 
OBAC 
oBe0 
OBEG 
OBBA 


OBBE 
cac2 
OBCG 
oBCc9 
epco 
OBD1 
OBD5 
OBDB 
OBOF 
OBE2 
OBES 
OBEA 
OB8ED 
OBFL 


OBFT, 


03F3 
OBFF 
CCC2 
CCCS 
oces 
‘OC CD 
OCOF 
0C13 


Oci? 
cc 1B 
oc 21 
oc27 
OC2A 
OC2E 
oc3l 
oc35 
0Cc37 
oc3B 


OC3F 
Oc 41 
0C43 
0C45 
Oc47 
0C49 
OC4B 
e0c40 
OC4F 
ocsi 
0c53 
oc55 


DATE 
EC NO. 


: Oo 
eo 
vere 

© 
NTENANCE DIAGNOSTIC PROGRAM PART NOw 2589961 
PAGE 2 
S 
52C3 CHAIN EMITTER TIMING TEST 
OBJECT CODE ADDR STMT SOURCE STATEMENT G 
CO 87 OBBE 138 B LULSE 
3C 27 0899 139 MANTI MVI NTHOM41,39 SET MIN AT 356 FOR LAST EMIT. Oo 
35 01 OCA6 140 L SAVR1eXK} Cee 
CO 87 OAFD 141 B LKGAN 
3D 00 OCA3 142 NTHOM CLI SAMCNT,»*-* LESS THAN 365 USEC °TWEEN EMITTERS i 
CO C2 OAFS 143 BNL  NEXEN 
CO 87 0222 144 TOMNY 8 HALT EMITTER TEMENG WRONG HALT . 
E080 OBAS 145 pC —s»XL2 *0808 C 
OF 00 OC9B 0C40 146 TSAL SLC  TCUNT(1} ONE OCNE 8 TIMES 
CO O1 OA6D 147 BNZ  SKGOON . 
OF 02 OC9A 0C40 148 GNIP SLC  LPCUNTCLD yCNE DONE 10 TIMES CG 
CO Oi OAS2 149 BNZ . SNCTRE 
CO 87 0216 150 B LINK = 
152i SKEKEVELKSASE CHE LSEK KEKE SSS SES SASLCSSL SE HSSEKRESBES TSH SLE SLESE SES RLERSSSESRKESHKASSSSK Ae 
152 * CHECK PULSE WIOTH SUBROUTINE 
L835 SAKES SSESEAAESSE SESS SEKESSLEKKESE SESE SRST KLE THES SISHSSSKSSSKLSKHSESSSSELLGRLHE*S : 
34 08 OCL6 154 LULSE ST PLEXIT#3,ARR SET RETURN ADORe . . oO 
36 02 0C40 155 LEEG A ONE ¢XR1 
78 20 00 156 TBN 04,XR1}_B*20000C8 FIND LEAD EDGE CE EMITTER 
CO 90 oBc2 157 BF so LEEG oO 
34 OL OC9D 158 ST LEE ADR e XR SAVE LEADING EDGE ADDR. a 
3C 00 OLAS 159 MVI- SAMSAV,X*008 ZERO SAMeCOUNT 
OF 00 OCA4 0640 160 TREG ALC  SAMSAVC1) ONE ACD 1 TO SAM.COUNT — © 
36 01 0C40 16i A ONE 9 Xai ADD 1 TO SAM.ADDR. | 
78 20 00 162 TBN  0€,XR1}_8*1000008 FIND TRAIL EDGE CF EMITTER age 
CO 10 ODS 163 BT TREG ©: 
3D 02 OCAS6 164 PUMIN -CLI SAMS 1V,2 PULSE WIDTH 2 OR MORE 
F2 62 1C 165 JL, WIDER 
3C 00 OCA 166 MVI | SAMSAV,X*008 © 
OF 00 OCAS 0C40 167 SNAP ALC SAMSAVO.1) g CNE 
36 OL 9C40 168 A ONE ¢XR1 
3D 01 OCA4 169 GAPWIO CLI SAMSAV,1 GAP WIDTH OVER 1 ? Soe 
F2 8412 ° 170 JH PLEXAT | oe: 
78 20 00 171 TEN  0(,XR1}~B*1C00008 
CC 90 OBF1 172 BF SNAP Co 
CO 37 0222 173 WIDER 8 HALT WRONG PULSE WIDTH ERROR HALT 
£081 OCDE 174 - pc xt 2°E0828 ik 
CO 87 OBBO 175 3 GNIP - a ie 
CC 87 0000 176 PLEXIT B *-% RETURN 
177 
L178 SFSSCSESSEMSKAHKHKSKS SHS SAS SAASARESSEESEKSSESE SL SHKERESEESERESSEREHERESESE OHS TEEEESESKSESES oO 
179 * CHECK FOR BUSY & DELAY SUBROUTINE * 
LEO SSSHHEKASHERKS RASS SEKESKEKSEHESE SHES ESSEREEKVAKES SESHECESTE SERS EKEESLESESEETES 
34 08 OC3E 181 BRCUT ST BSEXI1#3, ARR LCAD RETURN ADOR. G 
OC 02 1FF6 OCSD 182 SDC MVC —- BUSUB(3) pBUSCTI STOREDELAY + ee 
OF 02 1FF6 OC40 183 FLCOP SLC  BUSUB(3),ONE : 
F2 81 07 184 JZ TCLOKG a 
Cl £6 oC2, 185 TIO. FLOOPeBUSY STILL BUSY 
F2 87 OA 186 J BSEXIT 
CO 87 0222 187 TOLONG B HALT ERROR HALT © 
ECl1 0C36 188 pC XL2*EORL® 
CO 87 OCiB 189 B SDC 
CO 87 0000 1$0 BSEXIT B +—* 6 
LOL ERASERS REKESERSKKEKEREE SAKE SCHESESSESE CHES SKEKSE SEES SHES SKESAHKEKKGHSESKGEKAGSHKSE SEK 
192 * CONSTANTS * 
193 FEKKSEKKESHKKKSESSEKRERSEASEHKSSKE SEK SRE KRAKSSHESERKSEESE SES SASSHKGESKHSHKKSESEASKESSKELECRE o 
0001 0640 194 ONE DC 1i2¢1° 
0003 OC42 195 TREE DC -IL2°3* 
0004 0C44 196 FOUR DC IL2°4* QO: 
0009 0C46 197 NINE DC 1L2*9¢ 
FFB 0C¢8 198 FRTY OC [L2*-72¢ NEGe72 
FF88 OC4A 199 SISFR DC 1L2*-1208 NEG 120 0 
30E2 Oc4c 200 DC XL2"30E2° 
OEC1 OC4E 201 STUU DC XL2*OECI* SENSE INSTR. 
1300 OC50 202 LASADR DC AL2(HCMING2) GS 
OEC1 0C52 203 SAMADR DC —— AL2(SENIN#1) 
C087 0C54 204 DC XL2°CC87* UNCOND. BR 
OACD 0C56 205-BRUNC OC AL2 (RETURN) 6 
25AUG69 —- 310CT69 11MAY70 O1\NOV70 —_- 19FEB71 PROG 1D 0E06-3 Q 
816485 816529 816671 816764 818912 PAGE 2 
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168M MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 2589961 
" PAGE 2a 
E963 52C3 CHAIN EMITTER TIMING TEST 7 
ERR LOC OBJECT CODE _ADOR STMT SOURCE STATEMENT 
OC57 OCFF N58 206 GOFF DC XL2 ©OOFF* AFTER SAMPLE 
0C59 0C48 OCSA 207 ADFRTY DC AL2(FRTY3 
OC5B 040000 OC5D 208 BUSCTI DC XL3 "400008 
209 EKSKHKKKKSEKEHKSKSSESKEKKKLSKESK SEE KKSERSESKSE SCHKSAKEKSELSERESSSESSSSERSSES SHEARS GSES KSSESAES 
210 * PRINIOUTS * 
211 SASKSKERKEKS HES ESE OSSSRSESSSERAKSSKKKSSSERSAKLSERHEHKSHSVSEKVSE SHEE SHS SEKSESESVIERS 
OCSE C3CB8CLC9N540C5D4 0C76 212 TETL1 OC CL25"*CHAIN EMITTER TIMING TEST* 
OCE6 CSEZE3C5DS40E3C9 212 
OC6E D4C9D5C 740E3C5E2 212 
GCT6 E3 212 : 
OCT? OSCIDZ2CS40F5F2FO OC 86 213 pc CLEG® MAKE 5203 READY, * 
OCTF F340D9CS5C1IC4E86B 213 5 
OC87 E32C8CSDS54CDSC5E2 OC95 214 MAKADY OC CLIS* THEN RESET HALT® 
OCSF C5E340C8C1D3E3 214 7 
’ 2is SRSSEKEKASSAKSESA SASS ESSLESFSLEAKSHSESRSSRRKESHVSERSA SK SES SSE SSH EA SES AKSESS SEEKS SRSA 
216 * RESERVED STCRAGE e 
217 FSSSERHKSCKLSSSKRSE SSK SERSOSKTES ESSA AKSSSEKSHIFARAKSSKSE SSSKSSS SSH VE SHE HHSESSKSCSCHKEKSESS 
0CS6 OCS7 228 STAT2 OS cL2 . 
oc9e CC99 216 ERTL oS CL2 : J 
CC9A OC9A 220 LPCUNT DS cu 
ocoB CCSB 221 TOUNT ODS chi 
OC 9C OC90 222 LEEADR DS CL2 
OC9E "7 CC9OF 223 LEEAST OS Ct2 
OcAO OCAGO 224 MSECS ODS cil 
OCAl OCA2 225 HOMCNT OS cL2 
OCA3 OCA3 226 SAMCNT OS cul 
OCAS OCA4 227 SAMSAV DS cul : 
OCAS OCA6 228 SAVRL OS ct2 
oeC3 229 CRG x*®OECCE 
OECO 230 SENIN EQU * ‘ 
OECO 330B 231 HOMIN OS 21CL100 SAMPLE AREA 
130¢ 1CC7 232 NIMOH ODS 23CL100 SAMPLE AREA 
1003 -1DFB 233 DIMES ODS 5CL100 SAMPLE AREA | 
LOFG 1FEF 234 SEMID ODS 5(L100 SAMPLE AREA . 
1FFO iFfl 235 ZROFF OS CL2° 
- LFF2 1FF3 236 SAMRET DS cl2 
LFFS4 1FF6 237 BUSUB DS. CL3 : Bo 
238 FELESHSERSHEREATERE SES EER ESSE EESHLE SELES SEETEES SESSHEGHSSRES SE TIAS SS ELESE 
239 * . EQUATES * 
240 REKKERS SLES TSEKSE SHS HSES THESES SESS SCHSE SSIS SKSESKIE SESS HLE SS SHVSEESH SKK SELSESERES 
0068 241 ARR ECU X*O8 : ADDRESS RECALL REGISTER 
COOL 242 XR} zQu) ok . INDEX REGISTER 1 — 
0002 243 XR2 —EQU) 2 INDEX REGISTER 2 
0800 244 LPI EQU  x*8008 LINE PRINTER IMAGE AREA ~ 
"0216 245 LINK EQU” xX*2168 EATRY TO OCP CHAEN ROUTINE 
O21A 246 PRINT EQU X*2iA® ENTRY TO OCP PRINT ROUTINE 
0222 247 HALT ECU xX #2228 ENTRY TO DCP ERRCR HALT ROUTINE 
QOEO 248 NREOY FEQU = X*EOF 
COE6 249 BUSY EQU XtES* PRINTER BUSY CODE ; - 
250 * SENSE SWITCH EQUATES 
0208 251 SBYTEO EQuU  x*208° DCP SENSE SWITCH AREA 
252 * CONTROL PGM SENSE SWITCHES 
0004 253 SSWO5 EQU X*04t PRINT MESSAGES ON MECU 
FFFF 254 END 
DATE 25AUG69 310CT6S LIMAY70O O1NOV70 ISFEBT71 PROG ID OE06-3 
EC NOw 816485 816529 816671 816764 818912 PAGE 2A 
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. JOM MAINTENANCE DIAGNOSTIC. PROGRAM PART NO. 25899961 IBM MAINTENANCE OLAGNOSTIC PROGRAM — PART NO... 2589961 
_& eas . ie oes PACE. 3 9. Sas ee is HERE ORs a . . . | 3a 
"TT! €063 5203 CHAIN EMETTER TIMING TEST ; ° E063: 52C3 CHAIN EMITTER TEMENG TEST get 
o. | CROSSREF ERENCE 2 ee ee | CROSS-REFERENCE . - 
©. S¥MBDL T LEN VALUE DEFN REFERENCES © Sy¥mBOL T LEN VALUE SEFN REFERENCES 
-  - ADFRTY A 002 OC5A 0207 0052 soc. A C06 O0C18 0162 0189 
C aptuy & 004 0881 0063 6067 @  SEEWUN A 064 0884 0137 0233 
“ARR C 001 0008 0248 0156 0291. 3 SEMID. A 100 FEF 0234 : 
. BAPRT A CO4 OAZ29 0036 0034 : . : SENIN A OC] OECO 0230 0062 0062 0086 0203 
C =sRoUT A 004 #OC17 0191 - cCoeg Zs io ae G  SESFR A 002 OC4A 0199 0120 . 
sss BRUNC A 002 OC5é 0205 oces ; SK.OON A 006 0A6D 6059 0147 ae : i 
"'') “@SEXET A 004 OC38 0190 0183¢ 0196 _ SNAP A 006 «(SFA «(0167 0172 ‘ : ew 
€ guseTr a 003 O0c5D o208 6282 © SNIK . A 004. OAAL 0073 oors 
BUSUB 4.003 iFF6 0237 ears 0103 SNOTRE A 004 0862 C0056 0046 0149 . 
_ .. 8U5¥ C O01 COE6 0249 0183 SsPpuDT A 003 OA0T 0017 0045 : : ° 
‘©. Cemex a 006 0820 0188 o0e7e ; _&  sswos © 002 0004 0253. 0027 0036. oo Go oe . & + 
OFMES A100 1DFB8 0233. os -- 4) S$TAT2 & 002 OC97 0218  #$ 00738 0074. Poa pee . Po. ue 
_ EMIF A 004 OAES 0092 eose oo9s ‘ stuy &@ 002 OC4E 0201 060% 0062. Sie take 72 
C erti a ccz cc99 0219 gore os G TITL1 A 025 OCT6 0212 0032 ; - 
. . 806. A 001 0A00 0003 oe Me -. TOGOCN A 006 OATZ 0060 9058 ate a 
-. FIBIGF A 003 OADS 0087 cose 0085 ’  TOLONG A 064 0C31 0167 0184 ee ie | “ 
© FiRise A 004 0817 0105 0103. 6813 © TOMNY A 00% OBAO 0144 0112 , a, 
tts LOOP A 006 OC2i 0183 oiss. ts TOUNT A 001 OC9B 0221 OOs7¢. ores, Bee : 
“"*"  $0UR A 0C2 O0C44 0196 0065 TREE & 002 O0C42 0195 : 
C  frtv a 002 0C48 0198 0207 ce © TREG A OC& ©0805 0160 0163 
“. GAPMID A004 OB8FB 6169 oe ae . TSAL & 0066. O8A6 $146 01C0 ‘107 : 
-_  GNIP A COB OBBO 6148 0126 0175 TWA. A 066 OAB3 COT? ©0080 
© = GOBAK . A 004 0842 0120 ocs2* ee Pe ink SS Bs nat er, © G wWidER. & 004 OCO9 .0173 0165 
GORK .A 004 O846 0121 0123 LO . *:*- xRL . € O81 0002 0242 0061% 0063 9064 0066 0086+ 0087 0089*% 0091* 0092 0054 0098+ 0099 
7 HALT C€ 001 0222 0247 0334 0144 0173 0187 . ae : ©102 0205* 0106 6109 0114 C116 0120* 0121* 0122 o1s0e 0155 0156 
2 HMMAX A 006 0874 0132 00510 me Oe A gee Bee ee ss Oo : Go. & 0158 0261* 0162 0168¢ o173 . 
WMMIN A004 086D 0130 oc@soe | aa ft oe . > .¥R2- °° © OOL 0002 0243 0062¢ 0063 0065¢ | . ULE Gey 3 - 
- | HOMENT A -CO2- GCA2 0225 | 0076* COTSe~ 3. ee zs as : ZROFF A 002. AFF 0235 : ro 
-C HOMER A 004 0878 01346 . 0132 - . _o: . - ; é 
‘s+ HOMIN A 100 1308 0231: 0082%.0292 aa 16? 2 5 TOTAL STATEMENTS ‘FLAGGED IN: THIS “ASSEMBLY. . o “ fo 
“"  TTNAM A C04 OAF9 «00972 = (NAF rey . : aa a ee me 
C =s-rtsup a 003 0838 0114". O4100 °° #8 -¢ Brie fe 6 BAS, oe, Fg - © . : 
_  £ASADR A 002 O€50 0202 0086 — De MW i@oss eC. © yee bh ee a whe 6 
_. BEEADR A 002 OC9D 0222 0127 0129e 0130 0132- 0158¢ oe |S nt, 3,9 ae ke - ae 
€ east A 002 oC9F 0223 61279 0129° fe ee te : “ z : 
~  LEEG A 004 O8C2. 0155 0157 a oa : ie, Sa eet ; 
.. LINK © 002 ©0216 0245 0150° non . 
 &KGAN A 004 OAFD 0098 0104 0143 | a oe 
API C 001 0800 0244 O77 0077 OO78 0078 | : ; 
‘LPCUNT A 601 OC9A 0220 00444 O14e¢ . he ee, ws ote : 
CG  LULSE A 004 OBBE 0154 0124 0125 0126 0128 0137: 0138 ae feege PS ae A 7 a « ‘ ; 
oa! MAKADY A 015 OC95 0214 0041 Do 2 te sue of a ee . ; 
_ _. MANTI A 006 OBBC . 0139 0049 . i - pee Oy oe 
- © MRALT &€ 003 0A3A 0043 0037 °° 2 tw oe . 4s oo ' 
-. MSECS, A 002 OCAO 9224 0056* 0059* O0T6 ‘ = ; 
NEXEN A 004 OAFS 6096 01430 ~‘«‘C ge oo a ie 
©. NIMOH A 100 1C07 0232 an ie g 
yi, WENE A 002 0C46 0197 90059 bed : aes ‘ 
~ .NOOGOT A 004 0A3D 0044 0035 . 
© NRDY C€ 001 OOF 0248 cc3s Oo 
NRTIO A 004 OA22 0034 0028 3 : ; 
_. NTHOM A 004 0698 0142 CO9T* 0115 0139% 
GONE A 002 ©C40 0194 0064 0079 0089 0091 0098 oro. ‘0105 01908 0121 0146 0148 6155 Cc .- : 
bs 0160 0161 0167 0168 0183 : 
_ DOFF A 002 OC58 0206 ; 
©  PLEXIT A 004 0C13 0176 0154* ©170 oO : 
PRINT C G01 O21A 0246 0029 0038 : 
" PUMIN =A 006 CBE6 6164 = ee 
G. - RETURN A 004 OACD 0082 0205 0 7 
‘tT, RTNL A 001 OAODD 0023 0015 oe eo 
_ SAMADR A002 OC52. 0203 o06o0 ti = 
G SAM NT A 001 OCA3. 0226 OC96* 0101* 01°8* 0111 0142 Q . i 
2 SAMRLT A 002° 1FF3 0236 = O0s8* 3 : : : a 
ss SAMSAV A001 OCA4 0227 0159% 0160* 0164 0166 0167* 0169 ° 
C’  SAVRI =A 002 0CA6: 0228 —-0116* 0140 | . , 
‘SOYTEO C COL 0208 0251 0027 0036 : 
DATE 25AUG69_ 310CT69 8 LAMAY7O" OUNOV7O 19FE871. PROG 15 CEDE~2 pate 25AUG69 310CT69 11¥AY 70 G1NOV7O 19FEBT1 PROG 1D = OE 06-3 
c EC NO. 816485 . 816529 - 816671 : 2 PAGE 3 EC NO. 9816485 816529 816672 §16764 818912 PAGE 3A e 
eens 5 ror ; es : : : , : © : . . : i a 
‘ neat t- . 7 j ; 
° | Q j = 
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e 
THE CHARACTER 
CL 


T+#-¥38F< & B-4 
° - @ 
T+-Z25~ <aB-2E+8 


T+-DOL-1K0-D<L 3H 


T+-,,CH ("0- B 


T+-ZwB>(8 EC D » 


T#-_/3K eZ 2 (K4 


T4—>*X#BGBM8] £2 


e 


T+-2?P —-5CH*BH>B 


T#-OK2Z 1 (-D<EG- 


T+-100H* CEHCCE 


T+-2HOS<KUCZG /0¢ 


TC 2NIDN 6*PS134 


EWN SET #=-~DC PHS 


DATE 25AUG69 


ee e e 
<W3A& oD @"asA H 
HC IHEFTO*B28aF be 


BC%+* 0 L-D CD 


(40- B { 2SCDC 


NI 


<Y¥30YB9U6 6&1 


<Y°HD$<BGB1;8 EG 


ICIA*D 2) 3YHG{ 52 


5203 CHAIN EMITTER TIMING TEST 


OBJECT CARD LISTING 


1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 


Ha/ HOH*BFUHRCGS 
2 [AU.TLOHB68aCO_ 
e owe 
6 -10LEC CEC &D 
2 en 

/ D30H*40C00D03 
“L BaYF=C- <YO! 
2UEY% &2W(-D<KTQ 


<X3HDB*BG S.--?H 


Ct 49 THROUGH 64 


- <G-BSX2/1&8A H 
e - © 

5C DeJELE] &<YCO 
° 

AC <=ad0100H*<E3C 

B €# 3B) aZ H(-D 

e ee « -_ 
3B) aZ DOH*H™"LQ 


ACDASh C U _FOH* 


Ge<PEGBH# /0>= (184. 


e e oe . e ° a e e 
CO <WOl C DHSEa = CIY<EC ABW. /OH GO -<ETQACDABH C 
- < EB'M® -2UaYH #1 <Z 8 CHE<ECQ ACD * E2UaYEJSB 
e e : . ‘oma e eee 
< /"OCE4] /"6CDC 2-E7A9-0/aY*HCH* BH> JOH*<FaBG 
( |a<K & <fHOX NE<PMZSETLIV BAX MZ2)PGE4+/E8>140). 
‘e @aeeenaeae see pees Cee atts eececeesencoesee 
2<GL80 
. eee ese e ee ees ees e @aee0e eeaeaesene 
="7MEF1 | C FZ ASC RA SO Q 
310CT6S 1LMAY7O 01NOV70 19FE872 
816529 816671 816764 818912 
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INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


CL 65 THROUGH 80 


HaZ HOP*BFUD-CIP 
ee 

HC12?2/0Q¢ 2-CDQ 

SCI1#8 &2001 HYEO 


<E<BLB_M6 61 36 


ACDA*< .2-Qh*+ Z 
o?ZBGB## /9>=C D 


—- @ e 
eWLMACHS /0,°1E 


U 2?BE O<XLO CHE 


‘ cl o@*BG $e-~*2 


EEIP2Za1l 6FPAlt/ 


e@eoaoseeeeeee eee ce 
. 


20280202710 


- &€ C & Bx=8"6-. 


2589961 
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CL 81 THROUGH 96 


-8~ 424€0630001 
e e ow 
<€ 0 s0<EC630002 


ew @ 
CHH O1YE0630003 


OF O <E0630004 


TOD &ZDEC630005 
® 
<X00 *8QECE30006 


ee 
<Ya -~$HEO0650007 
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e @ 
+ 0 &3&E€0630008 


ee 
GB £&8QE0630009 


08-8 -:BME0630010 


e8a- #2HEC630011 
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